Private Sub Command1_Click()num = Text1.TextDim a(2)a(0) = Abs(num \ 100)a(1) = (num Mod 100) \ 10a(2) = num Mod 10For i = 0 To 2If a(i) > 4 Then big = big + 1 Else small = small + 1If a(i) Mod 20 Then ji = ji + 1 Else ou = ou + 1Next iText1.Text = "大小" + CStr(big) + ":" + CStr(small) + "奇偶" + CStr(ji) + ":" + CStr(ou)End Sub
Private Sub Command1_Click() num = Text1.Text Dim a(2) a(0) = Abs(num \ 100) a(1) = (num Mod 100) \ 10 a(2) = num Mod 10 For i = 0 To 2 If a(i) > 4 Then big = big + 1 Else small = small + 1 If a(i) Mod 20 Then ji = ji + 1 Else ou = ou + 1 Next i Text1.Text = "大小" + CStr(big) + ":" + CStr(small) + "奇偶" + CStr(ji) + ":" + CStr(ou) End Sub