vb编写程序求100到300之间的所有素数

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”一道出现。

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

你在窗体上放一个textbox，一个Command，运行以下代码Private Sub Command1_Click()

Dim i%, j%

If Text1.Text = "" Then

MsgBox "请输入一个整数"

Exit Sub

End If

i = Int(Val(Text1.Text))

For j = 2 To i

If i Mod j = 0 Then Exit For

Next

If j = i Then MsgBox Text1.Text + "是一个素数"

End Sub

---