UC知道几道vb编程题，希望大家帮忙解答一下
来源：百度知道 编辑：UC知道 时间：2024/06/17 03:17:20
1.编写程序，在数组A中输入10个整数，输出它们的平均值。
2.编写程序段，输入任意1个整数，判断其是否是素数。
3.编程输出1到100之间的素数。
4.编写程序段，用随机函数产生100个1～100之间的整数，输出大于等于50的数的个数。
5.编写程序，在数组A中输入10个整数，输出其中的最小值。
第2道已解决。只要帮忙帮解答其余4道即可。另加50的悬赏。拜托写得详细一点。因为对vb一点都不懂，要把答案背下来参加考试，各位帮帮忙。
2.编写程序段，输入任意1个整数，判断其是否是素数。
3.编程输出1到100之间的素数。
4.编写程序段，用随机函数产生100个1～100之间的整数，输出大于等于50的数的个数。
5.编写程序，在数组A中输入10个整数，输出其中的最小值。
第2道已解决。只要帮忙帮解答其余4道即可。另加50的悬赏。拜托写得详细一点。因为对vb一点都不懂，要把答案背下来参加考试，各位帮帮忙。
第一题
Private Sub Form_Load()
Dim a(10) As Integer, sum As Integer
For i = 1 To 10
a(i) = Val(InputBox("请输入第" & i & "个整数"))
sum = sum + a(i)
Next i
MsgBox "平均数：" & sum / i
End Sub
第三题
Private Sub form_click()
Dim n As Integer, i As Integer, k As Single
For n = 2 To 100
k = Sqr(n)
For i = 2 To k
If n Mod i = 0 Then
Exit For
End If
Next i
If i > k Then Print n
Next n
End Sub
第四题
Private Sub form_click()
Dim n As Integer, a(100) As Integer, x As Integer
Randomize
For n = 1 To 100 '如果题目要求是10个，就把100改为10
a(n) = Rnd * 100
If a(n) >= 50 Then x = x + 1
Next n
Print "大于50的数有"; x; "个"
End Sub
第五题
Private Sub form_click()
Dim n As Integer, a(10) As Integer, Min As Integer
Randomize
For n = 1 To 10
a(n)