第一章VB1答案

第一章

一 选择题

1 Visual Basic采用了()的编程机制

(A) 面向过程 （B）面向对象 （C）事件驱动 （D）可视化 2 以下不属于Visual Basic 版本的是（）

（A）学习版 （B）企业版 （C）专业版 （D）工程版 3 Visual Basic从（）版本开始推出中文版

（A）2.0 （B）3.0 （C）4.0 （D）5.0 4 Visual Basic6.0是一个（）位应用程序的开发工具

（A）8 （B）16 （C）32 （D）64 5 退出Visual Basic集成开发环境的快捷键是（）

（A）Ctrl+Q （B）Alt+Q （C）Alt+A （D）Ctrl+A

6 Visual Basic集成开发环境由种工作状态，不属于3种工作状态之一的是（） （A）设计状态 （B）运行状态 （C）中断状态 （D）编写代码状态 7 在Visual Basic集成开发环境下不能激活属性窗口的操作是（）

(A) 在执行“工程”菜单中的“属性窗口”菜单命令 (B) 执行“视图”菜单中的“属性窗体”菜单命令

(C) 在对象上右击，从弹出的快捷菜单中选择“属性窗口”菜单命令 (D) 按下快捷键F4

8 在设计阶段，当双击窗体设计器中窗体上的某个控件时，所打开的窗口是（）

（A）工具箱窗口 （B）属性窗口 （C）工程资源管理器窗口 （D）代码编辑窗口

9 当新建一个工程并启动Visual Basic后，工具箱中的控件是（）

（A）内部控件 （B）ActiveX控件

（C）内部控件和ActiveX控件 （D）内部控件或ActiveX控件 10 下列可以打开立即窗口的操作的是（）

（A）Ctrl+R （B）Ctrl+C （C）Ctrl+O （D）Ctrl+G 11 在新建一个“标准EXE”工程后,不在工具箱中出现的控件是（）

（A）通用对话框 （B）列表框 （C）文本框 （D）命令按钮 12 如果要向工具箱中加入ActiveX控件，可以执行“工程”菜单中的（）命令

（A）引用 （B）部件 （C）工程属性 （D）添加窗体 13 Visual Basic规定窗体文件的扩展名是（）

（A） .fom （B）.vbp （C）.bas （D）.frm 14 Visual Basic规定标准模块文件的扩展名是（）

（A）.frm （B）.vbp （C）.bas （D）.vbg 15 下列不能打开工具箱窗口的操作是（）

(A) 按下F8快捷键

(B) 按下Alt键不放开，先按下V键再按下X键 (C) 执行“视图”菜单中的“工具箱”菜单命令按钮 (D) 单击“工具箱”上的“工具箱”按钮 16 以下可以产生工程组文件（.vbg）的情况是（）

（A） 当一个程序中包含了两个以上的窗体时 （B） 当一个程序中包含了两个以上的标准模块时

(C) 当一个程序中包含了两个以上的工程时 (D)当一个程序中包含了两个以上的类模块时。 第二章

2 窗体的ControlBox属性用于设置窗体是否具有控制菜单框，但该属性的值是否能起作用还与下列（）属性的设置值有关

（A）Enabled （B）WindowState （C）Moveable （D） BorderStyle 3 在Visual Basic语言中，对象能够执行的动作是（）

（A）事件 （B）属性 （C）方法 （D） 事件过程

4 设有窗体名称为Form1，要在窗体的事件过程Form_Click中将窗体标题设置为“Hello”则不能使用以下（）个语句

（A）Form1.Caption=”Hello” (B)Me.Caption=”Hello”

(C) Caption=”Hello” (D) Form1=”Hello” 5 对于窗体的以下属性，（）属性必须有属性值（即不能为空） （A）Caption (B)Name (C)Picture (D)Icon 6 文本框的默认属性是（）

（A）Name (B)Caption (C)Text (D)Width 7 以下4个选项中，不是属性窗体的事件的是（）

（A）Visible (B)Load (C)Unload (D)Activate 8 在设计状态下，改变窗体下面的属性看不到效果的是（） (A) BorderStyle (B) ControlBox (C) Picture (D) Visible 9 以下对设置控件属性值的叙述，正确的是（） (A) 任何属性值可有由用户随意设置 (B) 属性值只能在属性窗口中进行设置

(C) 属性值可以由用户设置，也可以使用系统提供的默认属性 (D) 所有属性值都可以清空

10 以下有关窗体的Name属性的叙述，正确的是（）

（A） 窗体的Name属性指定窗体的名称，用来标识一个窗体，并且不能为空 （B） 窗体的Name属性的值是显示在窗体标题栏中的文本 （C） 对窗体的Name属性的值可做任意编辑工作

(D) 可以在程序运行期间根据需要设置窗体的Name属性的值 11 对于窗体以下事件，（）事件可由系统自动触发

(A) Click (B) DblClick (C)Resize (D) Load 12 确定一个窗体或控件的大小的属性是（） (A) Width和Left (B) Width或Height (C) Top和Left (D)Top或Left 13 以下说法中，正确的是（）

(A) 窗体 和控件是用来设计程序的用户界面的，但是它们并不是Visual Basic中对象 (B)只有控件才是Visual Basic中的对象，窗体只是起“容器”作用而存在的 (C)窗体和控件都是Visual Basic中的对象

(D)只有ActiveX控件才是Visual Basic的对象，标准控件本身就是Visual Basic的一部分，因此，标准控件不是对象

14 在程序设计状态下，当窗体上的控件处在“锁定”状态下时，要改变控件的位置，则可（）

(A)用鼠标拖动控件

(B) 在按下Ctrl键的同时，按上，下，左，右方向箭头中的某个 (C) 在按下Shift键的同时，按上，下，左，右方向箭头中的某个 (D) 在按下Alt键的同时，按上，下，左，右方向箭头中的某个

15 在窗体Form1上添加1个文本框Text1，1个命令按钮Command1和1个标签Label1当单击文本框Text1时，发现其周围有8个小方块包围，说明文本框Text1为当前控件，当在窗体的空白处单击鼠标时，则当前对象是（）

（A）窗体Form1 （B）命令按钮Command1 （C）标签Label1 （D）文本框Text1

16 当窗体上的文字或图形被覆盖或窗体最小化后能恢复原貌，需要将窗体的（）属性设置为True

（A）Visible (B)AutoRedraw (C)Paint (D) Resize 17 以下有关“只读属性”的说法中，正确的是（）

（A） 只读属性的值只能在程序设计阶段通过属性窗口修改 （B） 只读属性的值只能通过程序代码修改 (C)对象Name属性不属于只读属性

(D)只读对象属性的值是固定的，在任何时候都不能进行修改 18 以下有关Visual Basic 中对象的事件说法中，错误的是（） （A） Load（装入）是Visual Basic中的一种事件 （B） 一个对象可以识别一个或多个事件

(C) 对于一个对象可以识别哪些事件，都必须有程序员编程来实现 (D)在一个对象的所有事件中，每个事件都用一个事件名称来标识 19 在窗体中显示一幅图片，则应设置窗体的（）属性的值 （A）Icon (B) Picture (C) Image (D) Paint 20 以下说法中，正确的是（）

（A） 程序运行时，窗体的Activate事件优先于Load事件发生 （B） 程序运行时，窗体的Load事件优先于Activate事件发生 （C） 程序运行时，窗体只发生Load事件 （D） 程序运行时，窗体只发生Activate事件 第三章

1 要改变命令按钮的标题文字时，应设置命令按钮的（）属性的值 （A）Name （B）Text （C）Caption （D）Value 2 以下各控件中具有Caption属性的是（）

（A）单选按钮（OptionButton） （B）计时器(Timer)

（C）列表框（ListBox） （D）组合框（ComboBox）

3 在程序运行过程中，要使命令按钮（名称为：cmdShow）可见，但不可操作，则正确的代码是（）

（A） cmdShow.Enabled=True:cmdShow.Visable=True （B） cmdShow.Enabled=False:cmdShow.Visable=False （C） cmdShow.Enabled=True:cmdShow.Visable=False （D） cmdShow.Enabled=False:cmdShow.Visable=True

4 若要将窗体中的某一命令按钮设置为默认命令按钮（即按Enter键与单击该命令按钮的作用相同），则应（）

（A）将其Cancel属性设置为False （B）将其Default属性设置为False

（C）将其Default属性设置为True （D）将其Cancel属性设置为True 5 命令按钮不能响应的事件是（）

(A)DbClick (B)Click (C)MouseDown (D)MouseUp

6 若要使某一文本框控件在程序运行过程中能用鼠标单击获得输入焦点，但不能用按下Tab键的方式或得输入焦点，则应（）

（A） 将其Enabled属性设置为False，且其TabStop属性设置为False （B） 将其Enabled属性设置为True，且其TabStop属性设置为False （C） 将其Enabled属性设置为False，且其TabStop属性设置为True （D） 将其Enabled属性设置为True，且其TabStop属性设置为True 7 若要设置文本框中所显示的文本颜色，应设置（）属性的值 (A) FillColor (B)BackColor (C)ForeColor (D)Color 8 下列不能打开代码编辑窗口的操作是（）

（A） 双击窗体设计器中的某个对象（窗体或控件） （B） 按下F7键

（C） 单击“工程资源管理器”窗口中的“查看代码”按钮 （D） 双击“工程资源管理器”窗口中的某个对象

9 设有一文本框（名称为tetInfor）和一命令按钮（名称为cmdSetText），并编写了如下代码： Private Sub cmdSetText_Click()

TxtInfor.Text=””

TxtInfor.Text=”Visual Basic” End Sub

当程序运行过程中单击命令按钮cmdSetText时，必定会触发文本框txtInfor的（）事件 (A) GotFocus (B) LostFocus (C) Change (D) ChangeValue 10 在程序设计阶段，发现窗体上某一文本框内显示“Text1”，双击该文本框后，发现有如下代码：

Private Sub txtValid_LostFocus()

?用户在以下编写代码 End Sub

该文本框的名称属性和Text属性的属性值分别是（） （A）Text 1,Text1 (B) Text1 , txtValid (C) txtValid, Text1 (D) txtValid, txtValid 11 能够将文本框空间隐藏起来的属性是（）

(A) Enabled (B)Visible (C) Hide (D) Clear

12 标签控件和文本框控件输出文字信息时所用到的属性分别是（） （A） Text ,Text (B) Text, Caption (C) Caption, Text (D) Caption, Caption

13 下列有关TabIndex属性的说法中，正确的是（）

（A） 窗体，命令按钮，标签和文本框都有TabIndex属性 （B） 同一窗体中的不同控件的TabIndex属性值可以相同 （C） 程序中所有窗体的控件的TabIndex值是统一编号 （D） 用户可以修改窗体中各控件的TabIndex值 14 设有一文本框（名称为：txtPass），则下列能使其具有输入焦点的语句是（） (A) txtPass=SetFocus (B)txtPass.SetFocus=True (C) txtPass.SetFocus (D) SetFocus=True

15 设有一文本框（名称：txtValue），则不能使文本框中显示“123”的语句是（） (A) txtValue.Visible=”123” (B) txtValue.Text=”123” (C) txtValue=”123” (D) txtValue.Text=123

16 要使一个文本框在程序运行时能够获得输入焦点，但不能修改文本框内的围子，则应（） （A） 将文本框的Visible属性的值设置为False （B） 将文本框的Enabled属性设置为False （C） 将文本框的Lock属性的值设置为True （D） 将文本框的TabStop属性的值设置为False

17 要清除一个文本框Text1中的文字，则在程序代码中应书写的语句是（） (A) Text1.Clear (B) Text1=”” (C) Text1.Cls (D) Text=””

18 要使文本在文本框或标签中居中显示，则应将文本框或标签的Alignment属性的值设置为（）

（A） 0 （B）2 （C）3 （D） 4 19 要使命令按钮的键面上既能显示文字又能显示图片，则应将命令按钮的Style属性的值设置为（）

（A）1 （B）0 （C）True （D）False

20 在窗体上添加一个命令按钮Command1和一个文本框Text1，并编写了如下程序代码：

Private Sub Command1_Click() Text1=””

Text1=”Hello” End Sub

程序运行过程中，单击命令按钮Command1时，文本框Text1会发生（）事件 （A）不产生任何事件 （B）SetFocus （C）LostFocus （D）Change 第四章

1 在窗体中添加一个命令按钮（名称为Command1）和一个文本框（名称为Text1），并编写如下程序代码：

Private Sub Command1_Click()

Dim x As Integer, y As Integer z As Integer x=1:y=2:z=3 x=y: y=z: z=x Text1.Text=CStr(z) End Sub

程序运行过程中，用户单击命令按钮Command1后，文本框Text1中显示（） （A）0 （B）1 （C）2 （D）3

2 设有语句Dim b As Boolean，则执行语句b=5-8后，变量b中的值（） （A）True (B) 无法确定 （C）-3 （D）False

3 表达式Lcase(“AB12”)>Left(“abc”,2) And Len(“12.3”)=5的值是（） （A）True (B) False (C) 0 (D)1 4 表达式10+5*7/8 Mod 9的值是（）

（A） 10 （B）11 （C）12 （D）14 5 表达式2*4^2-2*6/3+3\\2的值是（）

（A）34 （B）29 （C）30 （D）28 6 下列关系表达式的运算结果为True的是（）

(A) “11”+12=”1112” (B) “11”+”12”=”23” (C) “11” & 12=”1112” (D) “11” & “12”=”23

7 在下列逻辑表达式中，其值为True的是（） (A)”abc”>”ABC” （B）”THAT”>”THE” (C)9>”h” (D) “A”>”a”

8 在窗体中添加一个命令按钮Command1，两个文本框Text1和Text2，并编写以下程序

Private Sub Command1_Click() Dim b1 As Integer Dim b2 As Boolean Dim x As Integer x=&HFF b1=(x=254) b2=(x=254) Text1.Text=b1 Text2.Text=b2 End Sub

程序运行过程中，用户单击命令按钮Command1后，文本框Text1和Text2中分别显示（）

(A) 0和1 （B）True和False （C）0和False （D）1 和True

9 Visual Basic 表达式Sqr(a+b)^3*10中优先进行运算的是（）

a) Sqr函数 （B）+ (C) ^ (D) *

10 表示”x+y小于100且x-y大于或等于60”表达式的是（）

(A) x+y<100 Or x-y>≥60 (B) (x+y<100)=(x-y) ≥60 (C) x+y<100 And x-y≥60 (D) x+y<100 . And . x-y≥60

11 如果x为一正实数，对x的小数点后第4位进行四舍五入的表达式是（）

(A) 0.001*Int(x+0.005)

(B) 0.001*Int(1000*(x+0.0005)) (C) 0.001*Int(100*(x+0.005)) (D) 0.001*Int(x+0.005)

12 在日期常量表示时，用符号（）将日期数据括起来。 (A) % (B)# (C) & (D) “”

13 表达式Int(Rnd*100)+100值的范围是（）

(A) 0~100 (B) 100~100 (C) 100~200 (D) 0~200 14 下列可作为Visual Basic变量的是（）

(A) Bet*Alpha (B)Л (C) Sqr (D) Print_Data 15 下列可作为Visual Basic 变量名的是（） (A) File (B) Sub (C) Dim (D) Print 16 下列是Visual Basic合法双精度常量的是（）

(A) 12! (B) 12.3& (C)-234.56@ (D) 34#

17 下列是Visual Basic合法长整型常量的是（）

(A) &HFFG1& (B) &h11ff& (C)&o8423& (D) 22ee& 18 下列是Visual Basic合法常量的是（）

(A) 10^2 (B) .231 (C) ±50 （D） D32 19 对于常量5.25D-5，写成普通十进制数是（）

(A) 0.0000525 (B) 0.000525 (C) 0.00525 (D) 0.0000525 20 下列是Visual Basic合法字符串常量的是（） (A) “ABC”&”123” (B) #12—31—2003# (C) “ABC””123” (D) ?abc?

21 设有语句Private Answer As Boolean ，则变量Answer还未重新赋值前，其值为（） (A) True (B) False (C) 1 (D)-1

22 下列语句中，不能使文本框Text1中显示出100的语句是（） (A) Text1.Text=100 (B) Text1.Text=”100” (C) Text1.Text=CStr(100) (D)text1.Text=?100? 23 表达式Len(Str(100))+Len(Str(-100))的值是（） (A) 6 (B) 7 (C) 8 (D) 9 24 下列表达式的值是0的是（）

(A) Int(25.2)+Int(-25.6) (B) Cint(25.2)+Cint(-25.6) (C) Fix(25.2)+Fix(-25.6) (D) Exp(25.2)+Exp(-25.6) 25 可以同时删除字符串S的前导和尾部空格的函数是（） (A) Trim (B) RTrim (C) LTrim (D) Mid

26 设变量a，b，c的值分别为3，5，9则下列表达式的值为True的是（） (A) a>b And cb Xor cb Or cb Eqv c

27 设有语句Dim b As Boolean 则以下能对变量b 正确赋值的语句是() (A) b=”True” (B) b=.True (C) b=?True? (D) b=True 28 设有语句Dim d As Date ,则以下能对变量d正确赋值的语句是(). (A) d=#”20:30:11”# (B) d=#20:30:11#

(C) d=Format(“hh:mm:ss”,Time) (D) d=Format(“yy-mm-dd”,Date)

第五章

1 在窗体上添加一文本框（名称为Text1）和一命令按钮（名称为Command1），并编写如下程序：

Option Explicit

Private Sub Command1_Click() Dim i1 As Integer, i2 As Integer i1=InputBoxa(“请输入i1的值：”) i2=InputBox(“请输入i2的值：”) Text1.Text=i1+12 End Sub

在程序运行过程中，单击命令按钮后，在两次出现的输入对话框中的文本框中分别输入10和20并按Enter键，则文本框Text1中显示的数据为(). (A) 30 (B) 10 (C) 20 (D)1020

2 设在窗体（名称为Form1）上放置一文本框（名称为Text1），则下列语句中正确的是().

(A) Text1.Print “Hello” (B) Form1.Print “Hello” (C) Form..Print “Hello” (D) Text1.Visible=”Hello” 3 语句Print “44+66=”;44+66;的输出结果为()

(A) “44+66= 110 (B) 44+66= 110 (C) “44+66=”;44+66 (D) “44+66=”,44+66 4 设变量a=10，下列语句中，不正确的打印语句是(). (A) Print a=5+5 (B) Print “a=;5+5” (C) Print “a=5+5” (D) Print a=;5+5

5 设有赋值语句str1=”Visual”和str2=”Basic”.则语句Print str1;:Print str2的输出结果为() (A) Visual Basic (B)VisualBasic

(C) Visual Basic (D) Visual Basic

6 设有赋值语句str1=”Visual”和str2=”Basic”，则语句print st1;str2的输出结果为() (A) Visual Basic (B) VisualBasic

(C) Visual Basic (D) Visual Basic

7 设有以下程序，当程序运行时，单击窗体，则在窗体上输出的结果为(). Private Sub Form_Click()

Dim I As Integer , s As Single I=100 s=-3.14

Print I;:Print s End Sub

(A) 100—3.14 (B) 100 —3.14 (C) 100 —3.14 (D) 100 —3.14

8 设有以下程序，当程序运行时，单击窗体，则在窗体上输出结果是() Private Sub Form_Click()

Dim I As Integer, j As Integer I=100 j=200 Print I=j End Sub

(A) 程序出错 (B) 100 (C) 200 (D) False

9 设有以下程序，当程序运行时，单击窗体，则在窗体上输出结果是().

Private Sub Form_Click()

Dim s As Integer, c As String s=100:c=”xyz” s%=200:c$=”abc” Print s;s%;:Print c;c$

End Sub

(A) 100 200 xyzabc (B) 100 100 xyzxyz (C) 200 200 abcabc (D) 100 200 abcxyz

10 InputBox函数的返回值的类型是().

(A) 数值 (B)字符类型 (C)变体 (D)数值或字符串(根据输入的数据而定) 11 设有以下程序，当程序运行时，单击窗体，则在窗体上输出结果为().

Private Sub Form_Click()

Dim i1 As Integer,i2 As Integer,i3 As String i1=100:i2=-200:i3=”Basic”

Print Tab(2);i1;Spc(2);i2;Spac(3);i3 End Sub

(A) 100 -200 Basic (B) 100 -200 Basic (C) 100 -200 Basic (D) 100 -200 Basic

12 设计一个程序，在程序中添加一个名称为Form1的窗体，添加窗体的Click事件过程代码，如下所示：

Private Sub Form_Click()

Dim x As Integer, y As Integer

x=Cint (Val(InputBox(“输入第一个数据”,”输入数据”))) y= Cint (Val(InputBox(“输入第二个数据”,”输入数据”))) Print x\\y; x Mod y End Sub

程序运行时，单击窗体，先后在两个输入对话框中输入-10和3，则程序的输出结果为(). (A) 3和-1 (B) -3和1 (C) 3和1 (D) -3和-1

13 分别执行以下语句 x=InpuBox(“a”,”b”)和y=MsgBox(“c”,”d”)时，输入对话框窗口和消息对话框的标题信息分别是()

(A) a和c (B) b和c (C)b和d (D) a和d

14 在立即窗口中，输入以下语句，语句后面的表示按Enter键。 a=10:b=-10:c=20:d=-100

Print a Mod +Int(Rnd)+c\\d+(a>b)*(c>d) 则输出结果是()

(A) 1 (B)-1 (C) True (D) False 15执行语句

ButVal=MsgBox(“Continue”,vbAbortRetryIgnore+vbInformation+vbDefaultButton1,”确认”)时。将出现一个信息提示框，直接按 Enter键后，变量Butval的值为() (A) 3 (B) 4 (C) 5 (D) 6

16 在Visual Basic中，打印机也是一种对象，其名称为(). (A)Print (B) Printer (C) PrintForm (D)Printor 17 下列不是Visual Basic 中合法对象名的是()

(A) Debug (B) Screen (C) Printer (D) Text 18 在程序中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click()

x=”123.5” y=”-100” z=x+y Print Val(z)

End Sub

程序运行时，单击命令按钮后，在窗体上的输出结果是(). (A) 23.5 (B) 123.5 (C) –100 (D) 123.5100 19 在窗体上添加一命令按钮，并编写如下程序代码：

Private Sub Command1_Click() x%=2/3 y%=32/9 Print x%, y% End Sub

程序运行时，单击命令按钮后，在窗体上的输出结果为() (A) 1 4 (B) 0 3 (C) 1 3 (D) 0 4 20 在程序中添加一个命令按钮，并编写如下程序代码：

Private Sub Command1_Click()

Dim a As Single, b As Integer, c As Integer a=3.5:b=200

c=Len(Str(a)+Str(b)) Print c End Sub

程序运行时，单击命令按钮后，在窗体上的输出结果为(). (A) 5 (B) 6 (C) 7 (D) 8

21 在窗体中用Print 方法输出文本时，被输出文本颜色由窗体的() 属性决定 (A) BackColor (B) ForeColor (C) Color (D) TextColor

22在窗体中用Print 方法输出文本时，被输出文本的位置由窗体的() 属性决定 (A) Top和Left (B) X和Y

(C) CurrentX和CurrentY (D) Width和Height 23 以下叙述正确的是().

(A) Spc函数既能用语Print方法中，也能用于有关字符串运算的表达式中 (B) Space函数既能用于Print方法中，也能用于有关字符串运算的表达式中 (C) Spc函数与Space函数都能产生一个空格字符串，因此，没有任何区别 (D) Spce函数只能用于Print方法中 24 以下说法中错误的是()

(A) InputBox函数的返回值是字型

(B) MsgBox函数的返回值是在对话框中所单击的按钮的键值，为一整数 (C) MsgBox语句也能产生信息提示对话框，但它没有返回值

(D) 当InputBox函数所产生的输入对话框中输入数值时，则该函数的返回值是数值

第六章

1 在程序代码中，要使图片框Picture1中显示图片文件pic1.jpg，则应使用的语句是() (A) Picture1.Picture=”pic1.jpg” (B) Picture1.Image=”pic1.jpg”

(C) Picture1.Picture=LoadPicture(”pic1.jpg”) (D) LoadPicture(”pic1.jpg”)

2 下列选项中，不能将图片装入图片框和图像框的方法是()

(A) 在设计阶段，在属性窗口中将Picture属性的值设置为某个图象文件 (B) 在设计阶段，直接在图片框和图象框中手工绘制一幅图

(C) 在设计阶段，把已复制到剪贴板上的图象粘贴到图片框或图象框 (D) 在程序代码中，直接利用LoadPicture函数将图象装入图片或图象框 3 下列个对象中，不能作为容器对象的是()

(A) 图象框(Image) (B) 图片框(PictureBox) (C) 窗体(Form) (D) 框架(Frame)

4 为使显示到图象框中的图象能根据图象框的大小自动等比缩放，则应()

(A) 将其AutoSize属性值设置为True (B) 将其AutoSize属性值设置为False (C) 将其Strentch属性值设置为True (D) 将其Strentch属性值设置为False

5 要使图片框的大小不随被显示的图象的大小而改变，则应() (A) 将其AutoSize属性值设置为True (B) 将其AutoSize属性值设置为False (C) 将其Strentch属性值设置为True (D) 将其Strentch属性值设置为False

6 在设计阶段可见，但在程序运行期间不可见的控件是() (A) 计时器 (B) 图片框 (C) 框架 (D)列表框 7 下列各组对象中，都具有Pictrue属性的一组是() (A) 图片框，图像框，窗体，命令按钮，框架，形状 (B) 图片框，图像框，窗体，框架，形状，直线 (C) 图片框，图像框，形状，直线、，命令按钮，驱动器列表 (D) 图片框，图像框，窗体，命令按钮，单选按钮，复选框

8 若在形状（Shape）控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条的颜色由FillColor属性指定，非线条的区域由BackColor属性填充，则应() (A) 将其FillStyle属性设置为2~7间的某个值，BackStyle属性设置为1 (B) 将其FillStyle属性设置为0或1，BackStyle属性设置为1

(C) 将其FillStyle属性设置为2~7间的某个值，BackStyle属性设置为0 (D) 将其FillStyle属性设置为0或1，BackStyle属性设置为0 9 确定复选框CheckBox控件是否被选中，应访问的属性是() (A) Selected (B) Checked (C) Value (D) Enabled 10 在程序代码中清除图片框Picture1中的图形，正确的语句是() (A) Picture1.Picture=”” (B) Picture1.Picture=LoadPicture(“”) (C) Picture1.Picture=Empty (D) Picture1.Picture=Null 11 要使一个文本框具有水平和垂直滚动条，则应()

(A) 将其Multiline设置为True，同时将ScorllBars属性设置为0 (B) 将其Multiline设置为True，同时将ScorllBars属性设置为1 (C) 将其Multiline设置为True，同时将ScorllBars属性设置为2 (D) 将其Multiline设置为True，同时将ScorllBars属性设置为3 12 要使一个标签透明且不具有边框，则应()

(A) 将其BackStyl属性设置为0，BorderStyle属性设置为0 (B) 将其BackStyl属性设置为0，BorderStyle属性设置为1 (C) 将其BackStyl属性设置为1，BorderStyle属性设置为0

(D) 将其BackStyl属性设置为1，BorderStyle属性设置为1 13 要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为() (A) 0 (B) 1 (C) 2 (D) 3

14 为使列表框中的项目分多列显示，需要设置的属性为()

(A) Columns (B) Style (C) MultiSelect (D) List 15 要删除列表框中指定的列表项时，应使用的方法是()

(A) Remove (B) RemoveItem (C) Clear (D) Move 16 下列各选项中，列表框和组合框不支持的方法是()

(A) AddItem (B) RemoveItem (C) Clear (D) Cls 17 滚动条控件的默认属性是()

(A) Max (B) Min (C) Value (D) Text 18 要获得滚动条控件的当前的值，应访问的属性是() (A) Max (B) Min (C) Value (D) Text 19 单击滚动条的滚动箭头是，产生的事件是()

(A) Click (B) Scroll (C) Change (D) Move

20 在程序运行过程中，下列不能触发滚动条Change事件的操作的是() (A) 单击滚动条中的滚动块 (B) 拖动滚动条中的滚动块 (C) 单击滚动条中的滚动箭头

(D) 单击滚动条中的滚动块和滚动箭头间的空白处

21 在程序运行过程中，下列能触发滚动条Scroll事件的操作是() (A) 单击滚动条中的滚动块 (B) 拖动滚动条中的滚动块 (C) 单击滚动条中的滚动箭头

(D) 单击滚动条中的滚动块和滚动箭头间的空白处 22 设窗体中有一名称为Timer1的计时器控件，要使该计时器在程序运行过程中每隔2秒钟自动触发一个Timer事件，则在程序代码中应写的语句是() (A) Timer1.Interval=2 (B) Timer1.Interval=20 (C) Timer1.Interval=200 (D) Timer.Interval=2000

23 在窗体上放置一文本框Text1和一图片框Picture1，则以下语句不正确的是() (A) Print “OK” (B) Text1.Print “OK” (C) Debug.Print “OK” (D) Picture1.Print “OK”

24 在列表框或组合框中，当前被选中的列表项的序号是由()属性表示的。 (A) List (B) Index (C) TopIndex (D) ListIndex

25 为使图像框的大小可以自动适应图像的大小，则以下正确的设置的是()

(A) 将其AutoSize属性值设置为True (B) 将其AutoSize属性值设置为False (C) 将其Strentch属性值设置为True (D) 将其Strentch属性值设置为False

26 设有一列表框List1，在程序代码中，要得到该列表框中最后一个列表项的文本值，则应书写的表达式是()

(A) List1.List(List1.ListCount-1) (B) List1.List(ListCount-1) (C) List1.List(ListCount) (D) List1.List(List1.ListCount) 27 下列说法中，错误的是()

(A) 滚动条的默认属性为Value (B) 标签的默认属性为Caption (C) 命令按钮的默认属性为Caption (D)单选按钮的默认属性为Value

28 以下各控件中，没有Caption属性的是()

(A) 框架 (B)列表框 (C)命令按钮 (D)复选框

29 在程序运行过程中，当拖动滚动条的滚动块时，则首先被触发的滚动条的事件是() (A) Change (B) Click (C) Scroll (D) DbClick 30 要将同一窗体上的多个单选按钮分成多个组，则应使用()控件 (A) TextBox (B) Frame (C) Shape (D) Line

第七章

1 以下正确的语句是()

(A) If a>b Then t=a; a=b; b=t (B) If a>b Then t=a: a=b: b=t (C) If a>b Then t=a a=b b=t (D) If a>b Then t=a, a=b, b=t 2 语句Print IIf(2,3,4)的输出结果为() (A) 0 (B) 2 (C) 3 (D) 4

3 以下是窗体的Click事件过程及其程序代码： Private Sub Form_Click() Dim x As Integer x=1

If x<=1 Then Print 1; If x<=2 Then Print 2 If x<=3 Then Print 3; Print End Sub

在程序运行过程中，单击窗体时，程序的输出结果为() (A) 1 (B) 2 (C) 3 (D) 1 2 3

4 以下是窗体的Click事件过程及程序代码： Private Sub Form_Click()

Dim a As Single, b As Single, c As Single, m As Single a=Val(InputBox(“输入第1个数：”,”输入数据”) b=Val(InputBox(“输入第2个数：”，”输入数据”) c=Val(InputBox(“输入第3个数：”，”输入数据”)

m=a

if b>m Then m=b if c>m Then m=c Print m End Sub

在程序运行过程中，单击窗体时，在3次出现的输入对话框中分别输入-10，20。-30后，程序的输出结果为()

(A) –10 (B) 20 (C) –30 (D) 0

5 以下是窗体的Click事件过程及其程序代码： Private Sub Form_Click()

Dim x As Integer, a As Integer , b As Integer, c As Integer Dim b1 As Boolean, b2 As Boolean x=10:a=1:b=2:b1=-5:b2=0 If a

If b<>3 Then

If Not b1 Then X=-10 Else

If b2 Then x=-30 x=-50 End if End if End if Print x End Sub

在程序运行过程中，单击窗体时，程序的输出结果是() (A) –50 (B) –30 (C) –10 (D) 10 6以下是窗体的Click事件过程及其程序代码： Private Sub Form_Click()

Dim score As Integer Score=Int(Rnd*10+80) Select Case score Case Is<60 Print “Fail” Case 60 To 79 Print “Pass” Case 80,Is<90 Print “Good” Case Is>=90 Print “Excellent” End Select End Sub

在程序运行过程中，单击窗体时，程序的输出结果为() (A) Excellent (B) Good (C) Pass (D) Fail 7 以下是窗体的Click事件过程及其程序代码： Private Sub Fot_Click()

Dim y As Integer,l As Integer,s As String s=”Between 2050 And 3000” s=Val(Mid(s,InStr(s,”2”),4)) Print y

If y Mod 400=0 Or (y Mod 100=0 And y Mod 4<>0) Then L=1 Else l=-1 End If Print l End Sub

在程序运行过程中，单击窗体时，程序的输出结果是()

(A) –1 (B) 1 (C) 0 (D) Null

8 以下窗体的Click事件过程及其程序代码： Private Sub Form_Click()

Dim a As String, b As String, c As Integer c=0

a=InputBox(“输入第1个数据：”) b=InputBox(“输入第2个数据：”) if a>b Then

c=Fix(-11.99)+Int(-100 Mod 7)*Sgn(Rnd*100) else

c=3^3\\3*3/3 Mod 3<3 End If Print c End Sub

在程序运行过程中，单击窗体时，分别在两次出项的输入对话框中输入-3和-4后，程序的输出结果为()

(A) 0 (B) 1 (C) –1 (D) –13 9 以下程序段等价的语句是()

if x=1 Then y=2 Else

If x=2 Then y=3 Else y=4 End If End if

(A) If x=1 Then y=2 Else if x=2 Then y=3 Else y=4 (B) If x=1 Then y=2 ElseIf x=2 Then y=3 Else y=4

(C) If x=1 Then y=2 Else If x=2 Then y=3 Else y=4 End if (D) If x=1 Then y=2 Else if x=2: Then y=3 Else y=4 10 下列说法正确的是()

(A) If语句中的Then和Else子句都可省略 (B) 在块结构条件语句中，End If可省略

(C) Else子句和Then子句可以单独作为一条语句存在

(D) 块结构条件语句可以嵌套，但每个块结构条件语句都必须以End If结束、 11 以下是命令按钮Command1的Click事件过程： Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As integer a=2:b=1:c=0 If a Then Print a>c Else Print a

End If

End Sub

在程序运行过程中，单击命令按钮Command1时，在出现的输入对话框中输入-5，按Enter键后，程序的输出结果是()

(A) 出错 (B)-1 (C) True (D) False 12 在以下各Case子句中，正确的是()

(A) Case –1 To –5 (B) Case a Is >10

(C) Case 1,2,”a” (D) Case Is<5,10 To 20 13 以下程序段的输出结果是()

(A) 出错 (B) 2 (C) 3 (D) 1 Dim a As Integer, b As Integer, c As Integer a=2:b=1

If a Then if b Then if c Then Print 1 Else Print 2 Else Print 3

第八章

1 以下是窗体的Click事件过程。在程序运行过程中，单击窗体后，工输出了()个数据。

Private Sub Form_Click() Dim I As Integer, j As Integer For I=1 To 3 I=I+1

For j=4 To 1 Step –1 Print I*j Next j, I End Sub

(A) 12 (B) 8 (C) 4 (D) 9

2 以下是窗体的Click事件过程。在程序运行过程中，单击窗体后，输出的结果是() Private Sub Form_Click()

Dim k As Integer, y As Integer y=10:k=20

For k=1 To 5 Step –1 y=y + k Next k Print y; k End Sub

(A) 15 20 (B) 15 5 (C) 10 6 (D) 10 1

3 以下是窗体的Click事件过程。在程序运行过程中，单击窗体后，输出的结果是() Private Sub Form_Click()

Dim a As Integer, b As Integer, I As Integer a=1:b=3 For I=a To a + b a=a + 3 Next I Print a

End Sub

(A) 13 (B) 12 (C) 11 (D) 10

4 以下是窗体模块的程序代码。在程序运行过程中，单击窗体后，输出的结果是() Const Num As Integer=10

Private Sub Form_Click() Dim a As Integer,b As Integer a=1:b=Num Do Until b>Num a=a*b b=b + 1 Loop Print a End Sub

(A) 1 (B) 10 (C) 11 (D) 20 5 以下循环的执行次数是() For I=5 To 1 Step 0 s=s + I Next I

(A) 0 (B) 1 (C) 5 (D) 死循环

6 以下是窗体的Click事件过程。在程序运行过程中，单击窗体后，输出的结果是() Private Sub Form_Click()

Dim I As Integer, s As Integer s=0

For I=1 To 10 If I Mod 2=0 Then s=s + I

Else if I Mod 5 =0 Then Exit For End if Next I Print s End Sub

(A) 55 (B) 30 (C) 6 (D) 0

7 以下是窗体的Click事件过程。程序运行过程中，单击窗体后，输出的结果是() Private Sub Form_Click()

Dim a As Integer d=1 Do a=a + 5 Loop Until a>8 Print a End Sub

(A) 1 (B) 10 (C) 9 (D) 11

8 以下是窗体的Click事件过程。在程序运行过程中，单击窗体后，输出的结果是()

Private Sub Form_Click() Dim x As Integer, y As Integer x=1:y=10 Do Until y>=10 x=x/y y=y+1 Loop Print x End Sub

(A) 10 (B) 0 (C) 1 (D) 0.1

9 以下是窗体的Click事件过程。在程序运行过程中，单击创痍后，输出的结果是()

Private Sub Form_Click()

Dim x I As Integer, j As Integer, k As Integer, x As Integer For I=1 To 5 x=0

For j=1 To 3 x=3 For k=1 To 5 x= x + 1 Next k Next j Next I Print x End Sub

(A) 8 (B) 3 (C) 15 (D) 75

10 以下是命令按钮Command1的Click事件过程：

Private Sub Command1_Click()

Dim a As String, n As Integer, I As Integer n=0

s=InputBox(“输入数据”) For I=1 To Len(s)

If (LCase(Mid(s,I,1))>=”a” And LCase(Mid(s,I,1)<=”z”) n=n +1 End if Print n End Sub

程序运行时，单击命令按钮Command1，在出现的输入对话框中输入”ABCDabcxyz123”并按Enter键后，程序的输出结果是() (A) 4 (B) 10 (C) 6 (D) 3

11 以下是命令按钮Command1的Click事件过程：

Private Sub Command1_Click() Dim s As Integer, I As Integer s=0: I=1 Do While I<10

s=s + I

I= I + 3 Loop Print s End Sub

程序运行时，单击命令按钮Command1后，程序的输出结果是() (A) 0 (B) 45 (C) 55 (D) 12

12 在窗体上加入一文本框Text1，然后编写以下事件过程：

Private Sub Form_Load() Text1.Text=”” Text1.SetFocus For I=1 To 100 Sum=Sum + I Next I

Text1.Text=Sum End Sub

上述程序的运行结果是()

(A) 在文本框中显示5050 (B) 出错

(C) 文本框中为空白 (D) 显示“Text1”

13 以下是窗体的Click事件过程，在程序运行过程中，单击窗体后，输出的结果是()

Private Sub Form_Click() Dim I As Integer, j As Integer For I=1 To 3 If I<=1 Then j=2 If I<=2 Then j=4 If I<=3 Then j=6 Print j; Next I Print I End Sub

(A) 6 6 6 4 (B) 2 4 6 3 (C) 3 2 4 6 (D) 2 4 6 4 14 以下是命令按钮Command1的Click事件过程： Private Sub Command1_Click()

Dim s1 As String, s2 As String, s3 As String, t As String Dim n As Integer, I As Integer t=”” n=0

s1=InputBox(“输入数据”) s2=InputBox(“输入数据”) s3=InputBox(“输入数据”) I =InStr(s1, s2) While I<>0

t=t & Left(s1,I-1) & s3 s1=Mid (s1,I +Len(s2))

I=InStr(s1,s2) Wend t=t & s1 Print t End Sub

当程序运行时，单击命令按钮Command1后，在出现的3次输入对话框 4中分别输入aabba, a, cc并按Enter键，则程序的输出结果是()

(A) aabbaa (B) ccbbacc (C) aabbaacc (D) cceebbcc 15 以下是命令按钮Command1的Click事件过程：

Private Sub Command1_Click()

Dim n As Integer, I As Integer, s As Integer s=0

For I=10 To 15 For n=2 To 3

If i/n=Int(i/n) Then s=s + I End If Next I Print s End Sub

当程序运行时，单击命令按钮Command1后，程序的输出结果是() (A) 51 (B) 75 (C) 63 (D) 73

16 在窗体上加入一个命令按钮Command1，然后编写其Click事件过程，代码如下：

Private Sub Command1_Click() Dim a As Integer, b As Integer a= 1

Do While a <10 a=a + 2 b=b + a*a Loop Print a; b End Sub

当程序运行时，单击命令按钮Command1后，程序的输出结果是() (A) 11 3 (B) 11 285 (C) 9 164 (D) 9 25

17 在窗体上加入一个命令按钮Commande1，然后编写其Click事件过程，代码如下：

Private Sub Command1_Click() Dim j As Integer, n As Integer

j=0: n=0 Do Until n>=3 j=(j + 1)^2 + 1 n=n + 1 Loop Print j; n End Sub

当程序运行时，单击命令按钮Command1后，程序的输出结果是() (A) 122 3 (B) 10 2 (C) 5 3 (D) 5 2

18 在窗体上加入一个命令按钮Command1，然后编写其Click事件过程，代码如下：

Private Sub Command1_Click() Dim k As Integer, a As Integer For k=1 To 3 Select Case k Case 1 a=3 Case 2 a=2 Case 3 a=1 End Select Print a; Next k Print k End Sub

当程序运行时，单击命令按钮Command1后，程序的输出结果是() (A) 1 1 1 4 (B) 3 2 1 4 (C) 1 1 1 3 (D) 1 2 3 4 19 设有以下程序段：

Dim I As Integer, j As Integer

For I=1 To 3 For j= 0 To I-1 Print “*”; Next j, I

该程序段运行时，其中Print语句被执行的次数是() (A) 1 (B) 2 (C) 3 (D) 6

20 在窗体上加入一个命令按钮Command1，然后编写其Click事件过程，代码如下：

Private Sub Command1_Click()

Dim a As String * 1, b As String * 1,c As String Dim k As Integer a= “*”:b=”@” For k=1 To 3

c=String (Len(a) + k – 1, b) Print c + “12”; Next k Print End Sub

当程序运行时，单击命令按钮Command1后，程序的输出结果是() (A) @12@@12@@@12 (B) * @ * @ * @12 (C) @@@@@@12 (D) 出错

21 要强制从For-Next循环中的循环体中跳出并接着执行Next语句的下一条语句，则应使用的语句是()

(A) Exit Do (B) Exit Sub (C) Exit For (D) Exit While

第九章

1 默认数组的数据类型必须是( )

(A) Integer型 (B) Double型 (C)Variant型 (D) 任意类型 2 数组变量的数据类型必须是( )

(A) Integer型 (B) Double型 (C)Variant型 (D) 任意类型 3 在程序运行过程中，单击窗体时，以下程序的输出结果为() Private Sub Form_Click() Dim x

x=Array(“Basic” ,”Pascal” ,”Foxpro” ,”Database”) Print Ucase(Mid(x(2),Len(x(2))-3)) End Sub

(A) scal (B) SCAL (C)xpro (D) XPRO

4 在窗体上添加一文本框Text1和一命令按钮Command1，然后编写以下事件过程： Option Base 1

Private Sub Command1_Click() Dim arr1(5, 5) As Integer Dim I As Integer, j As Integer For I=1 To 3 For j=2 To 4 Arr1(I, j)=I + j Next j Next I

Text1.Text=arr1(2, 3) + arr1(3, 4) + arr1(1, 1) End Sub

程序运行时，单击命令按钮Command1后，在文本框中显示的值是() (A) 12 (B) 13 (C) 14 (D) 15

5 以下是窗体的Click事件过程Form_Click 的程序代码： Option Base 1

Private Sub Form_Click()

Dim I As Integer, j As Integer, m As Integer, n As Integer Dim a(3,3) For I=1 To 3 For j=1 To 3 If I=1 Then a(I, j)=j+1 Else a(I, j)=I*j End if Next j, i For m=1 To 2 For n=1 To 3

Print a(m, n);

Next n Next m End Sub

在程序运行过程中，单击窗体时，程序的输出结果为() (A) 2 4 6 3 6 9 (B) 1 2 3 2 4 6 (C) 2 3 4 2 4 6 (D) 1 2 3 3 6 9

6 以下是窗体的Click事件过程Form_Click 的程序代码： Option Base 1

Private Sub Form_Click() Dim a As Variant

Dim I As Integer, m As Integer, index As Integer a=Array(345,-54,200,356,65,23) m=a(LBound(a)) Index=Lbounde(a)

For I=Lbound(a) To Ubound(a) If a(i)>m Then m=a(i) Index=I End if Next I Print m; index End Sub

在程序运行过程中，单击窗体时，程序的输出结果为()

(A) –24 2 (B) 356 4 (C) 345 1 (D) 356 3 7 以下是窗体的Click 事件过程Form_Click 的程序代码： Option Base 1

Private Sub Form_Click()

Dim a(10) As Integer, p(3) As Integer Dim I As Integer, k As Integer k=0

For I=1 To 10 a(i)=2*(I-1) + 1 Next I For I=1 To 3 p(i)=a(I*I) Next I For I=1 To 3 k=k +p(i)\\2 Next I Print k End Sub

在程序运行过程中，单击窗体时，程序的输出结果为() (A) 5 (B) 7 (C) 9 (D) 11

8 在下列说法中，正确的是()

(A) ReDim语句与Dim语句一样可以定义数组，因此，该语句可以放在程序的任何地方 (B) 嵌套数组、默认数组、数组变量都必须定义成Variant类型

(C) Option Base语句用于指定数组的下标下界默认值，该默认值可以任意 (D) 数组的下标不能为负数

9 在下列数组声明语句中，正确的是()

(A) Dim a[5,5] As Integer (B) Dim a(5,5) As Variant (C) Dim a(m, m) As Double (D) Dim a(5 5) As Single 10 设在窗体模块的通用声明段中书写了以下语句：

Option Base 1

Dim x(2,-1 To 2) As Integer

则数组x中包含的元素个数是()

(A) 6 (B) 4 (C) 8 (D) 12 11 当用Dim语句定义数组时，该语句()

(A) 既可用在标准模块和窗体模块，也可用在过程内部 (B) 只用于过程内部

(C) 只用于在标准模块的声明段中定义全局数组 (D) 只用于在窗体模块的声明段中定义局部数组 12 下列有关ReDim语句的叙述中，正确的是() (A) ReDim语句虽然可以定义动态数组，但它在改变数组大小的同时必将该数组中原有内

容清除

(B) 它和Dim语句一样，可以声明数组，可以写在程序的任何地方 (C) ReDim语句是一种非执行语句 (D) 它只能用于过程内部

13 与数组的下标默认下界值有关的语句是()

(A) Option Explicit (B) Option Base (C) Optional (D) Base

14 设有语句Dim n %(1 To 3),则下列说法中正确的是() (A) 该语句等价于Dim n(1 To 3)

(B) 该语句存在语法错误，原因是数组名不正确

(C) 该数组是一个含有3个元素的一维整型(即Integer类型)数组

(D) 该数组是一个含有3个元素的一维变体类型(即Variant类型)数组 15 设在窗体模块的声明段中书写了以下程序代码： Option Base 1

Dim x(2,3) As Integer

则数组x在内存中所占的空间是()个字节。 (A) 6 (B0 5 (C) 24 (D) 12 16 在下列有关数组的说法中，正确的是()

(A) 同数组中每一维的下界值一定小于或等于上界值 (B) 一个数组中的所有元素都属于同一种数据类型 (C) 在Visual Basic中，最多可以定义二维数组

(D) 当程序中书写了Option Base 1 语句时，则程序中所有已定义的数组的下标下界值都

从1开始

17 设有语句Dim y(10) As variant,则语句Erase y执行后，数组y中各元素的值是()

(A) 0 (B) Nothing (C) “” (D) Empty 18 在下列说法中，正确的是()

(A) 用Erase语句可以清除静态数组和动态数组所占的空间

(B) 用Erase语句可以清除静态数组中各元素的值，但不释放其所占的内存空间 (C) 用Array函数可以给任何类型的数组初始化

(D) 用Array函数既可以给一维数组也可以给多维数组初始化 19 在下列有关控件数组的说法中，正确的是()

(A) 可以将窗体上的各种类型的控件创建到一个控件数组中

(B) 控件数组中所包含的控件必须是同一类型的，并且它们的Name属性值不能相同 (C) 控件数组中所包含的控件必须是同一种类型的，并且它们的Name属性值相同，但每

个控件的Index属性值不同

(D) 程序运行时，对控件数组中的不同控件进行操作而触发事件时，执行的是对应于各个

控件的事件过程代码

20 在窗体中添加一命令按钮Command1，然后编写以下程序代码： Option Base 1

Private Sub Command1_Click() Dim x(5), b(2) As Integer Dim s s=0

For I=Lbound(x) To Ubound(x) X(i)=I Next I

For I=Lbound(b) To Ubound(b) B(i)=x(I * I) s=s + b(i) * 2 Next I Print s End Sub

在程序运行时，单击命令按钮Command1时，程序的输出结果是() (A) 6 (B) 8 (C) 10 (D) 0 21 在以下定义数组的语句中正确的是() (A) n=10:Dim x(1 To n) As Integer

(B) Dim x(10) As Integer : ReDim x(1 To 20) (C) Dim x() As Integer : ReDim x(2,5) As Single

(D) Dim x() As Integer : n=20 : ReDim x(n) As Integer 22 在下列各程序段中，正确的是()

(A) Dim x As Integer : x=Array(1,2,3,4,5) (B) Dim x() As Integer : x=Array(1,2,3,4,5) (C) Dim x As Variant : x=Array(1,”abc”,2,3) (D) Dim x As variant=Array(1,2,3)

第十章

1 在窗体上加一命令按钮，其名称为Command1，然后编写以下程序代码： Private Sub sub1(k As Integer, ByVal s As Integer)

Dim I As Integer s=1

For I=1 To k s=s * I Next I End Sub

Private Sub Command1_Click()

Dim sun As Integer, n As Integer, I As Integer sum=0 n=0

For I =1 To 3 Call sub1(I, n) sum=sum + n Next I Print sum End Sub

在程序运行过程中，单击命令按钮Command1，程序的输出结果为() (A) 0 (B) 9 (C) 6 (D) 3

2 在窗体上加一命令按钮，其名称为Command1，然后编写以下程序代码： Private Function fn(ByVal n As Long)

Dim k As Long k= 0 Do While

k=k + (n Mod 10) n=n\\10 Loop fn=k

End Function

Private Sub Command1_Click() Dim m As Long

m=Clng(Val(InputBox(“输入一个数据”))) Print fn(m) End Sub

在程序运行过程中，单击命令按钮Command1，在出现的输入对话框中输入153时，程序的输出结果为()

(A) 15 (B) 9 (C) 8 (D) 5

3 在窗体上加一命令按钮，其名称为Command1，然后编写如下程序代码： Private Function func(n As Integer)

Static c As Integer Dim b As Integer b=b + 2 c=c + 2

func=n + b + c

End Function

Private Sub Command1_Click() Dim m As Integer, I As Integer m=0 For I=1 To 2 m=m + func9i) Next I Print m End Sub

在程序运行过程中，单击命令按钮Command1，程序的输出结果是() (A) 10 (B) 11 (C) 12 (D) 13 4 在Visual Basic中，以下叙述正确的是()

(A) 过程的定义可以嵌套，但调用不能嵌套 (B) 过程的定义和调用均不能嵌套 (C) 过程的定义和调用均可以嵌套

(D) 过程的定义不能嵌套，但可以嵌套调用

5 在窗体上加一命令按钮，其名称为Command1然后编写以下程序代码： Private Sub Command1_Click()

Dim result

result =CommonFunc(100,-20,30,20) Print result;

Result =CommonFunc(-23,45,200) Print result End Sub

Private Function CommonFunc(ParamArray data()) Dim m, I m=-1E+34 For Each I In data If m

CommonFunc=m End Function

在程序运行过程中，单击命令Command1，程序的输出结果为() (A) 100 200 (B) 30 45 (C) 20 –23 (C) –20 –23

6 在窗体上加一命令按钮，其名称为Command1，然后编写以下程序代码： Private Sub Command1_Clcik()

Dim x As Integer, y As Integer x=Cint(Val(InputBox(“输入第一个数”))) y=Cint(Val(InputBox(“输入第二个数”))) CommonSub x,y Print x; y;

Call CommonSub(var2 :=x, var1 :=y) Print x; y End Sub

Private Sub CommonSub(var1 As Integer, var2 As Integer) var1=var1 + var2 var2= var1 + var2 End Sub

在程序运行过程中，单击命令按钮Command1后，在两次出现的输入对话框中分别输入10和20并按Enter键后，程序的输出结果为() (A) 10 20 10 20 (B) 30 50 110 80 (C) 30 30 30 30 (D) 60 60 60 60

7 下列有关事件过程与通用过程的说法中，错误的是() (A) 事件过程只能在窗体模块中定义

(B)事件过程与通用过程除名字上有不同外，基本没有本质区别

(C)在不同模块中不能定义相同名称的过程，否则会出现重定义的错误 (D)事件过程和通用过程间可以相互调用 8 与调用语句Call MySub(100,n)等价的语句是() (A) MySub(100,n) (B) MySub 100,n

(C) Call MySub 100,n (D) Call MySub(n,100)

9 过程中的参数列表中的形参类型不能是以下哪中数据类型()

(A) 双精度类型 (B) 变长字符串类型 (C) 定长字符串类型 (D) 控件类型

10 在作为参数传递时，以下数据类型或对象只能使用传址方式的是()

(A) 用户自定义数据类型 (B) 变体类型 (C) 单精度类型 (D) 整型

11 在作为参数传递时，以下既可以采用传址方式也可以采用传值方式的是() (A) 控件 (B) 整个数组

(C) 用户自定义类型 (D) 字符串类型

12 如果希望参数列表中的某个参数为可选参数，则应在参数的前面加上() (A) ByVal (B) ByRef

(C) Optional (D) ParamArray

13 当被调用过程中的参数列别中有可选参数时，在该过程体中可采用() 函数来测试该参数是否被传递了值

(A) TypeOf (B) IsMissing (C) Is (D) Type 14 下列说法中不正确的是()

(A) 当用Static关键字来定义一个过程时，则该过程中的所有变量都是静态的 (B) 既可在模块的声明段中用Static定义变量，也可以在过程中用Static定义变量

(C) 用Static定义的变量其值在程序运行过程中始终存在，因此，它是全局变量 (D) 在过程中，可以用Static定义变量，但当该过程调用结束后，其值继续保留 15 在Visual Basic的程序中，能运行其他程序的函数是() (A) Shell (B) Do (C) Run (D) Execute 16 对于过程定义中的可选参数，以下说法中正确的是()

(A) 可选参数的数量不能多于1个

(B) 可选参数的前面必须加上关键字Optional且所有可选参数都要集中写在参数表的友

部

(C) 可选参数的类型只能是Variant类型 (D) 在过程的形参表中必须定义可选参数

17 在窗体加一命令按钮，其名称为Command1，然后编写以下程序代码：

Private Sub Command1_Click() Dim data

data= Array(12,20,40,-5,19) Print f1(data) End Sub

Private Function f1(d) Dim I As Integer Dim s s=0

For I =Lbound(d) To Ubound(d) If d(i) Mod 5=0 Then s=s + d(i) Next I f1=s End Function

在程序运行过程中，单击命令按钮Command1，程序的输出结果为() (A) 55 (C) 60 (C) 86 (D) 72

18 在窗体上加一命令按钮，其名称为Command1，然后编写以下程序代码：

Private Sub Command1_Click() Dim data, n1, n2

data=array(10,30,-20,50,20) Sub1 data, n1, n2 Print n1; n2 End Sub

Private Sub sub1(d,m1,m2) Dim I As Integer m1=d(Lbound(d)) m2=d(Lbound(d))

For I= Lbound(d) + 1 To Ubound(D) If m1 d(i) Then m2=d(i) Next I End Sub

在程序运行过程中，单击命令按钮Command1，程序的输出结果是()

(A) –20 50 (B) 10 –20 (C) 50 –20 (D) –20 10

19 在窗体上加一命令按钮，其名称为Command1，然后编写以下程序代码：

Private Sub Command1_Click() Dim str As String Str=InputBox(“请输入”) Print func1(str) End Sub

Private Function func1(s As String) As Integer Dim I As Integer, d As Integer d=0

For I =Len(s) To 1 Step –1 d=d * 10 + Val(Mid(s, I, 1)) Next I func1=d End function

在程序运行过程中，单击命令按钮Command1，在出现的输入 对话框中输入“315”并按Enter键后，程序的输出结果是()

(A) 315 (B) 5130 (C) 135 (D) 513

20 在窗体上加一命令按钮，其名称为Command1，然后编写以下程序代码：

Private Sub Command1_Click() Dim a, d a=10: b =20 Call mult((a), b) Print a: b End Sub

Private Sub mult(ByRef x As Variant, y As Variant) x=x * 2 y= y * 3 End Sub

在程序运行过程中，单击命令按钮Command1，程序的输出结果为() (A) 10 20 (B) 20 60 (C) 10 60 (D) 20 20

21 在窗体上加一命令按钮，其名称为Command1，然后编写以下程序代码：

Private Sub Command1_Click() Dim data(1 To 5),m, n m=Val(InputBox(“输入数据”)) Data(1)=-23 Dta(2)=13 Data(3)=27 Data(4)=44 Data(5)=76

Call ser(data(),m, n) Print n End Sub

Private Sub ser(d(),a, b)

Dim m As Integer, n As Integer, k As Integer

Dim I As Integer m= Lbound(d) n= Ubound(d) k= (m + n)/2

Do While ma If a d(k) Then m=k + 1 K=(m + n)/2 Loop

If d(k)= a Then b=k Else b=-1 End if End Sub

在程序运行过程中，单击命令按钮Command1，在出现的输入对话框中输入“-200”并按Enter键后，程序的输出结果为()

(A) –1 (B) 1 (C) –200 (D) 5

第十五章

1 按文件的内容划分，可将文件分为() (A) 顺序文件和随机文件 (B) ASCII文件和二进制文件 (C) 程序文件和数据文件 (D) 磁盘文件和打印文件

2 对于顺序文件，以下说法中，正确的是() (A) 文件中的每一记录末尾有回车换行符 (B) 文件中的各记录长度一定是相等的 (C) 可以任意读取或写入文件中的任一记录 (D) 文件中的每条记录按记录号从小到大排序 3 以下说法中，错误的是()

(A) 利用Write #语句向顺序文件中写字符串时，会自动在其两端加双引号 (B) 利用Write #语句向顺序文件中写数值数据时，在数值前留有符号位 (C) Write #语句向顺序文件中写数据时，会自动在各字段间加逗号 (D) Write #语句的各表达式间既可用逗号也可用分号隔开且作用相同 4 以下说法中，正确的是()

(A) 随机文件中各记录的长度相等

(B) 随机文件中各记录以回车换行符结尾

(C) 向随机文件中写数据时，既可用Write #语句也可用Put #语句

(D)不能从随机文件中按记录号读取或写入记录，而必须按记录先后顺序进行 5 以下说法中，正确的是()

(A) 随机文件中的记录号是通过随机数产生的

(B) 随机文件中各记录以回车换行符结尾

(C) 对于随机文件，可按记录号任意读取或写入记录

(D)对于随机文件，利用Seek函数可返回文件指针当前在文件中的字节位置 6 以下()是用来打开一个二进制文件的方式

(A) Append (B) Input (C) Random (D) Binary

7 以下各语句中，()可以完成按随机方式打开或建立文件StuData.dat，然后可对文件进行读写操作。

(A) Open “StuData.Data” For Random As # 10 (B) Open “StuData.Data” For Random

(C) Open For Random Access Read Write As # 100 (D) Open “StuData.Data” For Append As # 10

8 设有顺序文件Report.txt，若要向其中追加一部分记录，则打开文件的语句是() (A) Open Reaprt.txt For Output As # 2 (B) Open “Reaprt.txt “For Output As # 2

(C) Open “Reaprt.txt “For Append As FreeFile() (D) Open Reaprt.txt For Append As # 2

9 在程序代码中，如果需要关闭当前所有已打开的文件，正确的语句是() (A) CloseALL (B) Close #1,#2 (C) Close (D) Close # ALL 10 在Visual Basic中，以下4条命令可以实现移动文件的是() (A) Kill (B) Move (C) Name (D) FileCopy

11 文件指针表明了当前对文件进行操作的位置。文件指针的初始位置位于文件尾的文件打开方式是()

(A) Append (B) Output (C) Input (D) Random

12 在利用Open语句打开一个顺序文件时，语句中有Len所指定的长度含义是() (A) 记录长度 (B) 文件长度 (C) 字段长度

(D) 文件缓冲区的大小

13 以下程序段的输出结果是()

Open “D:\\aa.txt” For Append As #4 Print EOF(4)

(A) False (B) True (C) 视文件长度而定 (D) 0

14 在窗体上加入一个命令按钮Command1，并编写如下事件过程： Private Sub Command1_Click()

Dim inf

Open ”D:\\aa.txt” For Input As #1 Inf=Input (2,#1)

Print Seek(1), Loc(1) Close #1 End Sub

程序运行时，当单击命令按钮后，在窗体上的输出结果是() (A) 2 2 (B) 3 3 (C) 1 3 (D) 3 1 15 以下程序段执行时，两条Print语句的输出结果是()

Open “D:\\Report.txt” For Random As #5 Seek #5,3 Seek #5,10 Seek#5,7 Print Seek (5) Print Loc (5) Close #1

(A) 7和6 (B) 7和5 (C) 3和5 (D) 5和10

16 以下能够正确地向已打开的5号顺序文件中写入数据的语句是() (A) Write #5;100,200 (B) write #5; 100; 200 (C) Write #5,100;200 (D)Write #5 100;200

17 设有一打开的1号顺序文件，则语句Write #1,”abc”,”ef”执行完后，写入到文件中的内容是()

(A) abc, ef (B) “abc”, ”ef” (C)abcd (D) “abc””ef”

18 以下能正确地向已打开的2号顺序文件中写入变量x和y的值的语句是() (A) Print #2,x; y (B) Print #2; x; y (C) Print #1, x, y (D) Print #1; x; y

19 在下列语句中，能从当前打开的5号文件中读取到10个字符的是() (A) Input #1,ch (B) ch=Input (10,#5) (C) Input(10, #5) (D) Line Input #5, ch

20 如果从已打开的1号文件顺序文件中读取一行数据并赋给变量Str，应使用的语句是() (A) Input #1,Str (B) Str=Input(Len(Line),#1) (C)Line Input #1,Str (D) Get #1, , Str 21 在Visual Basic中，要删除D盘上的MyData文件夹内所有扩展名为.bak的文件，应书写的语句是()

(A) Kill “D:\\MyData\\*.bak” (B) Del “D:\\MyData\\*.bak” (C) Kill D:\\MyData\\*.bak (D) Del D:\\MyData\\*.bak 22 要在随机文件中删除某条记录，则应() (A) 直接使用Kill命令来实现

(B) 使用Put #语句向该记录的位置上写入一条空白记录

(C) 将该条记录后面的所有记录依次向前移动一条记录并重写文件 (D) 将文件中该记录的记录号用Delete删除 23 能从随机文件中读取数据的语句是()

(A) Input # (B) Print # (C) Put # (D) Get #

24 要把一个变量的值写入到随机文件中的指定位置，则应使用的语句及格式是() (A) Put 文件号，记录号，变量名 (B) Get 文件号，记录号，变量名 (C) Put 文件号，变量名，记录号 (D) Get 文件号，变量名，记录号

25 要向顺序文件Stu.txt中写入数据，则打开该文件的语句应是() (A) Open “Stu.txt” For Output As #2 (B) Open “Stu.txt” For Input As #2 (C) Open “Stu.txt” For Random As #2

(D) Open Stu.txt For Output As #2 26 以下说法中，正确的是()

(A) 用Open语句打开的文件必须是已经存在的文件

(B) 不管是随机文件，还是顺序文件，其中的每条记录都以回车符和换行符结尾 (C) 不管是随机文件，还是顺序文件，其中的每条记录的长度完全相同 (D) 随机文件中的每条记录对应位置上的字段的类型和长度都相同