Question

vb中生成30个50～100之间的随机整数,输出其中能被7整除并求出它们的和

Answer 1

以下是使用VB.NET语言生成30个50～100之间的随机整数，输出其中能被7整除的数，并求它们的和的示例代码：

运行该代码会输出30个50～100之间的随机整数，并在最后一行输出能被7整除的数的和。

Answer 2

Dim i As Integer, num As Integer, sum As Integer
Randomize ' 初始化随机数生成器
For i = 1 To 30 ' 循环生成30个数
num = Int((100 - 50 + 1) * Rnd() + 50) ' 生成50~100之间的随机整数
If num Mod 7 = 0 Then ' 判断是否能被7整除
sum = sum + num ' 累加能被7整除的数
Debug.Print num ' 输出能被7整除的数
End If
Next i
Debug.Print "能被7整除的数的和为：" & sum ' 输出能被7整除的数的和