VB教学课件第4章.pptVIP

第4章 循环结构与自行画图 4.1 用For-Next语句实现循环结构 4.2 用Do While-Loop语句实现循环结构 4.3 嵌套的循环结构 4.1 用For-Next语句实现循环结构 4.1.1 For-Next语句一般格式 4.1.2 Pset、Line和Circle方法 4.1.1 For-Next语句一般格式 【实例4.1】计算1至100之和。程序运行时，单击“计算”命令按钮，在标签框中显示1＋2＋3＋…＋100累计和的结果；单击“退出”命令按钮，结束运行程序。 操作步骤 （4）编写单击“退出”命令按钮的代码 【实例4.2】计算1至100之间的偶数之和。程序运行时，单击“计算”命令按钮，在文本框中显示2＋4＋6＋…＋100累计和的结果。 操作步骤 （2）改写单击“计算”命令按钮的代码 【实例4.3】输出如下3组字符。 ******************* * Very interesting. * ################### 操作步骤 （2）编写激活窗体的代码，即Activate事件过程 【实例4.4】计算1~100以内能被3或5整除的数之和。程序运行时，单击“显示”命令按钮，在上标签框中显示能被3和5整除的数，并在下标签框中显示1~100以内能被3或5整除的所有数求和的结果。 操作步骤 （2）编写单击命令按钮的代码 【实例4.5】计算 之和。 操作步骤 （2）编写单击命令按钮的代码 （2）编写单击命令按钮的代码 【实例4.6】求满足不等式1+2+3+…+n≤3000的最大n值。程序运行时，在文本框中输入任意整数后，单击“计算”命令按钮，在两个标签中分别显示满足条件的最大n值和计算结果。 操作步骤 （2）编写单击按钮cmdCalu的Click事件过程 4.1.2 Pset、Line和Circle方法 【实例4.7】用画点（Pset）的方法，在图片框中输出2行直线。程序运行时，单击“画点线”命令按钮，在图片框中输出2行由彩色点画得的直线图案。 操作步骤 【实例4.8】用画直线或画矩形（Line）的方法，在窗体上画直线和正方形。程序运行时，单击“画直线”命令按钮，在窗体上输出10条间距相等、长度递增的线段图案。单击“画矩形”命令按钮，在窗体上输出10个大小相等、对角连接的正方形图案。 操作步骤 【实例4.9】用画圆（Circle）的方法，在窗体上绘制同心圆与相切圆。程序运行时，单击“同心圆”命令按钮，在窗体上输出5个大小不一、颜色不一的同心圆图案。单击“相切圆”命令按钮，在窗体上输出一排6个大小相等、颜色渐变的相切圆图案。 操作步骤 4.2 用Do While-Loop语句实现循环结构 【实例4.10】用Do While-Loop语句改写实例4.1。程序运行时，单击“计算”命令按钮，在标签框中显示1＋2＋3＋…＋100累计和的结果。单击“退出”命令按钮，结束运行程序。 操作步骤 【实例4.11】输入若干成绩（值为-1时结束输入），计算总分成绩与平均成绩。程序运行时，单击“输入”按钮，弹出“成绩输入框”，用户可依次输入若干个0～100之间的成绩，并将各成绩显示在“成绩列表”所在的标签框中，同时分别计算成绩的总分与平均分。单击“计算”按钮，则将计算的结果分别显示在“总分成绩”所在的标签框与“平均成绩”所在的标签框中。 操作步骤 4.3 嵌套的循环结构 【实例4.12】应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时，便激活窗体，并在窗体上输出如下图案。 ** 1 ** ** 2 2 ** ** 3 3 3 ** ** 4 4 4 4 ** ** 5 5 5 5 5 ** 操作步骤 P121 （1）设计用户界面 （2）设置各对象的属性 在窗体中添加所需控件 命令按钮的名称 命令按钮的标题 cmdDot 画点线 （名称） Caption 命令按钮 图片框的名称 图片框的标题 picDot 置空 （名称） Caption 图片框 窗体的名称 窗体的标题 frmEx4_7 Pset方法 （名称） Caption 窗体 作用 属性值 属性 对象 （3）编写单击“画点线”按钮的代码 Private Sub cmdDot_Click() picDot.Cls picDot.DrawWidth = 3 For i = 1 To 10 x = 100 * i y = 100 dotcolor = I