Question

江湖救急！！！！！！！！！→→→VB懂的进

要求：添加2文本框、1列表框、2按钮（添加\计算）
在一个文本框中输入一个或几个数字。→点添加，把数字弄到列表框上去。→多弄几个进去，一个个排下来。→点计算，将列表框内所有数据相加，并将答案显示到另一个文本框内。尽可能用最简单的语句完成。谢谢！

Answer 1

Dim i As Long '变量i用来表示列表框中的当前项目序号
Dim a As Long '变量a用来保存当前列表框中的项目总数
Dim sum As Long '变量sum用来保存列表框中值的总和
Private Sub Command1_Click()
List1.AddItem Text1.Text '按下按钮1,将文本控件text1中的内容添加到列表 框中
End Sub

Private Sub Command2_Click()
a = List1.ListCount '获得列表框中项目个数
For i = 0 To a
sum = sum + Val(List1.List(i)) 将列表框中第i个项目的值转为数值型并赋给变量sum
Next i
Text2.Text = sum '这个不用解释了吧?
End Sub

够清楚不

Answer 2

看看这个够不够简单:

Private Sub Command1_Click()
'添加数字到列表
List1.AddItem Val(Text1.Text)
End Sub

Private Sub Command2_Click()
Dim i As Integer
Dim mSum As Double
'合计列表的数值
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
mSum = mSum + Val(List1.Text)
Next
Text2.Text = mSum
End Sub

Answer 3

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入数"
Else
List1.AddItem Text1, Text
Text1.Text = ""
Text1.SetFocus
Command2.Enabled = True
End If

End Sub

Private Sub Command2_Click()
Dim i As Integer, sun As Integer
For i = 0 To List1.ListCount
Sum = Sum + Val(List1.List(i))
Next
Text2.Text = Sum
End Sub

Private Sub Form_Load()
Command2.Enabled = False

End Sub
我也正愁着呢，要考VB二级了，没啥把握啊

Answer 4

两个文本框text1,text2,一个列表框list1
添加command1，计算command2
下面是代码：
Private Sub Command1_Click()
List1.AddItem (Text1.Text)
End Sub

Private Sub Command2_Click()
Dim n As Integer
Dim s As Single
n = List1.ListCount
For i = 0 To n
s = s + Val(List1.List(i))
Next i
Text2.Text = s
End Sub