急?????VB编程

来源：百度知道 编辑：UC知道 时间：2024/06/02 01:39:14
输入一个6位正整数,将其中的奇数数字反序拼成一个新的数,并输出此数(若输入456789,则新的数为975),若输入的不是6位正整数则要求重新输入

Private Sub Command1_Click()
Do
a = InputBox("请输入一个六位整数:")
If Len(a) = 6 And IsNumeric(a) Then
For i = 1 To 6
b = Mid(a, i, 1)
If Val(b) Mod 2 <> 0 Then c = b & c
Next
If c <> "" Then Print c Else MsgBox "没有符合要求的数!"
Else
MsgBox "输入的数据不正确,请重新输入!"
End If
Loop Until Len(a) = 6 And IsNumeric(a)

End Sub