Question

可以解释下下面的程序吗，这是道倒序的编程。 特别是这句： x = Val(Text1.Value)

Private Sub Command1_Click()
''' 不得删除本行注释
Dim x&, y&
x = Val(Text1.Value)
y = 0
Do While x > 0
y = y * 10 + x Mod 10
x = x \ 10
Loop
Text2.Value = y
End Sub

Answer 1

这个程序 是把 text1文本框里写的数字 倒序输出到 text2文本框里边，
比如你 text1里边是 145 ，那个 text2里边就会变成 541
x = Val(Text1.Value) 这句的作用是把 text1里边的内容转为 数值类型，因为 text是文本框，内容是字符型的，要进行运算 肯定要先转为数值呀

追问

那接下来的怎么解释？

Answer 2

x = Val(Text1.Value)就是把Text1中的文本转换为数值，并赋值给x。