1樓：匿名使用者
private sub command1_click()text1.text = val(text1.text) + 1end sub
private sub command2_click()text2.text = val(text2.text) + 1end sub
private sub command3_click()text3.text = val(text3.text) + 1end sub
2樓：匿名使用者
在按鈕的單擊事件裡增加**
文字框的值加1就可以了
如張三的按鈕為command1，得票數的文字框為textbox1則**如下：
private sub form_load()me.text1.text = 0 '初始化投票數為0，否則後面增加票數會報錯
end sub
private sub command1_click()me.text1.text = me.text1.text + 1end sub
其他的與上同理
vb編寫一個程式投票總數窗體
3樓：
dim a(9)
private sub text1_change()
s = text1.text
if s = "" then exit sub
if s > "9" or s < "0" then exit sub
s = val(s)
text1.text = ""
if s >= 0 and s <= 9 then
a(s) = a(s) + 1
sum = 0
for i = 0 to 9: sum = sum + a(i): next i
for i = 0 to 9
label1(i).caption = "第" & i & "號候選人票數：" & a(i) & "/"
label1(i).caption = label1(i).caption & int(a(i) / sum * 10000 + 0.5) / 100 & "%"
next i
label2.caption = "總票數：" & sum & " 當前選:" & s
end if
end sub
這個投票的vb**應該怎麼編啊 15
4樓：大氣層的雲
設長度為4的陣列,用來儲存1-4號的選票累積數量,每輸入一次,檢測輸入值的範圍,1-4之外的忽略,1-4之內的累加到對應的陣列元素,點選統計後,按陣列元素位置對應的人名輸出結果(找出最大值就行了).
如何用vb編寫投票統計程式？
5樓：匿名使用者
統計是否需要計入輸入庫或上傳到 網路？
如果只是投票
你可以建立options控制元件！
如何用vb2010寫一個投票程式？
6樓：匿名使用者
用資料庫，再寫個投票的**更靠譜點。
難道你要所有人輪流過來用你的電腦 投票嗎？這樣子到是不難實現，不過做這個程式的意義就沒了
7樓：匿名使用者
還需要寫不？我可以寫 用文字儲存結果也行
用vb編寫一學生成績統計程式
8樓：麻飛薇由邦
現在的學生比較懶啊，很簡單的，定義一個陣列，一個一個的輸入就是了，平均成績還不好做。
9樓：匿名使用者
用excel就可以實現了，還需要vb做幹嗎？
如何用vb編寫一程式,在文字框中統計在該視窗上滑鼠單擊的次數
10樓：匿名使用者
private sub form_click()static num as integernum = num + 1
text1 = num
end sub
private sub form_load()text1 = 0
end sub
11樓：冷凌稀
private sub form_click()dim i as integer
i=i+1
text1.text=val(text1)+1end sub
用vb怎麼編簡單的打字軟體，用vb怎麼編一個簡單的打字軟體,
最簡單的，做個文字框，所有功能都是文字框提供的啊，預設就行除了把文字框設定為 multiline 設定為 true 有text1,text2和label1 text1拿來顯示文章,text2打字,label1顯示正確率dim i,p as integer private sub text1 chan...
怎麼設計VB程式把成績轉換abcd等級
剛才不小心錯怪了zainden，再此特別表示歉意 希望不要放心裡去的 呵呵 dim fenshu as integer 把分數放在變數fenshu裡面 dim grade as string 把等級放在變數grade中select case fenshu case is 60 grade e cas...
怎麼用vb編出九九乘法表如下圖，用VB程式怎麼做九九乘法表？
private sub form load me.autoredraw true dim i,j as integer dim sdisp as string for i 1 to 9 for j 1 to 9 if i j then sdisp sdisp j x i i j iif i j 9,...