利用随机函数生成10个10~99之间的整数,并计算其中素数的个数，VB代码怎么写？

Question

只知道有两个文本框，一个标签，三个按钮，明天考试啊 谢谢啦 另外 最好符合大一标准

Answer 1

Private Sub Command1_Click()
Dim i, j, a, n As Integer
Text1.Text = ""
Text2.Text = ""
Randomize
For i = 1 To 10
a = Int(Rnd * 90) + 10
Text1.Text = Text1.Text & a & " "
For j = 2 To a - 1
If a Mod j = 0 Then Exit For
Next
If j = a Then Text2.Text = Text2.Text & a & " ": n = n + 1
Next
Label1.Caption = "素数的个数=" & n
End Sub