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

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

建立一个text1、一个command1,代码如下：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 奇数的和是：; JhEnd Sub已经运行过.

好好学习下

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息