请将下面的VB代码真写完整!谢谢

Question

题目要求:
输出*符号,第一行是一个*,第二行是两个*,第三行是三个*,第四行是两个*,第五行是一个*
VB代码如下
privat sub from _click()
dim i as integer
dim j as integer
for i=-3 to   '填入什么
print tab(abs(i)+5)
for j=1 to(4-    )-1    '括号内输入什么
print ；
next j
print;
next i
end sub

Answer 1

Dim i As Integer
Dim j As Integer
For i = -3 To 1 '填入什么
Print Tab(Abs(i) + 5)
    For j = 1 To (4 - (-i - 1)) - 1 '括号内输入什么
        Print "*";
    Next j
Next i