vb 输入10个整数,计算偶数个数 ,奇数和.是先有一个框 输入数字范围,然后随机产生10个整数.

网友回答

建立一个text1、一个mand1,代码如下：
Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox (请先在框中输入数字的范围)
Exit Sub
End If Dim A(10) As Integer, N As Integer
Dim I As Integer, Og As Integer, Jh As Integer
Form1.AutoRedraw = True
Form1.Cls
N = Val(Text1.Text)
Randomize
Print 输入的10个数是：;
For I = 1 To 10
A(I) = Int(Rnd * N) + 1
Print A(I);
If A(I) Mod 2 = 0 Then
Og = Og + 1
Else Jh = Jh + A(I)
End If Next Print Print 偶数个数是：; Og
Print 奇数的和是：; Jh
End Sub
已经运行过.