vb求助，不会啊.....

来源：百度知道 编辑：UC知道 时间：2024/06/02 05:29:31
7. 产生一个方针的数组，然后显示上三角元素 和 下三角元素
数组元素是0至24，每五个元素一行，输出五行，每列元素对齐
上三角显示0至4，6至9，12至14，18、19，24
下三角显示0，5、6，10至12，15至18，20至24
8. 对一个数组所有元素采用选择法从大到小排序
要求随机生成10个数字，赋值给数组元素，然后排序，输出排序后的元素
9. 在下面的文本框中输入字母字符，然后统计各字母出现的次数
可以放弃编号为7和9的问题。

Private Sub Command1_Click()
Dim A(1 To 10) As Single
Dim i As Long, j As Long
Dim TT As Single

For i = 1 To 10
Randomize
A(i) = 100 * Rnd + 1
Next

For i = 1 To 9
For j = i + 1 To 10
If A(i) < A(j) Then
TT = A(i)
A(i) = A(j)
A(j) = TT
End If
Next
Next

For i = 1 To 10
Print A(i)
Next
End Sub

什么是上三角元素 和 下三角元素