请教一下VB大神！！这几个题要怎么做？？？周六就考试啦…………拜托拜托，谢谢啦！！！

Answer 1

第一题：
Dim Num As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Num = 99
Text1.Text = Num
End Sub
Private Sub Form_Load()
Num = 99
Text1.Text = Num
End Sub
Private Sub Timer1_Timer()
Num = Num - 1
Text1.Text = Num
End Sub

第二题：
直接将image的Stretch的属性设为True
第三题：
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 255
End Sub
Private Sub HScroll1_Change()
Text2.ForeColor = RGB(HScroll1.Value, 0, 0)
End Sub
第四题：
Private Sub Command1_Click()
Picture1.Cls
Picture1.Circle (1000, 600), 500, vbRed
End Sub
Private Sub Command2_Click()
Picture1.Line (646, 246)-(1354, 954)
End Sub