VB 连续输入10数字，显示其中奇数的个数和偶数的个数

Question

如题所述

Answer 1

奇数的个数 和 偶数的个数，如下：
Dim A(10) As Double, U As Single
Dim I As Integer, Jg As Integer, Og As Integer
Private Sub Command1_Click()
Form1.AutoRedraw = True
If I = 0 Then
Form1.Cls
Print "输入的10个数是：";
End If
If Not IsNumeric(Text1.Text) Then
MsgBox ("请先在框中输入数字！")
Exit Sub
Else
U = Val(Text1.Text)
If Int(U) <> U Then
MsgBox ("请在框中输入整数！")
Exit Sub
Else
I = I + 1
A(I) = U
Print A(I);
End If
End If
If I = 10 Then
Print
For I = 1 To 10
If A(I) Mod 2 = 0 Then
Og = Og + 1
Else
Jg = Jg + 1
End If
Next
Print "偶数个数是："; Og
Print "奇数个数是："; Jg
I = 0
End If
End Sub

Private Sub Form_Load()
Text1.Text = "在此输入数字"
Command1.Caption = "输入"
End Sub
已经运行过。

Answer 2

Private Sub Command1_Click()
'在text1中输入10个整数，用空格隔开
num = Split(Text1, " ")
For i = 0 To UBound(num)
If num(i) Mod 2 = 0 Then
even = even + 1
Else
odd = odd + 1
End If
Next
Print "EvenCount:" & even
Print "Oddcount:" & odd
End Sub

Answer 3

用一个一维数组a就可以解决了
奇数:ai mod 2 =1,则加1
偶数:10-i追问

完全小白 求帮助

追答

新建一个"标准EXE"窗体,拖一个文本框进去,双击,输入如下代码:
Private Sub Command1_Click()
'在text1中输入10个整数，用空格隔开
Dim a As Integer
Dim Even As Integer
Dim Odd As Integer

End Sub

Private Sub Form_Click()
Even = 0
Odd = 0
a = Split(Text1, " ")
For i = 0 To UBound(a)
If a(i) Mod 2 = 0 Then
Even = Even + 1
Else
Odd = Odd + 1
End If
Next
Print "奇数个数为:" & Even
Print "偶数个数为:" & Odd
End Sub
Private Sub Form_Load()
Text1.Text = ""
End Sub

当然,这只是简单的,对输入的数字没有校对提醒功能,如果你要可以自己加.

本回答被提问者采纳