Private Sub Commend1_Click()Dim A As Integer, B As IntegerText1.SelStart = 2Text1.SelLength = 2A = Val(Text1.SelText)B = Len(Text1.Text)Print A * BEnd Sub‘为什么答案是170呢 我在机器上运行过 不可以运行

我知道了 题中 Command1打错了 我太大意没有看出来 所以运行不了 现在 我明白这题是为什么了

请教：我想知道这道题为什么是这样 Private Sub Commend1_Click() ’Command1错了Dim A As Integer, B As Integer Text1.SelStart = 2 ‘文本第2个开始Text1.SelLength = 2 ’选2个A = Val(Text1.SelText) ‘输入12345 取34B = Len(Text1.Text) ’5个字符长度Print A * B ‘34*5End Sub

B = Len(Text1.Text) 这行我说过好几次了,总有一次你会出错,错在那里会搞死你, 这是我痛苦过的经验,养成习惯吧.B=len(trim(text1.text))

谢谢 CMB666 我会记住的 同样的错误不会犯2次