Question

combobox中数字相加

有文本转到这里的数字相加 得到的结果在label中显示 用什么属性能让他们相加 得结果呢
Private Sub Command1_Click() '这个是追加键 也就是在文本中输入数字 在combo中添加
Combo1.AddItem Text1.Text
End Sub

Private Sub Command2_Click() 这个是合计键 也就是求combo中的数字和 应该怎么做呢

End Sub

Answer 1

Dim i, a

Private Sub Command1_Click()
a = 0
For i = 0 To Combo1.ListCount - 1
a = a + CInt(Combo1.List(i))
Next i

Label1.Caption = CStr(a)
End Sub

Private Sub Form_Load()
Combo1.AddItem "2"
Combo1.AddItem "4"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "1"
Combo1.ListIndex = 0
End Sub