題目：開票統計操作實例本例共用20個Label當作提示信息以及9個TextBox控件用來輸入各候選人的得票數，輸入得票數時希望總得票數以及得票率能馬上更新。界面我會做，插入Label，TextBox就可以了，但就是計算我不會！怎么讓總得票數用編程做出來！謝謝幫我編一下！就是計算過程！

熱心網友

這里用了一個計時器,約10秒更新一次,代碼如下:Option ExplicitPrivate Sub Form_Load() Text1 = "": Text2 = "": Text3 = "" Text4 = "": Text5 = "": Text6 = "" Text7 = "": Text8 = "": Text9 = ""End SubPrivate Sub Timer1_Timer() Label1。Caption = Val(Text1) + Val(Text2) + Val(Text3) Label2。Caption = Val(Text4) + Val(Text5) + Val(Text6) Label3。Caption = Val(Text7) + Val(Text8) + Val(Text9) Label10。Caption = Val(Label1。Caption) + Val(Label2。Caption) + Val(Label3。Caption) Label7。Caption = Val(Text1) + Val(Text4) + Val(Text7) Label8。Caption = Val(Text2) + Val(Text5) + Val(Text8) Label9。Caption = Val(Text3) + Val(Text6) + Val(Text9) If Val(Label10。Caption) 0 Then Label4。Caption = Int((Val(Label1。Caption) / Val(Label10。Caption)) * 1000 + 0。5)/10 & "%" Label5。Caption = Int((Val(Label2。Caption) / Val(Label10。Caption)) * 1000 + 0。5)/10 & "%" Label6。Caption = Int((Val(Label3。Caption) / Val(Label10。Caption)) * 1000 + 0。5)/10 & "%" End IfEnd Sub'請對每個TEXT文本框都加上如下代碼加以修改,以便輸入數據。Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenText2。SetFocusEnd IfEnd Sub后附工程文件壓縮包,其中省略幾個標簽請你添上。

熱心網友

我寫了一個完全符合你要求的程序!但是很久沒有寫程序了寫的可能有點差!Private Sub Text1_LostFocus() If Text1 "" And A Text1 Then Label9 = Val(Text1) + Val(Text2) + Val(Text3) Label16 = Val(Label16) + (Val(Text1) - Val(A)) Label20 = Val(Label16) + Val(Label17) + Val(Label18) If Val(Label9) 0 Then Label10 = Str(Round(100 / (Val(Label20) / Val(Label9)), 2)) + "%" End If If Val(Label11) 0 Then Label12 = Str(Round(100 / (Val(Label20) / Val(Label11)), 2)) + "%" End If If Val(Label13) 0 Then Label14 = Str(Round(100 / (Val(Label20) / Val(Label13)), 2)) + "%" End If End IfEnd Sub完整的程序傳不上來!需要的話聯絡我! 。

熱心網友

感情你只會放控件啊……你這樣其實用控件數組更方便。用控件就比較麻煩了。假設你的頁面布局控件的編號是 lable1 lable2 lable3 lable4lable5 text1 text2 text3 lable6lable7 text4 text5 text6 lable8lable9 text7 text8 text9 lable10lable11 lable12 lable13 lable14 lable15 lable16 lable17 lable18 lable19 lable20 則在相應事件中寫代碼label6=cint(text1。text) + cint(text2。text) + cint(text3。text)label8=cint(text4。text) + cint(text5。text) + cint(text6。text)label10=cint(text7。text) + cint(text8。text) + cint(text9。text)………………對應著寫計算公式就可以了。