UC知道懂VB6.0的来
来源：百度知道 编辑：UC知道 时间：2024/06/30 05:28:27
这是一个VB6.0的入门程序，花园。大家帮我看一下错在哪里，并写出正确的来。并告诉我那些代码都是什么意思。
Private Sub Command1_Click()
Forml.Circle(200,200),500
Textl.Text="在窗体上画圆"
End Sub
Private Sub Command2_Click()
Forml.Cls.
Textl.Text="圆消失了"
End
不能运行，这样写出来，说错误424或是别的，反正不是书上说的可以运行。
Private Sub Command1_Click()
Forml.Circle(200,200),500
Textl.Text="在窗体上画圆"
End Sub
Private Sub Command2_Click()
Forml.Cls.
Textl.Text="圆消失了"
End
不能运行，这样写出来，说错误424或是别的，反正不是书上说的可以运行。
三个错误：
1,首先，是form1,text1 你打成了forml，textl(是阿拉伯数字1，不是英文字母L）
2,第六行，最后多了一个点（form1.cls）
3,第二个sub是清除那个圆，所以最后那句是end sub（end的话，就退出窗体，但是缺少end sub是不行的。）
正确代码应该是：
Private Sub Command1_Click()
Form1.Circle(200,200),500
Text1.Text="在窗体上画圆"
End Sub
Private Sub Command2_Click()
Form1.Cls
Text1.Text="圆消失了"
End sub
意义：第一行：当command1按钮被单击时，执行之后的代码直到出现第一个end sub为止
第二行：在窗体form1上画一个圆心坐标为200,200，半径为500的圆
第三行：在text1文本框中显示中文"在窗体上画圆"这六个字
第四行：结束上面这个子程序
第五行：当COMMAND2按钮被单击时，执行之后代码直到出现end sub为止
第六行：清除FORM1窗体的文本和图形（也就是把刚才画的那个圆擦除）
第七行：在text1文本框显示"圆消失了"
第八行：结束上面这个子程序
顶楼说的没错，不过还有一点，要在窗体上放上两个按钮和一个文本框控件才行！