求助用vb做一个可以输出1000以内所有质数的程序。

本人是学C的，对vb一窍不通。请vb高手不吝赐教。希望能上传一个完整的工程。

在此先谢过了。

输出100到1000之间所有的素数
http://www.

原始
一个command，一个textbox
代码写在command1_click
Dim i As Long
Dim t As Long
Dim it As Long
t = 1000
For i = 2 To t
For t = 2 To i
If i Mod t = 0 Then
it = it + 1
If it > 1 Then
it = 0
Exit For
End If
End If
Next
If it = 1 Then
Text1.Text = Text1.Text & i & ";"
it = 0
End If
Next

Option Explicit             '变量必须声明

'新建工程，然后出来的窗体上，放一个按钮 不改名字就可以了。


'按钮的响应事件，为第一个按钮的默认名字
Private Sub Command1_Click()

Dim i As Long, j As Long
Dim y As Boolean
Dim js As Long

Cls                         '清屏
js = 0                      '计数
For i = 2 To 1000           '循环，从2起，不能从1起
    y = True                '假设为素数
    For j = 2 To Sqr(i)         '从2测试到 平方根为止
        If i Mod j = 0 Then     '如果整除取余，余0 ，说明正好整除
            y = False       '设为假
            Exit For        '退出内循环
        End If
    Next j                  '内循环结束
    If y Then               '经循环后，结果是真
        js = js + 1         '计数+1
        Print i;            '显示 值 ，以分号结尾，表示下面的数据继续在此行显示
        
        If js Mod 20 = 0 Then Print         '每显示20个就换行
        
    End If
   
Next i      '外循环结束
Print       '换行
Print "共计 " & js; " 个质数(素数)。"       '显示统计结果

End Sub

请给我上传一个完整的工程，谢谢。

你看看吧.
不知道你需要那样的,所以二个按钮,一个输出在窗体上,一个输出在文件里.

万分感谢。
我晚上回去再看看。
谢谢你。
愿意交个朋友吗？
这是我的QQ：307107914

这问题太简单了吧？？？即使没玩过VB，稍微看看别人的VB代码就能写的！！

没玩过VB会看代码 你太牛B

呵呵。
个人的能力不同啊。