vb2010第3章VB控制结构幻灯片课件

VB2010Copyright©bymetc第3章VB控制结构3.1顺序结构程序设计所谓顺序结构，就是按照语句的书写顺序执行，即语句的执行顺序与书写顺序一致，但仅有顺序结构不能处理复杂的问题。3.1.1赋值语句Let赋值语句是程序设计中最基本、最常用的语句，是为变量和对象属性设置新值的最主要 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 。其作用是把一个 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式的值赋给一个变量或一个对象的属性。赋值语句的一般 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 ：[Let]<变量名>=<表达式>[Let][<对象名>.]<属性名>=<表达式>说明：（1）关键字Let为可选项，通常都省略该关键字，“=”号称为赋值号。（2）赋值语句具有计算和赋值的双重功能，它首先计算“=”号右边的表达式，然后把结果赋给“=”号左边的变量。（3）向对象的属性赋值时，应指明对象名和属性名，系统默认的对象是当前窗体。（4）赋值号跟数学中的等号具有不同的含义。（5）赋值语句要求右端表达式计算结果的数据类型与左端变量的数据类型相容。3.1顺序结构程序设计【例3-1-2】交换两个标签中显示的文本 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 。（1）设计窗体。（2）设置对象属性。（3）编写代码。PrivateSubCommand1_Click（）C=Label2.CaptionLabel2.Caption=Label4.CaptionLabel4.Caption=CEndSub运行程序后，单击“交换”按钮，即可得到交换结果。3.1顺序结构程序设计（3）编写程序代码。PrivateSubCommand1_Click（）Label1.Caption="VisualBasic（简称VB）是Microsoft推出的"&_"基于Windows操作系统环境下的软件开发工具，是一种功能强大的高级程序"&_"设计语言。VB既继承了Basic语言编程的简_便性，又具有Windows丰富的"&_"图形窗口工作环境。"EndSub程序运行后，单击“显示（D）”按钮，其中可以看出，当将标签的水平自动扩充AutoSize和垂直自动扩充WordWrap属性都设置为True时，标签将自动适应其中的内容而改变大小。3.1顺序结构程序设计【例3-1-4】模拟秒表计时。（1）建立应用程序界面。在窗体上分别显示开始时间、结束时间和经过时间。它们都是不允许编辑的数据，所以用三个标签作显示（Label4～Label6）；另外用三个标签作文字说明（Label1～Label3）；再用两个命令按钮（Command1～Command2），实现秒表的开始、停止操作。（2）设置对象属性。对象属性属性值说明Label1Caption开始时间：标签1的内容Label2Caption停止时间：标签2的内容Label3Caption经过时间：标签3的内容Label4Caption标签4的内容BorderStyle1-FixedSingle标签有边框Command1Caption开始按钮的标题Command2Caption停止按钮的标题3.1顺序结构程序设计（3）编写程序代码。Dimstartime,endtime,pastimePrivateSubCommand1_Click（）startime=NowLabel4.Caption=Format（startime,"hh:mm:ss"）Label5.Caption=""Label6.Caption=""Command2.Enabled=TrueCommand1.Enabled=FalseEndSubPrivateSubCommand2_Click（）endtime=Nowpasstime=endtime-startimeLabel5.Caption=Format（endtime,"hh:mm:ss"）Label6.Caption=Format（passtime,"hh:mm:ss"）Command2.Enabled=FalseCommand1.Enabled=TrueEndSub3.1顺序结构程序设计2.使用Print方法（1）Print方法Print方法用于在窗体（Form）、立即窗口（Debug）、图片框（PictureBox）或打印机（Printer）等对象中显示或打印输出字符串或表达式的值，其语法格式如下：[〈对象名称〉.]Print[〈表达式列表〉][，|；]说明：①〈对象名称〉可以是窗体、立即窗口、图片框或打印机。②〈表达式列表〉可以是一个或多个表达式，如果省略，则输出一个空行。③如果语句末尾没有分隔符，则执行Print方法输出当前输出项后将自动换行，下面的Print输出的内容将在新的一行上显示。为了使上下两个Print语句输出内容显示在同一行上，则需在上一个Print语句的最后加上逗号或分号。3.1顺序结构程序设计2.使用Print方法【例3-1-5】用Print方法在窗体中直接输出字符串或表达式的值。编写窗体的单击事件Form_Click事件代码如下，程序执行结果如图所示。PrivateSubForm_Click（）Print"3*4=";3*4'使用“；”分隔Print"3*4=",3*4'使用“，”分隔Print'输出一个空行PrintDate'输出当前日期Print2>3'输出关系表达式的值FalsePrintFontSize=18'设置字体大小FontBold=True'字体加粗Print"欢迎学习";'在行尾使用分号Print"VB程序设计"EndSub3.1顺序结构程序设计2.使用Print方法（2）与Print方法有关的函数①Tab函数。对输出结果进行定位。其格式为：Tab（n）。其中，n为数值表达式，其值为整数，它用来指定表达式输出的起始列号。要输出的内容放在Tab函数的后面，并用分号隔开。②Spc函数。用Spc函数跳过n列。其格式如下：Spc（n）。其中，n是在显示或打印下一个表达式之前插入的空格数。Spc函数与输出项之间用分号隔开。Spc函数与Tab函数的作用类似，可以互相代替。但需要注意，Tab函数从对象的左端开始计数，而Spc只表示两个输出项之间的间隔。3.1顺序结构程序设计3.使用信息框函数（MsgBox）使用信息框函数MsgBox可以产生一个对话框来显示信息，并且等待用户单击某个按钮后，返回一个整数值以标明用户单击了哪个按钮。MsgBox函数的使用格式为：<变量名>=MsgBox（<提示信息>[，<对话框类型>[，<对话框标题>]]）说明：（1）<提示信息>指定在对话框中显示的文本，最大长度为1024个字符。（2）<对话框类型>用于控制对话框中出现的按钮数目和图标样式。（3）<对话框标题>指定对话框的标题，该选项可以省略。（4）Msgbox（）函数的返回值指明了用户在对话框中选择出现的7种按钮。（5）<变量名>，该变量用来存放用户关闭信息框时所选择的命令按钮的返回值。3.1顺序结构程序设计3.使用信息框函数（MsgBox）【例3-1-6】信息对话框MsgBox函数形式举例。在任意程序中，可增加一个窗体关闭时确认是否退出程序的功能。在窗体的UnLoad（卸载）事件代码中增加如下代码：PrivateSubForm_Unload（CancelAsInteger）X=MsgBox（"确实要退出吗？",4+32+256,"关闭窗口"）IfX=6Then图3-1-9运行结果Cancel=0ElseCancel=1EndIfEndSub3.1顺序结构程序设计3.1.3数据输入1.使用文本框控件（TextBox）输入数据文本框是一种最常用的控件，可以方便地由用户输入或显示文本。【例3-1-7】在文本框中输入三种家电商品的单价、销售数量，计算并输出总销售额。（1）建立应用程序界面并设置对象属性。在新窗体中建立7个标签Label1～Label7，其中Label7用来显示计算结果，其他6个标签用于提示；6个文本框和3个命令按钮，其中6个文本框用来输入商品的单价和数量。3.1顺序结构程序设计【例3-1-7】在文本框中输入三种家电商品的单价、销售数量，计算并输出总销售额。（2）编写代码。PrivateSubCommand1_Click（）'计算按钮的单击事件Dima1AsSingle,b1AsSingle,c1AsSingleDima2AsSingle,b2AsSingle,c2AsSingleDimxAsSinglea1=Val（Text1.Text）'电视机的单价b1=Val（Text2.Text）'洗衣机的单价c1=Val（Text3.Text）'电冰箱的单价a2=Val（Text4.Text）'电视机的数量b2=Val（Text5.Text）'洗衣机的数量c2=Val（Text6.Text）'电冰箱的数量x=a1*a2+b1*b2+c1*c2'计算三种家电总销售额Label7.Caption=xEndSubPrivateSubCommand3_Click（）'关闭按钮的单击事件UnloadMe'关闭当前窗体EndSub3.1顺序结构程序设计【例3-1-8】在文本框中输入任意一串英文字符，将它们进行大小写转换。（1）在新窗体中建立1标签Label1、1个文本框Text1和3个命令按钮。（2）编写代码。PrivateSubText1_KeyUp（KeyCodeAsInteger,ShiftAsInteger）Text1.Tag=Text1.Text'键盘抬起时将Text1中的文本存入Tag属性EndSubPrivateSubForm_Activate（）'窗体的激活事件Text1.SetFocus'Text1获得焦点EndSubPrivateSubCommand1_Click（）'大写按钮的单击事件Text1.Text=UCase（Text1.Tag）'转换成大写EndSubPrivateSubCommand2_Click（）'小写按钮的单击事件Text1.Text=LCase（Text1.Tag）'转换成小写EndSubPrivateSubCommand3_Click（）'还原按钮的单击事件Text1.Text=Text1.Tag'将Text1.Tag中存原始数据显示在文本框中EndSub3.1顺序结构程序设计2.使用输入框函数（InputBox）语法格式为：变量名=InputBox（<提示内容>，[<对话框标题>]，[<默认值>]）说明：（1）<提示内容>指定在对话框中显示的文本。（2）<对话框标题>指定对话框的标题。（3）<默认值>用于指定用于输入内容的文本框中显示的初始文本。（4）在输入框内输入信息后，若用户单击“确定”按钮，将把输入信息返回到变量中；若单击“取消”按钮，返回的将是一个空字符串。3.1顺序结构程序设计3.焦点和Tab键顺序（1）焦点（Focus）当对象具有焦点时，才能接受用户的输入，因此当前被操作的对象我们称它获得了焦点。获得焦点时发生GotFocus事件，当失去焦点时发生LostFocus事件。焦点赋给对象：①运行时，鼠标选择对象，按快捷键选择对象，按Tab键或Shift+Tab键在当前窗体的各对象之间切换焦点。②在程序代码中用SetFocus方法来设置焦点。【例3-1-8】中，编写窗体的Activate事件代码，其中调用了SetFocus方法，使得程序开始时光标（焦点）位于文本框Text1中。PrivateSubForm_Activate（）Text1.SetFocusEndSub（2）Tab键顺序Tab键顺序是指用户按Tab键时，焦点在窗体上的控件之间移动的顺序。一般情况下，Tab顺序由向窗体中建立控件的先后顺序确定。设置控件的TabIndex属性可以改变控件的Tab顺序。当在窗体上建立第一个控件时，控件的TabIndex属性默认设置为0，第二个控件的TabIndex属性默认值为1，依次类推。3.1顺序结构程序设计3.1.4常用基本语句1.卸载对象语句（Unload）从内存中卸载指定的窗体或控件，可以使用Unload语句。Unload语句的语法格式：Unload对象名说明：（1）对象名是要卸载的窗体对象或控件的名称。（2）如果卸载的对象是程序中惟一的窗体，将终止程序的执行。例如，PrivateSubCommand1_Click（）Unloadme‘卸载当前窗体，Me是系统关键字，代表当前窗体2.结束语句（End）语法格式：EndEnd语句能够强行终止程序代码的执行，清除所有变量。在集成开发环境下运行程序过程中，用户也可以单击工具栏上的“结束”按钮来强行结束程序的执行。3.2选择结构程序设计【例3-2-1】输入三个数a，b，c，输出三者之中最大数。（1）建立应用程序界面与设置属性。在窗体上设置一个标签和两个命令按钮。（2）编写程序代码：PrivateSubCommand1_Click（）DimaAsSingle,bAsSingle,cAsSingle,maxAsSingleLabel1.Caption=""a=Val（InputBox（"请输入第1个数:","输入a",0））b=Val（InputBox（"请输入第2个数:","输入b",0））c=Val（InputBox（"请输入第3个数:","输入c",0））p=a&","&b&","&cp=p&"三个数中最大数是:"max=a'设a为最大值Ifb>maxThenmax=bIfc>maxThenmax=cLabel1.Caption=p&maxEndSubPrivateSubCommand2_Click（）UnloadMeEndSub3.2选择结构程序设计【例3-2-2】火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.40元收费。输入行李重量，计算出应付运费。分析：设行李重量为w公斤，应付运费为y元，则运费公式为：（1）建立用户界面。3.2选择结构程序设计（2）设置对象的属性（3）编写程序代码。PrivateSubCommand1_Click（）DimwAsSingle,yAsSinglew=Val（Text1.Text）Ifw<=50Theny=w*0.25Elsey=w*0.25+（w-50）*0.4EndIfLabel3.Caption=yEndSub编写“清除”按钮的Click事件如下：PrivateSubCommand2_Click（）Text1.SetFocusText1.Text=""Label3.Caption=""EndSub对象属性属性值说明Form1Caption托运行李窗体标题Text1Text空Label1Caption行李重量（KG）标签内容Label2Caption应付运费（元）标签内容Label3Caption空BorderStyle1-FixedSingle带边框Command1Caption计算（&J）按钮标题DefaultTrue默认按钮Command2Caption清除（&C）按钮标题CancelTrue按Ese键有效3.2选择结构程序设计【例3-2-3】设计一个接受口令的窗体，单击“确定”按钮后，如果输入的口令正确则进入一个新窗口，如图右图所示；若输入的口令错误，则给出错误提示。无论用户输入什么字符，文本框中只显示相同数量的“*”。（1）建立应用程序界面。（2）设置对象属性窗体对象属性属性值说明Form1Form1Caption输入系统口令Label1Caption请输入系统的口令Label2Caption空Command1Caption确认Text1Text空PasswordChar*Text1中的字符Form2Form2Caption口令正确Label1Caption欢迎使用工资管理系统3.1顺序结构程序设计（3）编写程序代码。PrivateSubCommand1_Click（）a=UCase（Text1.Text）'将Text1中输入的字符转换成大写字母Ifa="ABC"Then'口令正确UnloadForm1'卸载窗体Form1Form2.Show'显示窗体Form2ElseLabel2.Caption="对不起，口令错！"&Chr（13）&"请重新输入"Text1.SetFocus'Text1获得焦点Text1.SelStart=0'将Text1的插入点置于最前端Text1.SelLength=Len（a）'选中用户上次输入错误的所有字符EndIf'自动进入改写状态EndSub3.1顺序结构程序设计3.条件语句的嵌套（1）一般格式的条件语句嵌套语句块1If<条件1>Then…If<条件2>Then…Else…EndIf…语句块2Else…If<条件2>Then…Else…EndIf…EndIf语句块1语句块23.1顺序结构程序设计【例3-2-4】根据不同的时间段发出对应的问候语，例如0时～12时显示“早上好”。本例采用默认的用户界面，利用窗体装载（Load）事件，采用Print方法直接在窗体上输出结果。程序代码如下：PrivateSubForm_Load（）DimhAsIntegerShowh=Hour（Time）'取系统时间FontSize=30Ifh<=12ThenPrint"早上好!"ElseIfh<=18ThenPrint"下午好!"ElsePrint"晚上好!"EndIfEndIfEndSub3.1顺序结构程序设计（2）ElseIf格式的条件语句嵌套带有ElseIf的条件语句嵌套结构。格式为：If<条件1>Then<语句块1>ElseIf<条件2>Then<语句块2>ElseIf<条件3>Then<语句块3>…[Else<语句块n>]EndIf【例3-2-5】使用带ElseIf的条件语句，实现【例3-2-4】的题目要求。PrivateSubForm_Load（）DimhAsIntegerShowh=Hour（Time）'取系统时间FontSize=30Ifh<=12ThenPrint"早上好!"ElseIfh<=18ThenPrint"下午好!"ElsePrint"晚上好!"EndIfEndSub3.1顺序结构程序设计4.使用IIF函数在程序设计中可以使用IIf函数来实现一些比较简单的条件判断操作，IIf函数的语法格式为：IIf（<条件表达式>,<条件为真时的值>,<条件为假时的值>）说明：（1）“条件表达式”可以是关系表达式、布尔表达式或数值表达式。如果用数值表达式作条件，则非0为真，0为假。（2）“条件为真时的值”是当条件表达式为真时函数返回的值，“条件为假时的值”是当条件表达式为假时函数返回的值，它们可以是任何表达式。（3）语句y=IIf（<条件表达式>，<条件为真时的值>，<条件为假时的值>）相当于：If<条件表达式>theny=<条件为真时的值>Elsey=<条件为假时的值>3.1顺序结构程序设计3.2.2SelectCase语句SelectCase语句的语法格式为：SelectCase<测试表达式>Case<表达式列表1><语句块1>[Case<表达式列表2><语句块2>]…[Case<表达式列表n><语句块n>][CaseElse<语句序列n+1>]EndSelect【例3-2-6】编写程序计算货物运费。设货物运费单价Y元/每吨/每公里，运输距离为S公里。单价Y与距离S的关系为：3.1顺序结构程序设计【例3-2-7】是否为闰年，并根据给定的月份判断该月有多少天分析：根据给定条件可写出判断闰年的布尔表达式：（yMod4=0AndyMod100<>0）Or（yMod400=0）程序代码如下：PrivateSubCommand1_Click（）DimyAsInteger,mAsInteger,daysAsIntegerDimleapAsBoolean'闰年标记IfText1.Text=""ThenMsgBox"请输入正确的年份,重试！":ExitSubIfText2.Text=""OrVal（Text2.Text）<0OrVal（Text2.Text）>12ThenMsgBox"请输入正确的月份，重试！":ExitSuby=Val（Text1.Text）m=Val（Text2.Text）If（yMod4=0AndyMod100<>0）Or（yMod400=0）Thenleap=True'leap的值为True时，表示该年为闰年Elseleap=FalseEndIfSelectCasemCase1,3,5,7,8,10,12days=31Case4,6,9,11days=30Case2IfleapThendays=29Elsedays=28EndIfEndSelectLabel4.Caption=y&"年"&IIf（leap,"是","不是"）&"闰年，"_&Chr（13）&m&"月有"&days&"天"Text1.SetFocusEndSub3.3循环结构程序设计循环结构是指在执行程序语句时，需要对其中的某些语句重复执行多次，被重复执行的程序段称为循环体。3.3.1Do…Loop语句1.先判断条件形式的Do…Loop语句语句格式为：Do[While|Until<条件>][循环体]Loop说明：（1）DoWhile…Loop是“当型循环”形式，即<条件>为真时执行循环体，条件为假时，终止循环。（2）DoUntil…Loop是“直到型循环”形式，即<条件>为假时执行循环，直到条件为真（True）时，终止循环。（3）<条件>，即循环条件是一个关系表达式或者逻辑表达式，其值为True或False。（4）在Do…Loop中可以在循环体的适当位置使用ExitDo语句，以便随时退出。当有多个循环嵌套使用时，ExitDo语句只能跳出当前的Do…Loop循环。3.3循环结构程序设计【例3-3-1】计算1+2+3+…+100。（1）用当型循环语句DoWhile…Loop，程序如下：PrivateSubForm_Load（）DimsAsInteger,nAsIntegerShows=0:n=1DoWhilen<=100s=s+nn=n+1LoopPrint"1+2+3+…100=";sEndSub（3）Do…Loop循环语句也可以省略While/Until。程序如下：PrivateSubForm_Load（）DimsAsInteger,nAsIntegerShows=0:n=1Dos=s+nn=n+1Ifn>100ThenExitDoLoopPrint"1+2+3+…100=";sEndSub（2）用直到型循环语句DoUntil…Loop，程序如下：PrivateSubForm_Load（）DimsAsInteger,nAsIntegerShows=0:n=1DoUntiln>100s=s+nn=n+1LoopPrint"1+2+3+…100=";sEndSub3.3循环结构程序设计【例3-3-2】Fibonacci（裴波那奇）序列为：0，1，1，2，3，5，8，13，21，34，…。编写程序输出项值不大于1000的Fibonacci序列。（1）建立应用程序用户界面。（2）设置对象属性。（3）编写Command1单击事件代码。PrivateSubCommand1_Click（）Dimi1AsInteger,i2AsInteger,i3AsInteger,nAsIntegeri1=0:i2=1:n=1p="第1项="&i1DoWhilei2<=1000n=n+1p=p&Chr（13）&Chr（10）&"第"&n&"项="&i2i3=i1+i2i1=i2'得到新的i1i2=i3'得到新的i2LoopText1.Text=pLabel1.Caption="Fibonacci（裴波那奇）序列："&Chr（13）&_"其值不大于1000的共有"&n&"项"EndSub3.3循环结构程序设计2.后判断条件形式的Do…Loop语句语句格式为：Do[循环体]Loop[While|Until<条件>]Do…Loop语句首先执行循环体，然后判断条件的真假，决定是否继续循环。后判断条件形式的Do…Loop语句至少执行一次循环体。【例3-3-3】在【例3-3-1】中我们编写了求1～100累加和的程序，现将该程序改写成后判断条件形式的Do…Loop语句。PrivateSubForm_Load（）DimsAsInteger,nAsIntegerShows=0:n=1Dos=s+nn=n+1LoopWhilen<=100Print"1+2+3+…100=";sEndSub3.3循环结构程序设计【例3-3-4】输入两个正整数，求它们的最大公约数。采用“辗转相除法”如下：（1）以大数x作被除数，小数y作除数，相除后的余数为r。（2）若r≠0，则将x←y，y←r，继续x与y相除得到新的r，若仍有r≠0，则重复此过程，直到r=0为止。（3）最后的除数y就是最大公约数。PrivateSubCommand1_Click（）x=Val（Text1.Text）y=Val（Text2.Text）Ifx=<初值>To<终值>[Step<步长>][<循环体>]Next[<循环变量>]图3-3-3For语句执行 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 图说明：（1）<循环变量>是一个数值型变量，用作循环计数器控制循环次数。（2）<初值>为循环变量的初始取值，<终值>为循环变量的最后取值，它们均可以是数值型的常量、变量或表达式，它们的值可以是整数和实数。（3）<步长>用于决定循环变量每次增加的数值。（4）可以在循环体中的适当位置放置ExitFor语句，以便随时退出循环。（5）For语句的执行过程是：首先把“初值”赋给循环变量，接着检查循环变量是否超过终值，如果超过就停止执行循环体跳出循环，执行Next后面的语句；否则执行一次循环体，然后把“循环变量+步长”的值再赋给循环变量，重复上述过程。（6）循环的次数由初值、终值和步长三个因素决定，计算公式为：循环次数=Int（（终值-初值）/步长+1）3.3循环结构程序设计【例3-3-5】求n！（n为自然数）由阶乘的定义可知：n!=1×2×3×…×（n-2）×（n-1）×n=（n-1）!×n程序代码如下：PrivateSubForm_Activate（）DimnAsInteger,iAsIntegerDimkAsLong'防止乘积结果溢出，将k定义为长整型或实型n=InputBox（"请输入n","求n！"）k=1Fori=1Tonk=k*iNextiPrintn;"!=";kEndSub3.3循环结构程序设计【例3-3-6】求自然数1～100之间的奇数之和。编写的窗体的装载事件程序代码如下：PrivateSubForm_Load（）DimiAsInteger,sAsIntegerShowFori=1To100Step2s=s+iNextiPrint"1～100奇数累加和为：";sEndSub3.3循环结构程序设计【例3-3-7】求，直到第50项。PrivateSubForm_Click（）DimiAsInteger,tAsDouble,sAsSinglet=1:s=0Fori=1To50t=t*is=s+1/tNextiPrint"s=";sEndSub3.3循环结构程序设计【例3-3-8】使用随机函数产生10个在指定范围内的随机数，随机数的范围在文本框内输入确定。程序代码如下：PrivateSubCommand1_Click（）DimnAsInteger,mAsIntegerRandomize'产生随机数种子n=Val（Text1.Text）m=Val（Text2.Text）Fori=1To10p=p&Int（（m+1-n）*Rnd）+n&""NextiLabel3.Caption=pEndSubPrivateSubCommand2_Click（）Text1.SetFocus'text1获得焦点Text1.SelStart=0'将光标置于text1的起始位置Text1.SelLength=Len（Text1.Text）'将text1中的内容全部选中Text2.Text=""Label3.Caption=""EndSub3.3循环结构程序设计3.3.3多重循环在循环体内可以包含VisualBasic的任何语句，当在循环体内包含另外一个循环语句时，就形成了循环嵌套，又叫多重循环。图3-3-5双重循环【例3-3-9】双重循环举例。编写窗体的激活事件，程序如下：PrivateSubForm_Activate（）DimiAsInteger,jAsIntegerFori=1To3Forj=4To5Printi,jNextjNextiEndSub3.3循环结构程序设计例3-3-10】设计一个窗体打印乘法九九表。PrivateSubForm_Click（）FontSize=10PrintTab（31）;"乘法九九表"PrintTab（30）;"------------"Fori=1To9Forj=1ToiPrintTab（（j-1）*8）;i&"*"&j&"="&i*j;NextjPrint'每行之后产生一个换行NextiEndSub3.3循环结构程序设计【例3-3-11】在窗体上输出如图3-3-7所示的图形。程序代码如下：PrivateSubForm_Click（）ClsPrint:Print:PrintFori=1To8'输出8行PrintTab（20-i）;'控制每行的起始位置Forj=1To2*i-1'每行输出2*i-1个“*”Print"*";NextPrint'换行NextEndSub