vb 输入10个整数,计算偶数个数 ,奇数和.是先有一个框 输入数字范围,然后随机产生10个整数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/29 08:51:47
![vb 输入10个整数,计算偶数个数 ,奇数和.是先有一个框 输入数字范围,然后随机产生10个整数.](/uploads/image/z/2116633-49-3.jpg?t=vb+%E8%BE%93%E5%85%A510%E4%B8%AA%E6%95%B4%E6%95%B0%2C%E8%AE%A1%E7%AE%97%E5%81%B6%E6%95%B0%E4%B8%AA%E6%95%B0+%2C%E5%A5%87%E6%95%B0%E5%92%8C.%E6%98%AF%E5%85%88%E6%9C%89%E4%B8%80%E4%B8%AA%E6%A1%86+%E8%BE%93%E5%85%A5%E6%95%B0%E5%AD%97%E8%8C%83%E5%9B%B4%2C%E7%84%B6%E5%90%8E%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F10%E4%B8%AA%E6%95%B4%E6%95%B0.)
vb 输入10个整数,计算偶数个数 ,奇数和.是先有一个框 输入数字范围,然后随机产生10个整数.
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 "奇数的和是:"; Jh
End Sub
已经运行过.