level 3
求图
2020年07月02日 15点07分
level 9
level 3
吧务
level 13
' 输入一个三位数，输出其倒序数。
Sub FF1() ' 子串法
Dim c1, c2
c1 = InputBox("输入三位数", "输入", "135")
c2 = Mid(c1, 3, 1) & Mid(c1, 2, 1) & Mid(c1, 1, 1)
MsgBox c1 & " 倒序成：" & c2, 0 + 64, "运行结果"
End Sub
Sub FF2() ' 分解位数法
Dim a, b, c, n, m
n = InputBox("输入三位数", "输入", 135)
a = Int(0.01 * n)
b = Int(0.1 * n - 10 * a)
c = n - 100 * a - 10 * b
m = 100 * c + 10 * b + a
MsgBox n & " 倒序成：" & m, 0 + 64, "运行结果"
End Sub
Call FF2
2020年07月03日 03点07分
4
Sub FF1() ' 子串法
Dim c1, c2
c1 = InputBox("输入三位数", "输入", "135")
c2 = Mid(c1, 3, 1) & Mid(c1, 2, 1) & Mid(c1, 1, 1)
MsgBox c1 & " 倒序成：" & c2, 0 + 64, "运行结果"
End Sub
Sub FF2() ' 分解位数法
Dim a, b, c, n, m
n = InputBox("输入三位数", "输入", 135)
a = Int(0.01 * n)
b = Int(0.1 * n - 10 * a)
c = n - 100 * a - 10 * b
m = 100 * c + 10 * b + a
MsgBox n & " 倒序成：" & m, 0 + 64, "运行结果"
End Sub
Call FF2
这些 VBS 程序代码中，【InputBox】语句并没有出现【没有权限】的问题。
2020年07月03日 03点07分