题目内容
（请给出正确答案）
[主观题]
随机产生10个学生的成绩0~100（包括0、100)保存到数组，...
随机产生10个学生的成绩0~100(包括0、100)保存到数组，并求最大值、最小值和平均值，最后在图片框Picture1显示数组每个元素及统计结果。
Private Sub Command1_Click() Dim a%(9), nMax%, nMin%, nAvg%, i% Randomize For i = 0 To 9 a(i) = Rnd * ______(1)______ Next nMax = a(0) nMin = ______(2)______ nAvg = a(0) For i = 1 To 9 If a(i) ＞ nMax Then nMax = ______(3)______ End If If a(i) ______(4)______ nMin Then nMin = a(i) End If nAvg = nAvg + a(i) Next ______(5)______ = nAvg / 10 Picture1.Cls For i = 0 To 9 Picture1.Print a(i) Next Picture1.Print "最大值："; nMax Picture1.Print "最小值："; nMin Picture1.Print "平均值："; nAvg End Sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________ (4)： _________ (5)： _________
提问人：网友肖文娟
发布时间：2022-01-07
如搜索结果不匹配，请 
Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String If KeyAscii = ______(1)______ Then ch = Text1.Text Select Case ______(2)______ Case "0" To "9" Option1.Value = True Case "a" To "z", ______(3)______ Option2.Value = True Case Else Option3.Value = True End Select End If End Sub 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： _________ (3)： _________
Private Sub Command1_Click() Dim i%, s%, n%, t$ Dim f As Boolean For n = 2 To 100 s = 1 t = "1" i = 2 Do While i <= 1 ______(1)______ if n mod i="0" then s="______(2)______" t="t" & "+" end + loop "=" & s Call ______(3)______ If f Then Print n; " : "; next sub isprime(byval m%, ______(4)______ flag as boolean) dim i% for to sqr(m) m ______(5)______="False" exit 补全程序，在答题时，务必在答题框中写好题号和答案，如下： (1)： _________ (2)： (3)： (4)： (5)：>
