用Visual Basic设计生成20个100~200-之间的随机数。将这20个数品示在街体上。再显示出其中 能够被7整除的数,并计算、输出它们的和。
时间: 2024-03-22 18:38:43 浏览: 47
好的,以下是 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 整除的数的和。
相关问题
用Visual Basic设计生成20个100~200之间的随机数,将这20 个数显示在窗体上。再显示出其中能够被7整除的数,计算并输出它们的和。
以下是使用 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整除的数的和。
一个随机生成1到100随机数的VB程序
下面是一个生成1到100之间随机数的 Visual Basic 程序示例:
```vb
Imports System
Module Program
Sub Main(args As String())
Dim rand As New Random()
Dim randomNumber As Integer = rand.Next(1, 101)
Console.WriteLine("随机数: " & randomNumber)
End Sub
End Module
```
在上述示例中,我们使用了 `Random` 类来生成随机数。`Next` 方法接受两个参数,分别是生成随机数的下限(包含)和上限(不包含)。在这里,我们将下限设置为1,上限设置为101,以确保生成的随机数在1到100之间。最后,我们使用 `Console.WriteLine` 将生成的随机数输出到控制台。
你可以将以上代码保存为一个 .vb 文件,并使用 Visual Basic 编译器进行编译和执行。执行程序后,将会输出一个在1到100之间的随机数。每次运行程序,生成的随机数都会不同。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![c](https://img-home.csdnimg.cn/images/20210720083646.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)