Question

十万火急！急求VB高手帮我做一下这个程序填空题！明天就考试了！急啊！！！

'【程序填空】
'-------------------------------------------------------

'题目：程序运行结果如图1所示，请将程序补充完整。

'请在【】处填入正确的内容

'-------------------------------------------------------

Private Sub Form_Click()
Dim I As Integer, j As Integer
Dim star As String
star = "★"
For I = 1 To 6

Form1.Print Tab(14 - I * 2);
'**********SPACE**********
For j = 1 To 【?】
Form1.Print star;
Next j
Form1.Print
Next I
For I = 1 To 6
'**********SPACE**********
Form1.Print Tab(【?】);
'**********SPACE**********
For j = 1 To (6 - I) * 2 【?】
Form1.Print star;
Next j
Form1.Print
Next I
End Sub
-前一题没图，做这个吧！--------------------------------------------------
'【程序填空】
'题目：输入n个数，n由用户输入。
' 程序的功能是将输入的n个数反向输出?

'请在【?】处填入正确的内容

'-------------------------------------------------------
'
Private Sub Form_Load()
Dim n As Integer
Dim k As Integer
Dim m As Integer
Dim h As Integer
Dim t As Integer
Show
Dim a(100) As Single
n = Val(InputBox("输入个数n"))
Print "处理前数据 :"
'**********SPACE**********
For k = 1 To 【?】
a(k) = Val(InputBox("请输入第" & k & "个数"))
Print a(k);
Next k
Print
'**********SPACE**********
m = Int(【?】)
For k = 1 To m
h = n - k + 1
'**********SPACE**********
t = a(h): 【?】: a(k) = t
Next k
Print "处理的结果 :"
For k = 1 To n
Print a(k);
Next k

Answer 1

天书啊！

Answer 2

e