求出100-200之间的所有素数的VB程序设计。

以下是求出100-200之间的所有素数的VB程序设计：

Public Function IsPrime(ByVal num As Integer) As Boolean

' 判断一个整数是否为素数

If num <2 Then

IsPrime = False

ElseIf num = 2 Then

IsPrime = True

ElseIf num Mod 2 = 0 Then

IsPrime = False

Else

Dim i As Integer

For i = 3 To Math.Sqrt(num) Step 2

If num Mod i = 0 Then

IsPrime = False

Exit Function

End If

Next i

IsPrime = True

End If

End Function

Private Sub btnGetPrimes_Click(sender As Object, e As EventArgs) Handles btnGetPrimes.Click

' 找出100-200之间的所有素数

Dim i As Integer

For i = 100 To 200

If IsPrime(i) Then

lstPrimes.Items.Add(i)

End If

Next i

End Sub

上述程序中，IsPrime函数用于判断一个整数是否为素数，btnGetPrimes_Click事件处理程序用于找出100-200之间的所有素数并将其显示在lstPrimes控件中。该程序使用了基本的素数判定方法，即从3到该数的平方根范围内枚举可能的因子，如果能整除则该数不是素数。

新建工程,1个文本框和1个按钮

text1用来录入数据, 因为是任意个数,用很多文本框是不方便的,程序设计是使用","来分隔数字,你可以输入任意多个数字,然后按钮command1后,就可以显示总和及平均值.

Private Sub Command1_Click()

If Len(Text1) = 0 Then Exit Sub

If InStr(Text1, ",") <2 Then Exit Sub

Dim a, sumn%, i%, j%

a = Split(Text1, ",")

For i = 0 To UBound(a)

If IsNumeric(Val(a(i))) Then '防止有非数字的情况发生,做一下校验

sumn = sumn + Val(a(i))

j = j + 1

End If

Next

Print "总和为:" &sumn

Print "平均数为:" &sumn / (UBound(a) + 1)

End Sub

新建一个工程，双击form1窗体空白区域，在出现的代码窗口中输入如下代码：

private

sub

form_load()

a

=

inputbox("请输入边长：",

"计算正方形的面积

")

msgbox

"面积="

&

a

*

a

end

sub

---