太原惠民医院专业吗:VB小编程

数的界限是无限的，你只能得到一定区间的质数，况且vb的数值范围不大

算法：
找100以内的，就是找2到97之间的；
做一个循环：
int x '2 -- 97
int y
y=round(sqr(x))
int i
i=x mod (2到y)
i 是整数
x：不是质数年
x=x+1

利用筛选法求质数。
代码如下：
在窗口中添加Command1(按钮控件)，Text1(文本控件)，Label1（标签控件）。
Private Sub Command1_Click()
Dim a() As Integer
ReDim Preserve a(2 To Text1.Text)
For n = 2 To Text1.Text
a(n) = n
Next n
t = Int(Sqr(Text1.Text)) + 1
For n1 = 2 To t
For n2 = 2 To Text1.Text
If (n2 Mod n1) = 0 And (n2 / n1) > 1 Then a(n2) = 0
Next n2
Next n1
Label1.Caption = ""
For n = 2 To Text1.Text
If a(n) <> 0 Then Label1.Caption = Label1.Caption & a(n) & " "
Next
Erase a()
End Sub
在文本框中输入数字，点按钮即可。
程序只能实现对大小在一定内的数的求质数运算，如有更高要求，还请自行修正算法（高精度什么的）。
本人技术不精，代码编写水平拙劣，见谅！
如有疑问，用百度消息联系。

任何数？？？在打的数据类型也是由数据范围的，如果是用高精度的话就复杂了，如果说是10位以内的请用百度消息联系我，个人BS Tencent

从1到任何数本身就是一个无限循环，机器应该怎么跳出并且返回你要得到的结果啊？

请把题目说清楚一点