Question

7.6 vb设计command1单击事件

编写Command1的Click事件,在窗体上显示如图所示的图案

Answer 1

Private Sub Command1_Click()

End Sub

Answer 2

VB的command1单击事件只有两个，
Private Sub Command1_Click()
上面这个东西是单击提起时触发，下面这个东西是单击按下时触发，
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
它们的工作方法差别是很大的，
这也是我在网上看别人这么用的，我不会外语，不知道是什么意思，只是照葫芦画瓢。下面这个东西里面还有个“X”和“Y”好像是你点击时那个地方的坐标值，好像也有用处吧？我是学着玩的，到现在也不知道它们有什么用处，希望摩法大师给以指教。 你说的是这个吧？
Dim I, FengX1, FengX2, FengY1, FengY2
---------------------------------------------
Private Sub Command1_Click()
Form1.Scale (-100, 100)-(100, -100)
FengX1 = -50
For I = 1 To 20 Step 2
FengY1 = FengY1 + 2
FengY2 = FengY1
FengX1 = FengX1 + 5
FengX2 = -FengX1
Form1.Line (FengX1, FengY1)-(FengX2, FengY2)
Next I
End Sub
这是我前几天在网上看见.Line (X,Y)这个东西，要求随鼠标画线，给他两个事件做提笔落笔，上面的数值是随便填的。是这样吗？

Answer 3

Private Sub Command2_Click()
Dim i As Integer
Dim j As Integer
For i = 0 To 20 Step 2
For j = 0 To i
s = s & "*"
Next j
Print Space(20 - i / 2) & s
s = ""
Next i
End Sub

Answer 4

呵呵，什么问题呀。