VB期末复习卷

练习卷一一、语言基础题（40分）判断题（本题10分，每小题1分）1.在通用对象声明部分，用Private和Dim关键字声明的变量没有什么区别。

2.VB中不随时间改变的量，是常量。

如”Visual Basic”、”3+5”是字符串常量，123.456@、&H7FFFF是数值常量，5/22/99是日期/时间常量。

3.如果用户不需要函数的返回值，可以用与调用过程相同的方法来调用函数。

4.Do ----Loop语句是循环结构的一种特殊形式，如果循环体中没有Exit Do语句，程序运行就一定会进入死循环。

5.在Visual Basic中，当调用过程时，缺省状态为按地址传递参数。

6.如果对窗体上的Command按钮编写了KeyPress事件代码，那么任何时刻按键盘上的某个键，都会触发该对象的KeyPress事件。

7.组合框控件是组合列表框和文本框的特性而成的控件，所以它能够象列表框一样选择信息，也可以输入信息，存放在Text属性中。

8.单选钮和复选框控件都具有Value属性，它们的数据类型都是布尔型的。

9.一个菜单项也是一个对象，它不能和当前窗体中的任何对象同名。

10.DriveListBox，DirListBox和FileListBox是三个与文件操作有关的控件，它们都有Path属性，用来返回或设置操作的路径。

单选题（本题10分，每小题1分）1.对象可以识别和响应的某些操行为称为(1) 。

[A] 属性[B] 方法[C] 继承[D] 事件2.Double类型的数据由几个字节组成：(2) 。

[A] 2l [B] 4 [C] 8 [D] 163.要声明一个长度为256个字符的定长字符串变量str，(3) 语句是正确的。

[A] Dim str as String [B] Dim str as String(256)[C] Dim str as String[256] [D] Dim str as String*2564.以下哪种控件不可以包含其他控件(4) 。

[A] PictureBox [B] Frame [C] Image [D] Form5.用于获取字符串长度的函数是(5) 。

[A] Len() [B] Length() [C] StrLen() [D] LOF()6.单击滚动条两端的滚动箭头，将触发它的(6) 事件。

[A] Scroll [B] SmallChange或LargeChange[C] KeyDown [D] Change7.将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该控件的(7) 方法。

[A] ShowOpen [B] ShowSave [C] ShowColor [D] ShowFont8.通常用户自己编写对话框，窗体最好是大小不变的，应该设置窗体以下的(8) 属性。

[A] ScaleWidth和ScaleHeight [B] BorderStyle[C] AutoSize [D] ScaleMode9.a和b中有且只有一个为0，可以用以下的表达式来表示(9) 。

[A] a = 0 Or b = 0 [B] a = 0 Xor b = 0[C] a * b = 0 And a + b <> 0 [D] a = 0 And Not b = 0 And b = 0 And Not a = 010.以下程序代码能执行的是(10) 。

[A] If a = 1 Then b = 0 Else c = 0 End If[B] If a = 1 Then : b = 0 : ElseIf c = 0 Then : d = 0[C] If a = 1 Then [D] If a = 1 Thenb = 0 b = 0ElseIf c = 0 Then ElseIf c = 0d = 0 d = 0End If End If填空题（本题20分，每小题2分）1. 将数学式2222323y x b a y ++⋅+写成VB 表达式 。

2.语句Option Explicit 的作用是 。

3.声明一个值为3.14的常量Pi 的语句为 。

4.循环结构的三种语句是： 、 、 。

5.设A=7，B=2，C=3，表达式A < B And Not C > A Or C > B And Not A < B 的结果是 。

6.设X 是大于300且能被3整除的奇数，写出关于X 的表达式 。

7.写出For I = -12 To -33 Step -4 所进行的循环次数 。

8.写出语句Circle (3000, 3000), 1000, , -3.14 / 2, -3.14 * 3 / 2运行的结果 。

9. 程序中要求弹出打印对话窗口，如果用通用对话框CommonDialog1来完成，其语句为 。

10. 在菜单设计中，如果要生成某菜单项中的一个“访问键”，可以在标题中特定的英文字母前加上符号 ，这样用户通过按住Alt+此字母就可以选择此菜单项。

二、 程序阅读题（本题20分，每小题5分）阅读下列程序，写出运行结果。

1. 程序1Private Sub Command1_Click()x$ = "abcdefghijkl"d = Asc("a") - Asc("A")n% = Len(x)y$ = ""For i = 1 To n Step 2y = Chr(Asc(Mid(x, i, 1)) - d) + yNext iPrint yEnd Sub写出单击Command1按钮后，屏幕上显示的结果2. 程序2Private Sub Command1_Click()i = 1Do While i <= 5Print "f("; i; ")="; sq(i * i - 1)i = i + 1LoopEnd SubFunction sq(x)x = x + 2sq = x * 4 - 5End Function写出单击Command1按钮后，屏幕上显示的结果3. 程序3Dim x As IntegerPrivate Sub cmdyes_click()Static k As IntegerDim j As Integerx = 3If k Mod 3 ThenCall delete(k)ElseCall appe(j, x)End Ifk = k + 2j = j + kPrint x, j, kEnd SubPrivate Sub delete(x As Integer)x = x - 1k = k - 2j = j - 4Print x, j, kEnd SubPrivate Sub appe(ByVal x As Integer, ByRef y As Integer) x = x + 2y = y + 3j = j + 1k = k + 5Print x, j, kEnd Sub写出程序运行后，对cmdyes按扭连击2次的结果4.程序4Private Sub Form_Click()Dim I As Integer, J As IntegerJ = 1Do Until I = 1 And J = -1If I = 4 Then J = -JI = I + Jprintit "!", 5 - Iprintit "$", 2 * I - 1printit "!", 5 - IPrintLoopEnd SubSub printit(astring, howstring)For J = 1 To howstringPrint astring;Next JEnd Sub写出程序运行后，单击窗体后，Form1上显示的结果三、程序填空题（本题20分，每空2分）1.下列程序段是计算1+2!+3!+4!+...+20!，并打印出来。

Option Explicit（1）Private Sub Form_Click()Dim S As Single, j As IntegerFor j = 1 To 20nfactor （2）S = S + FNext jForm1.Print "S = "; SEnd SubSub nfactor(ByVal n As Double)Dim I As Integer（3）nfactor = 1For I = 1 To nnfactor = nfactor * INext I（4）End Sub2.下列程序段将十进制数转换为十六进制数。

单击窗体，弹出InputBox对话框，让用户输入一个十进制数；单击“确定”后，在Label1上显示出十六进制数的结果。

如果输入的不是十进制数，在Label1上显示出"你输入的不是十进制数"，退回到窗体状态，让用户继续输入。

Private Sub Form_Click()Dim sHex As String, nDec As Integer, Ys As IntegerDim Ai As StringnDec = Val(InputBox("请输入一个十进制数"))While （5）Ys = （6）Select Case YsCase 10Ai = "A"Case 11Ai = "B"Case 12Ai = "C"Case 13Ai = "D"Case 14Ai = "E"Case 15Ai = "F"Case 0 To 9（7）Case ElseLabel1 = "你输入的不是十进制数"（8）End SelectsHex = （9）nDec = nDec \ 16WendLabel1 = （10）End Sub四、 程序设计题（本题20分，每小题10分）1. 求公式： （1）直到n=50时的e 值；（2）直到最后一项小于10-6时e 的值（注：程序代码写在命令按钮Command1和Command2的Click 事件中。

）2. 程序运行界面如下图：要求程序开始后，按Command1按钮，Label1会移动，碰壁后能改变方向，同时Label1的字符会显示出上下左右移动的方向，要求移动的方向与显示的字符一致。

移动的位移值由Text1和Text2输入，时间隔的毫秒数由Text3输入。