这个VB程序怎么写呢?高手来看一下.

来源：百度知道 编辑：UC知道 时间：2024/05/12 15:45:45
1.由程序控制产生20个随机数，保存在数组里；
2.求出这20个随机数中的素数，在实现的过程中要用SUB过程或者FUNCTION过程；
3.将随机数和素数输出到屏幕或者控件里显示；
4.将求出的结果写入到随机文件中，并能通过控件访问结果。

特别是第3,4项,怎么做啊?

Dim a%(19)

Private Sub Command1_Click()
RndS '调用过程,让数组中有随机数
Dim i%, j%, m$

m = "生成的20个随机数:" & vbCrLf
For i = 0 To 19 '打印随机数组中的20个数
m = m & a(i) & " "
If (i + 1) Mod 10 = 0 Then m = m & vbCrLf
Next

m = m & "其中的素数有:" & vbCrLf
For i = 0 To 19 '判断20个数是不是素数并打印
If Ss(a(i)) Then m = m & a(i) & " ": j = j + 1: If j Mod 10 = 0 Then m = m & vbCrLf
Next

Print m '在窗体显示出来

Open "c:\结果.txt" For Output As #1 '保存到文件
Print #1, m
Close #1
End Sub

Sub RndS()
Dim i%
Randomize
For i = 0 To 19
a(i) = Int(Rnd * 101)
Next
End Sub

Function Ss(n%) As Boolean
Dim i%
For i = 2 To Sqr(n)
If n Mod i = 0 Then Exit For
Next
Ss = IIf(i >= Sqr(n), True, False)
End Function

Private Sub Command2_Click()
Dim m$, a$
'显示到控件,使用了一