Question

access窗体的题目：文本框输入N,在列表框中显示3-n的所有质数。列表框的行来源数据类型为

“值列表”,在窗体加载事件中置窗体标题为本人姓名，窗体名：质数列表。
以上。别的我都会，就是这个程序写不对，求助！这是我写的：
Private Sub Command4_Click()
Dim i%, j%, k%, m%
n = Text5
For i = 3 To n
k = 2
j = Int(Sqr(i))
Do While k <= j
If i Mod k = 0 Then
Exit Do
ElseIf i Mod k <> 0 Then
m = i
质数列表.AddItem m
End If
k = k + 1
Loop
Next i
End Sub

Answer 1

这是我写的代码，你可以参考运行。

如图操作：