求电脑VB程序的大神帮忙解答，灰常感激！这四题能帮忙解答一题是一题，非常感谢！

53.
Private Sub form_click()
For i = 1 To 3
Print Tab(3 - i + 1); String(2 * i - 1, "**")
Next i
End Sub

54
Private Sub form_click()
Dim s As String
s = InputBox("请输入内容")
Print s
s = StrReverse(s)
Print s
End Sub
55
Private Sub form_click()
Dim a!(6), min%, max!, s!, aver!
max = 0
min = 1000
For i = 0 To 6
a(i) = Val(InputBox("请输入第" & i + 1 & "评委的打分："))
s = s + a(i)
If min > a(i) Then min = a(i)
If max < a(i) Then max = a(i)
Next i
aver = (s - min - max) / 5
Print "最后得分为："; aver
End Sub
56
Private Sub form_click()
Dim x%, y%, n%, m%
List1.Clear
x = Text1: y = Text2
For n = 1 To x
For m = 0 To x - n
If n * 2 + m * 4 = y Then List1.AddItem "鸡有" & n & "只，兔有" & m & "只"
Next m
Next n
If List1.ListCount = 0 Then List1.AddItem "输入有误，没有结果"
End Sub