Question

vb的问题，关于text1.seltext

（17）窗体上有一个按钮和一个文本框，程序执行后，在文本框中输入12345，单击按钮后的输出结果为（ ）。
Private Sub Command1_Click()
Dim A As Integer, B As Integer
Text1.SelStart = 2
Text1.SelLength = 2
A = Val(Text1.SelText)
B = Len(Text1.Text)
Print A * B
End Sub
A）68
B）115
C）1700
D）170

其中A得知怎么算的，有什么规律？

Answer 1

正确答案为 170
Private Sub Command1_Click()
Dim A As Integer, B As Integer
Text1.Text = "12345"
Text1.SelStart = 2 '设置文本框的选择起点，因为第一个字符位置为 0,所以从第3个字符起
Text1.SelLength = 2 '选中的字符个数为2，所以选中的字符串就是："34"
A = Val(Text1.SelText) '将字符串"34"转变为数字：34
B = Len(Text1.Text) '文本框的总字符数是 5 个
Print A * B '34 * 5 = 170
End Sub

Answer 2

B。
Private Sub Command1_Click()
Dim A As Integer, B As Integer
Text1.SelStart = 2 '表示从第二位开始数
Text1.SelLength = 2 '表示数两位
A = Val(Text1.SelText) '因此A＝23
B = Len(Text1.Text) 'B＝5，"12345"共5位数
Print A * B '23*5＝115
End Sub