代码：
Private Sub Command1_Click()
Me.Cls
Dim yn As Boolean '为真表示是素数
Dim i As Integer, j As Integer, x As Integer
For i = 1 To 100
yn = True '为真表示是素数，否则就不是，先默认为是素数
For j = 2 To i - 1 '素数要大小1,所以循环从2开始，素数不包括本身，所以循环终值减小1
If i Mod j = 0 Then yn = False '如果能整除就不是素数
Next j
If yn = True Then Print i; '如是素数，就在窗体上输出素数
Next i
End Sub
运行效果：
扩展资料：
print用法
print(x,y)
等价于
import sys
sys.stdout.write(str(x)+''+str(y)+'\n')
从语法上讲，调用python3.0的print函数有如下的形式：
print([object,...][,seq=''][,end='\n'][,file=sys.stdout])
seq是在每个对象的文本之间插入一个字符串，如果没有桩底的话，它默认是一个单个空格，传递一个空字符串将会一直分隔符
end是添加在打印文本末尾的一个字符串，如果灭有传递的话，它默认的是一个\n换行字符。传递一个控制符串将会避免在打印的文本的末尾移动到下一个输入行-----下一个print将会保持添加到当前输出行的末尾。
file指定了文本将要发送到的文件、标准流或者其他类似文件的对象；如果没有传递的话，它默认的是sys.stdout。带有一个类似文件的write(string)方法的任何对象都可以传递，但真正的文件应该已经为了输出而打开。
