01、选择题-200题

选择题 1、（本题选 B）InputBox 函数返回值数据类型为（）。

A、数值 B、字符串 C、可变 D、数值或字符串（视输入的数据而定）2、（本题选 C）Print "6+10=";6 + 10 的输出结果是（）。

A、16=6 + 10 B、6+10=6 + 10 C、6+10= 16 D、"6 + 10="16 3、（本题选 B）Print 方法分区输出时，用（）分隔多个表达式。

A、空格 B、逗号 C、冒号 D、分号 4、（本题选 A）Pset 方法绘制的点的大小受其容器对象的（）属性的影响。

A、DrawWidth B、Picture C、AutoRedraw D、stretch 5、（本题选 A）VB 是一种面向对象的程序设计语言，构成对象的三要素是（）。

A、属性、事件、方法 B、控件、属性、事件 C、窗体、控件、过程 D、窗体、控件、模块 6、（本题选 D）VB 所有控件均有（）属性 A、Name 和 Caption B、Width 和 Height C、Visible 和 Tag D、Enabled 和 Top 7、（本题选 D）编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_ X As Single, Y As Single)If Shift = vbShiftMask + vbCtrlMask And Button = vbRightButton Then Print "Visual Basic"End if End sub 运行时，为了在窗体上输出“Visual Basic”，应执行的操作为（）。

A、按下 Shift 键和鼠标左键 B、同时按下 Shift、Alt 键和鼠标左键 C、按下 Alt 键和鼠标右键 D、同时按下 Shift、Ctrl 键和鼠标右键

8、（本题选 A）表达式 String(3,"ABC")的结果为（）。

A、AAA B、ABC C、BBB D、CCC 9、（本题选 C）表达式 23 + 23 Mod 50 7 的值是（）。

A、23 B、46 C、25 D、123 10、（本题选 A）表达式 Chr(Asc("B")+ 1)的值是（）。

A、"C"B、C C、67 D、"67"11、（本题选 B）表达式 Len("神州 6 号")的值是（）。

A、10 B、4 C、5 D、8 12、（本题选 D）表达式 UCase(Mid("basic!", 1, 1))+ Right("basic!", 5)的值是（）。

A、"asic"B、"Asic!"C、"basic!"D、"Basic!"13、（本题选 B）表示 x 大于 0 且小于 10 的 VB 表达式是（）。

A、0 0 And x <10 C、x >0 Or x <10 D、x >0 : x <10 14、（本题选 B）不能把 2^5*3.14*8 的结果输出到“立即”窗口的是（）。

A、在代码窗口中使用 Debug.Print 2^5*3.14*8 语句 B、在“立即”窗口中直接使用 2^5*3.14*8 语句 C、在“立即”窗口中使用 ? 2^5*3.14*8 语句 D、在“立即”窗口中使用 Print 2^5*3.14*8 语句 15、（本题选 A）不能被本模块的其它过程引用的是（）。

A、局部变量 B、模块级变量 C、全局变量 D、以上都是 16、（本题选 B）除去字符串左右侧空格的函数是（）。

A、Rtrim()B、Trim()C、Ltrim()D、Mid()17、（本题选 B）窗体上有命令按钮“OK”,它的单击事件过程为 CmdOK_Click()，则该按钮的 Caption 和 Name 属性分别为（）。

A、OK,Cmd B、OK，CmdOK C、CmdOK,OK D、Cmd,OK 18、（本题选 B）窗体上有命令按钮 Command1，编写如下事件过程：

Sub p(b()As Integer)For i = 1 To 4 b(i)= 2 * i Next i End Sub Private Sub Command1_Click()Dim a(1 To 4)As Integer a(1)= 1: a(2)= 3 a(3)= 5: a(4)= 7 p a()For i=1 To 4 Print a(i): spc(1);Next i End sub 运行后，单击按钮，输出的结果为（）。

A、1 3 5 7 B、2 4 6 8 C、2 6 10 14 D、2 2 2 2 19、（本题选 D）窗体上有命令按钮 Command1，编写下列事件过程：

Private Sub Command1_Click()Dim a(10)As Integer Dim p(3)As Integer k = 1 For I = 1 To 10 a(I)= I Next I For I = 1 To 3 p(I)= a(I * 3)Next I For I = 1 To 3 k = k + p(I)* 2 Next I Print k End Sub 运行时，单击命令按钮，窗体将显示（）。

A、15 B、13 C、30 D、3720、（本题选 B）窗体上有命令按钮 Command1，编写下列事件过程：

Private Sub Command1_Click()x = 0 Do While x <10 x =(x-2)*(x + 3)n = n + 1 Loop End Sub 运行时，单击按钮，n 和 x 的值分别时（）。

A、1 和 0 B、2 和 24 C、3 和 50 D、4 和 68 21、（本题选 C）窗体上有一个单选按钮 Option1。如要求当窗体初始显示时 Option1 就处于选中状态，可以通过（）实现。

A、在窗体的 Load 事件过程中加入语句：Option1.Value = False B、在窗体的 Show 事件过程中加入语句：Option1.Value = False C、在窗体的 Load 事件过程中加入语句：Option1.Value = True D、在窗体的 Show 事件过程中加入语句：Option1.Value = True 22、（本题选 D）窗体上有一个命令按钮 Command1，编写如下事件过程：

Private Sub Command1_Click()Sum = 0 For m = 1 To 3 Select Case m Case 1 a = 1 Case 2 a = 2 Case 3 a = 3 End Select Print a, Sum = Sum + a Next m Print Sum End Sub 运行时，单击按钮，输出结果是（）。

A、3 3 3 9 B、3 2 1 6 C、1 1 1 3 D、1 2 3 6 23、（本题选 B）窗体上有一个命令按钮 Command1，编写如下事件过程：

Private Sub Command1_Click()x = InputBox("x=")y = InputBox("y=")Print x + y

End Sub 运行后，单击命令按钮，先后在两个输入对话框中输入 123 和 321，窗体显示的内容是（）。

A、444 B、123321 C、123+321 D、出错信息 24、（本题选 B）窗体上有一个命令按钮 Command1，编写如下事件过程：

Function fun(x As Integer)Static z y = y + 1: z = z + 1 fun = x + y + z End Function Private Sub Command1_Click()Dim x As Integer x = 1 For i = 1 To 2 Print fun(x);Next i End sub 运行时，单击命令按钮窗体将显示（）。

A、3 3 B、3 4 C、1 1 D、4 4 25、（本题选 C）窗体上有一个命令按钮 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、5 D、6 26、（本题选 C）窗体上有一个命令按钮 Command1，编写下列事件过程：

Private Sub Command1_Click()x = InputBox(x)If x ^ 2 = 16 Then y = x

If x ^ 2 <16 Then y = 1 / x If x ^ 2 >16 Then y = x ^ 2 + 1 Print y End Sub 运行时，单击按钮，在输入框中输入 6 后回车，窗体上将显示（）。

A、6 B、0.16666 C、37 D、65 27、（本题选 D）窗体上有一个通用对话框 ComDlg1，语句 ComDlg1.Action = 2 表示（）。

A、显示“打开”对话框 B、显示“字体”对话框 C、显示“颜色”对话框 D、显示“另存为”对话框（）。

28、（本题选 D）窗体上有一个文本框 Text1 和命令按钮 Command1，编写如下事件过程：

Private Sub Command1_Click()i = Text1.Text Select Case i Case 1: j = "+"Case 2: j = "-"Case 3: j = "*"Case Else: j = "非法"End Select Text1.Text=j End sub 运行时，在 Text1 中输入 4 后，单击命令按钮，Text1 中内容是（）。

A、+ B、-C、* D、非法 29、（本题选 B）窗体上有一个文本框 Text1 和命令按钮 Command1，编写如下事件过程和过程 p1：

Private Sub Command1_Click()Dim x%, y%, z% x = 7: y = 8: z = 9 Text1.Text = ""Call p1(x, y, z)Text1.Text = Str(z)End Sub Sub p1(ByVal a As Integer, ByVal b As Integer , c As Integer c=a+b End sub 运行时，单击命令按钮，Text1 中的内容为（）。

A、0 B、15 C、9

D、Str(z)30、（本题选 A）窗体上有一个文本框控件 Text1，编写如下事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii Asc("9")Then KeyAscii = 0 End If End Sub 运行时，关于 Text1 说法正确的是（）。

A、只能向 Text1 中输入数字字符（0～9）B、只能向 Text1 中输入 ASCII 码在 0～9 之间的字符 C、只能向 Text1 中输入非数字字符 D、Text1 不接受任何输入 31、（本题选 A）窗体上有一命令按钮 Command1，编写下列事件过程: Private Sub Command1_Click()MsgBox CStr("123"+ 123)End Sub 程序运行时，单击按钮，消息对话框显示的内容是（）。

A、246 B、123123 C、123 + 123 D、显示出错信息 32、（本题选 A）窗体上有一命令按钮 Command1，编写下列事件过程: Private Sub Command1_Click()a = 100: b = 150: c = 2000: d = 2000 Cls Line(a, b)-(c, d), vbBlue, B End Sub 运行时，单击按钮窗体上显示（）。

A、一个未填充的矩形 B、一条直线 C、一个填满了颜色的矩形 D、无任何图形 33、（本题选 C）窗体上有一命令按钮 Command1，编写下列事件过程: Private Sub Command1_Click()c = 2000: d = 2000 Cls Circle Step(c, d), 1000, vbRed, 3.14, 2 * 3.14, 1 End Sub 运行时，单击按钮，窗体上显示（）。

A、一个填充的圆 B、一个未填充的圆 C、一段圆弧 D、一个点 34、（本题选 D）错误使用 Print 方法的是（）。

A、Picture1.Print B、Debug.Print

C、Form1.Print D、Text1.Print 35、（本题选 D）打开随机文件，应在 Open 语句中使用（）子句。

A、Access B、Input C、Output D、Len 36、（本题选 A）单击滚动条两端的箭头可触发滚动条的（）事件。

A、Change B、Scroll C、DragOver D、ItemCheck 37、（本题选 A）当 x=0 时，函数 IIf(x >0, 1, IIf(x <0,-1, 0))的返回值是（）。

A、0 B、1 C、-1 D、出错 38、（本题选 C）当程序在运行过程中因某种原因中断时，VB 进入（）模式。

A、设计 B、运行 C、中断 D、编程 39、（本题选 C）当命令按钮控件 Commandl 的 Enabled 属性被设为 False 时，该控件（）。

A、不可见，不能响应事件 B、变为灰色，但能响应事件 C、变为灰色，不能响应事件 D、可见并且能响应事件 40、（本题选 D）当一个工程含有多个窗体时，它的启动窗体是（）。

A、正在编辑的窗体 B、最后一个添加的窗体 C、第一个添加的窗体 D、在“工程属性”对话框中指定的窗体 41、（本题选 B）对随机文件进行写操作的语句是（）。

A、Input #文件号，输出列表 B、Put #文件号，变量名 C、Read #文件号，变量名 D、Get #文件号，变量名 42、（本题选 C）对文本框 Text1 编写如下的事件过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)Dim x As String x = Chr(KeyAscii)KeyAscii = Asc(UCase(x))Print String(4, KeyAscii)End Sub 程序运行后，将焦点位于文本框，如果在键盘上输入字母“a”，则窗体上显示的内容是（）。

A、A

B、B C、AAAA D、aaaa 43、（本题选 B）对于 InputBox 函数，下列不正确的说法是（）。

A、每执行一次 InputBox 函数，只能输入一个值 B、InputBox 函数只能输入数值 C、InputBox 函数的 prompt 参数不能缺省 D、InputBox 函数的参数有三个以上 44、（本题选 A）对于 InputBox 函数，下列说法不正确的是（）。

A、InputBox 函数输入的是数值型 B、InputBox 函数值必须赋予一个变量 C、InputBox 函数 prompt 参数不能缺省 D、每执行一次 InputBox 函数，只能输入一个值 45、（本题选 A）复选框和单选按钮的（）属性可以反映其当前状态。

A、Value B、Checked C、Caption D、Selected 46、（本题选 B）函数 Choose(2,"＋","－","×","÷")返回值是（）。

A、＋ B、－ C、× D、÷ 47、（本题选 C）计时器控件能正常工作应具备的两个条件是（）。

A、Enabled 属性为 True 和 Interval 属性为 0 B、Enabled 属性为 False 和 Interval 属性为 0 C、Enabled 属性为 True 和 Interval 属性非 0 D、Enabled 属性为 False 和 Interval 属性非 0 48、（本题选 D）计时器控件以一定时间间隔触发（）事件。

A、Enabled B、Interval C、Timer1 D、Timer 49、（本题选 A）假设列表框控件 List1 被设置为允许多重选择，那么可以返回所选列表项数目的属性是（）。

A、SelCount B、ListCount C、DataCount D、Count 50、（本题选 B）假设时钟控件的 Interval 属性为 500，Enabled 属性为 True，并且有下面的事件过程，程序运行 10 秒后变量 x 的值为（）。

Dim x As Integer Private Sub Timer1_Timer()x = x + 10 End Sub A、10000

B、200 C、5000 D、以上都不对 51、（本题选 C）将窗体的（）属性设置为 True，可使 Form_Load 事件中的 Print 方法显示结果。

A、DrawStyle B、DrawMode C、AutoRedraw D、Enabled 52、（本题选 D）将当前目录下的图像文件 Clock.jpg 装入图片框 Picture1 的语句是（）。

A、Picture = "Clock1.jpg"B、Picture = _ LoadPicture("Clock1.jpg")C、Picture1.Picture = "Clock1.jpg"D、Picture1.picture = _ LoadPicture("Clock1.jpg")53、（本题选 B）结构化程序由三种基本结构组成，下面属于三种基本结构之一的是（）。

A、递归结构 B、选择结构 C、过程结构 D、输入输出结构 54、（本题选 A）将框架的（）属性设为 False，可使框架内的所有对象在运行时均不可操作。

A、Enabled B、Locked C、BorderSytle D、ClipControls 55、（本题选 C）可以触发滚动条的 Scroll 事件的操作是（）。

A、单击滚动条空白处 B、单击滚动条两端的箭头 C、拖动滚动条的滑块 D、单击滚动条的滑块 56、（本题选 A）可以在属性窗口中设置的文件列表框属性是（）。

A、Pattern B、Path C、FileName D、FilePath 57、（本题选 A）命令按钮不能响应（）事件。

A、DblClick B、DragDrop C、KeyPress D、MouseMove 58、（本题选 D）目录列表框的作用是（）。

A、显示根目录下的文件名 B、显示 Path 所指路径下的文件名 C、显示 Path 属性所指路径下的文件

D、显示 Path 属性所指路径下的目录结构 59、（本题选 A）能被一个对象所识别的外界动作称为（）。

A、事件 B、方法 C、过程 D、属性 60、（本题选 C）能刚好存放如下方阵数据的数组声明语句是（）。

1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9 A、Dim A(9)as Single B、Dim A(3,3)as Single C、Dim A(-1 to 1,-5 to-3)as Single D、Dim A(-3 to-1,5 to 7)as Integer 61、（本题选 B）能使一维动态数组 arr(6)元素个数加 1，但保留数组中原有元素的语句是（）。

A、ReDim arr(7)B、ReDim Preserve arr(7)C、Public arr(1 To 7)D、Static arr(7)62、（本题选 B）判断整型变量 x 是 5 的倍数的表达式是（）。

A、x Mod 5 <>0 B、int(x/5)=x/5 C、x/5≠int(x /5)D、5 Mod x = 0 63、（本题选 A）如果 Form1 是启动窗体，并且 Form1 的 Load 事件过程中有 Form2.Show，则程序启动后（）。

A、Form1 是最后的活动窗体 B、Form2 是最后的活动窗体 C、编译错误 D、运行出错 64、（本题选 D）如果 VB 语句超过一行，可以使用空格加（）续行。

A、-B、+ C、;D、_ 65、（本题选 D）如果将菜单项的标题设为“-”，下列说法正确的是（）。

A、该菜单项被隐藏 B、该菜单项被禁止 C、该菜单项显示为“-” D、该菜单项显示为菜单项分割线 66、（本题选 A）如果命令按钮的 Caption 属性包含（），则按下 Alt+C 可激活该按钮。

A、&C B、$C C、#C D、@C 67、（本题选 B）如果要把单选按钮的标题显示在它的左边，应把（）。

A、Alignment 属性设置为 0 B、Alignment 属性设置为 1 C、Style 属性设置为 0 D、Style 属性设置为 1 68、（本题选 C）如果要表示一个在 100～300000 之间变化的整数，应使用（）型变量。

A、Integer B、String C、Long D、Byte 69、（本题选 D）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（）。

A、不能把标准模块设置为启动模块 B、任何时刻最多只有一个窗体是活动窗体 C、用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体 D、如果工程中含 Sub Main 过程，则程序一定首先执行该过程 70、（本题选 B）如下程序段的功能是计算 1/2+1/4+1/6 +...+1/50，并显示结果。

Private Sub Command1_Click()Dim i As Integer Dim sum As Double i = 2 sum = 0 Do While(i <= 【1】)sum = sum + 1 / 【2】 i = i + 2 loop print sum End sub 程序的空缺处【1】和【2】应分别填写（）。

A、50,sum B、50,i C、100,sum D、100,i 71、（本题选 A）如下数组声明语句中数组 a 包含的元素个数为（）。

Dim a(3,-1 To 1, 6)A、84 B、54 C、72 D、18 72、（本题选 A）若列表框 List1 中有 5 个选项，下列（）语句可以把选项"Visual Basic"添加到列表框的最后一项。

A、List1.AddItem "Visual Basic", List1.ListCount B、List1.AddItem "Visual Basic", List1.ListCount-1 C、List1.AddItem "Visual Basic", 4 D、List1.AddItem 4 , "Visual Basic"73、（本题选 A）若要设置图形方式的命令按钮，必须（）。

A、先设置 Style 属性，后设置 Picture 属性 B、只设置 Picture 属性

C、先设置 Visible 属性，后设置 Caption 属性 D、先设置 Enabled 属性，后设置 Picture 属性 74、（本题选 B）若要使用 Print 方法在窗体上打印红色的文字，应设置窗体的（）属性。

A、Font B、ForeColor C、Appearance D、FillColor 75、（本题选 B）任何控件都具有（）属性。

A、Width 和 Height B、Name 和 Tag C、Name 和 Caption D、left 和 Top 76、（本题选 C）设 a=8，b=6，c=-1；执行语句 Print a>b>c 后，窗体上显示的是（）。

A、1 B、True C、False D、出错信息 77、（本题选 D）设 arr 是一个上界为 K 的一维动态数组。能使 arr 元素个数增加 1，但保留数组中原有数据的语句是（）。

A、ReDim arr(K + 1)B、ReDim Static arr(K + 1)C、Public arr(1 To K + 1)D、ReDim Preserve arr(K + 1)78、（本题选 C）设数组下标从 0 开始，有如下过程 Fun：

Private Sub Fun(a()As Integer)Dim T Dim J As Integer J =(LBound(a)+ UBound(a)) 2 For i = LBound(a)To J T = a(i): a(i)= a(UBound(a)-i): a(UBound(a)-i)=T Next i End sub 下列对其功能的叙述正确的是（）。

A、该过程能对传入数组进行升序排序 B、该过程能对传入数组进行降序排序 C、该过程能对传入数组进行逆序存放 D、以上均不对 79、（本题选 C）设有菜单项 T1，如果设置 T1 的 Checked 属性为 True，下列说法正确的是（）。

A、该菜单项不可见 B、该菜单项不可用 C、该菜单项前出现一个“√” D、该菜单项无法设置快捷方式 80、（本题选 C）设有两个列表框控件 List1 和 List2，下列代码段的功能是（）。

For i = 0 To List1.ListCount-1 List2.List(i)= List1.List(i)Next i

A、将 List1 的所有列表项追加到 List2 中 B、将 List1 的所有列表项插入到 List2 的前部 C、用 List1 的所有列表项覆盖 List2 中对应位置的列表项 D、用 List1 取代 List2 81、（本题选 C）设有以下程序段：

For i = 1 To 4 For j = 6 To 1 Step-1 Print i * j Next j, i 则语句 Print i * j 的执行次数是（）A、12 B、13 C、24 D、25 82、（本题选 A）设有语句：

Dim S1 as String*5 S1 = "VB Test"则 S1 的值为（）。

A、VB Te B、VBTes C、BTest D、VB Test 83、（本题选 D）设有语句 Open "Datafile.txt"For Output As #1，以下叙述错误的是（）。

A、该语句以文件号 1 打开文件 B、该语句可以在当前目录下创建一个名为 Datafile.txt 的文件 C、执行该语句后可以向文件 Datafile.txt 中写入信息 D、该语句打开当前目录下一个已存在的文件 Datafile.txt 84、（本题选 D）设置（）属性可改变单击滚动条两端箭头时的滚动步长。

A、Max B、Min C、LargeChange D、SmallChange 85、（本题选 C）设置控件的（）属性为 False，使该控件不能通过 Tab 键得到焦点。

A、GotFocus B、SetFocus C、TabStop D、TabIndex 86、（本题选 B）设置命令按钮的（）属性，可使指针指向该按钮时显示提示内容。

A、Caption B、ToolTipText C、Font D、Tag 87、（本题选 C）设置命令按钮的（）属性为 True，可在按下 Esc 键时执行该按钮的单击事件过程。

A、Enabled B、Value

C、Cancel D、Default 88、（本题选 C）设置图像框的（）可使框内的图片按图像框大小自动调整。

A、AutoSize 属性为 True B、AutoSize 属性为 False C、Stretch 属性为 True D、Stretch 属性为 False 89、（本题选 D）设组合框 Combo1 中有 5 个选项，下列能删除最后一项的语句是（）。

A、Combo1.RemoveItem Text B、Combo1.RemoveItem Combo1.Listcount C、Combo1.RemoveItem 5 D、Combo1.RemoveItem 4 90、（本题选 A）使用（）方法可隐藏窗体，但不从内存中释放。

A、Hide B、UnLoad C、Show D、Load 91、（本题选 D）使用（）语句将"06 足球世界杯"添加到列表框 List1 的首项。

A、List1.Text = "06 足球世界杯"B、List1.AddItem "06 足球世界杯"C、List1.List(0)= "06 足球世界杯"D、List1.AddItem "06 足球世界杯",0 92、（本题选 D）使用（）语句可将列表框 List1 的第 3 项的值置为“VB6.0”。

A、List1.ListIndex(3)= "VB6.0"B、List1.ListIndex(2)= "VB6.0"C、List1.List(3)= "VB6.0"D、List1.List(2)= "VB6.0"93、（本题选 C）使用（）语句可将组合框 Combo1 的第 1 项置为当前项。

A、Combo1.ListIndex = 1 B、Combo1.Index = 1 C、Combo1.ListIndex = 0 D、Combo1.Index = 0 94、（本题选 B）使用驱动器列表框的（）属性可以返回或设置磁盘驱动器的名称。

A、ChDrive B、Drive C、List D、ListIndex 95、（本题选 D）通过（）属性设置窗体图标。

A、Picture B、DownPicture C、MouseIcon D、Icon 96、（本题选 B）拖动滚动条中的滑块将触发滚动条的（）事件。

A、Slide B、Scroll C、DragOver

D、DragDrop 97、（本题选 B）为了清除列表框中的所有内容，应使用的方法是（）。

A、Cls B、Clear C、Remove D、Remove Item 98、（本题选 C）为了暂时关闭计时器，应把计时器的某个属性设置为 False,这个属性是（）。

A、Visible B、Timer C、Enabled D、Interval 99、（本题选 B）为了清除图片框内用绘图方法绘制的图形，应采用的正确方法是（）。

A、选择图片框，然后按 Del 键 B、执行语句：

Picture1.Cls C、执行语句：

Picture1.Clear D、执行语句：

Picture1.Picture=LoadPicture("")100、（本题选 B）为了使标签 Label1 有边框，正确的属性设置为（）。

A、Label1.BorderStyle=0 B、Label1.BorderStyle=1 C、Label1.BackStyle=0 D、Label1.BackStyle=0 101、（本题选 C）文本框获得焦点时，能触发 KeyPress 事件的操作是（）。

A、选定文本框中内容 B、双击文本框 C、按下键盘上的某个键 D、单击文本框 102、（本题选 B）下列不是 VB 特点的是（）。

A、事件驱动的编程机制 B、CAD 技术 C、可视化的设计平台 D、Acitive 技术 103、（本题选 D）下列可以打开立即窗口的操作是（）。

A、Ctrl+D B、Ctrl+E C、Ctrl+F D、Ctrl+G 104、（本题选 B）下列（）方法可以将单选按钮设置为图形单选按钮。

A、Option1.Style = 0 B、Option1.Style = 1 C、Option1.Picture = 0 D、Option1.Picture = 1 105、（本题选 A）下列（）是合法的变量名。

A、a_1

B、4A C、a-b D、string 106、（本题选 A）下列（）语句表示复选框 Check1 被选中。

A、Check1.Value=1 B、Check1.Checked=1 C、Check1.Value=0 D、Check1.Checked=0 107、（本题选 C）下列（）语句表示选中单选按钮 Option1（）。

A、Option1.Value=0 B、Option1.Value=1 C、Option1.Value=True D、Option1.Value=False 108、（本题选 B）下列（）语句使复选框 Check1 无效。

A、Check1.Value = 1 B、Check1.Value = 2 C、Check1.Style = 1 D、Check1.Style = 0 109、（本题选 B）下列变量的数据类型为整型的是（）。

A、X！B、X% C、X$ D、X# 110、（本题选 C）下列表达式中，非法的是（）。

A、ab+c C、a≠b>c D、a=b+c 111、（本题选 A）下列程序段的执行结果是（）。

x = 100: y = 80: z = 30 If x >y Or y z Then x = x-z Print x, y, z A、70 30 30 B、100 30 30 C、70 80 30 D、100 80 30 112、（本题选 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 113、（本题选 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、***** *** * 114、（本题选 B）下列程序段的执行结果是（）。

n = 1 J = 1 Do While J <= 4 n = n * J Print n;J = J + 1 Loop A、1 2 3 4 B、1 2 6 24 C、2 4 6 8 D、1 4 7 11 115、（本题选 C）下列程序段的执行结果是（）。

x = 5: y = 7: z = 4 If x

t = y: y = z: z = t If x

A、If ab,a,b)C、Max = a:If b>=a Then Max=b D、If b>=a Then Max=b:Max=a 117、（本题选 D）下列程序片断中，可以使计时器控件 Timer1 每隔 2 秒触发一次的是（）。

A、Timer1.Interval = 200 B、Timer1.Interval = 2000 C、Timer1.Enabled = True: Timer1.Interval = 200 D、Timer1.Enabled = True: Timer1.Interval = 2000 118、（本题选 A）下列关于 InputBox 函数的叙述，错误的是（）。

A、可以省略任何参数 B、可以在屏幕指定位置显示输入框 C、可以指定默认值 D、返回值为 String 类型 119、（本题选 D）下列关于 VB 编码规则的叙述，错误的是（）。

A、一条语句可以分多行书写 B、可以用“Rem”注释单行语句 C、注释可以放在语句之前 D、可以用“;”作为语句的结束符 120、（本题选 D）下列关于菜单的叙述,错误的是（）。

A、菜单显示时要形成一个分隔线，应在菜单编辑器的标题文本框中输入"-"B、菜单编辑器中的复选是用来设置某一菜单项是否可选 C、每个菜单项都是一个控件，与其它控件一样也有自己的属性与方法 D、在菜单的标题栏中，“$”所引导的字母指明了访问该菜单项的热键 121、（本题选 C）下列关于菜单叙述中错误的是（）。

A、在程序中，可以重新设置菜单的 Visible 属性 B、每个菜单项与其它控件一样有自己的属性和事件 C、在同一窗体的菜单项中，不允许出现标题相同的菜单项 D、在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的热键 122、（本题选 D）下列关于多文档界面（MDI）的叙述错误的是（）。

A、MDI 子窗口包含在一个大小可调的 MDI 父窗口内 B、MDI 应用程序允许同时显示多个文档，每个文档显示在它自己的窗口中 C、MDI 窗体的 ActiveForm 属性可以返回具有焦点或者最后被激活的子窗体 D、MDI 应用程序中只有两种类型的窗体，即父窗体和子窗体 123、（本题选 C）下列关于符号常量的叙述，正确的是（）。

A、符号常量必须在第一次使用时被赋值 B、符号常量可以在任何时候被赋值 C、符号常量必须在定义时被赋值 D、符号常量与变量不同，没有数据类型之分 124、（本题选 C）下列关于顺序文件的叙述正确的是（）。

A、所有记录的长度必须相同 B、可以随机读取文件中的记录 C、可以使用文本编辑软件编辑 D、文件中记录按关键字顺序存放 125、（本题选 C）下列关于文件叙述错误的是（）。

A、随机文件每条记录的长度必须相同 B、任何文件都可以用二进制模式访问 C、可以通过编程对顺序文件中的某条记录进行修改 D、按文件的组织方式可将文件分为顺序文件、随机文件 126、（本题选 A）下列控件中，可以对单选按钮进行分组是（）。

A、框架（Frame）控件 B、文本框（TextBox）控件 C、图像框（ImageBox）控件 D、标签（Label）控件 127、（本题选 C）下列逻辑表达式的值为 False 的是（）。

A、"A">"9"B、"A"<"a"C、"AT">"AT "D、"an ">"an"128、（本题选 D）下列描述正确的是（）。

A、不同控件的 TabIndex 属性可以相同 B、同一窗体中不同控件的 TabIndex 属性值可以任意设置 C、窗体、命令按钮、标签和文本框控件都有 TabIndex 属性 D、同一窗体中不同的 TabIndex 属性值必须小于窗体中的控件个数 129、（本题选 D）下列数组声明语句中错误的是（）。

A、Private A(-10 To 5)B、Dim A(10,-5 To 0)As Boolean C、Dim A()AS Integer D、Dim A(N)"N 是变量 130、（本题选 B）下列数组声明语句中正确的是（）。

A、Dim a[3,4] as Integer B、Dim a(3,4)as Integer C、Dim a(n,4)as Integer D、Dim a(3 4)as Integer 131、（本题选 B）下列叙述错误的是（）。

A、当一个窗体变成活动窗体时，会触发 Activate 事件 B、一旦装载窗体，会自动触发 Click 事件 C、当单击一个窗体上的关闭按纽卸载该窗体时，会触发 Unload 事件 D、当一个窗体不再是活动窗体时，会触发 Deactivate 事件 132、（本题选 B）下列叙述正确的是（）。

A、当文本框的内容发生变化时，必将触发 LostFocus 事件

B、设置文本框的 MaxLength 属性，可限制文本框中能输入文本的最大长度 C、AutoSize 属性为 True 时，能使文本框 Text1 自动改变大小以适应其文本内容的多少 D、文本框不具有 Left 属性 133、（本题选 D）下列叙述中，错误的是（）。

A、打开一个工程文件，系统自动装入与该工程有关的文件 B、保存 VB 程序时，应分别保存窗体和工程文件 C、事件可以由用户触发，也可以由系统触发 D、VB 应用程序只能以解释方式执行 134、（本题选 D）下列语句不合法的是（）。

A、x = 1 : y=2 B、? x;y;C、? x , y , D、x = 1;y = 2 135、（本题选 B）下列语句错误的是（）。

A、Cls B、Image1.Cls C、Form1.Cls D、Picture1.Cls 136、（本题选 D）下列语句可使 Shape1 控件呈现为实心图形的是（）。

A、shape1.BorderStyle = 0 B、Shape1.BackStyle = 0 C、Shape1.Shape = 3 D、Shape1.FillStyle = 0 137、（本题选 C）下列语句中，除（）以外，都能使文本框 Text1 不可编辑（）。

A、Text1.Locked = True B、Text1.Visible = False C、Text1.ReadOnly = True D、Text1.Enabled = False 138、（本题选 C）下列语句中，除（）以外，都能使文本框 Text1 在运行时不可编辑（）。

A、Text1.Locked = True B、Text1.Visible = False C、Text1.ReadOnly = True D、Text1.Enabled = False 139、（本题选 A）下列语句中正确的是（）。

A、MsgBox "Error", vbOKCancel B、MsgBox vbOKCancel, "Error"C、MsgBox("Error", vbOKCancel)D、MsgBox(vbOKCancel, "Error")140、（本题选 C）下列运算符中，优先级最低的是（）。

A、 B、/ C、MOD D、* 141、（本题选 B）下列运算符中，优先级最高的是（）。

A、Like B、Mod

C、Not D、Eqv 142、（本题选 B）下列正确的赋值语句是（）。

A、i + j = 10 B、i = 0 : j = 0 C、i = 0 , j = 0 D、i = 0;j = 0 143、（本题选 C）下面关于多重窗体的叙述，正确的是（）。

A、在多重窗体程序中，可以用关键字 My 代表程序代码所在的窗体 B、没有启动窗体，程序不能执行 C、如果启动对象是 Sub Main 子过程，则程序启动时先运行该过程 D、以上都不对 144、（本题选 B）显示弹出式菜单要用（）方法实现。

A、Popup B、PopupMenu C、ShowMenu D、DrawMenu 145、（本题选 B）修改文本框的内容触发（）事件。

A、Modify B、Change C、ChangeData D、AutoSize 146、（本题选 A）要从磁盘上读入一个文件名为"c:student.txt"的顺序文件，正确的是（）。

A、F="c:student.txt"open F For Input As #1 B、F="c:student.txt"open "F"For Input As #2 C、open "c:student.txt"For Output As #1 D、open c:student.txt For Input As #2 147、（本题选 D）要从随机文件中读出数据，应使用（）。

A、Write #文件号，表达式列表 B、Put #文件号，变量名 C、Input #文件号，变量名表 D、Get #文件号，变量名 148、（本题选 B）要对文本框 Text1 中的文本加删除线，可以通过（）来实现。

A、Text1.Font.FontStrikethru = True B、Text1.FontStrikethru = True C、Text1.Font = vbStrikethru D、Text1.Style = vbStrikethru 149、（本题选 C）要强制显式声明变量,可在窗体模块或标准模块的声明段中加入（）语句。

A、Option Base 0 B、Option Base 1 C、Option Explicit D、Option Compare 150、（本题选 A）要删除列表框 List1 中选定的某一项，可以使用（）语句。

A、List1.RemoveItem List1.ListIndex

B、List1.RemoveItem _ List1.Columns(List1.ListIndex)C、List1.Clear List1.ListIndex D、List1.Clear _ List1.Columns(List1.ListIndex)151、（本题选 D）要设计一个图形方式的命令按钮，且按钮被按下与不按下时显示不同的图像，可通过对（）属性进行设置。

A、Picture、DisabledPicture B、Picture、DownPicture C、Style、Picture 和 DisabledPicture D、Style、Picture 和 DownPicture 152、（本题选 B）要使文本框能显示多行文本，需设置（）。

A、AutoSize 属性为 True B、MultiLine 属性为 True C、SingleLine 属性为 False D、MaxLines 属性大于 1 153、（本题选 A）要用文本框控件 Text1 实现一个密码输入框，可以通过（）设置，使得无论用户输入什么字符文本框只显示“*”。

A、Text1.PasswordChar = "*"B、Text1.Font = "*"C、Text1.Text = "*"D、Text1.Appearance = "*"154、（本题选 A）一个工程含有多个窗体及标准模块，下列叙述中，错误的是（）。

A、如果工程含 Sub Main 过程，程序首先执行该过程 B、任何时刻最多只有一个窗体是活动窗体 C、标准模块不能设置为启动模块 D、Hide 方法只是隐藏而不从内存中清除窗体 155、（本题选 B）已知字母 D 的 ASCII 码是 68。在窗体上添加命令按钮 Command1，并编写如下事件过程：

Private Sub Command1_Click()m = 68: a = "D"Print a For i = _____ "循环次数的控制 m = m + 1 a = Chr(m)+ a + Chr(m)Print a Next i End Sub 运行时，要使单击按钮后输出如下结果，程序中的_____部分应为（）。

D EDE FEDEF GFEDEFG A、1 To 4 B、1 To 3 C、1 To 4 step 2

D、1 To 3 step 2 156、（本题选 B）以下（）语句可表示[50,100]之间的随机数。

A、Int(Rnd * 51)+ 49 B、Int(Rnd * 51 +50)C、Int(Rnd * 50)+ 50 D、Int(Rnd * 50 + 50)157、（本题选 B）以下（）语句可表示[50,100]之间的随机整数。

A、Int(Rnd * 51)+ 49 B、Int(Rnd * 51 +50)C、Int(Rnd * 50)+ 50 D、Int(Rnd * 50 + 50)158、（本题选 C）以下程序段的输出结果是（）。

M = 24:N = 18 A = M:B = N R = M Mod N Do While R <>0 M = N N = R R = M Mod N Loop Print A * B / N A、6 B、24 C、72 D、432 159、（本题选 A）以下定义数组或给数组元素赋值的语句中，正确的是（）。

A、Dim a As Variant a=Array(1,2,3,4,5)B、Dim a(10)As Integer a=Array(1,2,3,4,5)C、Dim %A(10)a(1)="ABCD"D、Dim a(3),b(3)As Integer a(0)=0:a(1)=1:a(2)=2: b=a 160、（本题选 D）以下能判断是否到达文件尾的函数是（）。

A、LOF()B、BOF()C、LOC()D、EOF()161、（本题选 C）以下能正确定义数据类型 TelBook 的代码是（）。

A、Type TelBook Name As String*12 TeL As Integer End Type TelBook B、Type TelBook Name As String*12

TeL As Integer Type End C、Type TelBook Name String*12 TeL As Integer End Type D、Type TelBook Name String*8 TeL As Integer End TelBook 162、（本题选 C）以下条件语句错误的是（）。

A、If X Then Y = Y + 1 B、If X = 0 Then Y = 0 C、If X >Y Then Print Y End If D、If X >0 Then Y = 1: Print Y 163、（本题选 B）以下叙述错误的是（）。

A、窗体对象的 ControlBox 属性可用于设置窗体上的控制菜单 B、Visual Basic 要设置某个对象的属性时，只能通过属性窗口设置 C、当一个工程含有多个窗体时，其中的启动窗体是在“工程属性”对话框中指定的 D、通用对话框是一种 ActiveX 控件 164、（本题选 D）以下叙述中错误的是（）。

A、一个工程可以含有多个标准模块文件 B、窗体文件包含该窗体及其控件的属性 C、以 BAS 为扩展名的文件是标准模块文件 D、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 165、（本题选 D）引用列表框 List1 被选中项数据应使用（）。

A、List1.list B、List1.listCount C、List1.Index D、List1.Text 166、（本题选 B）引用列表框 List1 最后一项数据应使用（）。

A、List1.List(ListCount-1)B、List1.List(List1.ListCount-1)C、List1.List(ListCount)D、List1.List(List1.ListCount)167、（本题选 B）应用程序在（）工作模式下不能编辑代码和界面。

A、设计模式 B、运行模式 C、中断模式 D、以上均不能 168、（本题选 C）用 Dim x,y as boolean 语句声明变量，下列正确的是（）。

A、x 和 y 都是布尔型变量 B、x 是整形变量，y 是布尔型变量 C、x 是变体型变量，y 是布尔型变量 D、x 和 y 都是变体型变量 169、（本题选 A）用通用对话框建立“打开”文件对话框时，指定文件列表框所列出的文件

类型是文本文件的正确描述是（）。

A、"Text(.txt)|*.txt"B、"文本文件(.txt)|(.txt)"C、"Text(.txt)||*.txt"D、"Text(.txt)(*.txt)"170、（本题选 C）由（）关键字声明的局部变量在整个程序运行时一直存在。

A、Dim B、Public C、Static D、Private 171、（本题选 C）由系统触发的事件有（）。

A、MouseMove,MouseUp,MouseDown B、Hscrollbox,Click,DblClick C、Initialze,Load,Timer D、KeyPress,KeyUp,KeyDown 172、（本题选 B）有如下两个过程 S1 和 S2：

Sub S1(ByVal x As Integer, ByVal y As Integer)Dim t As Integer t = x: x = y: y = t End Sub Sub S2(x As Integer, y As Integer)Dim t As Integer t = x: x = y: y = t End Sub 下列关于 S1 和 S2 的说法，正确的是（）。

A、调用过程 S1 可以实现交换两个变量值，而 S2 不能 B、调用过程 S2 可以实现交换两个变量值，而 S1 不能 C、调用过程 S1 和 S2 都可以实现交换两个变量值 D、调用过程 S1 和 S2 都不能实现交换两个变量值 173、（本题选 B）阅读下列程序：

Private Sub Form_Click()Dim m As Integer Static n As Integer For i = 1 To 3 n = n + i m = m + i ^ 2 Next Print m, n End Sub 运行时，两次单击窗体，输出结果为（）。

A、14 6 14 6 B、14 6 14 12 C、14 6 28 6

D、14 6 28 12 174、（本题选 C）阅读下列程序：

Sub Yu(x%, ByVal y%)x = 5 * x: y = x + y End Sub Private Sub Form_Click()Dim a%, b% a = 5: b = 10 Yu a, b Print a, b End Sub 程序运行后，单击窗体，输出结果为（）。

A、5 10 B、5 20 C、25 10 D、25 25 175、（本题选 C）运行后，在窗口上单击鼠标时，窗体不会接收到的事件是（）。

A、MouseDown B、MouseUp C、Load D、Click 176、（本题选 B）运行时，下列哪种方法不能选中单选按钮（）。

A、用鼠标单击单选按钮 B、在属性窗口中将单选按钮的 Value 属性设置为 1 C、用 Tab 键将焦点转移到一组单选按钮后单击其中的单选按钮 D、采用单选按钮的访问键快捷方式 177、（本题选 B）运行时单击窗体，以下事件发生的次序是（）。

A、MouseDown、Click、MouseUp B、MouseDown、MouseUp、Click C、Click、MouseDown、MouseUp D、随机发生 178、（本题选 B）运行下列程序，单击窗体后输出的结果是（）。

Function F(ByVal x As Integer)Static z z = z + 1: x = x + z F = x + z End Function Private Sub Form_Click()Dim a As Integer Dim i As Integer a = 2 For i=1 To 3 Print F(a)Next i End sub

A、4 7 11 B、4 6 8 C、4 4 4 D、4 5...

选择题1

古诗200题

选择题训练（1）

计算机组成原理选择题200道

选择题百题大战