锦江之星济南泉城路店:VB求大小比和奇偶比

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/28 20:34:32
范围:0-9
0-4为小
5-9为大
在text1中输入一个3为数,比如126
要求出126的大小比和奇偶比
就是126中有几个大数,几个小数,几个奇数,几个偶数
结果以 大: 小 奇:偶的形式显示出来
分开求
比如126
大小比 1:2
奇偶比 1:2

Private Sub Command1_Click()
Dim i, v
大值 = 0:奇数 = 0
For i = 1 To Len(Text1.Text)
v = Val(Mid(Text1.Text, i, 1))
If v > 4 Then 大值 = 大值 + 1
If v Mod 2 <> 0 Then 奇数 = 奇数 + 1
Next
MsgBox "大小比=" & 大值 & ":" & 3 - 大值 & vbCrLf & "奇偶比=" & 奇数 & ":" & 3 - 奇数
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 2 <> 0 Then ji = ji + 1 Else ou = ou + 1
Next i
Text1.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 2 <> 0 Then ji = ji + 1 Else ou = ou + 1
Next i
Text1.Text = "大小" + CStr(big) + ":" + CStr(small) + "奇偶" + CStr(ji) + ":" + CStr(ou)
End Sub