s = s & Mid(x, i, 1)什么意思?
全代码如下:
Private Sub Form_Click()
Dim x As Integer
x = InputBox("请输入一个正整数;")
For i = Len(x) To 1 Step -1
s = s & Mid(x, i, 1)
Next i
Print s
End Sub 中间有什么问题?
题目意思是从键盘输入一个正整数,然后把该数的每位数字按逆序输出。
s = s & Mid(x, i, 1)什么意思?
全代码如下:
Private Sub Form_Click()
Dim x As Integer
x = InputBox("请输入一个正整数;")
For i = Len(x) To 1 Step -1
s = s & Mid(x, i, 1)
Next i
Print s
End Sub 中间有什么问题?
题目意思是从键盘输入一个正整数,然后把该数的每位数字按逆序输出。
Private Sub Form_Click()
Dim x As Integer
x = InputBox("请输入一个正整数;")
For i = Len(x) To 1 Step -1 'i没有定义
s = s & Mid(x, i, 1) 'S也没有定义
Next i
Print s
End Sub
而且这个程序只能用于小于100的数