Question

下面的程序执行时在text1 文本框输入一个数鼠标点击按键后，在text2文本框显示相应的数。

下面的程序执行时在text1 文本框输入一个数鼠标点击按键后，在text2文本框显示相应的数。
Private Sub Command1_Click()
Dim k As LONG
k = Val(Text1.Text)
Text2.Text = Str(k * 2)
End Sub
当你从text1文本输入3.21，则在text2文本框显示的值是 。

Answer 1

Dim k As LONG
k = Val(Text1.Text) --> 比如text1里面输入3.21，k=3（这里面牵扯到数值转换，因为text1是一个字符串型，同时long是一个整数类型，因此要有一个类型转换取整）
Text2.Text = Str(k * 2) --> k * 2 = 6,然后再从数值型转换成 字符串型，这样才能赋值给text2

所以最后会显示成6