15.学期阶段性复习

李振华

相邸镇初级中学

2021-6-17信息技术阶段性小结1.1语句语句由VB关键字、变量、常量、运算符等组成。在同一程序行中输入多条语句，语句之间用冒号“:〞分隔。例如：x=1:y=2:z=3当一条语句较长时，可以利用续行符“空格〞+下划线“_〞作为连接符把一条语句输入在多个程序行中，续行符跟在一行的末尾处。例如x=(-b+Sqr(b^2-4*a*c))/□_(2*a)一、控制语句——顺序结构1.2顺序结构(1)赋值语句[Let]变量名=表达式[Let]对象名.属性=属性值一、控制语句——顺序结构(2)Input函数InputBox(<提示>[，<标题>][，缺省][，<x坐标位置>][，<y坐标位置>])例1.2.1PrivateSubForm_Load()Sname=InputBox("请输入参赛者姓名，然后按确定按钮","知识竞赛",,200,200)PrintSnameEndSub一、控制语句——顺序结构(3)Print语句[<对象名>.]Print［<表达式表>］[，|；]功能：在指定的对象上输出<表达式表>中各元素的值。Print的相关函数①Tab()函数Tab(N)功能：把光标移到由N确定的位置。②Spc()函数Spc(N)功能：光标移到N个空格之后的位置。③Cls方法[<对象名>.]Cls功能：去除由Print方法显示的信息。④Format$函数Format$〔表达式，格式字符串〕功能：将数值、字符串或日期等数据按照指定的格式生成字符串。例1.2.2PrivateSubCommand1_Click()a=123:b=456:c=789Form1.Printa;b;c'输出在窗体Form1上Print"中华","天下",a+b+c'输出在窗体Form1上Picture1.Print"中华","天下",a+b+c'输出在图片框Picture1上Debug.Print"中华","天下",a+b+c'输出在立即窗口上Printer.Print"中华","天下",a+b+c'在打印机上输出EndSub一、控制语句——顺序结构例1.2.3PrivateSubCommand1_Click()PrintPrint123;456;789Print123,456,789PrintTab(4);1234567890PrintTab(4),1234567890PrintSpc(4);1234567890PrintSpc(4);1234567890Print"123";"456";"789"Print"123","456","789"Print123;Print456,Print789EndSub一、控制语句——顺序结构例1.2.4PrivateSubCommand1_Click()PrintTab(1);String(13,"*")PrintTab(2);String(11,"*")PrintTab(3);String(9,"*")PrintTab(4);String(7,"*")PrintTab(5);String(5,"*")PrintTab(6);String(3,"*")PrintTab(7);String(1,"*")EndSub一、控制语句——顺序结构PrivateSubCommand1_Click()ForI=1To7PrintTab(I);String(15-2*I,"*")NextIEndSub④Format$函数Format$〔表达式，格式字符串〕功能：将数值、字符串或日期等数据按照指定的格式生成字符串。一、控制语句——顺序结构格式字符数值格式字符串输出#123.456123.456“####.####”“##.##”123.456123.460123.456123.456“00000.0000”“00.00”00123.4560123.456，1234.5678“###,##.##”1,234.57%0.123“0.00%”12.30%$1234.5678“$00000.0000”$01234.5678E+1234.5678“0.00E+00”1.23E+03例1.2.5PrivateSubCommand1_Click()PrintPrintPrintTab(20);Format$(123.456,"####.####")PrintTab(20);Format$(123.456,"##.##")PrintTab(20);Format$(123.456,"0000.0000")PrintTab(20);Format$(1234.5678,"00.00")PrintTab(20);Format$(1234.5678,"##,####.##")PrintTab(20);Format$(0.123,"0.00%")PrintTab(20);Format$(1234.5678,"$00000.0000")PrintTab(20);Format$(1234.5678,"￥00000.0000")PrintTab(20);Format$(1234.5678,"$0.00E+00")EndSub一、控制语句——顺序结构(4)MsgBox函数

MsgBox(<提示>[,<按钮类型>][，标题])功能：执行MsgBox函数时，中断程序运行，屏幕弹出一个对话窗口。MsgBox过程

MsgBox<提示>[,<按钮类型>][，<标题>]功能：执行MsgBox过程时，中断程序运行，屏幕弹出一个对话窗口。一、控制语句——顺序结构一、控制语句——顺序结构一、控制语句——顺序结构例1.2.5(教材第四章例4.2)PrivateSubForm_Click()DimDAsStringD=InputBox("请输入朋友的姓名，然后按确立按钮","人机交互",,2000,2000)MsgBox"你的朋友是"&D+"吗？",32,"提示"PrintPrintTab(4);D+"朋友的姓名已输入"EndSub一、控制语句——顺序结构例1.2.6鸡兔问题(调试|逐语句或F8→视图|本地窗口→不断单击F8)PrivateSubCommand1_Click()'鸡兔问题DimhAsIntegerDimfAsIntegerDimxAsIntegerDimyAsIntegerh=Val(Text_h.Text)f=Val(Text_f.Text)x=(4*h-f)/2y=(f-2*h)/2Text_x.Text=xText_y.Text=yEndSub一、控制语句——顺序结构1.3分支结构1.3.1If语句一、控制语句——分支结构If语句又称为分支语句，它有单路分支结构和双路分支结构两种表现形式。(1).单路分支If<表达式>Then<语句序列>EndIf格式二：If<表达式>Then<语句>一、控制语句——分支结构(2).双路分支格式一：If<表达式>Then<语句序列1>Else<语句序列2>EndIf格式二：If<表达式>Then<语句1>Else<语句2>一、控制语句——分支结构〔3〕多路分支语句SelectCase<测试表达式>Case<表达式值列表1><语句序列1>Case<表达式值列表2><语句序列2>…………Case<表达式值列表n><语句序列n>[CaseElse<语句序列n+1>]EndSelect测试表达式：MsgBox的按钮值、数组控件的Index属性值例1.3.1(教材第三章例3.1

)设计一个窗体，利用两个文本框控件，进行短信交互。PrivateSubCmdUser1_Click()IfCmdUser1.Caption="发送"Then'用户1发送信息TxtUser1.Enabled=FalseCmdUser2.Enabled=TrueCmdUser1.Enabled=FalseCmdUser2.Caption="接收"CmdUser2.SetFocusEndIfIfCmdUser1.Caption="接收"Then'用户1接收查看信息CmdUser1.Caption="发送"TxtUser1.Enabled=TrueTxtUser1.Text=TxtUser2.TextTxtUser2.Text=""TxtUser1.SetFocusEndIfEndSub一、控制语句——分支结构PrivateSubCmdUser2_Click()IfCmdUser2.Caption="发送"Then'用户2发送信息TxtUser2.Enabled=FalseCmdUser1.Enabled=TrueCmdUser2.Enabled=FalseCmdUser1.Caption="接收"CmdUser1.SetFocusEndIfIfCmdUser2.Caption="接收"Then'用户2接收查看信息CmdUser2.Caption="发送"TxtUser2.Enabled=TrueTxtUser2.Text=TxtUser1.TextTxtUser1.Text=""TxtUser2.SetFocusEndIfEndSub一、控制语句——分支结构一、控制语句——分支结构例1.3.2比较大小PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger,tAsIntegera=Val(Text_a.Text)b=Val(Text_b.Text)c=Val(Text_c.Text)Ifa>bThent=a:a=b:b=tEndIfIfa>cThent=a:a=c:c=tEndIfIfb>cThent=b:b=c:c=tEndIfText_a2.Text=aText_b2.Text=bText_c2.Text=cEndSub例1.3.3A与B比较OptionExplicit'If...Then…Else语句演示PrivateSubForm_Load()DimAAsIntegerDimBAsIntegerA=90B=100IfA>BThenPrint"A>B"ElsePrint"A<B"EndIfEndSub一、控制语句——分支结构OptionExplicitOptionExplicit'If...Then…ElseIf语句演示PrivateSubForm_Load()DimAAsIntegerDimBAsIntegerA=100B=100IfA>BThenPrint"A>B"ElseIfA<BThenPrint"A<B"ElsePrint"A=B"EndIfEndSub(3)Iif函数格式：Iif(逻辑表达式,表达式,表达式)例：OptionExplicit'IIf函数的使用演示PrivateSubForm_Load()PrintIIf(100>99,100,99)EndSub一、控制语句——分支结构OptionExplicit'SelectCase语句使用演示PrivateSubForm_Load()DiminWeekAsIntegerinWeek=Val(InputBox("请输入星期："))SelectCaseinWeekCase1Print"Monday"Case2Print"Tuesday"Case3Print"Wednesday"Case4Print"Thursday"Case5Print"Friday"Case6Print"Saturday"Case7Print"Sunday"EndSelectEndSub一、控制语句——分支结构例1.3.4SelectCase语句演示星期例1.3.5〔教材第五章例5.3〕创立一个窗体，通过文本框接收数据，计算期末总成绩、平均成绩，再评定等级。等级评定标准是：平均分91~100为“优秀〞，平均分81~90为“良好〞，平均分60~80为“中等〞，平均分60以下为“差〞。DimIAsInteger,totalAsSingle,averAsSinglePrivateSubForm_Load()Frm.ShowTxtName.SetFocusEndSubPrivateSubCmdQuit_Click()EndEndSub一、控制语句——分支结构

PrivateSubCmdAssess_Click()total=Val(TxtChinese.Text)+Val(TxtMath.Text)+Val(TxtEnglish.Text)aver=total/3SelectCaseInt(aver/10)Case9LblResult.Caption=TxtName.Text+"的成绩为："+"优秀"+"总成绩为："+Str(total)+"平均成绩为："+Str(Int(aver*10)/10)Case8LblResult.Caption=TxtName.Text+"的成绩为："+"良好"+"总成绩为：："+Str(total)+"平均成绩为："+Str(Int(aver*10)/10)CaseIs>5LblResult.Caption=TxtName.Text+"的成绩为："+"中等"+"总成绩为：："+Str(total)+"平均成绩为："+Str(Int(aver*10)/10)CaseIs<6LblResult.Caption=TxtName.Text+"的成绩为："+"差"+"总成绩为：："+Str(total)+"平均成绩为："+Str(Int(aver*10)/10)EndSelectEndSub一、控制语句——分支结构1.4.1For循环语句For<循环变量>＝<初值>to<终值>[Step<步长>]<循环体>[ExitFor]Next<循环变量>一、控制语句——循环结构步长>0步长<01.4.2While语句While<循环条件><循环体>Wend与For循环相当I=1While<循环条件><循环体>I=I+1Wend一、控制语句——循环结构1.4.3

Do语句

Do

<循环体>[ExitDo]Loop{While|Until}<循环条件>一、控制语句——循环结构LoopWhile<循环条件>LoopUntil<循环条件>例1.4.1〔教材第五章例5.4〕创立一个窗体，通过循环变量的变化，产生多个随机数，控制输出字符的颜色，同时利用循环变量的变化，确定输出字符的位置。一、控制语句——循环结构DimIAsIntegerDimGreenAsIntegerDimBlueAsIntegerDimRedAsIntegerPrivateSubForm_Click()FontBold=TrueFontName="Arial"FontSize=36RandomizeForI=1To2500Red=(255*Rnd+1)Green=(255*Rnd+1)Blue=(255*Rnd+1)CurrentX=500+ICurrentY=500+IForeColor=RGB(Red,Green,Blue)Print"Hlello"NextIEndSub例1.4.2〔教材第五章例5.5〕创立一个窗体，输入任意自然数N，计算其阶乘。OptionExplicitDimIAsInteger,NAsInteger,FacAsSinglePrivateSubForm_Load()Frm.ShowTxtInput.SetFocusEndSubPrivateSubCmdOk_Click()N=TxtInput.TextFac=1I=1WhileI<=NFac=Fac*II=I+1WendLblResult.Caption=Str(N)&"的阶乘："&Str(Fac)EndSubPrivateSubCmdQuit_Click()EndEndSub一、控制语句——循环结构例1.4.3计算其阶乘OptionExplicit'For…Next语句语句的使用演示PrivateSubForm_Load()DimnAsIntegerDimiAsIntegerDimresultAsDouble'阶乘数值比较大，应声明为Double类型result=1n=Val(InputBox("请输入n的值："))Ifn=0ThenPrint"0！=1"ElseFori=1Tonresult=result*iNextiPrintn&"！="&resultEndIfEndSub例1.4.4〔教材第五章例5.7〕创立一个窗体，在指定的文本框内输入英文信息，按“加密〞按钮，对输入的英文信息加密。假设按“解密〞按钮，可显示原有的信息。DimLAsIntegerDimStrAsStringDimKAsIntegerDimIAsIntegerPrivateSubCmdCls_Click()TxtPassword.Text=""TxtReal.Text=""CmdPassword.Enabled=TrueCmdReal.Enabled=FalseTxtPassword.SetFocusEndSub一、控制语句——循环结构PrivateSubCmdPassword_Click()I=0L=Len(TxtPassword.Text)Str=TxtPassword.TextTxtPassword.Text=""DoWhileI<LI=I+1K=Asc(Mid$(Str,I,1))IfK>=33AndK<=126Th