Question

VB数组问题

1、已知有6个学生的成绩保存在数组中，成绩如下图，以每5分为一个“★”显示，效果如下图。

提示：
①　同实验4.1的方式，通过Mid函数根据产生的分数四舍五入取子字符串，有关表达式如下：
Mid(s, 1, Math.Round(a(i) / 5))
其中s为已有20个“★”的字符串变量，a(i)为存放分数的数组元素，Round为四舍五入取整。
② 更方便的方法是利用StrDup函数和数组，产生重复的字符串。
2、随机产生10个数2位正整数，将其显示在界面上；将数据排序，按大到小递减的次序排列，将排序结果也显示在界面上。

Answer 1

Private Sub Command1_Click()

s = "★★★态旦★★★★★★★★★★★★★★★★★"埋闭悄

Dim a

a = Array(71, 53, 58, 29, 30, 76)

For i = 0 To 5

  Print Mid(s, 1, Round(a(i) / 5)); a(i)

Next i

End Sub

Private Sub Command2_Click()

Print

Print "第二种方法:"

Dim a

a = Array(71, 53, 58, 29, 30, 76)

For i = 0 To 5

  Print String(Round(a(i) / 5), "★弯渣"); a(i)

Next i

End Sub

Answer 2

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 Sub

Answer 3

Private Sub Command2_Click()
Dim s As String, i As 坦逗Integer, x As Integer
s = "★★★★★★★★★★★★★★仔磨★★念信斗★★★★"
For i = 1 To 5
Randomize
x = Fix(Rnd * 100)
Print Mid(s, 1, x / 5); x
Next

End Sub