∥笨龍龍€ａ報台∥ 無法帶給你幸福的我, 在你身後默默守候著*

37愛的鼓勵 0訂閱站台

第一次段考題目

---------------拎杯是分隔線----------------------------------
1.直角位於左下

Dim x As Integer

Private Sub Command1_Click()


For I = 1 To x

For j = 1 To I

Print "囧";

Next j
Print
Next I

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

x = Val(InputBox("妳要多少囧"))

End Sub


---------------拎杯是分隔線----------------------------------

2.直角位於左上

Dim x As Integer

Private Sub Command1_Click()


For i = 1 To x
For j = 1 To x + 1 - i

Print "囧";

Next j
Print
Next i

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

x = Val(InputBox("妳要多少囧"))

End Sub



---------------拎杯是分隔線----------------------------------

3.直角位於右下

Dim x As Integer

Private Sub Command1_Click()


For i = 1 To x
Print Space((x - i) * 4);
For j = 1 To i

Print "囧";

Next j
Print
Next i

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

x = Val(InputBox("妳要多少囧"))

End Sub




---------------拎杯是分隔線----------------------------------

4.直角位於右上

Dim x As Integer

Private Sub Command1_Click()


For I = 1 To x
Print Space((I - 1) * 4);
For j = 1 To x + 1 - I

Print "囧";

Next j
Print
Next I

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

x = Val(InputBox("妳要多少囧"))

End Sub