1樓：沙慧月
品牌3個按鈕為command1控制項組
品牌資訊3個文字框為text1控制項組
各個品牌數量及總價為text2控制項組
確定取消結束為command2控制項組
**private sub command1_click(index as integer)
if index = 0 then
text1(0) = "愛國者"
text1(1) = "1000"
text1(2) = "500"
elseif index = 1 thentext1(0) = "明基"
text1(1) = "2000"
text1(2) = "400"
elseif index = 2 thentext1(0) = "三星"
text1(1) = "4000"
text1(2) = "600"
end if
end sub
private sub command2_click(index as integer)
if index = 0 then
text2(3) = val(text2(0)) * 500 + val(text2(1)) * 400 + val(text2(2)) * 600
elseif index = 2 thenendend if
end sub
2樓：匿名使用者
看你的介面，乙個牌子似乎只有一種產品。這個做起來就太容易了，都不需要用到資料庫。通過點選品牌按鈕事件，更新產品的text資訊。
然後根據數量的變化，計算出金額。這個東西做出來可以當個計算器用。
3樓：一生得記憶
你這個**太不清晰了。看了就費半天勁了。不過，功能不難。用資料庫不用資料庫都可以。但是建議你使用資料庫，畢竟要計算很多資料得。
4樓：嘌呤的情
是啊，哦那個什麼控制項陣列的，直接用文字框的text屬性顯示。計算總價根據文字框中的資料列乙個計算時就解決了。
vb問題timer控制項的用法，VB問題，timer 控制項的用法。
dim t private sub command1 click t 0 timer1.interval 1000 計時事的毫秒數,即每1秒呼叫一次timer1 timer timer1.enabled trueend sub private sub timer1 timer t t 1 text1...
VB有關image控制項的問題
在form.load裡面 下一張.click裡面 上一張.click裡面 dim tu as integer private sub command1 click 上一張if tu 1 then tu tu 1 image1.picture loadpicture n tu private sub ...
VB問題，在什麼控制項內可以畫圖，線的寬度和顏色如何控制
一般情況，我們在窗體 from 或者 框 picturebox 內畫圖。下面是乙個在窗體內畫線的例子 private subform click me.drawwidth 1 設定寬度 其他寬度下線型均為實線 fori 0 to6me.drawstyle i 設定線條型別 me.line 1000 ...