题目：开票统计操作实例本例共用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)………………对应着写计算公式就可以了。