VB复习学案.doc

复习学案注意：请认真阅读各个窗体的操作要求及括号内的提示，完善“VB复习工程”半成品。有能力的同学再完成后面的拓展练习。本节课上交作业内容：请按照“VB复习+班级+姓名+6.4”建立压缩文件，将本工程的可执行文件（即“VB复习工程.exe”）和本复习学案文件（即“VB复习学案.doc”）添加到该压缩文件中并上交到教师机。复习要点一：为窗体添加控件，修改控件属性、添加事件代码。操作：把Form1的标题改为“VB复习”。 操作： 为Form1添加一个“退出”按钮，并将“退出”字样设置为宋体，加粗，小四。为该按钮选择合适的事件过程，添加合适的代码。操作：将文本框Text1的背景颜色改成自己喜欢的颜色（BackColor属性），并将显示内容修改为自己的名字。复习要点二：调试程序之For循环语句操作：运行并调试程序，在“打印星号”的代码窗口中，有两处错误，请改正，使程序能够正确运行。复习要点三：调试程序之If选择语句操作：运行并调试程序，在“找出不同的字”的代码窗口中，有四处错误，请改正，使程序能够正确运行。程序调试正确后，保存工程文件，保存每个窗体文件。生成“VB复习工程.exe”。知识拓展练习：例题1：下列控件中可用于接受用户输入文本，又可用于显示文本的是（ ）(A)Label控件 (B)TextBox控件(C)Timer控件 (D)CommandButton控件例题2：填空1、 直接（ ）击某控件可为该控件添加事件代码。2、 “退出”的核心代码是哪个单词（ ）3、 是指（ ）控件的（ ）事件。例题3：下列VB程序语句正确的是（ ）(A) If a b Then max = a Else max = b End If(B) If a b Then max = a Else max = b End If(C) IfA=BThen T=A A=B B=T(D) IfA=BThenT=A A=B B=T例题4：下面程序段的循环次数是 （ ）次。 Forj=8To35 Step3 Printj Nextj(A)10 (B)9 (C)27 (D)28例题5：请将下面程序填写完整（共两处）。 For i = 1 To 64 If sj = i Then a = cw(cs) Else a = zq(cs) Text1.Text = Text1.Text + a 例题6：某Visual Basic程序的一个事件过程如下：Private Sub Command1_Click() Dim x As Single Dim y As Single x = -10 y = Abc(x) Label1.Caption = Str(y) End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是（ ）（A）Dim y As Single（B）x = -10（C）y = Abc(x)（D）Label1.Caption = Str(y)例题7：某Visual Basic程序的一个事件过程如下：Private Sub Command1_Click() Dim a As Integer Dim x As Double a = -4 x = Sqr(a) Label1.Caption = Str(x)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（ ）（A）Dim a As Integer（B）Dim x As Double（C）x = Sqr(a)（D）Label1.Caption = Str(x)例题8：某下列Visual Basic程序用于计算1010的值：Private Sub Command1_Click() Dim n As Integer, s As Integer n = 10 s = 10 n Text1.Text = Str(s)End Sub运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（ ）（A）变量s的数据类型说明不当（B）变量n的数据类型说明不当（C）文本框Text1的宽度不够（D）s值太大，因此不能在文本框Text1中输出例题9：某Visual Basic程序的一个事件过程如下：Private Sub Command1_Click() Dim r As Single Dim pi As Double r = 100 pi = 3.14 Label1.Caption = 圆面积为： + Val(pi * r * r)End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的语句是（ ）（A）Dim r As Single（B）Dim pi As Double（C）pi = 3.14（D）Label1.Caption = 圆面积为： + Val(pi * r * r)例题10：某Visual Basic 程序如下：Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 10 To 2 Step -2 sum = sum + iNext itext1.Text = Str(sum) End Sub运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（ ）（A）sum = 0 （B）For i = 10 To 2 Step -2（C）sum = sum + i （D）text1.Text = Str(sum)（浙江省2012年会考试题）例题11：某Visual Basic 程序如下： Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim i As Integer Fo