【教学课件】第3章顺序结构程序设计.ppt

Visual Basic 程序设计教程程序设计教程第第3章章 顺序结构程序设计顺序结构程序设计 数据输出1.直接输出到窗体使用Print方法:其语法格式为对象名称对象名称.Print 表达式列表表达式列表,|;【例3-1】使用Print方法在窗体中直接输出字符串或数值表达式的值，如图3-1所示。设计步骤如下。(1)建立应用程序用户界面。选择“新建”工程，进入到窗体设计器，并在窗体中增加一个命令按钮Command1，如图3-2所示。(2)设置对象属性，见表3-1。1图3-1使用Print方法图3-2建立程序界面表3-1属性设置对象属性属性值说明Command1Caption欢迎按钮的标题(3)设计代码编写命令按钮Command1的Click事件代码：Private Sub Command1_Click()PrintPrint2*3+4=;2*3+4使用“;”分割符PrintPrint欢迎学习Print,Visual 使 用“,”分割符Print,Baisc使用两个“,”分割符PrintPrint欢迎学习,在行末使用“,”分割符PrintVisual;Baisc“End Sub2.与与Print方法有关的函数方法有关的函数(1)Tab函数(2)其格式为:Tab(n)(3)例例如如:Print Tab(10);姓姓名名;Tab(30);年年龄龄(4)(2)Spc函数。函数。(5)其格式为其格式为:Spc(n)(6)例例如如：Print ABC;Spc(5);DEF 输出：输出：ABC DFE【例3-2】在上例中使用Tab函数与Spc函数。只需改写命令按钮的Click事件代码：Private Sub Command1_Click()PrintPrintTab(5);2*3+4=;2*3+4PrintPrintTab(6);欢迎学习;Tab(17);VisualBaiscPrintPrintTab(7);欢迎学习;Spc(3);Visual;Spc(2);BaiscEnd Sub3.使用位置属性【例3-3】下面程序按指定尺寸、颜色和外观，把文本输出到窗体的中间。设计步骤如下：(1)建立应用程序用户界面与对象属性的设置参见例3-1。(2)编写命令按钮的Click事件代码：Private Sub Command1_Click()DimaAsString,textWAsInteger,textHAsIntegerFontName=隶书 输出文本的字体FontSize=60输出字体的大小ForeColor=QBColor(15)输出文本的前景色，即字体的颜色BackColor=QBColor(8)输出文本的背景色，即窗体的颜色a=你好 输出文本的内容textW=TextWidth(a)/2文本的宽度TextWidth(a)textH=TextHeight(a)Command1.Height/2CurrentX=ScaleWidth/2textW设置输出的水平位置CurrentY=ScaleHeight/2textH设置输出的垂直位置Printa输出文本End Sub4.清除方法CLS【例3-4】在上例中使用Cls方法清除窗体中由Print方法所生成的文本，如图3-5所图图3-5 使用使用Cls方法方法只需在上例中增加命令按钮Command2（清除），并且编写其Click事件代码：Private Sub Command2_Click()ClsEnd Sub 输出文本到图片框输出文本到图片框【例3-5】使用Print方法在图片框中输出字符串或数值表达式的值。设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，在窗体中增加一个图片框Picture1和一个命令按钮Command1。(2)设置对象属性对象属性属性值说明Picture1BackColor（白色）图片框的背景色Command1Caption欢迎按钮的标题(3)设计代码。编写命令按钮Command1的Click事件代码：Private Sub Command1_Click()Picture1.PrintPicture1.PrintTab(2);2*3+4=;2*3+4Picture1.PrintPicture1.Print Tab(3);欢 迎 学 习;Tab(17);VisualBaiscPicture1.PrintPicture1.Print Tab(4);欢迎学习;Spc(3);Visual;Spc(2);BaiscEnd Sub【例3-6】在图片框中使用位置函数。设计步骤如下。(1)建立应用程序用户界面与对象属性(2)编写命令按钮的Click事件代码：Private Sub Command1_Click()DimaAsString,textWAsInteger,textHAsIntegerPicture1.FontName=隶书Picture1.FontSize=40Picture1.ForeColor=QBColor(15)Picture1.BackColor=QBColor(8)a=你好textW=Picture1.TextWidth(a)/2文本的宽度TextWidth(a)textH=Picture1.TextHeight(a)/2Picture1.CurrentX=Picture1.Width/2 textW窗体的宽度属性ScaleWidthPicture1.CurrentY=Picture1.Height/2 textH设置垂直位置为从顶部往下50twipsPicture1.PrintaEnd Sub3.使用“标签”控件的输出【例3-7】有框和无框的标签设计步骤如下。(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加一个命令按钮Command1、两个标签Label1和Label2。如图3-9左。(2)设置对象属性，见表3-3。如图3-9右。(3)编写程序代码。编写命令按钮Command1的单击（Click）事件代码：Private Sub Command1_Click()Label1.Caption=运行时改变标签的标题End Sub对象属性属性值说明Command1Caption改变(&G)按钮的标题Label1Caption设计时设置的标签内容标签的内容Alignment2Center标签的内容居中显示Label2Caption设计时设置的标签内容标签的内容BorderStyle1FixedSingle有边框的标签BackColor&H800000标签的背景改为白色表3-3属性设置图图3-9 建立界面与设置属性建立界面与设置属性【例3-8】在上例中修改标签的属性，使之自动改变尺寸以适应其内容只需在上例中修改Label2的属性设置，并且修改Command1的Click事件代码：Private Sub Command1_Click()Label1.Caption=运行时改变标签的标题Label2.Caption=对于一个较长的或在运行时可能变化的标题，标签控件提供了两&_种属性：AutoSize和WordWrap来改变控件尺寸以适应较长或较短的标题。End Sub基本语句21.赋值语句LET2.赋值语句的一般格式为:Let名称=表达式【例3-9】交换两个变量中的数据。设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加一个命令按钮Command1、4个标签Label1Label4。如图3-14左(2)(2)设置对象属性，(3)(3)编写程序代码。(4)编写命令按钮Command1的Click事件代码：(5)Private Sub Command1_Click()(6)t=Label3.Caption(7)Label3.Caption=Label4.Caption(8)Label4.Caption=t(9)End Sub(10)2.卸载对象与结束程序Unload语句Unload语句的语法格式为:Unload 对象名对象名【例【例3-10】在例】在例3-9中使用命令关闭程序窗体。中使用命令关闭程序窗体。设计步骤如下：设计步骤如下：只只 需需 在在 上上 例例 中中 增增 加加 一一 个个 命命 令令 按按 钮钮Command2（关关闭闭），并并且且编编写写Command2的的Click事件代码：事件代码：Private Sub Command2_Click()Unload MeEnd Sub3.注释与暂停1.注释语句2.语法格式为:3.Rem注释内容注释内容或注释内容注释内容4.例如：s=pi*r2计算圆的面积5.v=4/3*pi*r3:Rem计算球的体积6.2.暂停语句暂停语句7.其语法格式为:Stop 数据输入数据输入31.使用文本框控件【例3-11】输入球体的半径，然后计算并输出球体的体积和表面积。分析：设球的半径为r，球体积和球表面积分别为：v和f，依题义可得计算公式：、设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加两个命令按钮Command1Command2、3个标签Label1Label3和3个文本框Text1Text3。编写程序代码。编写命令按钮Command1的Click事件代码：Private Sub Command1_Click()DimrAsSingle,vAsSingle,fAsSingleConstpi=3.14159r=Val(Text1.Text)v=4/3*pi*r3:f=4*pi*r2Text2.Text=v:Text3.Text=fEnd Sub编写命令按钮Command2的Click事件代码：Private Sub Command2_Click()UnloadMeEnd Sub【例3-12】设某职工应发工资x元，试求各种票额钞票总张数最少的付款方案。分析：可以从最大的票额（100元）开始，算出所需的张数，然后在剩下的部分算出较小票额的张数，直到最小票额（1元）。设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加一个命令按钮Command1、14个标签Label1Label14、7个文本框Text1Text7。(2)设置对象属性。编写程序代码。编写命令按钮Command1的Click事件代码：Private Sub Command1_Click()x=Val(Text1.Text)x为实发工资数y=x100:Text2.Text=y求百元票张数并显示x=x100*y求剩余款项y=x50:Text3.Text=y求五十元票张数并显示x=x50*y求剩余款项y=x10:Text4.Text=y求十元票张数并显示x=x10*y求剩余款项y=x5:Text5.Text=y求五元票张数并显示x=x5*y求剩余款项y=x2:Text6.Text=y求二元票张数并显示x=x2*y:Text7.Text=x求一元票张数并显示End Sub编写文本框Text1的Change事件代码：Private Sub Text1_Change()Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=“End Sub使用焦点使用焦点在程序运行的时候，用户可以按下列方法改变焦点：l用鼠标单击对象。l 按 Tab键或Shift+Tab在当前窗体的各对象之间巡回移动焦点。按热键选择对象。使用对话框使用对话框41.显示信息显示信息信息对话框（信息对话框（MsgBox）其语法格式为：变量=MsgBox（信息内容,对话框类型,对话框标题）【例3-14】使用信息对话框输出各种票额钞票张数的付款方案只需将例3-12的窗体中多余的文本框和标签删去，并改写命令按钮的Click事件代码Private Sub Command1_Click()x=val(Text1.Text)x为实发工资数Y1=x100求百元票张数x=xMod100求剩余款项Y2=x50求五十元票张数x=xMod50求剩余款项Y3=x10求十元票张数x=xMod10求剩余款项Y4=x5求五元票张数x=xMod5求剩余款项Y5=x2求二元票张数x=xMod2求一元票张数Text1.SetFocusa=&Chr(13)a=a&Format(Y1&张百元票,)&_Format(Y2&张50元票,)&Chr(13)a=a&Format(Y3&张10元票,)&_Format(Y4&张5元票,)&Chr(13)a=a&Format(Y5&张2元票,)&_Format(x&张1元票,)&Chr(13)a=a&=&Chr(13)a=a&共计&Text1.Text&元c=MsgBox(a,0,应发工资)End Sub2.输入数据输入框（InputBox）其语法格式为:变量=InputBox（信息内容,对话框标题,默认内容）【例3-15】编制华氏温度和摄氏温度相互转换的程序。利用输入框输入温度.设计步骤如下：(1)建立应用程序用户界面与设置对象属性。选择“新建”工程，进入窗体设计器，增加两个命令按钮Command1Command2和一个标签Label1。其属性的设置参见图3-26图3-26温度的转换(2)编写事件代码。编写“摄氏转华氏”命令按钮Command1的Click事件代码：Private Sub Command1_Click()c=Val(InputBox(请输入摄氏温度值：,摄氏转华氏,0)f=32+9*c/5Label1.Caption=摄氏&c&度=华氏&Format(f,#.#)&度End Sub编写“华氏转摄氏”命令按钮Command2的Click事件代码：Private Sub Command2_Click()f=Val(InputBox(请输入华氏温度值：,华氏转摄氏,0)c=5*(f32)/9Label1.Caption=华氏&f&度=摄氏&Format(c,#.#)&度End Sub【例3-16】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f。问笼中鸡和兔各有多少只？如图3-27所示。图图3-27 “鸡兔同笼鸡兔同笼”问题问题分析：设笼中有鸡x只，兔y只，由条件可得方程组x+y=h解方程组得设计步骤如下：(1)建立程序界面与设置对象属性。选择“新建”工程，进入窗体设计器，首先增加3个标签Label1label3和一个命令按钮Command1。其属性设置参见图3-27。(2)编写程序代码。编写命令按钮Command1的Click事件代码：Private Sub Command1_Click()DimhAsInteger,fAsIntegerh=Val(InputBox(鸡和兔的总头数,请输入,0)f=Val(InputBox(鸡和兔的总脚数（偶数）,请输入,0)x=(4*hf)/2y=(f2*h)/2Label2.Caption=设笼中鸡和兔的总头数为&h&,总脚数为&f&。Label3.Caption=则笼中鸡有&x&只,兔有&y&只。End Sub习题三习题三以下各章习题均要求先写出流程图，然后根据流程图写出程序。3.1顺序结构的特点是什么？请举一个生活中符合顺序结构的例子，并且用流程图描述之。3.2下列哪组语句可以将变量A、B的值互换？(1)A=B:B=A(2)A=A+B:B=AB:A=AB(3)A=C:C=B:B=A(4)A=(A+B)/2:B=(AB)/23.3理解Top、Left与BackStyle属性。利用标签制作阴影文字效果。如图3-29（左）所示程序启动后，在窗体上显示出不带阴影的文字“喜迎千禧年”。单击“效果1”按钮后文字出现黑色的阴影，如图3-29（中）所示。单击“效果2”按钮后文字阴影的间距加大，如图3-29（右）所示。图图3-29 阴影文字效果阴影文字效果3.4向一个RC串联电路充电，电容上的电压为：U0为直流电源的电压。求在t=1s时（R=500k，C=10f）U/U0的值。3.5理解大小写转换函数。在文本框中输入英文字母，按“转大写”按钮，文本变为大写，按“转小写”按钮，文本变为小写。3.6在文本框中输入3种商品的单价、购买数量，计算并输出所用的总金额。3.7在文本框中输入小时、分、秒，化成共有多少秒，然后输出之。3.8在文本框中输入弧度值，将弧度换算为角度值（度、分、秒）的形式，然后输出。如弧度值为1.474919573，化为角度的方法为(1)先将弧度值变成十进制，1.474919573(180/)=84.50666665(2)去掉整数部分84，余0.50666665。(3)用0.5066666560=30.399999。(4)去掉30，余0.399999。(5)用0.39999960=23.9999424(6)最后将84、30、24拼接成843024。）3.9在文本框中输入长、宽、高，求长方体的表面积，并输出3.10在习题3.4中使用对话框函数Msgbox()输出计算的结果。3.11在习题3.5中使用对话框函数Msgbox()输出转换结果。3.12在习题3.7中使用对话框函数InputBox()输入时间的小时、分钟、秒钟数。3.13编程序输出在指定范围内的3个随机数，范围在文本框中输入。