Question

vb程序问题如何在一个文本框中输入两个不同的数字

利用文本框输入两个数，用消息框msgbox弹出输入的两个数之和

Answer 1

Private Sub Command1_Click()
Dim a As String, b As String
Open "C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" For Output As #1
Print #1, Text1.Text
Close #1
Open "C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" For Input As #1
Line Input #1, a
Line Input #1, b
Close #1
MsgBox a * b
End Sub

感觉这样太麻烦了。text1.text属性药设置成多行，multline=true, text1.text中输入一个数之后要换行输入

Answer 2

Answer 3

dim a!,b!
if len(text1)=2 and isnumeric(text1)=true then
a=val(left(text1,1))
b=val(right(text1,1))
msgbox "和是" & a+b
end if