学期阶段性复习.ppt

李振华 相邸镇初级中学 2013-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(，缺省，)例Private Sub Form_Load()Sname=InputBox(请输入参赛者姓名，然后按确定按钮,知识竞赛,200,200)Print SnameEnd Sub,一、控制语句顺序结构,(3)Print语句.Print，|；功能：在指定的对象上输出中各元素的值。Print的相关函数Tab()函数Tab(N)功能：把光标移到由N确定的位置。Spc()函数Spc(N)功能：光标移到N个空格之后的位置。Cls方法.Cls功能：清除由Print方法显示的信息。Format$函数 Format$（表达式，格式字符串）功能：将数值、字符串或日期等数据按照指定的格式生成字符串。,例Private Sub Command1_Click()a=123:b=456:c=789 Form1.Print a;b;c 输出在窗体Form1上 Print 中华,天下,a+b+c 输出在窗体Form1上 Picture1.Print 中华,天下,a+b+c 输出在图片框Picture1上 Debug.Print 中华,天下,a+b+c 输出在立即窗口上 Printer.Print 中华,天下,a+b+c 在打印机上输出End Sub,一、控制语句顺序结构,例Private Sub Command1_Click()Print Print 123;456;789 Print 123,456,789 Print Tab(4);1234567890 Print Tab(4),1234567890 Print Spc(4);1234567890 Print Spc(4);1234567890 Print 123;456;789 Print 123,456,789 Print 123;Print 456,Print 789End Sub,一、控制语句顺序结构,例Private Sub Command1_Click()Print Tab(1);String(13,*)Print Tab(2);String(11,*)Print Tab(3);String(9,*)Print Tab(4);String(7,*)Print Tab(5);String(5,*)Print Tab(6);String(3,*)Print Tab(7);String(1,*)End Sub,一、控制语句顺序结构,Private Sub Command1_Click()For I=1 To 7 Print Tab(I);String(15-2*I,*)Next IEnd Sub,Format$函数 Format$（表达式，格式字符串）功能：将数值、字符串或日期等数据按照指定的格式生成字符串。,一、控制语句顺序结构,例Private Sub Command1_Click()Print Print Print Tab(20);Format$(123.456,#.#)Print Tab(20);Format$(123.456,#.#)Print Tab(20);Format$(123.456,0000.0000)Print Tab(20);Format$(1234.5678,00.00)Print Tab(20);Format$(1234.5678,#,#.#)Print Tab(20);Format$(0.123,0.00%)Print Tab(20);Format$(1234.5678,$00000.0000)Print Tab(20);Format$(1234.5678,￥00000.0000)Print Tab(20);Format$(1234.5678,$0.00E+00)End Sub,一、控制语句顺序结构,(4)MsgBox函数 MsgBox(,，标题)功能：执行MsgBox函数时，中断程序运行，屏幕弹出一个对话窗口。MsgBox过程 MsgBox,，功能：执行MsgBox过程时，中断程序运行，屏幕弹出一个对话窗口。,一、控制语句顺序结构,一、控制语句顺序结构,一、控制语句顺序结构,例1.2.5(教材第四章例4.2)Private Sub Form_Click()Dim D As String D=InputBox(请输入朋友的姓名，然后按确立按钮,人机交互,2000,2000)MsgBox 你的朋友是 D+朋友的姓名已输入End Sub,一、控制语句顺序结构,例鸡兔问题(调试|逐语句或F8视图|本地窗口不断单击F8)Private Sub Command1_Click()鸡兔问题 Dim h As Integer Dim f As Integer Dim x As Integer Dim y As Integer h=Val(Text_h.Text)f=Val(Text_f.Text)x=(4*h-f)/2 y=(f-2*h)/2 Text_x.Text=x Text_y.Text=yEnd Sub,一、控制语句顺序结构,1.3分支结构1.3.1 If语句,一、控制语句分支结构,If语句又称为分支语句，它有单路分支结构和双路分支结构两种表现形式。(1).单路分支If ThenEnd If格式二：If Then,一、控制语句分支结构,(2).双路分支格式一：If ThenElseEnd If格式二：If Then Else,一、控制语句分支结构,（3）多路分支语句 Select Case Case Case Case Case ElseEnd Select,测试表达式：MsgBox的按钮值、数组控件的Index属性值,例1.3.1(教材第三章例3.1)设计一个窗体，利用两个文本框控件，进行短信交互。,Private Sub CmdUser1_Click()If CmdUser1.Caption=发送 Then 用户1发送信息 TxtUser1.Enabled=False CmdUser2.Enabled=True CmdUser1.Enabled=False CmdUser2.Caption=接收 CmdUser2.SetFocus End If If CmdUser1.Caption=接收 Then 用户1接收查看信息 CmdUser1.Caption=发送 TxtUser1.Enabled=True TxtUser1.Text=TxtUser2.Text TxtUser2.Text=TxtUser1.SetFocus End IfEnd Sub,一、控制语句分支结构,Private Sub CmdUser2_Click()If CmdUser2.Caption=发送 Then 用户2发送信息 TxtUser2.Enabled=False CmdUser1.Enabled=True CmdUser2.Enabled=False CmdUser1.Caption=接收 CmdUser1.SetFocus End If If CmdUser2.Caption=接收 Then 用户2接收查看信息 CmdUser2.Caption=发送 TxtUser2.Enabled=True TxtUser2.Text=TxtUser1.Text TxtUser1.Text=TxtUser2.SetFocus End IfEnd Sub,一、控制语句分支结构,一、控制语句分支结构,例比较大小Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,t As Integer a=Val(Text_a.Text)b=Val(Text_b.Text)c=Val(Text_c.Text)If a b Then t=a:a=b:b=t End If If a c Then t=a:a=c:c=t End If If b c Then t=b:b=c:c=t End If Text_a2.Text=a Text_b2.Text=b Text_c2.Text=cEnd Sub,例A与B比较Option ExplicitIf.ThenElse语句演示Private Sub Form_Load()Dim A As Integer Dim B As Integer A=90 B=100 If A B Then Print AB Else Print AB End IfEnd Sub,一、控制语句分支结构,Option ExplicitOption ExplicitIf.ThenElseIf语句演示Private Sub Form_Load()Dim A As Integer Dim B As Integer A=100 B=100 If A B Then Print AB ElseIf A B Then Print AB Else Print A=B End IfEnd Sub,(3)Iif函数格式：Iif(逻辑表达式,表达式,表达式)例：Option ExplicitIIf函数的使用演示Private Sub Form_Load()Print IIf(100 99,100,99)End Sub,一、控制语句分支结构,Option ExplicitSelect Case语句使用演示Private Sub Form_Load()Dim inWeek As Integer inWeek=Val(InputBox(请输入星期：)Select Case inWeek Case 1 Print Monday Case 2 Print Tuesday Case 3 Print Wednesday Case 4 Print Thursday Case 5 Print Friday Case 6 Print Saturday Case 7 Print Sunday End SelectEnd Sub,一、控制语句分支结构,例Select Case语句演示星期,例（教材第五章例5.3）创建一个窗体，通过文本框接收数据，计算期末总成绩、平均成绩，再评定等级。等级评定标准是：平均分91 100为“优秀”，平均分81 90为“良好”，平均分60 80为“中等”，平均分60以下为“差”。,Dim I As Integer,total As Single,aver As SinglePrivate Sub Form_Load()Frm.Show TxtName.SetFocusEnd Sub,Private Sub CmdQuit_Click()EndEnd Sub,一、控制语句分支结构,Private Sub CmdAssess_Click()total=Val(TxtChinese.Text)+Val(TxtMath.Text)+Val(TxtEnglish.Text)aver=total/3 Select Case Int(aver/10)Case 9 LblResult.Caption=TxtName.Text+的成绩为：+优秀+总成绩为：+Str(total)+平均成绩为：+Str(Int(aver*10)/10)Case 8 LblResult.Caption=TxtName.Text+的成绩为：+良好+总成绩为：+Str(total)+平均成绩为：+Str(Int(aver*10)/10)Case Is 5 LblResult.Caption=TxtName.Text+的成绩为：+中等+总成绩为：+Str(total)+平均成绩为：+Str(Int(aver*10)/10)Case Is 6 LblResult.Caption=TxtName.Text+的成绩为：+差+总成绩为：+Str(total)+平均成绩为：+Str(Int(aver*10)/10)End SelectEnd Sub,一、控制语句分支结构,1.4.1 For循环语句For to Step Exit ForNext,一、控制语句循环结构,步长0,步长0,1.4.2 While语句While Wend与For循环相当I=1While I=I+1Wend,一、控制语句循环结构,Do语句 Do Exit Do Loop While|Until,一、控制语句循环结构,Loop While,Loop Until,例（教材第五章例5.4）创建一个窗体，通过循环变量的变化，产生多个随机数，控制输出字符的颜色，同时利用循环变量的变化，确定输出字符的位置。,一、控制语句循环结构,Dim I As IntegerDim Green As IntegerDim Blue As IntegerDim Red As IntegerPrivate Sub Form_Click()FontBold=True FontName=Arial FontSize=36 Randomize For I=1 To 2500 Red=(255*Rnd+1)Green=(255*Rnd+1)Blue=(255*Rnd+1)CurrentX=500+I CurrentY=500+I ForeColor=RGB(Red,Green,Blue)Print Hlello Next IEnd Sub,例（教材第五章例5.5）创建一个窗体，输入任意自然数N，计算其阶乘。Option ExplicitDim I As Integer,N As Integer,Fac As Single Private Sub Form_Load()Frm.Show TxtInput.SetFocus End Sub Private Sub CmdOk_Click()N=TxtInput.Text Fac=1 I=1 While I=N Fac=Fac*I I=I+1 Wend LblResult.Caption=Str(N)&的阶乘：&Str(Fac)End Sub Private Sub CmdQuit_Click()End End Sub,一、控制语句循环结构,例计算其阶乘 Option ExplicitForNext语句语句的使用演示Private Sub Form_Load()Dim n As Integer Dim i As Integer Dim result As Double 阶乘数值比较大，应声明为Double类型 result=1 n=Val(InputBox(请输入n的值：)If n=0 Then Print 0！=1 Else For i=1 To n result=result*i Next i Print n&！=&result End IfEnd Sub,例（教材第五章例5.7）创建一个窗体，在指定的文本框内输入英文信息，按“加密”按钮，对输入的英文信息加密。若按“解密”按钮，可显示原有的信息。Dim L As IntegerDim Str As StringDim K As IntegerDim I As IntegerPrivate Sub CmdCls_Click()TxtPassword.Text=TxtReal.Text=CmdPassword.Enabled=True CmdReal.Enabled=False TxtPassword.SetFocusEnd Sub,一、控制语句循环结构,Private Sub CmdPassword_Click()I=0 L=Len(TxtPassword.Text)Str=TxtPassword.Text TxtPassword.Text=Do While I=33 And K=126 Then K=159-K TxtPassword.Text=TxtPassword.Text&Chr(K)Loop CmdPassword.Enabled=False CmdReal.Enabled=TrueEnd Sub,Private Sub CmdReal_Click()I=0 L=Len(TxtPassword.Text)Str=TxtPassword.Text Do While I=33 And K=126 Then K=159-K TxtReal.Text=TxtReal.Text&Chr(K)Loop CmdReal.Enabled=FalseEnd Sub,一、控制语句循环结构,Option ExplicitPrivate Sub Form_Load()Dim i As Integer Dim j As Integer Print String(56,-)Print Tab(25);九九乘法表 标题 Print String(56,-)For i=0 To 9 Print Tab(i*6);i;打印第一行数字 Next i Print 换行 For j=1 To 9 外循环结构 Print j;For i=1 To j 内循环结构 Print Tab(i*6);j*i;计算并打印乘积 Next i Print 换行 Next jEnd Sub,一、控制语句循环结构,例九九乘法,李振华 相邸镇初级中学 2013-6-17,