2024年3月25日发(作者：)
1、 下列叙述中，错误的是（B ）。
A、 VB程序代码不区分字母大小写
B、 VB程序代码中使用“//”表示注释一行
C、 VB程序代码中不能使用数字作为标识符的首字符
D、 VB程序代码以“回车换行”作为语句结束标志
2、 下列关于VB代码编辑时常用组合键的叙述错误的是（C
A、 Ctrl＋C表示复制选定代码
B、 Ctrl＋X表示剪切选定代码
C、 Ctrl＋P表示粘贴代码
D、 Ctrl＋Y表示删除整行代码
3、 用户自定义数据类型的成员不能是（ A）。
A、 数组
B、 日期型
。）
C、 货币型
D、 定长字符串
4、 如要表示一个在100～300000之间变化的整数，应使用（ C）型变量。
A、 Integer
B、 String
C、 Long
D、 Byte
5、 下列赋值语句中，正确的是（C ）。
A、 i + j = 10
B、 2i = j
C、 j = i + j
D、 i = j = 0
6、 能正确表达2的3次幂的表达式是（B 。 ）
A、 2 * 3
B、 2 ^ 3
C、 2 ** 3
D、 2 & 3
7、 表达式123 + 23 Mod 100 7的值是（D ）。
A、 6
B、 126
C、 20
D、 132
8、 表达式12000 + "123" & 100的值是（A ）。
A、 "12123100"
B、 12223
C、 24300
D、 "12223"
9、 下列表达式中，非法的是（ C ）。
A、 a B、 a>b+c C、 a≠b>c D、 a=b+c 10、 表达式23 + 23 Mod 50 7的值是（C）。 A、 23 B、 46 C、 25 D、 123 11、 下列表达式的值为15的是（C ）。 A、 Int(14.6) B、 Fix(14.6) C、 Round(15.3)（该函数是按照指定的小数位数进行四舍五入运算的结果） D、 Trunc(15.3) 12、 返回值为非字符串的函数是（ C ）。 A、 Ucase B、 Str C、 Asc D、 Chr 13、 Print方法紧密输出时，用（D ）分隔多个表达式。 A、 空格 B、 逗号 C、 冒号 D、 分号 14、 以下程序段中有（C ）处错误。 ReDim a As Integer n + 3 = n a = 0 ; b = 1 Print n + 3 = n A、 1 B、 2 C、 3 D、 4 15、 下列语句中能清除运行时在窗体中显示的文本的是（ A、 B、 C、 e A ）。 D、 16、 在立即窗口中执行语句：a=InputBox("请输入姓名：","姓名","张三"),出现输入 对话框后直接选择"确定"按纽后，a的值为（B）。 A、 姓名 B、 张三 C、 请输入姓名： D、 以上都不对 17、 在属性窗口设置窗体的Moveable属性为False，使得窗体（B A、 不可见 B、 不可移动 C、 不可放大 D、 不可激活 18、 要为窗体设置一幅背景图片，应设置（ D ）属性。 A、 BackImage 。 ） B、 Image C、 Icon D、 Picture 19、 能模式显示Form1窗口的语句是（C ）。 A、 B、 C、 vbModal D、 vbModal 20、 下列控件属性赋值语句错误的是（D ）。 A、 Label1 = "欢迎" B、 = "欢迎" C、 Text1 = "欢迎" D、 Text = "欢迎" 21、 文本框没有（ D）属性。 A、 Name B、 Left C、 Font D、 Caption 22、 能使文本框Text1中文本不可编辑的语句是（D ）。 A、 le = False B、 d = True C、 p = False D、 = True 23、 窗体上有文本框Text1和命令按钮Command1，对Command1编写如下事件 过程： Private Sub Command1_Click() = "12345" rt = 1 gth = 3 MsgBox t End Sub 运行时，单击命令按钮，出现的信息框显示（B ）。 A、 12345 B、 234 C、 123 D、 "345" 24、 在窗体上有一个名称为Text1的文本框，要得到在其中输入字符的ASCII码， 应使用它的（ A ）事件。 A、 KeyPress B、 KeyUp C、 KeyDown D、 Change 25、 要用文本框控件Text1实现一个密码输入框，可以通过（ A ）设置，使得无论 用户输入什么字符文本框只显示“*”。 A、 rdChar = "*" B、 = "*" C、 = "*" D、 ance = "*" 26、 下列语句中，除（ ）以外，都能使文本框Text1不可编辑（ C A、 = True B、 e = False C、 ly = True D、 d = False 27、 Pset方法绘制的点的大小受其容器对象的（ A ）属性的影响。 A、 DrawWidth 。 ） B、 Picture C、 AutoRedraw D、 Stretch 28、 下列（ B ）方法可以将复选框设置为图形复选框。 A、 = 0 B、 = 1 C、 e = 0 D、 e = 1 29、 窗体上有一个单选按钮Option1。如要求当窗体初始显示时Option1就处于选 中状态，可以通过（ C ）实现。 A、 在窗体的Load事件过程中加入语句： = False B、 在窗体的Show事件过程中加入语句： = False C、 在窗体的Load事件过程中加入语句： = True D、 在窗体的Show事件过程中加入语句： = True 30、 下列叙述中，错误的是（D ）。 A、 单击命令按钮可触发MouseDown事件 B、 单击命令按钮可触发MouseUp事件 C、 命令按钮支持单击事件 D、 命令按钮支持双击事件 31、 执行（B ）语句，可使窗口的按钮Command1上显示“确定”。 A、 = "确定" B、 n = "确定" C、 = "确定" D、 e = "确定" 32、 下列语句（A ）可以使命令按钮Command1处于禁止状态。 A、 d = False B、 ed = False C、 d = True D、 ed = True 33、 应通过（A ）属性装入命令按钮处于激活状态时显示的图片。 A、 B、 C、 D、 34、 A、 B、 C、 D、 35、 通过对（ Picture EnabledPicture DownPicture DisabledPicture 下列语句（D ）可以设置命令按钮Command1的标题字体为黑体。 = "黑体" = "黑体" me = "黑体" me = "黑体" 要设计一个图形方式的命令按钮，且按钮被按下与不按下时显示不同的图像，可 D ）属性进行设置。 A、 Picture、DisabledPicture B、 Picture、DownPicture C、 Style、Picture和DisabledPicture D、 Style、Picture和DownPicture 36、 设置列表框的（A ）属性可以使每个列表项前面出现一个复选框。 A、 Style B、 Sorted C、 MultiSelect D、 ListCheck 37、 设有两个列表框控件List1和List2，下列代码段的功能是（ C ）。 For i = 0 To unt - 1 (i) = (i) Next i A、 将List1的所有列表项追加到List2中 B、 将List1的所有列表项插入到List2的前部 C、 用List1的所有列表项覆盖List2中对应位置的列表项 D、 用List1取代List2 38、 设组合框Combo1中有5个选项，下列能删除最后一项的语句是（D）。 A、 Item Text B、 Item unt C、 Item 5 D、 Item 4 39、 若列表框List1中有5个选项，下列（A）语句可以把选项"Visual Basic"添加到 列表框的最后一项。 A、 m "Visual Basic" , unt B、 m "Visual Basic" , unt-1 C、 m "Visual Basic" , 4 D、 m 4 , "Visual Basic" 40、 下列关于框架及其内部放置的命令按钮的叙述，错误的是（D ）。 A、 命令按钮跟随框架一起移动 B、 如果框架被禁止，则命令按钮也被禁止 C、 如果框架不可见，则命令按钮也不可见 D、 单击框架时，框架和命令按钮的Click事件同时被激发 41、 当用户单击滚动条的空白处时，滑块移动的增量值由（ A、 SmallChange B、 LargeChange C、 Min D、 Max 42、 当控件失去焦点时，触发的事件是（C ）。 A、 GotFocus ）属性决定。 B B、 SetFocus C、 LostFocus D、 MoveFocus 43、 当文本框的TabStop属性设为False时，下列叙述正确的是（D A、 该文本框无法获得焦点 B、 无法在该文本框中输入文本 C、 焦点将始终停留在该文本框上 D、 该文本框无法通过使用Tab键获得焦点 44、 使用（D ）语句可使窗体的鼠标指针呈现“沙漏”型。 A、 ointer = vbArrow B、 ointer = vbCustom C、 ointer = vbCross D、 ointer = vbHourglass 。） 45、 在程序运行时，按Tab键跳过了一个可以获得焦点的控件(如文本框),这可能是 因为（D）。 A、 该控件的Enabled属性为True B、 该控件的Enabled属性为False C、 该控件的TabStop属性为True D、 该控件的TabStop属性为False 46、 执行下列程序段后，窗体输出的结果是（A ）。 Dim X As Integer, Y As Integer Y = Val(InputBox("请输入a的值", , 9)) '直接按回车键 Select Case Y Case Is < 10 x = x + 1 Case 5, 7, 9, 11 x = x + 2 Case 5 To 15 x = x + 3 Case Else x = x + 4 End Select Print x A、 1 B、 2 C、 5 D、 6 47、 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim a%, b% a = 6: b = -1 If a < 0 Or b < 0 Then a = b ElseIf a > 0 Then a = a + b ElseIf a < 0 And b < 0 Then b = a Else b = a * b End If Print a, b End Sub 运行时，单击按钮，窗体输出的结果为（D 。） A、 6 6 B、 5 -1 C、 6 -6 D、 -1 -1 48、 下列程序段的执行结果是（C）。 Dim x As Double Dim y As Double x = Int(42 4) + 3 Select Case x Case Is < 3 y = x + 1 Case Is < 12 y = 2 * x + 5 Case Else y = 3 * x + 11 End Select Print y A、 25 B、 75 C、 50 D、 14 49、 下列程序段的执行结果是（C）。 x = 5: y = 7: z = 4 If x < y Then t = x: x = y: y = t End If If y < z Then t = y: y = z: z = t If x < y Then t = x: x = y: y = t End If End If Print x, y, z A、 5 7 4 B、 4 5 7 C、 7 5 4 D、 5 4 7 50、 运行下列程序，单击窗体后输出结果是（B Private Sub Form_Click() 。 ） Dim i%, j%, k% i = 1: j = 1: k = 10 Do While i <= k j = j + 2 i = i + 2 Loop Print j End Sub A、 9 B、 11 C、 13 D、 21 51、 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, j% For i = 1 To 3 For j = 0 To i Print Chr$(48 + i); Next j Print Next i End Sub 运行时，单击按钮，输出结果是（C A、 123 B、 1 22 。 ） 333 C、 11 222 3333 D、 0 11 222 3333 52、 窗体上有文本框Text1和命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, x% For i = 1 To 100 i = i + 2 x = x + 2 If i > 10 Then Exit For Next i = Str$(x) End Sub 运行后，单击按钮，Text1显示（B ）。 A、 6 B、 8 C、 10 D、 100 53、 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i Print a End Sub 运行时，单击命令按钮，窗体上将显示（ A、 3 B、 4 C ）。 C、 5 D、 6 54、 设有以下程序段： For i = 1 To 4 For j = 6 To 1 Step -1 Print i * j Next j, i 则语句Print i * j的执行次数是（ C ） A、 12 B、 13 C、 24 D、 25 55、 下列程序段的执行结果是（B）。 For i = 3 To 1 Step -1 Print Spc(5 - i); For j = 1 To 2 * i - 1 Print "*"; Next j Print Next i A、 * *** ***** B、 ***** *** * C、 ***** *** * D、 ***** *** * 56、 在通用声明中给出Option Base 1语句，则数组a包含（ Dim a(3, -2 To 1, 5) A、 120 B、 75 C、 60 D、 13 57、 运行下列程序，单击窗体后输出的结果是（B ）。 C）个元素。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End Sub A、 15 B、 48 C、 120 D、 720 58、 对窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 10 For j = 1 To 10 arr(i, j) = i + 2 * j Next j Next i Print arr(0, 1) + arr(2, 3) End Sub 运行时，单击命令按钮后输出的结果是（A 。 ） A、 8 B、 10 C、 20 D、 下标越界 59、 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim s%, i%, j% Dim a(3, 3) As Integer For i = 1 To 3 For j = 1 To i a(i, j) = j s = s + a(i, j) Next j, i Print s End Sub 运行时，单击按钮，则窗体上显示的内容是（C ）。 A、 6 B、 9 C、 10 D、 18 60、 运行下列程序，单击窗体后输出结果是（C Private Sub Form_Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6) For i = 1 To a(5) 。 ） j = j + 1 Next i Print j End Sub A、 0 B、 5 C、 6 D、 程序出错 61、 设arr是一个上界为K的一维动态数组。能使arr元素个数增加1，但保留数组 中原有数据的语句是（ D ）。 A、 ReDim arr(K + 1) B、 ReDim Static arr(K + 1) C、 Public arr(1 To K + 1) D、 ReDim Preserve arr(K + 1) 62、 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, j%, x%, n% x = 0 n = InputBox("") For i = 1 To n For j = 1 To i x = x + j Next j Next i Print x End Sub 运行时，单击命令按钮，如果在输入对话框中输入3，则窗体上显示的内容是（B）。 A、 6 B、 10 C、 14 D、 18 63、 窗体上有命令按钮Command1和Command2，阅读下列程序： Private Sub Command1_Click() a = a + 1 : Print a； End Sub Private Sub Command2_Click() a = a + 1 : Print a End Sub 运行时，先后单击Command1和Command2按钮，输出的结果为（A A、 1 1 。） B、 2 2 C、 1 2 D、 2 1 64、 窗体上有文本框（Text1、Text2和Text3）和命令按钮（Command1），编写 如下事件过程： Private Sub Command1_Click() Dim x%, y%, z% x = 1: y = 2: z = 3 Call proc(x, y, z) = x = y = z End Sub Private Sub proc(ByVal a%, b%, c%) a = a + b + c b = a + b + c c = a + b + c End Sub 运行后，单击按钮，Text1、Text2和Text3将分别显示（C A、 1、2和3 B、 1、6和6 C、 1、11和20 D、 6、11和20 65、 运行下列程序，单击窗体后输出的结果是（D ）。 Private Sub Sele(x%, y%, z%) x = x + 1: y = y + 1: z = z + 1 Print x; y; z 。） End Sub Private Sub Form_Click() Dim a%, b%, c% a = 1: b = 2: c = 3 Call Sele(a, b + 1, (c)) Print a; b; c End Sub A、 1 1 1 1 2 3 B、 2 3 4 1 2 3 C、 1 2 3 2 4 4 D、 2 4 4 2 2 3 66、 窗体上有一个文本框Text1和命令按钮Command1，编写如下事件过程和过程 p1： Private Sub Command1_Click() Dim x%, y%, z% x = 7: y = 8: z = 9 = "" Call p1(x, y, z) = Str(z) End Sub Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub 运行时，单击命令按钮，Text1中的内容为（ B ）。 A、 0 B、 15 C、 9 D、 Str(z) 67、 运行下面的程序，输出的结果为（ A Public Function f(ByVal n%, ByVal r%) If n <> 0 Then f = f(n r, r) Print n Mod r; End If End Function Private Sub Command1_Click() 。 ） Print f(20, 8) End Sub A、 2 4 B、 1 2 4 C、 1 4 4 D、 4 4 68、 窗体上有一个命令按钮C1，两次单击C1后程序运行的结果为 Dim Z As Integer Sub S() Dim Z Z = Z + 2 Print z End Sub C ）。 （ Private Sub C1_Click() Z = Z + 2 Call S Print Z End Sub A、 第一次为2 2 第二次为 4 4 B、 第一次为4 4 第二次为 8 8 C、 第一次为2 2 第二次为 2 4 D、 第一次为2 4 第二次为 4 6 69、 下列关于多文档界面（MDI）的叙述错误的是（A ）。 A、 MDI子窗体可在MDI父窗体的外部区域显示 B、 MDI子窗体包含在一个大小可调的MDI父窗体内 C、 MDI子窗体最小化时的图标在MDI父窗体内显示 D、 MDI子窗体最大化时，其标题与MDI父窗体标题合并显示在父窗体的标题栏中 70、 假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1， 则单击命令按钮后，能使打开的对话框的标题为“Visual Basic”的代码是（ B ）。 A、 Title = "Visual Basic" inter B、 Title = "Visual Basic" ve C、 Title = "Visual Basic" nt D、 Title = "Visual Basic" lor 71、 要在磁盘上新建一个文件名为"c:"的顺序文件，下列（ A、 F="c:" open F For Append As #2 ）是正确的。 D B、 F="c:" open "F" For Output As #2 C、 open c: For Output As #2 D、 open "c:" For Output As #2 72、 下列关于文件的叙述正确的是（ D ）。 A、 Open命令的作用是打开一个已存在的文件 B、 使用Input#语句可以从随机文件中读取数据 C、 一个记录中所包含的各元素数据类型必须相同 D、 二进制存取可以获取任一文件的原始字节
发布评论