vb对列表框中某行求和 - 编程论坛

#2

banjinjiu2013-12-08 22:47

第一天学习VB，第一次进入本论坛。
建议楼主用文本框，我的代码，不成熟，能读取文本框输入的每个字符（数字），仅供参考。

程序代码：

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
MsgBox Mid(Text1.Text, i, 1)
'MsgBox Right(Left(Text1.Text, i), 1)
'm = m + Right Right(Left(Text1.Text, i), 1)
Next
End Sub

[ 本帖最后由 banjinjiu 于 2013-12-8 22:51 编辑 ]

#3

seafish0112013-12-09 01:40

能实现啊。
首先计算出listbox的相应行数和列数再运算就可以啦。

#4

banjinjiu2013-12-09 21:01

可以啦，2个文本框，2个命令按钮，如果改成列表框，相应代码调整，我也是新手，百度多少个网页，没有现成的，做了修改，别忘了加分啊！

程序代码：

Dim b(1 To 1, 1 To 6) As Integer
Private Sub Command1_Click() '文本框中一行各列数相加
Text1 = ""
Text2 = ""
For i = 1 To 1
For j = 1 To 6
b(1, j) = Int(9 * Rnd) + 1
Text1.Text = Text1.Text & CStr(b(1, j)) & ""
Next
Next
End Sub

Private Sub Command2_Click()
Dim s%
Text2 = ""
For j = 1 To 6
s = s + b(1, j)
Next
Text2 = s
End Sub