UC知道VB：输入重组问题
来源：百度知道 编辑：UC知道 时间：2024/05/22 19:35:13
输入一个6位正整数，将其中的奇数字反序拼成一个新数，并输出此数，若输入的不是6位正整数则要求重新输入。
例如：
输入数为456789，则新的数为975
例如：
输入数为456789，则新的数为975
Private Sub Form_Click()
Dim s As String
Dim s1 As String, s2 As String
x = "输入"
Do
s = InputBox(x)
x = "重新输入"
Loop While CStr(CLng(Val(s))) = s And Len(s) <> 6
For i = 6 To 1 Step -1
s2 = Mid(s, i, 1)
If Int(s2) Mod 2 = 1 Then s1 = s1 & s2
Next i
Print s1
End Sub