关于VB(帮忙看看哪里错了）

显示全部楼层 · 2009-6-11 16:21:06

Private Sub Command1_Click()
Dim a As String, b As String'定义变量a为显示内容，变量b为打字内容
b = Val(Text1.Text)
'从text1中读入数值
Text2.Text = a
'将中显示出来
End Sub
Private Sub Text1_Change()
End Sub

千问 · 2009-6-11 16:21:06

Private Sub Command1_Click()Text2.Text = Text1.Text
'将中显示出来End Sub就可以了你的错误在于Val(Text1.Text)是将Text1.Text转化为数字，而你的b定义为字符型二者类型不匹配...

千问 · 2009-6-11 16:21:06

b = Val(Text1.Text)
'从text1中读入数值Text2.Text = a
'将中显示出来这两句没有任何联系，第二句的解释也看你的不懂。如果要将TEXT1中的值在2中显示出来，就应该是=b，如果要写=a，必须先对a赋值。另外...

千问 · 2009-6-11 16:21:06

你的意思应该是把text1文本框中输入的内容在text2文本框中显示出来，并且text1文本框中的内容转换为数字，如果是这样的话应该把你里边的text2.text=a改为text2.text=b里面用一个变量就够了val(text1.text)意思不是读入数值而是把输入的内容转换为数字型；如果只是要求把第一个文本框的内容在第二个文本框中显示出来这样写...