最简单VB习题两道,40高分,来拿啊,希望快点,~!

Question

随便写的（应付老师的那种代码）
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Dim b(1 To 4) As Integer
Dim strtemp As Stringa(1) = 3
a(2) = 6
a(3) = 8
a(4) = 12b(1) = 15
b(2) = 16
b(3) = 17
b(4) = 18strtemp = "*"For i = 1 To 4
 strtemp = strtemp + "    " + LTrim$(Str$(a(i)))
Next i
Print strtemp
strtemp = ""For i = 1 To 4
  strtemp = LTrim$(Str$(b(i)))
    For j = 1 To 4
       strtemp = strtemp + "   " + LTrim$(Str$(a(j) * b(i)))
    Next j
     Print strtemp
 strtemp = ""
Next i
End Sub

Answer 1

Private Sub Command1_Click()
Dim strtemp As String
For i = 1 To 9
   For j = 1 To 9 - i
     strtemp = strtemp + " "
   Next j
   
   
   For j = 1 To i
   strtemp = strtemp + " " + LTrim(Str$(j))
   Next j
   For j = i - 1 To 1 Step -1
  strtemp = strtemp + " " + LTrim(Str$(j))
 Next j
   
Print strtemp
strtemp = ""
Next i
End Sub