求救，急需高手来解决基础VB编程问题？！！！

来源：百度知道 编辑：UC知道 时间：2024/05/29 02:58:56
现有3条基础的VB编程题目，望厉害的网友能帮忙解决一下，万分感谢！！！
1 在窗体上显示出200以内的所有素数，每行显示10个，判断素数用函数或过程实现。
2 随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上。
3 随机生成50个学生的成绩，计算他们的平均成绩以及统计超过平均成绩的人数。

Private Sub Command1_Click()
Dim k As Integer
Dim m As Integer
Dim St As String
m = 0
St = ""
For k = 1 To 200
If Pn(k) Then
m = m + 1
If m < 10 Then
St = St & vbTab & k
Else
Print St & vbTab & k
m = 0
St = ""
End If
End If
Next
End Sub

Private Function Pn(I_s As Integer) As Boolean
Pn = True
Dim i As Integer
i = 2
If I_s >= 2 Then
Do While i * i <= I_s
If I_s \ i = I_s / i Then
Pn = False
Exit Do
End If
i = i + 1
Loop
Else
Pn = False
End If
End Function
显示200以内的素数
Private Sub Command3_Click()