VB中期测试考试卷（答案）解读 - 图文

江 南 大 学 考 35. 以下关于弹出式菜单的叙述中，错误的是（）。 A. 弹出式菜单在菜单编辑器中建立 B. 一个窗体只能有一个弹出式菜单 C. 弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为False D. 弹出式菜单通过窗体的PopupMenu方法显示 36. 假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是 A. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 1 And Button = 2 Then PopupMenu a1 End Sub B. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu a1 End Sub C. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 1 Then PopupMenu a1 End Sub D. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 2 Then PopupMenu a1 End Sub 37. 窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程。运行上述程序，如下叙述正确的是（）。 Private Sub Command1_Click() A. 打开的对话框中文件“保存类型”框中 CD1.DefaultExt = \显示“All(*.*)” CD1.FileName = \B. 实现保存文件的操作，文件名是VB.txt CD1.Filter= \C. DefaultExt属性与FileName属性所指 CD1.FilterIndex = 1 明的文件类型不一致，程序出错 CD1.ShowSave D. 对话框的Filter属性没有指出txt类型，End Sub 程序运行出错 38. 在窗体上画一个名称为CD1的通用对话框，并有如下程序： Private Sub Form_Load() 程序运行时，如果显示了“打开”对话框， CD1.DefaultExt = \在“文件类型”下拉列表中的默认文件类型 CD1.FileName = \是（）。 CD1.Filter = \应用程序(*.exe)|*.exe\A. 应用程序(*.exe) B. .doc End Sub C. .txt D. 不确定 - ５ -

试 卷 专 用 纸 39. 以下关于通用对话框的叙述中，错误的是（）。 A. 若没有指定InitDir属性值，则起始目录为当前目录 B. 用一个通用对话框控件可以建立几种不同的对话框 C. FilerTitle属性指明了文件对话框中所选择的文件名 D. 文件对话框用属性FilerIndex指定默认过滤器，它是一个从0开始的整数 40. 下列可作为Visual Basic变量名的是（）。 A. A#A B. 4ABC C. ?xy D. Print_Text 41. 以下合法的VB变量名是（）。 A. case B. name10 C. t-name D. x*y 42. 设有如下变量声明语句：Dim a, b As Boolean ，则下面叙述中正确的是（）。 A. a和b都是布尔型变量 B. a是变体型变量，b是布尔型变量 C. a是整型变量，b是布尔型变量 D. a和b都是变体型变量 43. 表达式Int(Rnd(0)*50)所产生的随机数范围是（）。 A. 【0, 50】 B. 【1, 50】 C. 【0, 49】 D. 【1, 49】 44. 下面可以产生20~30（含20和30）的随机整数的表达式是（）。 A. Int(Rnd*10+20) B. Int(Rnd*20+30) C Int(Rnd*11+20). D. Int(Rnd*30+20) 45. 下列表达式中，不能将一个4位整数N的百位数字提取出来的是（）。 A. N \\ 100 Mod 10 B. N \\ 10 Mod 100 C. Mid(CStr(N), 2, 1) D. (N Mod 1000) \\ 100 46. 表达式3*5^2 Mod 23\\3的值是（）。 A. 2 B. 5 C. 6 D. 10 47. 设x是小于10的非负数。对此陈述，以下正确的VB表达式是（）。 A. 0≤x<10 B. 0<=x<10 C. x>=0 and x<10 D. x>=0 or x<=10 48. 设a=1，b=2，c=3，逻辑表达式a < b And Not c > b Xor c < a的值是（） A. True B. -1 C. False D. 1 49. 设a = 2，b = 3，c = 4，d = 5，则下面语句的输出是（） Print 3 > 2 * b Or a = c And b <> c Or c > d A. -1 B. 1 C. True D. False 50. 设x=5，执行语句Print x=x+10，窗体上显示的是（）。 A. 15 B. 5 C. True D. False 51. 若设X=1，Y=2，则不能在窗体上显示出“A=3”的语句是（） A. Print A = X+Y B. Print \C. Print \D. Print \52. 设x = 3.3，y = 4.5，表达式x - Int(x) + Fix(y)的值是（） A. 4.3 B. 4.8 C. 3.5 D. 4.7 53. 下列有关转换函数的说法中，正确的是（）。 A. Int和Cint函数的区别仅在于结果的数据类型不同 B. Int和Fix函数将非整数数据转换成整数，转换后的结果类型是Long C. Cint函数的功能是将其他类型的数据转换成Integer类型 D. 在处理负数时，Int和Fix函数的结果是相同的 - ６ -

江 南 大 学 考 54. 分别执行以下语句，输出结果为True的是（） A. Print CInt(4.5) > Int(4.5) B. Print CInt(-4.5) > Fix(-4.5) C. Print CInt(-4.5) > Int(-4.5) D. Print CInt(4.5) > Fix(4.5) 55. 在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”。现有如下事件过程，运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（）。 Private Sub Text1_Change() Text2.Text = Mid(Text1, 1, 5) End Sub A. DataA B. DataB C. aData D. aBase 56. 设x为字符型变量，n为整型变量，以下关于Mid函数的说法中，错误的是（） A. Mid(x, n)表示从字符串x的第n个位置开始向右取所有字符 B. 若x = \，执行语句Mid(x, 1, 2) = \后，x的值为\C. Mid(x, n, 1)的取值与Left(x, n)的取值相同 D. 使用Mid函数可提取字符串中指定位置、指定个数的字符 57. 设有字符串变量s，其值为“abcd”，可将s的值替换为“aabcd”的语句是（）。 A. Left(s, 1) = \ B. s = \ C. s = \ D. Mid(s, 1, 2) = \ 58. 表达式InStr(4, \的值为（） A. 7 B. 8 C. 5 D. 9 59. 数学表达式x?y?sin(y2xx?y)对应的VB表达式是（） A. Sqr(x + y) - Sin(Abs(y ^ 2 * x) / (x - y)) B. Sqr(x + y) - Sin(Abs(y ^ 2 * x) / x - y) C. Sqr(x + y) - Sin(|y ^ 2 * x|/ (x - y)) D. Sqr(x + y) - Sin(|y ^ 2 * x| / x - y) 60. 对应数学表达式Sin(30)?x?02y?ex?log10n的VB表达式是（）。 A. Sin(30 * 3.14159 / 180) + Abs(x ^ 2 + Sqr(y)) + Exp(x) - Log(n) / Log(10) B. Sin(30) + Abs(x ^ 2 + Sqr(y)) + e ^ x - Log(n) / Log(10) C. Sin(30 * 3.14159 / 180) + Abs(x ^ 2 + Sqr(y)) + Exp(x) - Log(n) D. Sin(30) + Abs(x ^ 2 + Sqr(y)) + e ^ x - Log(n) 61. 窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下。运行程序，单击命令按钮，在输入对话框中分别输入2、3， Private Sub Command1_Click() 运行的结果是（） x = InputBox(\输入x：\A. 程序运行有错误，数据类型不匹配 y = InputBox(\输入y：\B. 程序运行有错误，InputBox函数的格式不对 Label1.Caption = x + y C. 在Label1中显示5 End Sub D. 在Label1中显示23 - ７ -

试 卷 专 用 纸 62. 设程序中有如下语句： 运行程序，执行上述语句，输入5并单击输入对 X = InputBox (\输入\数据\话框上的“取消”按钮，则窗体上输出（）。 Print X A. 0 B. 5 C. 100 D. 空白 63. 在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，则在信息 Private Sub Command1_Click() 框中显示的提示信息为（） MsgBox Str(123 + 321) A. 字符串“123 + 321” B. 字符串“444” End Sub C. 数值“444” D. 空白 64. 下面4个语句中，错误的是（） A. N = InputBox(\输入N：\ B. InputBox(\输入N：\ C. MsgBox \请回答\ D. K = MsgBox(\请回答\65. 以下关于MsgBox函数的说法中，正确的是（）。 A. MsgBox函数有返回值，且返回值类型为数值型 B. MsgBox函数没有返回值 C. MsgBox函数有返回值，且返回值类型为字符型 D. 通过MsgBox函数中的第一个参数，可以设置信息框中的图标以及按钮的个数与类型 66. 以下关于If分支结构语句的说法中，正确的是（）。 A. 有End If一定有与之配对的If B. 有If一定有与之配对的ElseIf C. 有If一定有与之配对的End If D. 有If一定有与之配对的Else 67. 设有分段函数： 下述选项描述错误的是（）。 B. If x < 0 Then y = 5 Elseif x <= 5 then y = 2 * x A. Select Case x Else Case Is<0 : Y=5 y = x * x + 1 Case Is <=5,Is>0 : Y=2*x End if Case else : Y= x * x + 1 D. If x < 0 Then y = 5 End select If x <= 5 and x>=0 then y = 2 * x C. Y = IIf (x < 0, 5, IIf(x <= 5, 2 * x, x * x + 1)) If x > 5 then y = x * x + 1 68. 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件 Private Sub Command1_Click() 过程。程序运行时，如果在文 x! = Val(Text1.Text) 本框中输入-5，则在单击命令 Select Case x 按钮后的输出结果是（）。 Case Is < -10, Is >= 20 : Print \输入错误\A. 25 B. 20 Case Is < 0 : Print 20 - x C. 5 D. 输入错误 Case Is < 10 : Print 20 Case Is <= 20 : Print x + 10 End Select End Sub - ８ -