求出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、首先启动vb6，创建一个新的标准exe文件，然后调整表单大小。

2、选择表单并在属性中设置font属性的值。 字体是田英章的笔触书，字体大小是1号。

3、双击表单以编写代码，单击设置过程，对象为表单form1。

4、接着输入代码内容：代码的内容是根据题目定义的。

5、单击“开始”按钮进行编译和调试，并根据错误提示修改它，直到它正确为止。

6、单击表单将d出一个提示对话框，输入值确定素数，单击确定按钮，此时自动判断并给出结果。

7、执行文件 - 保存项目命令，按照提示保存表单和项目。

rivate Function IsPrime(ByRef n As Integer) As Boolean '。此函数用于判断一个数是否素数：

Dim j As Integer ；

IsPrime = True ；

For j = 2 To n - 1 ；

If n Mod j = 0 Then IsPrime = False: Exit For ；

Next ；

End Function用法dim i as integer ,n as integerfor i =100 to 300if IsPrime (i) thenprint；

i,n=n+1if n mod 10 =0 then print  '10个一行；

endifnext。

扩展资料：

VB编程学习入门：

工具箱除了最常用的控件以外，根据设计程序界面的需要也可以向工具箱中添加新的控件，添加新控件可以通过选择“工程”菜单中的“部件”命令或通过在工具箱中右击鼠标，在d出菜单中选择“部件”命令来完成

窗体设计器位于VB主窗口的中间。它是一个用于设计应用程序界面的自定义窗口。应用程序中每一个窗体都有自己的窗体设计器。窗体设计器总是和它中间的窗体一道出现，在启动VB开始创建一个新工程时，窗体设计器和它中间的初始窗体“Form1”一道出现。

要在应用程序中添加其它窗体，可单击工具栏上的“添加窗体”按钮。

---