1.从键盘输入10个数，要求按从大到小的顺序打印出来
2.随机产生10个两位整数，找出其中的最大值、最小值、平均值
3.有一个6*6的矩阵，各元素的值由键盘输入，求全部元素的平均值，并输出高于平均值元素及它们的行、列号
4.编写一个程序，在窗体上4个一行打印出1~300间所有能被7和3整除的数
5.编写程序，其功能是打印如下图形
   1
   1 2
   1 2 3
   1 2 3 4
   1 2 3 4 5
   1 2 3 4 5 6

thanks!

第一题：

Dim a(1 To 10) As Integer

Private Sub Command1_Click()
For i = 1 To 10
a(i) = Val(Text1(i - 1).Text)
Next
For i = 1 To 9
 For j = i + 1 To 10
 If a(i) < a(j) Then
  t = a(i): a(i) = a(j): a(j) = t
  End If
  Next
  Next
For i = 1 To 10
 s = s & Str(a(i)) & ","
 Next
 Label1.Caption = Left(s, Len(s) - 1)
 End Sub

第二题：

Dim a(1 To 10) As Integer

Private Sub Command1_Click()
Max = a(1): Min = a(1): aver = 0
Sum = a(10)
For i = 1 To 9
Sum = Sum + a(i)
 If a(i) < a(i + 1) Then Max = a(i + 1)
 If a(i) > a(i + 1) Then Min = a(i + 1)
 Next
 aver = Sum / 10
 p = "最大值为" & Max & "最小值为" & Min & "平均值" & aver
 Label2.Caption = p
End Sub

Private Sub Form_Activate()
For i = 1 To 10
 Randomize
 a(i) = Int(Rnd * 90) + 10
 s = s & Str(a(i)) & ","
 Next
 Label1.Caption = Left(s, Len(s) - 1)
End Sub

Private Sub Form_Load()
Form_Activate
End Sub

Dim a()
Private Sub Command1_Click()
For i = 1 To 300
 If i Mod 3 = 0 And i Mod 7 = 0 Then
  k = k + 1
  End If
  Next
 ReDim a(k+1)
 k = 1
 For i = 1 To 300
 If i Mod 3 = 0 And i Mod 7 = 0 Then
  a(k) = i: k = k + 1
  End If
  Next
  For i = 1 To k
  Picture1.Print Format(a(i), "@@@@@");
  If i Mod 4 = 0 Then
  Picture1.Print
  End If
Next
End Sub

Private Sub Command1_Click()
For i = 1 To 6
 For j = 1 To i
  Print j & " ";
 Next
 Print
 Next
 End Sub

Private Sub Command1_Click()
For i = 1 To 6
 For j = 1 To 6
 Sum = Sum + a(i, j)
 Next
 Next
 aver = Sum / 10
 Label1.Caption = "平均值为：" & aver
For i = 1 To 6
 For j = 1 To 6
  If a(i, j) > aver Then
   s = "元素为：  " & a(i, j) & "   行数 ：" & i & "  列数 ：" & j
   List1.AddItem s
   End If
   Next
   Next
End Sub

Private Sub Form_Activate()
For i = 1 To 6
 For j = 1 To 6
 a(i, j) = Val(InputBox("请输入第" & i & "行" & j & "列个元素"))
 Picture1.Print Format(a(i, j), "@@@@");
 Next
 Picture1.Print
 Next
 End Sub

这个地方有个小小的错误，把if后面的a(i)分别改为max和min才正确了

帮你修改了下，你是直接写出来的吧，大虾来的，呵呵！！！
Dim a(1 To 6, 1 To 6) As Integer
Private Sub Command1_Click()
Dim aver As Single
dim sum as single
For i = 1 To 6
    For j = 1 To 6
        Sum = Sum + a(i, j)
    Next
Next
aver = Sum / 36
Label1.Caption = "平均值为：" & aver
For i = 1 To 6
    For j = 1 To 6
        If a(i, j) > aver Then
           s = "元素为：  " & a(i, j) & "   行数 ：" & i & "  列数 ：" & j
           List1.AddItem s
        End If
    Next
Next
End Sub

Private Sub Form_Activate()
For i = 1 To 6
    For j = 1 To 6
        a(i, j) = Val(InputBox("请输入第" & i & "行" & j & "列个元素"))
        Picture1.Print Format(a(i, j), "@@@@");
    Next
    Picture1.Print
Next
End Sub

不是很明白为什么有一题写了以下内容，一题不写，有什么区别，谢谢！！
Private Sub Form_Load()
Form_Activate
End Sub

Format(a(i, j), "@@@@")中@可不可以用别的代替。。。