Question

怎么用VB程序画一条逐渐加长的直线

Answer 1

Private Sub Command1_Click()
For a = 1 To 10000
Line (a, 300)-(a + 1, 300)
Next
End Sub

Answer 2

Option Explicit
Dim i As Long

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
i = i + 100
Me.Line (0, 1000)-(i, 1000)
If i > Me.Width Then
Timer1.Enabled = False
End If
End Sub

Answer 3

以上回答皆可以采纳，可以实现