VB数组问题1、已知有6个学生的成绩保存在数组中，成绩如下图，以每5分为一个“★”显示，效果如下图。提示：①　同实验4.
3个回答

1、

for i=1 to 6

s=StrDup(20,"★")

Label1.Text &=Mid(s, 1, Math.Round(a(i) / 5)) & vbCrLf

next i

2、

Private Sub Form_Click()

Dim a(9) As Integer

Cls

For i = 0 To 9

a(i) = Int(Rnd * 90 + 10)

Print a(i);

Next i

Print vbCrLf

For i = 0 To 9

For j = 0 To 9

If a(i) < a(j) Then

b = a(i)

a(i) = a(j)

a(j) = b

End If

Next j

Next i

For i = 0 To 9

Print a(i);

Next i

End Su

相关问题