[VB]输入一个合法的3位正整数,测试其数值合法性后,逆序输出并显示,例如,输入"734",输出是"437",如图1所示

[VB]输入一个合法的3位正整数,测试其数值合法性后,逆序输出并显示,例如,输入"734",输出是"437",如图1所示

(1)if keycode=13 then
if isnumeric(text1.text)=true then

if val(text1.text)<100 or val(text1.text)>999 then

msgbox "你输入的整数不合法 100-999"

exit sub

else

msgbox "输入合法"

end if

end if
(2)
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim i As Integer, j As String
i = 100 + Int(Rnd * 900)
a = Int(i / 100)
b = i Mod 100
c = b Mod 10
b = Int(b / 10)
j = c & b & a
MsgBox i & "," & j

End Sub

假如：输入数字的 TextBox 控件名称为 txtNum1，输出用 TextBox 的名称为 txtNum2
1、判断 txtNum1 是否为数字的程序如下
If Trim(txtNum1) = "" Then Exit Sub
If Not IsNumeric(txtNum1) Then
MsgBox "请输入数字!"
txtNum1.SetFocus
End If
2、实现逆序的程序如下
Dim maxNum As Long
Dim i As Long

Dim strN1 As String
Dim strN2 As String

maxNum = Len(Trim(txtNum1))
strN1 = Str(Trim(txtNum1))
For i = maxNum + 1 To 2 Step -1
strN2 = strN2 + Mid$(strN1, i, 1)
Next
txtNum2 = strN2
在实现“逆序”程序中，我是把输入内容按字符串进行处理的，原因主要是
(1)、不知道输入数字长度的大小，
(2)、如果数字最后一位是0的话，也能明确看到结果。
3、如果你确定输入是三位数字的话，直接转换：
txtNum2 = (txtNum1 Mod 10) * 100 + ((txtNum1 Mod 100) \ 10) * 10 + (txtNum1 \ 100)
希望对你有参考价值...

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息