vb中统计数字的和 - 编程论坛

#2

lianyicq2015-04-08 16:02

Private Sub Command1_Click()
试试
Dim temp As String
Dim x As String
Dim i As Integer
Dim sum As Integer
temp = Text1.Text
For i = 1 To Len(temp)
x = Mid(temp, i, 1)
If Asc(x) >= 48 And Asc(x) <= 57 Then sum = sum + Asc(x) - Asc(0)
Next
Form1.Caption = sum
End Sub

#3

青年刘2015-04-08 17:10

回复 2楼 lianyicq

Private Sub Command1_Click()
Dim i As Integer
Dim n As Integer
For n = 0 To 9
Text1(n).Text = n + 1
If Text11(n).Text = 0 Then Exit For
Next n
For i = 0 To 9
If Text21(i).Text = "*" Then Text11(i).ForeColor = vbRed
If Text21(i).Text = "#" Then Text11(i).ForeColor = vbGreen
Text32.Text = Text31.Text & "股道" & Chr(13) & Chr(10) & Text11(0).Text & Text11(1).Text & Text11(2).Text & Text11(3).Text & Text11(4).Text & Text11(5).Text & Text11(6).Text & Text11(7).Text & Text11(8).Text & Text11(9).Text
Next i
End Sub

为什么我在text11中输入数字不出现错误，输入a3时怎么就出现类型不匹配了？

#4

lianyicq2015-04-08 17:19

回复 3楼青年刘

If Text11(n).Text = 0 Then Exit For 有误。判断text属性要用
If Text11(n).Text = "0" Then Exit For

#5

青年刘2015-04-08 17:26

回复 4楼 lianyicq

可是这样操作之后，就不能判断text11=0时，跳出for循环了

#6

青年刘2015-04-08 23:25

回复 4楼 lianyicq

谢谢你！你解决了我的问题，我在0前面加了一个空格，就出错了