vb时间空间两道题求解答 如图中8 9题

一）
Dim fx As Integer
Private Sub Form_Load()
Label1.Caption = "Visual Basic 教学"
Label1.FontSize = 16
Label1.FontBold = True
Label1.ForeColor = vbRed
Label1.BackColor = vbBlack
Form1.BackColor = vbBlack
Timer1.Interval = 40
fx = 1
End Sub

Private Sub Timer1_Timer()
If Label1.Left + Label1.Width >= Form1.Width Then fx = -1
If Label1.Left <= 0 Then fx = 1
Label1.Left = Label1.Left + fx * 50
End Sub

二）
Dim v As Integer
Private Sub Form_Load()
HScroll1.Max = 200
HScroll1.Min = 0
Text1.Text = "0"
v = HScroll1.Value
End Sub

Private Sub HScroll1_Change()
v = HScroll1.Value
Timer1.Interval = 240 - v
Text1.Text = v
End Sub

Private Sub Timer1_Timer()
If Image1.Left >= Form1.Width Then Image1.Left = -Image1.Width
Image1.Left = Image1.Left + 150
End Sub

已上传附件

怎么联系你？借用下你的环境做。