Question

【高人指点】VB代码编写要求在text1中输入三位整数,点击确定后在text2中逆序输出。

提示1通过算术运算实现
2 通过字符串运算实现

Answer 1

1、通过算术运算实现：
Dim S As Integer, D As Integer
S = InputBox("请输入三位整数：", "输入")
D = (S Mod 10) * 100 + (S \ 10 Mod 10) * 10 + S \ 100
MsgBox "逆序后的数是：" & D
2、通过字符串运算实现：
Dim S As string, D As string
S = InputBox("请输入三位整数：", "输入")
D = right(S,1) & mid( S 2,1) & left(S,1)
MsgBox "逆序后的数是：" & D

Answer 2

的最前面

Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, i%
Print "输入的数据为"
For i = 1 To 10
a(i) = InputBox("请输入一个整型数")
Print a(i),
Next i
Print
Print "逆序输出为"
For i = 10 To 1 Step -1
Print a(i),
Next i
End Sub

Option Base Option Base 语句 在模块级别中使用，用来声明数组下标的缺省下界。语法Option Base 说明由于下界的缺省设置是 0，因此无需使用 Option Base 语句。如果使用该语句，则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base，且必须位于带维数的数组声明之前。注意 Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用 To 子句显式地指定下界，则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0；Option Base 对 Array 或 ParamArray 不起作用。Option Base 语句只影响位于包含该语句的模块中的数组下界。

Answer 3

通过字符串这个我还没试过类，，不过简单点，通过数组就行啊。结果是一样的啊。。。