Question

vb题:利用随机函数产生50个学生的成绩(30~100),在图片框p1中输出成绩以及大于平均分的成绩,每行10个

成绩包括30和100，在p2图片框中输出排序 后的成绩，要求:定义一个50个元素的整数数组,下标从1开始,单击P1时输出结果

Answer 1

Dim a(1 To 50)

Private Sub Form_Load()
    For i = 1 To 50
        a(i) = 30 + Int(Rnd * 71)
    Next i
End Sub

Private Sub Picture1_Click()
    For i = 1 To 50
        Picture1.Print Right("   " & a(i), 4);
        If i Mod 10 = 0 Then Picture1.Print
    Next i
End Sub

Private Sub Picture2_Click()
    For i = 1 To 49: For j = i + 1 To 50
        If a(i) < a(j) Then
            m = a(i): a(i) = a(j): a(j) = m
        End If
    Next j, i
    For i = 1 To 50
        Picture2.Print Right("   " & a(i), 4);
        If i Mod 10 = 0 Then Picture2.Print
    Next i
End Sub

追问

大于平均分的成绩没有表示出来，还有，在图片框上加点文字说明吧
学生成绩：
平均分：
大于平均分的成绩：

Answer 2

搜一下：vb题:利用随机函数产生50个学生的成绩(30~100),在图片框p1中输出成绩以及大于平均分的成绩,每行10个