UC知道求教VB高手!!!一段编程程序!!!
来源：百度知道 编辑：UC知道 时间：2024/06/28 15:53:31
（一）实验目的
学会综合运用循环结构、数组和过程进行程序设计的方法。
（二）实验内容
利用随机函数产生100个10～99之间的随机整数，找出其中的素数。
（三）实验要求
1. 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。
2. 用Sub子过程或Function函数过程判断随机整数是否为素数。
3. 将素数按每行10个数在窗体或文本框中输出。
谢谢大家了!!!
注意：第一步：产生整数到文本框或窗口中，显示出来；
第二步：将上述的整数中的素数挑出来（用sub或function判断），输出在文本框或窗体中。
请详细的描述一下，谢谢！！！
学会综合运用循环结构、数组和过程进行程序设计的方法。
（二）实验内容
利用随机函数产生100个10～99之间的随机整数，找出其中的素数。
（三）实验要求
1. 将随机产生的100个整数存入数组，按每行10个数输出到窗体或文本框中。
2. 用Sub子过程或Function函数过程判断随机整数是否为素数。
3. 将素数按每行10个数在窗体或文本框中输出。
谢谢大家了!!!
注意：第一步：产生整数到文本框或窗口中，显示出来；
第二步：将上述的整数中的素数挑出来（用sub或function判断），输出在文本框或窗体中。
请详细的描述一下，谢谢！！！
Private Sub Form_Click()
Dim A(99) As Integer
Dim I, J As Integer
frmTest.Cls
'产生100个随机数
Randomize
For I = 0 To 99
A(I) = Int(Rnd * 99 + 2)
Print A(I);
'每10个一行
If (I + 1) Mod 10 = 0 Then Print Chr(13)
Next I
Print Chr(13)
For I = 0 To 99
'如果是素数则打印
If ZhiShu(A(I)) = True Then
Print A(I);
J = J + 1
If J Mod 10 = 0 Then Print Chr(13)
End If
Next I
End Sub
Function ZhiShu(ByVal V As Integer) As Boolean
'On Error Resume Next
Dim I As Integer
If V = 2 Then ZhiShu = True: Exit Function
ZhiShu = True
'判断这个数是否是素数
For I = 2 To Int(Sqr(V))
If V Mod I = 0 Then ZhiShu = False
Next I
End Function
hi me
happyq6
I can do it for you
这种小儿科!