UC知道vb代码;要求用标签，文本框 和命令按钮做累加
来源：百度知道 编辑：UC知道 时间：2024/09/25 20:23:28
在文本框中输入数字 点累加命令按钮 在标签上显示累加的结果
不是累加你输入多少次数字 是累加你输入的数字之和 比如你在文本框输入
12
点击累加标签显示12，再在下一行输入
23
点击累加显示25，再在下一行输入
45
点击累加显示70
以此类推
不是累加你输入多少次数字 是累加你输入的数字之和 比如你在文本框输入
12
点击累加标签显示12，再在下一行输入
23
点击累加显示25，再在下一行输入
45
点击累加显示70
以此类推
在窗体上添加一个命令按钮command1,一个文本框text1，和一个标签代码如下 (首先将文本框的multiline属性值设为true)
Option Explicit: Dim a As String, b As Integer
Private Sub Command1_Click()
Label1.Caption = Val(Label1.Caption) + b
a = ""
End Sub
Private Sub Form_Load()
Label1.Caption = ""
Text1.Text = ""
Command1.Caption = "累加"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
a = a & Chr(KeyAscii)
b = Val(a)
End Sub
稍微改了一下...
我有一个疑问
在文本框里输入数字,比如输入123456
是计算1+2+3+4+5+6 还是12+34+56
有很多算法啊