vb编程题（急急急）

来源：百度知道 编辑：UC知道 时间：2024/09/23 19:27:01
单击窗体，要求用户在输入框中输入一个数，若该数是不多于6位的正整数，则挑出其中的偶数数字，将他们反序组成一个新的数并显示在文本框中，若数据不符合要求，则重新输入数据，直到数据合理为止。

修改：
Private Sub Form_Click()
Text1.Text = ""
Dim a As Single
Do While (Not (a > 0 And a < 1000000)) Or (a / 1) <> (a \ 1)
a = InputBox("输入小于1000000的正整数")

Loop
Dim i As Integer, b As Integer
For i = 1 To Len(CStr(a))
b = Mid(a, i, 1)
If CInt(b) Mod 2 = 0 Then
Text1.Text = b & Text1.Text
End If
Next

End Sub

Option Explicit

Private Sub Form_Click()
Dim x, z As String
Dim y As Integer
On Error Resume Next
numinput:
Text1.Text = ""
x = CInt(InputBox("请输入一个不大于六位的整数"))
If CInt(x) < 1000000 Then
For y = 1 To Len(x)
z = Mid(x, y, 1)
Select Case z
Case "0", "2", "4", "6", "8"
Text1.Text = z & Text1.