15问答网 > vb的题目:随机生成100个10到1000之间的随机数，将它们之中的偶数个数统计出来，并计算所有奇数之和

vb的题目:随机生成100个10到1000之间的随机数，将它们之中的偶数个数统计出来，并计算所有奇数之和

奇数之和是指随机数中奇数的和

2025-02-15 15:41:39

推荐回答（4个）

回答1：

放一个列表框用来显示生成的100个随即数，2个按纽，其中一个用来生成随即数，另一个用来统计和计算结果，代码如下
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 99
Randomize
List1.List(i) = Int(Rnd * (1000 - 10 + 1) + 10)
Next i
End Sub

Private Sub Command2_Click()
Dim n As Integer, x As Long, y As Integer
y = 0
For n = 0 To 99
If Val(List1.List(n)) Mod 2 <> 0 Then x = x + Val(List1.List(n))
If Val(List1.List(n)) Mod 2 = 0 Then y = y + 1
Next n
Print "偶数个数为：" & y & "奇数之和为：" & x

End Sub

Private Sub Form_Load()
Command1.Caption = "随机生成100个10到1000之间的随机数"
Command2.Caption = "统计偶数个数和奇数和"
List1.Clear
End Sub

回答2：

dim a(100) as integer
dim i,m,n as integer
for i =0 to 99
a(i)=Int((1000 - 10 + 1) * Rnd + 10)
if mod(a(i)/2)=0 then
m=m+1
else
n=n+a(i)
end if
next i

其中m为偶数个数，n为所有奇数之和

回答3：

Private Sub Command1_Click()
Dim a(99) As Integer
For i = 0 To 99
a(i) = Fix(Rnd * 991) + 10

If i <> 0 And i Mod 10 = 0 Then
Print
Print a(i);
Else
Print a(i);
End If

If a(i) Mod 2 = 0 Then
n = n + 1
Else
s = s + a(i)
End If
Next
Print
Print "偶数的个数" & n; "奇数之和" & s
End Sub

回答4：

Sub run()
Dim Floor As Integer
Dim Ceil As Integer
Dim Dotimes As Integer
Dim SumOdd As Integer '奇数和
Dim CountEven As Integer '偶数个数
Dim NumberFlag As Integer '随机数
'范围赋值，10到1000
Floor = 10
Ceil = 1000
'次数100
Dotimes = 100

Ceil = Ceil + 1 'Rnd函数取值是[0.1),所以要加1
SumOdd = 0
CountEven = 0

Randomize 'rnd每次随机

For i = 1 To Dotimes
NumberFlag = Floor + Int((Ceil - Floor) * Rnd)
If NumberFlag Mod 2 <> 0 Then '除2余数不是0的是奇数
SumOdd = SumOdd + NumberFlag
Else '若是偶数
CountEven = CountEven + 1
End If
Next

Print "偶数个数有" & CountEven & "个"
Print "奇数和为" & SumOdd
End Sub

最新问答

怎么区分冷凝式壁挂炉和普通壁挂炉，谢谢

歇后语老太太耍大刀是什么意思

气体可逆反应为什么增加反应物或产物的浓度反应速率都加快

设备维修费增值税税率是多少

你相信命注定这一说吗？比如说婚姻，如果是命中注定的会怎样？如果不是命中注定又是怎样？大神求解答。

剑网三藏剑和天策哪个PVP后期强些，具体点最好

游泳运动员蒋海琦详细个人资料？

林内燃气热水器jsq20-c红灯闪三下

负极的OH-和和正极的H2O从哪里判断得出？

美国快递邮寄iphone6到中国多少