vb 输入10个整数,计算偶数个数 ,奇数和.

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/23 21:47:12

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 "奇数的和是："; Jh
End Sub
已经运行过.
再问：请问我打错了是奇数的个数和偶数的个数，帮忙改一下，帮你加分
再答：奇数的个数和偶数的个数，如下： 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, Jg As Integer, Og 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 Jg = Jg + 1 End If Next Print Print "偶数个数是："; Og Print "奇数个数是："; Jg End Sub 也运行过了！

vb 输入10个整数,计算偶数个数 ,奇数和. VB 先有一个框让我输入10个整数,分别计算出奇数个数和,偶数个数和. VB 先有一个框让我输入10个整数,分别计算出奇数个数和,偶数个数和.请测试好后发上来 VB编程题:任意输入10个整型数,显示其中奇数和偶数的个数,.. VB程序设计,输入20个数字,显示其中的奇数个数和偶数个数. VB 连续输入10数字,显示其中奇数的个数和偶数的个数由键盘任意输入10个整数,分别计偶数个数,奇数个数,偶数和,奇数和.c语言编程题求VB编程：任意输入10个数,求奇数的个数,偶数的和,以及最后一个偶数. C语言：输入10个整数,求出它们的和,统计其中偶数的个数,输出其中的奇数. 输入10个整数存入数组中,统计其中的奇数和偶数的个数 C++的代码编程实现从键盘任意输入10个整数,统计其中奇数的个数,并计算这些奇数的和. 任意输入n个整数,分别统计奇数的和,奇数的个数,偶数的和,偶数的个数.C语言