请VB高手帮我解答一下代码如下：PrivateSubFormLoad()Form1.Height=Form1.Width*2/3Form1.FillColor=RGB(0,0,255)Form1.FillStyle=vbSolidEndSubPrivateSubFormActivate()Scale(0,0)-(300,200)paint.Caption="Circle"Li

Question

请VB高手帮我解答一下代码如下： Private Sub Form_Load() Form1.Height = Form1.Width * 2 / 3 Form1.FillColor = RGB(0, 0, 255) Form1.FillStyle = vbSolid End Sub Private Sub Form_Activate() Scale (0, 0)-(300, 200) paint.Caption = "Circle" Line -(150, 100), FillColor, BF End Sub Private Sub paint_Click() Form1.Cls If paint.Caption = "Circle" Then paint.Caption = "Rectanfle" Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleHeight / 2, _ 255, , , ScaleHeight / ScaleWidth Else paint.Caption = "Circle" Line -(150, 100), FillColor, BF End If End Sub 很多地方看不懂，请高手帮我解释一下，越详细越好！最好每句都解释一下。谢了

Answer 1

Option Explicit Private Sub Form_Load() '窗体装入 Form1.Height = Form1.Width * 2 / 3 '窗体长宽比为3:2 Form1.FillColor = RGB(0, 0, 255) '窗体前景色为蓝色 Form1.FillStyle = vbSolid '窗体填充方式为实心 所以下面的line和circle画的是实心而不是空心 End Sub Private Sub Form_Activate() '窗体激活' Scale (0, 0)-(300, 200) '把窗体分成长300宽200等分 paint.Caption = "Circle" '这里paint应该是一个按钮。把paint按钮的显示文字改为circle。 Line -(150, 100), FillColor, BF '在左上角画一个长150宽100蓝色实心长方形。 End Sub Private Sub paint_Click() '点击paint按钮时 Form1.Cls '清屏 If paint.Caption = "Circle" Then '如果此按钮的文字为circle paint.Caption = "Rectanfle" '把它的文字改成Rectanfle Circle (ScaleWidth / 2, ScaleHeight / 2), ScaleHeight / 2, _ 255, , , ScaleHeight / ScaleWidth '在窗体正中间画一个实心椭圆。椭圆率为 宽/长 Else '否则 paint.Caption = "Circle" '把按钮文字改为circle Line -(150, 100), FillColor, BF '在左上角画一个长150宽100蓝色实心长方形。 End If End Sub