1樓：匿名使用者
這個太簡單了！
dim a as integer, b as integer, c as integer
private sub hscroll1_change()a = hscroll1.value
b = hscroll2.value
c = hscroll3.value
if option1.value = true thentext1.forecolor = rgb(a, b, c)elseif option2.
value = true thentext1.backcolor = rgb(a, b, c)end if
end sub
private sub hscroll2_change()a = hscroll1.value
b = hscroll2.value
c = hscroll3.value
if option1.value = true thentext1.forecolor = rgb(a, b, c)elseif option2.
value = true thentext1.backcolor = rgb(a, b, c)end if
end sub
private sub hscroll3_change()a = hscroll1.value
b = hscroll2.value
c = hscroll3.value
if option1.value = true thentext1.forecolor = rgb(a, b, c)elseif option2.
value = true thentext1.backcolor = rgb(a, b, c)end if
end sub
行不行，不懂再問吧。。
哪位高手會解vb程式的題，我這有幾道小題，急需答案，考試用，多謝了，急急急！！！！
2樓：
34題 mid(text1.text,l,1)36 i+j-1
37t 底下有loop 上面應該添do while a<2038t mid(xy,n,1)
39t 除37得0的數合併到一塊 ，377440t m（3,1）=13
41t 3 6
42t 5
43t 1，只要空格處所填表示式值等於1均可44t else
45t next。for沒有next，next是關鍵字46t to 4。for迴圈的格式為 for 《變數=初值》 to 終值 [step 步長]
3樓：匿名使用者
mid(text1, i, 1) '這是個不完整的程式段，要除錯必須給text1賦值，並且要求是要輸入一段字元，但是程式不可能實現這個功能
i + j - 1
do while a <= 19
mid(xy, n, 1)
3774
133 6
51或者c-b等一切算術運算結果為1的
else
next
to 4
跪求大神幫忙用vb程式寫這道題！！！
4樓：
private sub command1_click()dim ts as integer,tv0 integer, tv1 as integer,ta as integer,tt as integer
tv0=40*1000/3600
tt=2*60
'先化簡，統一各單位 v=40km/h=100/9 m/s ,a = 0.15 m/s, t=120 s
tv1=tv0+ta*tt '由公式v2=v1+at得ts=tv0*tt+ta*(tt)^2/2 '由公式s=v0t+at^2/2得
text1.text=tv1 '2min後速度vtext2.text=ts '距開始點的距離send sub
『必要的話可以進行單位換算
急求用VB編小程式，急求用VB編一個小程式
簡單的,用text控制元件的sel屬性,dim n as long,num as longprivate sub command1 click l len text2 n instr n,text2,text1 text2.setfocus if n l and n 0 thentext2.sels...
求vb高手解決，求VB高手解決濾波問題
定義一個陣列，初始化陣列，把資料寫入 list1，然後排序，資料寫入list2 option base 1 dim arr 15 as integerfor i 1 to 15 arr i rnd 100 899 list1.additem arr i next for i 1 to 14 k if...
求一個VB程式，求用VB解答
資料要儲存嗎？是不是只對你本次輸入的資料處理。開啟vbf 點選檔案 新建 表 表名 學生統計介面 儲存。彈出視窗 點現在輸入 在 欄位名 排名 型別 字元型 寬度 1即可 剩下的不管 輸下一行。欄位名 及格 型別 邏輯型 寬度 不管同理 下行。最後點確定 輸入資料 儲存。搞定 求用vb解答 製作這個...