用Visual Basic设计找出 10~100 范围内的所有素数,并将这些素数显示在窗体上。
时间: 2024-03-22 12:38:49 浏览: 70
输出100-1000之间的所有素数
5星 · 资源好评率100%
好的,以下是 Visual Basic 代码实现:
```
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim primes As New List(Of Integer)
For i As Integer = 10 To 100
If IsPrime(i) Then
primes.Add(i)
End If
Next
ListBox1.DataSource = primes
End Sub
Private Function IsPrime(ByVal n As Integer) As Boolean
If n < 2 Then
Return False
ElseIf n = 2 Then
Return True
ElseIf n Mod 2 = 0 Then
Return False
End If
Dim maxFactor As Integer = Math.Sqrt(n)
For i As Integer = 3 To maxFactor Step 2
If n Mod i = 0 Then
Return False
End If
Next
Return True
End Function
```
在这个程序中,我们使用一个 `For` 循环来遍历 10~100 范围内的所有整数,并使用 `IsPrime()` 函数来判断每个整数是否是素数。如果一个整数是素数,则将其添加到 `List(Of Integer)` 类型的列表 `primes` 中。
`IsPrime()` 函数接受一个整数 `n` 作为参数,并返回一个布尔值,指示该整数是否是素数。如果 `n` 小于 2,则不是素数。如果 `n` 等于 2,则是素数。如果 `n` 是偶数,则不是素数。否则,我们使用一个循环来遍历 3 到 $\sqrt{n}$ 之间的所有奇数,并检查它们是否是 `n` 的因子。如果找到一个因子,则 `n` 不是素数。如果我们在循环结束时没有找到因子,则 `n` 是素数。
最后,我们使用 `DataSource` 属性将素数列表绑定到 `ListBox` 控件上,以便在窗体上显示。
阅读全文