用Visual Basic设计生成20个100~200之间的随机数,将这20 个数显示在窗体上。再显示出其中能够被7整除的数,计算并输出它们的和。
时间: 2024-03-22 12:39:19 浏览: 26
以下是使用 Visual Basic 编写的代码,用于生成20个100~200之间的随机数,并将它们显示在窗体上。然后计算其中能够被7整除的数的和并输出:
```vb
Dim rand As New Random() '随机数生成器
Dim nums(19) As Integer '随机数数组
Dim sum As Integer = 0 '能够被7整除的数的和
'生成随机数并显示在窗体上
For i As Integer = 0 To 19
nums(i) = rand.Next(100, 201) '生成100~200之间的随机数
TextBox1.AppendText(nums(i) & " ") '显示在窗体上
Next
'查找能够被7整除的数并计算它们的和
For i As Integer = 0 To 19
If nums(i) Mod 7 = 0 Then
sum += nums(i)
End If
Next
'输出能够被7整除的数的和
TextBox1.AppendText(vbCrLf & "能够被7整除的数的和为: " & sum)
```
运行后,窗体将显示20个100~200之间的随机数,并在其下方输出能够被7整除的数的和。
相关问题
用Visual Basic设计生成20个100~200-之间的随机数。将这20个数品示在街体上。再显示出其中 能够被7整除的数,并计算、输出它们的和。
好的,以下是 Visual Basic 代码实现:
```
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rand As New Random()
Dim nums(19) As Integer
Dim sum As Integer = 0
For i As Integer = 0 To 19
nums(i) = rand.Next(100, 201)
Label1.Text &= nums(i).ToString() & " "
If nums(i) Mod 7 = 0 Then
sum += nums(i)
End If
Next
Label2.Text = "能够被7整除的数的和为:" & sum.ToString()
End Sub
```
在这个程序中,我们使用 `Random()` 类来生成 20 个 100~200 之间的随机整数,并将它们存储在数组 `nums` 中。我们使用一个 `For` 循环来遍历数组,并将每个数显示在标签控件 `Label1` 上。
在遍历数组的过程中,我们检查当前数是否能够被 7 整除。如果是,则将其加入到变量 `sum` 中。
最后,我们在标签控件 `Label2` 上显示能够被 7 整除的数的和。
生成20个100~200之间的随机数,将其中重复的数值删除
以下是Python代码实现:
```python
import random
# 生成20个100~200之间的随机数
nums = []
for i in range(20):
num = random.randint(100, 200)
nums.append(num)
# 将重复的数值删除
unique_nums = list(set(nums))
print("生成的随机数:", nums)
print("删除重复数值后的结果:", unique_nums)
```
输出结果示例:
```
生成的随机数: [153, 125, 194, 170, 160, 142, 154, 198, 102, 105, 109, 119, 126, 128, 105, 126, 105, 163, 173, 157]
删除重复数值后的结果: [102, 105, 109, 119, 125, 126, 128, 142, 153, 154, 157, 160, 163, 170, 173, 194, 198]
```
相关推荐
![c](https://img-home.csdnimg.cn/images/20210720083646.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)