Question

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

Answer 1

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编程学习入门：

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

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

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

Answer 2

很简单的程序。。。
新建一个工程
From1上添加一个List1,用来显示素数
添加一个Command1,用来操作
代码如下：
Private Sub Command1_Click()
Dim i As Long
For i = 200 To 300
If su(i) = True Then '分析200-300区间所有的数是否为素数
List1.AddItem i '如果是素数就添加到List1中
End If
Next
End Sub

Private Sub Form_Load()
Command1.Caption = "求素数"
End Sub

Private Function su(sNum As Long) As Boolean '求素数
su = True
For i = 2 To sNum - 1
If sNum Mod i = 0 Then
su = False
Exit Function
End If
Next
End Function

Answer 3

Dim i As Long, j As Long, k As Long
For i = 100 To 300
k = Int(Sqr(i))
For j = 2 To k
If i Mod i = 0 Then Exit For
Next j
If j > k Then Print j
Next i

Answer 4

for i=100 to 300

flag=0
for j=2 to 18
if mod(i,j)=0 then flag=1
next j
if flag=0 then print i
next i

追问

就这么多？

没了？

追答

对，这是主要程序，在立即窗口中输入，就可运行。你想建立对象，放入对象中也可以。反正主要代码就是这些。