Question

请问在VB中,如何将文本框中的数字读取到数组中啊?并计算求和，麻烦写清楚程序，

Answer 1

dim a()
dim sumx as long
text1.text="1-6-54-8-3-1-65-31"
a()=split(text1.text,"-",-1)
for x= 0 to ubound(a)
sumx=sunmx + a(x)
next

msbox “所有数字的和是:” & sumx

追问

我想问的是往文本框里输入字符，如果是数字就显示在文本框中，如果是其他字符，就不显示，等输入10个数字后，再用数组计算它们的和，这个怎么编程序啊

追答

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii 57 Then
KeyAscii = 0
End If
If Len(Text1) = 10 Then Call sumtxt
End Sub
Sub sumtxt()
Dim a()
Dim sumx As Long
For x = 1 To Len(Text1)
sumx = sumx + Mid(Text1, x, 1)
Next
MsgBox "所有数字的和是:" & sumx
End Sub

追问

大师，麻烦下能不能结合一下上面的图片给写下程序啊

Answer 2

几个文本框？

追问

一个文本框，，我想问的是往文本框里输入字符，如果是数字就显示在文本框中，如果是其他字符，就不显示，等输入10个数字后，再用数组计算它们的和，这个怎么编程序啊

追答

Private Sub Text1_Change()
If Len(Text1) = 10 Then
For i = 1 To 10
Sum = Sum + Val(Mid(Text1, i, 1))
Next
MsgBox "Sum=" & Sum
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii 57 Then KeyAscii = 0
End Sub