vb代码;要求用标签，文本框和命令按钮做累加

2025-05-02 08:18:59

推荐回答（2个）

回答1：

在窗体上添加一个命令按钮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

稍微改了一下...

回答2：

我有一个疑问
在文本框里输入数字,比如输入123456
是计算1+2+3+4+5+6 还是12+34+56
有很多算法啊

vb代码;要求用标签，文本框 和命令按钮做累加

vb代码;要求用标签，文本框和命令按钮做累加