VB-期末复习试卷-暨南大学

一、单选题（共50小题，每小题1.4分，共70分）1. 以下关于函数过程的叙述中，正确的是 B 。A) 函数过程中的所有形参的类型都必须相同。B) 函数过程的返回值只有一个。C) 当数组作为函数过程的参数时，既能以传值方式传递也能以传址方式传递。D) 如果未指明函数过程参数的类型，则该参数没有数据类型2. 形参可以是 D 。A) 常量B) 数组元素C) 表达式D) 变量3. 下列变量声明错误的是 A 。A) Static Dim s$B) Dim s$C) Static s$D) Static s4. 在VB中，关于数组形参描述错误的是 C 。A) 形参数组的圆括号内空。B) 以数组名加圆括号表示。C) 形参中的数组名后不需加括号。D) 不需要给出数组上界。5. 想从子过程调用后返回一个整数结果，合法的声明是 D 。A) Sub f1(ByVal m%)B) Function f1(m%)C) Sub f1(ByRef m%) as IntegerD) Sub f1(m%)6. 仅供本模块中的其它过程调用的过程需要使用的关键字是 B 。A)publicB)privateC)protectedD) friend7. 下列选项中，合法的变量是 C 。A) REDIMB) 6ABCC) 不可以D) T-1238. 下列选项中，合法的常量是 B 。A) ABC123B) 计算机C) A+20D) 10+209. |x+y|+x2的VB正确表达式为 B .。A) ( X + Y ) + X * XB) Abs( X+Y) + X2C) ( X + Y ) + X 2D) Abs( X+Y) + X*210. 下列选项中，不合法的表达式是 C 。A) 10+20B) 10 & 20C) 10 $ 20D) 10+2011. I = INT(20*Rnd()+20)语句执行后，I值的范围为 A 。A) 2039B) 2040C) 2139D) 214012. 表达式：A & 124 + 45 A5 And Not(6 3 + 4) 的值为 D 。A) A12345B) A5C) TrueD) False13. 以下Case语句中正确的是 A 。A) Case 10 To 50B) Case 10 x 10 And x 10 And Is 5014. 下面程序段运行后显示的结果是 B 。For i = 3 To 1 step -1Print Spc(4 - i);Print String(2 * i - 1, *)Next i*A) B)*C) D) 15. 下列关于DoLoop循环语句描述错误的是 C 。A) Do WhileLoop循环的循环体可能不执行。B) DoLoop Until循环的循环体至少执行一次。C) DoLoop 循环语句是计数型循环语句。D) DoLoop循环用于控制循环次数未知的循环结构。16. 给变量A赋值5，给变量B赋值6，则变量AB的值 D 。A) 为30B) 为11C) 为0D) 不确定17. 为使窗体不显示控制菜单、最大化/最小化和关闭按钮，应将该窗体的_C_属性设置为False。A) MaxButtonB) MinButtonC) ControlBoxD) Visible18. 下列程序段运行结束后，窗体上显示的值为 C 。Dim i as Integer , x%i = 5x = 0For i = 1 to i + 1 x = x + 1Next iPrint xA) 0B) 1C) 6D) 出现“溢出”错误19. 如果f(1) + 15 为合法表达式，则f(1) A 。A) 可能是一个数组元素引用，也可能是一次函数调用B) 一定是一个数组元素引用C) 一定是一次函数调用D) 既不可能是一个数组元素引用，也不可能是一次函数调用20. 数组a是一个存放整型数据的动态数组，执行ReDim 语句后，系统分配1KB的内存空间给数组a存放数据，则数组a包含的元素个数应为 B 。A) 1024B) 512C) 256D) 12821. 在默认情况下，使用语句Dim a(-1 To 10, 2 To 9, 3) As Integer声明的数组a中的元素个数为_B_。A) 270B) 384C) 396D) 28822. 下列程序段运行结束后，窗体上显示的值为 B 。Dim a%(1 to 20) , i%For i = 1 to 20 a(i) = iNext iFor i=2 To 20 a(i)=a(i)+a(i-1)Next iPrint a(10)A) 19B) 55C) 210D) 1023. 设列表框List1中有3个项目，则下列语句在运行时必然发生错误的是 A 。A) List1.List(List1.ListCount+1)= 最末项 在列表框末尾增加一项。B) List1.AddItem 第一项 , 0 在列表框开头插入一项。C) List1.ListIndex = 2 选中列表框第三项。D) List1.RemoveItem List1.ListIndex 移除被选中的项。24. 下列关于数组的特点描述中，错误的是 D 。A) 数组不是一种数据类型B) 声明定长数组时，下界和上界值必须使用常量C) 同一个数组中的所有数组元素的数据类型是相同的D) ReDim语句改变数组大小时，下界和上界值必须使用变量25. 下列语句声明一个包含20个整型数组元素的数组，正确的是 B 。A) Dim d%1,20B) Dim d(1, 9) As IntegerC) Dim d(0,20) as integerD) Dim d%(1 20)26. 下列关于组合框描述错误的是 A 。A) 在组合框的文本框中输入内容，该内容自动添加到其列表框。B) 在组合框的列表框中选中项目，该项目自动显示在其文本框中。C) 组合框的style属性设为2（下拉列表框）时，只能显示和选择，不能输入。D) 组合框兼有文本框与列表框两者的功能特性。27. 下列关于冒泡法排序的描述中，正确的是 A 。A) 对数组中两两相邻的元素比较，若逆序则交换。B) 每次从若干无序数中找最小（大）数，并放在无序数的第一个位置。C) 冒泡排序只能按升序排序。D) 冒泡排序不能对字符串数组排序。28. 下列关于自定义数据类型的说法错误的是 C 。A) 自定义数据类型通过Type语句实现。B) 自定义数据类型变量由若干元素组成。C) 自定义数据类型可在过程内定义。D) 自定义类型也称为记录类型。29. 设数组a有10个元素，下标从1开始，存储着10个互不相同的数，以下程序执行后，窗体上显示的是数组中的 B 。x = a(1)y = a(2) For i = 2 To 10 If a(i) x Then y = x: x = a(i) ElseIf a(i) 0, 1, 0).End SubPrivate Sub Command1_Click()Dim a%, b%a = 1 : b = 2.调用F1语句.End Sub则在事件过程Command1_Click中调用F1的错误语句是 A 。A) Call F1(a + b)B) F1(a)C) F1 aD) Call F1(4)31. 函数DateAdd(m, 2, #6/30/2009#)的值为 A 。A) #8/30/2009#B) #7/2/2009#C) #6/30/2010#D) #2009-6-30#32. 自定义符号常量可使用的关键字是 B 。A) StaticB) ConstC) PublicD) Dim33. 执行语句序列_D_，能使单选按钮Option1和复选框Check1都被选中。A) Option1.Value = TrueCheck1.Value = Not Check1.ValueB) Option1.Value = 1Check1.Value = 0C) Option1.Value = TrueCheck1.Value = TrueD) Option1.Value = TrueCheck1.Value = 134. 下面的控件可作为其他控件容器的是 C 。A) PictureBox和Timer B)Frame和Image C) PictureBox和Frame D) Image和Timer35. 以下叙述中错误的是 C 。A) 一个工程中只能有一个Sub Main过程B) 窗体的Load方法的作用是将指定的窗体装入内存C) 窗体的Hide方法和Unload方法的作用完全相同D) 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体36. 在VB中按文件的访问方式不同，可将文件分为 D 。A) ASCII文件和二进制文件 B) 文本文件和数据文件 C) 数据文件和可执行文件 D) 顺序文件和随机文件 37. 下列关于面向对象程序设计的叙述不正确的是 D 。A) 对象具有属性、方法等特性B) 对象之间的通信产生了消息C) 一个对象是一个软件构造块，它包含数据与相关的操作D) 对象的属性不能被改变38. 下面对语句Open Text.Dat For Output As #1 的功能说明中错误的是 C 。A) 以顺序输出模式打开文件Text.Dat。B) 如果文件Text.Dat不存在，则建立一个新文件。C) 如果文件Text.Dat已存在，则打开该文件，新写入的数据将追加到该文件末尾。D) 如果文件Text.Dat已存在，则打开该文件，新写入的数据将覆盖原有的数据。39. 下列的控件中，不具有Caption属性的是 A 。A) ListBoxB) CheckBoxC) FrameD) OptionButton40. 对于语句If x = 1 Then y = 2 ,下列说法正确的是 B 。A) x = 1 和 y = 2均为关系表达式B) x = 1为关系表达式，y = 2为赋值语句C) x = 1 和 y = 2均为赋值语句D) x = 1为赋值语句，y = 2为关系表达式41. 下列程序当在文本框输入“XYZ”三个字符时，窗体上显示的是 C 。Private Sub Text1_Change()Print Text1.text;End SubA) XYZB) XYZC) XXYXYZD) XXYXYZ42. 对语句Dim m, n as Interger, x as String * 5, y#, z as Variant中声明的变量类型，正确的说法是 C 。A) m,n是整型B) x是5个元素的字符串数组C) y是双精度型D) 只有一个变量是变体型43. 已知S=12345，则表达式Val(Left(S,4) + Right(S,2)的值为 B 。A) 12345B) C) 1279D) 573444. 设变量x为整型，可判断其是否满足条件“大于零的偶数或小于等于零”的是 B 。A) x 0 or x Mod 2=0 or x 0 And x Mod 2=0 or Not x0C) x 0 and x mod 2=1 or x 0 And x Mod 2=0 or x045. 鼠标第二次点击窗体后，显示在窗体上的内容是 A 。Private a% , b%Private Sub Form_Click() Dim a%Static c As Integercls a = a + 1 b = b + 1 c = c + 1 Print a; b; cEnd SubA) 1 2 2B) 1 1 1C) 2 2 2 D) 1 2 146. 单击按钮后，窗体上显示的结果是 D 。Public Sub f1(n%, ByVal m%)n = 2 * nm = m + 2End SubPrivate Sub Command1_Click()Dim x%, y%x = 2y = 4Call f1(x, y)Print x, yEnd SubA) 2 6B) 2 4C) 4 6 D) 4 447. 关于递归正确的描述是 A 。A) 过程的递归调用就是在过程中“自己调用自己”。B) 子过程不允许递归调用。C) 函数过程不允许递归调用。D) 递归过程的代码量太大是造成堆栈溢出的原因。48. 设有下列程序：Function f1%(m%) If m = 1 Then f1 = 0 ElseIf m = 2 Then f1 = 1 Else f1 = f1(m - 1) + f1(m - 2) End IfEnd FunctionPrivate Sub Form_Click() Print f1(4)End Sub窗体上单击鼠标后输出的结果是 C 。A) 0B) 1C)2 D) 349. 要使文本框输入的内容全部显示为“*”，应设置文本框的 C 属性。A) TextB) LockedC) PasswordCharD) MultiLine50. 设定时器Timer1的Interval属性为100，Enabled属性为True。则下面的事件过程在第2次执行结束后， _D_。Private Sub Timer1_Timer() Static x% Dim i%, y% For i = 1 To 4 x = x + i Next i y = xEnd SubA) 变量x和y的值均为0B) 变量x和y的值分别为20和0C) 变量x和y的值均为20D) 变量x的值为20，变量y的值无法确定得分评阅人二、填空题（共10个空，每空2分，共20分）1. VB中函数过程默认的参数传递方式是： 传址方式 。2. 在空白处填入适当的内容，使程序完成下述要求的功能：当拖动水平卷滚条Hscroll1时，在标签Label1中显示该卷滚条当前的值。Private Sub Hscroll1_ Scroll / Chang_() Label1.Caption = Hscroll1._Value _End Sub3. 已知E盘根目录下文本文件In.txt中的文本行数不超过100，本程序段在其每一行首添加行号，再写入同一目录下名为Out.tex的文本文件中。Dim fn as String,strA(100)Dim int1 as Integer,int2 as Integerfn = e:in.txtOpen fn for Input as #10 Open e:Out.tex for output as #2int1 = 0Do Until eof(10) int1 = int1 + 1Line input #10,strA(int1)LoopFor int2 = 1 to int1Print #2, Cstr(int2) & ; strA(int2)Next int2Close4. 完成下面程序段，要求：在351以内（含351）找出被5和7除所得余数均为1的最大的5个正整数。Private Sub Command1_Click() Dim CountM%, M% M = 352 Do M = M - 1 If M mod 5 = 1 and M mod 7 = 1 Then Print M CountM = CountM + 1 End If Loop Until CountM = 5 End Sub5. 随机产生BE范围内的一个大写字符的VB表达式为 chr(int(66 + rnd() * 4) 。(已知A