Question

vb计算 在text1分别输入三个数，单击command1按钮，则在text2、text3显示总和

按图例说明写代码
分别输入三个数，每次输入按回车键，怎么写代码

Answer 1

主要还是要把一个文本里的不同数据拿出来麻烦 参考一下，不敢保证可以 上班没做测试
dim a(1 to 3) as single
staic stratnum,endnum,n as intger
n=1
startnum=1
endnum=len(text1.text)
for i =1 to len(text1)
k=asc(mid(text1.text,i,1))
if k<45 or K>57 then endnum=i
a(n)=val(mid(text1.text,statnum,endnum-startnum))
startnum=i+1
n=n+1
end if
next
text2.text=a(1)+a(2)
text3.text=a(2)+a(3)

‘忘了都还有个split()

追问

staic stratnum,endnum,n as intger 代码有问题
split() 怎么加

Answer 2

Private Sub Command1_Click()
Dim y
y = Split(Text1.Text, vbCrLf)
Text2.Text = Val(y(0)) + Val(y(1))
Text3.Text = Val(y(1)) + Val(y(2))
End Sub
要记得将text1.text的Multiline属性设为True

Answer 3

Private Sub Command1_Click()
Dim str
Dim a(3) As Double
str = Text1
str = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(str)
a(i) = CDbl(str(i))
Next i
Text2 = a(0) + a(1)
Text3 = a(1) + a(2)
End Sub