Question

急！！！！！！！！大一下 vb课程的作业 那位大侠帮忙做一下 发到我的邮箱上 谢谢了 ！！！就今天玩上

实验内容
利用随机函数产生80个10～99之间的随机整数，将其中的奇数按由小到大的顺序排列并输出；在产生的80个随机整数中，找出其中的素数。
实验要求
1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。
2．奇数也存入另一个数组，将排好序的奇数输出到窗体或文本框中。
3．用Sub子过程或Function函数过程判断随机整数是否为素数。
4．将素数按每行10个数在窗体或文本框中输出。
5．界面由学生自行设计。
每个步骤 最好有截图！
做完了发到我到我的邮箱好么 403647153@qq.com 谢谢！！

Answer 1

已经发送

Answer 2

工程我已发
Dim a(1 To 80) As Integer
Dim j()
Private Sub Command1_Click()
Static n As Integer
For i = 1 To 80
Randomize
a(i) = Int(Rnd * 90 + 10)

ReDim Preserve j(n)
If a(i) Mod 2 <> 0 Then
j(n) = a(i)
n = n + 1
End If

If i Mod 10 = 0 Then
Print a(i) & vbCrLf;
Else
Print a(i);
End If
Next
Print "奇数"

For i = 0 To UBound(j) - 2
For k = i + 1 To UBound(j) - 1

If j(i) > j(k) Then temp = j(i): j(i) = j(k): j(k) = temp
Next k
Next i
For i = 0 To UBound(j) - 1
Print j(i) & Space(1);
Next

Print
Print "素数"

For i = 1 To 80
If shushu(a(i)) = True Then
l = l + 1
If l Mod 10 = 0 Then
Print a(i) & vbCrLf;
Else
Print a(i);
End If
End If
Next

End Sub

Function shushu(x As Integer) As Boolean
Dim m As Integer
For i = 1 To x
If x Mod i = 0 Then m = m + 1
Next
If m = 2 Then
shushu = True
Else
shushu = False
End If
m = 0

End Function

Answer 3

实验内容
利用随机函数产生80个10～99之间的随机整数，将其中的奇数按由小到大的顺序排列并输出；在产生的80个随机整数中，找出其中的素数。
实验要求
1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。
2．奇数也存入另一个数组，将排好序的奇数输出到窗体或文本框中。
3．用Sub子过程或Function函数过程判断随机整数是否为素数。
4．将素数按每行10个数在窗体或文本框中输出。
5．界面由学生自行设计。
每个步骤 最好有截图！
做完了发到我到我的邮箱好么 403647153@qq.com 谢谢！！

Answer 4

有点难度