1、二级 VISUAL+BASIC-12-2 及答案解析(总分：89.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：60.00)1.若看到程序有如下事件过程，则可以肯定的是，当程序运行时Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Print “VB Program“End Sub A. 若用鼠标左键单击名称为“Command1”的命令按钮，则执行此过程 B. 若用鼠标左键单击名称为“MouseDown”的命令按钮，则执行此过程 C. 若用鼠标右
2、键单击名称为“MouseDown”的命令按钮时，则执行此过程 D. 若用鼠标左键或右键单击名称为“Click”的控件时，则执行此过程（分数：2.00）A.B.C.D.2.有如下程序：Private Sub Form_Click( )Dim i As Integer, Sum As IntegerSum = 0For i = 2 To 10If i Mod 2=0 And i Mod 30 ThenSum = Sum + iEnd IfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为 A. 12 B. 30 C. 24 D. 18（分数：1.00）A.B.C.D.3.执行
3、语句 Dim X，Y As Integer 后，U /U A.x 和 Y 均被定义为整型变量 B.x 和 Y 均被定义为变体类型变量 C.X 被定义为整型变量，Y 被定义为变体类型变量 D.X 被定义为变体类型变量，Y 被定义为整型变量（分数：2.00）A.B.C.D.4.以下说法不正确的是 A. Visual Basic 是一种可视化编程工具 B. Visual Basic 是面向过程的编程语言 C. Visual Basic 是结构化程序设计语言 D. Visual Basic 采用事件驱动编程机制（分数：1.00）A.B.C.D.5.工程中有两个窗体，名称分别为 Form1、Form2，
4、Fonn1 为启动窗体，该窗体上有命令按钮 Command1。要求程序运行后单击该命令按钮时显示 Form2，则按钮 Click 事件过程应该是 _。 A. Private Sub Command1_click() Foma2.Show End Sub B. Private Sub Command1_Click() Form2.Visible End Sub C. Private Sub Command1_Click() Load Form2 End Sub D. Private Sub Command1_click() Form.Load EndSub（分数：1.00）A.B.C.D.6.为
5、了使文本框显示滚动条，除要设置 ScrollBars 外，还必须设置的属性是_。 A.AutoSize B.Alignment C.Multiline D.MaxLength（分数：1.00）A.B.C.D.7.有如下的一个函数过程：Function fn(ByVal num As Long)Dim k As Longk= 1num = Abs(num)do while numk = k * (num Mod 10)num= num/10Loop fn=kEnd Function以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字 123，该过程的运行结果是 _。Privat
6、e Sub Command1_Click()Dim n As LongDim r As Longn = CLng(n)r = fn(n)Print rEnd Sub A. 12 B. 6 C. 3 D. 1（分数：2.00）A.B.C.D.8.下列各种形式的循环中，输出“*”的个数最少的循环是U /U。 A.a=5:b=8 Do Print“*“ a=a+1 Loop While ab B.a=5:b=8 Do Print“*“ a=a+1 Loop Until ab C.a=5:b=8 Do Until a-b print“*“ b=b+1 Loop D.a=5:b=8 DoUntil ab
7、 Print“*“ a=a+1 Loop（分数：2.00）A.B.C.D.9.算法的时间复杂度是指 _。 A. 执行算法程序所需要的时间 B. 算法程序的长度 C. 算法执行过程中所需要的基本运算次数 D. 算法程序中的指令条数（分数：1.00）A.B.C.D.10.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_ClickU /UDim iAsInteger， n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i 10 Then Exit For
8、NextText1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。 A. 2 B. 3 C. 4 D. 5（分数：2.00）A.B.C.D.11.假如有如下的命令按钮(名称为 Command1)事件过程：Private Sub Command1_Click()x=InputBox(“输入：“，“输入整数“)MsgBox“输入的数据是：“，“输入数据：“+xEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数 1，则以下叙述中错误的是_。 A. x 的值是数值 1 B. 输入对话框的标题是“输入整数“ C. 信息框的标题是“输入数据：1“ D.
9、 信息框中显示的是“输入的数据是：“（分数：2.00）A.B.C.D.12.Visual Basic 根据计算机访问文件的方式将文件分成 3 类，其中不包括U /U。 A. 顺序文件 B. Unix 文件 C. 二进制文件 D. 随机文件（分数：2.00）A.B.C.D.13.产生10,27之间的随机整数的 Visual Basic 表达式是 A. Int(Rnd(1)*27)+10 B. Int(Rnd(1)*28)+10 C. Int(Rnd(1)*27)+11 D. Int(Rnd(1)*28)+11（分数：2.00）A.B.C.D.14.下面的语句用 Array 函数为数组变量 a 的
10、各元素赋整数值：a=Array(1，2，3，4，5，6，7，8，9)针对 a 的声明语句应该是U /U。 A. Dim a B. Dim a As Integer C. Dim a(9) As Integer D. Dim a() As Integer（分数：2.00）A.B.C.D.15.通过 InputBox 函数可以产生输入对话框。若执行下列语句：st$=InputBox(“请输入字符串“，“字符串对话框“，“字符串“)则运行程序，用户输入完毕并单击“确定”按钮后，st$变量的内容为U /U。 A. 字符串 B. 请输入字符中 C. 字符串对话框 D. 用户输入内容（分数：2.00）A.
11、B.C.D.16.下列关于栈的描述中错误的是 A. 栈是先进后出的线性表 B. 栈只能顺序存储 C. 栈具有记忆作用 D. 对栈的插入与删除操作中，不需要改变栈底指针（分数：2.00）A.B.C.D.17.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为_。 A. For i=0 To List1. ListCount-1 Next B. For i=0 To List1. Count-1 Next C. For i=1 To List1. ListCount Next D. For i=1 To List1. Count-1 Next（分数
12、：2.00）A.B.C.D.18.若在某窗体模块中有如下事件过程：Private Sub Command1_Click(Index As Integer)End Sub则以下叙述中正确的是U /U A.此事件过程与不带参数的事件过程没有区别 B.有一个名称为 Command1 的窗体，单击此窗体则执行此事件过程 C.有一个名称为 Command1 的控件数组，数组中有多个不同类型控件 D.有一个名称为 Command1 的控件数组，数组中有多个相同类型控件（分数：2.00）A.B.C.D.19.在程序代码中将图片文件 mypic.jpg 装入图片框 Picture1 的语句是 A. Pictu
13、re1.Picture=“mypic.jpg“ B. Picture1.Image=“mypic.jpg“ C. Picture1.Picture=LoadPicture(“mypic.jpg“) D. LoadPicture(“mypic.jpg“)（分数：1.00）A.B.C.D.20.在窗体上绘制一个名称为 Commandl 的命令按钮，然后编写如下程序：Option Base 1Private Sub Commandl_Click()Dim c As Integer,d As Integerd=0c=6x=Array(2，4，6，8，10，12)Fori=1 To 61fx(i)c T
14、hend=d+x(i)c=x(i)Elsed=d-cEnd IfNextiPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为U /U。 A.10 B.16 C.12 D.20（分数：2.00）A.B.C.D.21.当对命令按钮的 Picture 属性装入.bmp 图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为 1，该属性是U /U。 A.MousePicture B.Style C.DownPicture D.DisabledPicture（分数：2.00）A.B.C.D.22.以下叙述中错误的是 A. 下拉式菜单和弹出式菜单都用菜单编辑器
15、建立 B. 在多窗体程序中，每个窗体都可以建立自己的菜单系统 C. 除分隔线外，所有菜单项都能接收 Click 事件 D. 如果把一个菜单项的 Enabled 属性设置为 False，则该菜单项不可见（分数：2.00）A.B.C.D.23.一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是U /U。 A. 1:1 联系 B. 1:m 联系 C. m:1 联系 D. m:n 联系（分数：2.00）A.B.C.D.24.已知通用对话框名为 Cd1g，则执行下列的U /U语句，将弹出“帮助”对话框。 A. Cd1gShowHelp B. Cd1gShowAid C. Hel
16、pCd1g D. ShowHelp Cd1g（分数：1.00）A.B.C.D.25.设有如下程序：Private Sub Form_Click()Clsa$=“123456“For i=1 To 6Print Tab(12-i);_Next iEnd Sub程序运行后，单击窗体，要求结果如图所示，则应填入的内容为U /U。（分数：2.00）A.B.C.D.26.在 VisualBasic 中，要遍历一个对象集合中元素，应使用的语句是_。 A. For.Next B. ForEach.Next C. With.End With D. Do.Loop（分数：2.00）A.B.C.D.27.在窗体上
17、画一个通用对话框，其名称为 CommonDialogl，然后画一个命令按钮，并编写如Private Sub Command1_Click()CommonDialogl. Flags = vbOFNHideReadOnlyCommonDialogl. Filter =“ All Files(*.*)|*. * |Text Files(*.txt)|*. txtCommonDialogl. FilterIndex = 1CommonDialogl. ShowOpenMsgBox CommonDialogl. FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“
18、文件类型”框中显示的是 A. All Files(*.*) B. Text Files(*.txt) C. Batch Files(*.bat) D. All Files(*. *)|Text Files(*.txt)（分数：1.00）A.B.C.D.28.下列程序执行后，其输出结果为U /U。Dim a(5)For i=0 To 4a(i)=i+1m=i+1If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i)If i=2 Then a(i-1)=a(m-3)a(4)=iPrint a(i);Next i A. 1 1 1 4 4 B. 1 2 3 4 1 C. 1
19、2 1 4 4 D. 1 1 1 4 1（分数：2.00）A.B.C.D.29.内聚性是对模块功能强度的衡量，下列选项中，内聚性较弱的是U /U。 A. 顺序内聚 B. 偶然内聚 C. 时间内聚 D. 逻辑内聚（分数：2.00）A.B.C.D.30.设用复制、粘贴的方法建立了个命令按钮数组 Command1，以下对该数组说法错误的是 A. 命令按钮的所有 Caption 属性都是 Command1 B. 在代码中访问任意一个命令按钮只需使用名称 Command1 C. 命令按钮的大小都相同 D. 命令按钮共享相同的事件过程（分数：1.00）A.B.C.D.31.单击命令按钮执行下列程序，其输出
20、结果是U /U。Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integera=3b=4c=5Prim SecProc(c,b,a)End SubFunction FirProc(x As Integer,y As Integer,z As Integer)FirProc=2*x+y+3*zEnd FunctionFunction SecProc(x As Integer,y As Integer,z As Integer)SecProc=FirProc(z,x,y)+xEnd Function A.20 B.22
21、 C.28 D.30（分数：2.00）A.B.C.D.32.窗体上有 1 个名称为 Command1 的命令按钮，事件过程如下：Private Sub Command1_Click()m=-3.6If Sgn(m)Thenn=Int(m)Elsen=Abs(m)End IfPrint nEnd Sub运行程序，并单击命令按钮，窗体上显示的内容为_。 A.-4 B.-3 C.3 D.3.6（分数：1.00）A.B.C.D.33.下列程序段的执行结果为U /U。I=4x=5DoI=I+1x=x+2Loop Until I=7Print“I=“;IPrint“x=“;x A.I=4 x=5 B.I=
22、7 x=15 C.I=6 x=8 D.I=7 x=11（分数：2.00）A.B.C.D.34.假设变量 bool_x 是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是U /U。 A.bool_x=“False“ B.bool_x=.False. C.bool_x=#False# D.bool_x=False（分数：2.00）A.B.C.D.35.声明一个变量为局部变量应该用 A. Global B. Private C. Static D. Public（分数：2.00）A.B.C.D.二、B填空题/B(总题数：15，分数：29.00)36.滚动条响应的重要事件有 1 和 Change。（
23、分数：2.00）填空项 1:_37.设窗体上有一个名称为 CD1 的通用对话框、一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。程序执行时，单击 Command1 按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在 Text1 中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter=“文本文件|*.txt|Word 文档|*.doc“ CD1.FilterIndex=1 CD1.ShowOpen If CD1.FileNa
24、me“ Then Open U U /U /UFor Input As #1 Line Input #1, Ch$ Close #1 Text1.Text=U U /U /U End If End Sub（分数：4.00）填空项 1:_38.在文本框中，通过 1，属性能获得当前插入点所在的位置。（分数：2.00）填空项 1:_39.在窗体上画一个名称为 Combo1 的组合框，画两个名称分别 Labe11 和 Labe12 及 Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按(Enter)键(ASCII 码为 13)时，如果输入的项在组合框的列表中不
25、存在，则自动添加到组合框的列表中，并在 Labe12 中给出提示“已成功添加输入项”，如图 20-3 所示；如果存在，则在 Labe12 中给出提示“输入项已在组合框中”。请在U /U、U /U和U /U处将程序补充完整。 （分数：1.00）填空项 1:_40.数据结构分为线性结构和非线性结构，线性表、栈和队列都属于_。（分数：2.00）填空项 1:_41.一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的 1。（分数：2.00）填空项 1:_42.在命令按钮上释放鼠标按钮时，所触发的事件称为 1。（分数：2.00）填空项 1:_43.下面程序是由鼠标事件在窗体上画图，
26、如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreen End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single) PaintStart=True End Sub Private Sub Form_MouseMove(Button As Integ
27、er，Shift As Integer，X As Single，Y As Single) If PaintStart Then PSet(X，Y) End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) End Sub Private Sub Form_DblClick() Cls End Sub（分数：2.00）填空项 1:_44.设有如下程序 Option Base 1 Private Sub Command1_Click() Dim arrl D
28、im Min As Integer，i As Integer arrl=Array(12，435，76，-24，78，54， 866， 43) Min=_ For i=2 To 8 If arrl(i)Min Then Next i Print “最小值是：”；Min End Sub 以上程序的功能是：用 Arcay 函数建立一个含有 8 个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。（分数：2.00）填空项 1:_45.有时候需要暂时关闭计时器，这可以通过 1 属性来实现。（分数：2.00）填空项 1:_46.下面程序运行后，窗体中显示U U /U /U。 Private Su
29、b Command1_Click) ( ) aS =“*“ :b$ =“$“ For k = 1 To 3 x$ =Strings (Len(a$) +k,b$ ) Print x $; Next Print End Sub（分数：1.00）填空项 1:_47.数据库三级模式体系结构的划分，有利于保持数据库的 1。（分数：2.00）填空项 1:_48.如果在“立即”窗口中执行以下操作： a=8 b=9 print(aB) ； 则输出结果为_。（分数：2.00）填空项 1:_49.数据流图的类型有U U /U /U和事务型。（分数：1.00）填空项 1:_50.运行下列程序： Dim t As
30、Integer Private Sub Form_C1ickU /U t=2 x=Val(InputBox(“输入一个整数 5“) Print funl(x)；t End Sub Private Function funl(v) If y0 Then fun1=1:t=10 Else If y=0 Then fun1=0:t=20 Else fun1=-1:t=30 End If End Function 从键盘为变量 x 输入数据5，输出的结果是_。（分数：2.00）填空项 1:_二级 VISUAL+BASIC-12-2 答案解析(总分：89.00，做题时间：90 分钟)一、B选择题/B(总
31、题数：35，分数：60.00)1.若看到程序有如下事件过程，则可以肯定的是，当程序运行时Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Print “VB Program“End Sub A. 若用鼠标左键单击名称为“Command1”的命令按钮，则执行此过程 B. 若用鼠标左键单击名称为“MouseDown”的命令按钮，则执行此过程 C. 若用鼠标右键单击名称为“MouseDown”的命令按钮时，则执行此过程 D. 若用鼠标左键或右键单击名称为“Click”的控
32、件时，则执行此过程（分数：2.00）A.B.C.D. 解析：解析 事件过程名的一般形式是：对象名称一事件名称，本题中 Click 为命令按钮对象名称，MouseDown 为事件名称。MouseDown 事件是在鼠标键按下时触发的事件，不论按下的是鼠标左键还是右键。选项 A、B、C 对象名称错误，选项 D 正确。2.有如下程序：Private Sub Form_Click( )Dim i As Integer, Sum As IntegerSum = 0For i = 2 To 10If i Mod 2=0 And i Mod 30 ThenSum = Sum + iEnd IfNextPrin
33、t SumEnd Sub程序运行后，单击窗体，输出结果为 A. 12 B. 30 C. 24 D. 18（分数：1.00）A.B.C. D.解析：解析 纵观题目可以看出，本题程序段的作用是将从 2 到 10 中是 2 的倍数但不是 3 的倍数的数加求然后输出。在 2 到 10 中满足条件的数字是 2， 4，8，10，所以和是 24，故本题的正确答案是选项 C) 。3.执行语句 Dim X，Y As Integer 后，U /U A.x 和 Y 均被定义为整型变量 B.x 和 Y 均被定义为变体类型变量 C.X 被定义为整型变量，Y 被定义为变体类型变量 D.X 被定义为变体类型变量，Y 被定义
34、为整型变量（分数：2.00）A.B.C.D. 解析：解析 在 VB 中规定一个变量的数据类型的方式有：(1)在变量名的尾部附上类型说明符来标记变量的类型，如%表示整型、$表示字符串型；(2)在定义变量时指定其类型，注意定义变量时每个变量都应使用 As 子句申明类型，否则该变量将被视为变体类型。语句定义一组以该语句中指定范围内的字母和以这些字母开头的变量名的数据类型。本题中 X 被定义为变体类型变量，Y 被定义为整型变量。4.以下说法不正确的是 A. Visual Basic 是一种可视化编程工具 B. Visual Basic 是面向过程的编程语言 C. Visual Basic 是结构化程序
35、设计语言 D. Visual Basic 采用事件驱动编程机制（分数：1.00）A.B. C.D.解析：解析 Visual Basic 是面向对象的编程语言，故选项 B 的说法不正确。5.工程中有两个窗体，名称分别为 Form1、Form2，Fonn1 为启动窗体，该窗体上有命令按钮 Command1。要求程序运行后单击该命令按钮时显示 Form2，则按钮 Click 事件过程应该是 _。 A. Private Sub Command1_click() Foma2.Show End Sub B. Private Sub Command1_Click() Form2.Visible End Su
36、b C. Private Sub Command1_Click() Load Form2 End Sub D. Private Sub Command1_click() Form.Load EndSub（分数：1.00）A. B.C.D.解析：解析 Show 方法用来显示一个窗体。格式：窗体名称.Show模式，参数“模式”用来确定显示窗体的状态，可以取值 0 或 1。取值为 0(0 值是缺省值)则窗体是“无模式”窗体，当该窗体显示出来时，不但可以对该窗体进行操作，还可以对其他显示出来的窗体进行操作：取值为 1 则窗体是“模式”窗体，当该窗体显示出来时，只能对该窗体进行操作，只有当该窗体关闭后，
37、才能对其他窗体进行操作。6.为了使文本框显示滚动条，除要设置 ScrollBars 外，还必须设置的属性是_。 A.AutoSize B.Alignment C.Multiline D.MaxLength（分数：1.00）A.B.C. D.解析：解析 为了使文本框显示滚动条，要将 ScrollBars 的值设置为非 0 的 1、2 或 3，还要设置Multiline 属性为 True。7.有如下的一个函数过程：Function fn(ByVal num As Long)Dim k As Longk= 1num = Abs(num)do while numk = k * (num Mod 10)
38、num= num/10Loop fn=kEnd Function以下是一个调用该函数的事件过程，在运行该程序后，在输入对话框中输入数字 123，该过程的运行结果是 _。Private Sub Command1_Click()Dim n As LongDim r As Longn = CLng(n)r = fn(n)Print rEnd Sub A. 12 B. 6 C. 3 D. 1（分数：2.00）A.B. C.D.解析：解析 本题的难点在于理解求余和整除运算。当“num=123”时，程序计算过程为“321=6”。8.下列各种形式的循环中，输出“*”的个数最少的循环是U /U。 A.a=5:
39、b=8 Do Print“*“ a=a+1 Loop While ab B.a=5:b=8 Do Print“*“ a=a+1 Loop Until ab C.a=5:b=8 Do Until a-b print“*“ b=b+1 Loop D.a=5:b=8 DoUntil ab Print“*“ a=a+1 Loop（分数：2.00）A.B.C. D.解析：9.算法的时间复杂度是指 _。 A. 执行算法程序所需要的时间 B. 算法程序的长度 C. 算法执行过程中所需要的基本运算次数 D. 算法程序中的指令条数（分数：1.00）A.B.C. D.解析：解析 所谓算法的时间复杂度，是指执行算法
40、所需要的计算工作量。为了能够比较客观地反映出一个算法的效率，在度量一个算法的工作量时，不仅应该与所使用的计算机、程序设计语言以及程序编制者无关，而且还应该与算法实现过程中的许多细节无关。为此，可以用算法在执行过程中所需基本运算的执行次数来度量算法的工作量。10.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_ClickU /UDim iAsInteger， n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i 10 Then Exit ForNex
41、tText1.Text = Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是_。 A. 2 B. 3 C. 4 D. 5（分数：2.00）A.B. C.D.解析：11.假如有如下的命令按钮(名称为 Command1)事件过程：Private Sub Command1_Click()x=InputBox(“输入：“，“输入整数“)MsgBox“输入的数据是：“，“输入数据：“+xEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数 1，则以下叙述中错误的是_。 A. x 的值是数值 1 B. 输入对话框的标题是“输入整数“ C. 信息框的标题是“输入数据：1“ D
42、. 信息框中显示的是“输入的数据是：“（分数：2.00）A. B.C.D.解析：解析 在默认情况下，InputBox 函数的返回值是一个字符串，如果没有事先声明返回值变量的类型，则把该函数的返回值赋给这个变量时，Visual Basic 总是把它当做字符串来处理。因此 x 的值是字符串 10。在知道 MsgBox 语句的使用格式后，可以知道前一个说的是消息框显示的信息，后一个是消息框的标题，据此可选择 A) 。12.Visual Basic 根据计算机访问文件的方式将文件分成 3 类，其中不包括U /U。 A. 顺序文件 B. Unix 文件 C. 二进制文件 D. 随机文件（分数：2.00）
43、A.B. C.D.解析：解析 访问文件时应根据文件包括的数据类型，来使用合适的文件访问类型。文件访问类型有 3种，顺序型，适用于读写在连续块中的文本文件；二进制型，适用于读写有固定长度记录结构的文本文件或者二进制文件；随机型，适用于读写任意有结构的文件。13.产生10,27之间的随机整数的 Visual Basic 表达式是 A. Int(Rnd(1)*27)+10 B. Int(Rnd(1)*28)+10 C. Int(Rnd(1)*27)+11 D. Int(Rnd(1)*28)+11（分数：2.00）A.B. C.D.解析：解析 Rnd(x)产生一个 0.11110.99999 之间的单
44、精度随机数。14.下面的语句用 Array 函数为数组变量 a 的各元素赋整数值：a=Array(1，2，3，4，5，6，7，8，9)针对 a 的声明语句应该是U /U。 A. Dim a B. Dim a As Integer C. Dim a(9) As Integer D. Dim a() As Integer（分数：2.00）A. B.C.D.解析：解析 利用 Array 函数，可以在程序运行之前初始化数组。Array 函数是用于为数组元素赋值，即把一个数据集读入指定数组中。其格式为：数组变量=Array(数组元素值列表)。其中，“数组变量”是预先定义的数组名，后面不带括号和下标。之所
45、以称为“数组变量”，是因为它作为数组使用，但预先定义时是以变量的形式来定义的，它既没有维数，也没有上下界。15.通过 InputBox 函数可以产生输入对话框。若执行下列语句：st$=InputBox(“请输入字符串“，“字符串对话框“，“字符串“)则运行程序，用户输入完毕并单击“确定”按钮后，st$变量的内容为U /U。 A. 字符串 B. 请输入字符中 C. 字符串对话框 D. 用户输入内容（分数：2.00）A.B.C.D. 解析：解析 InputBox 函数用于产生一个输入对话框，在对话框中显示提示，等待用户在对话框的文本框中输入内容或按下按钮，然后返回包含文本框内容的字符串。16.下列
46、关于栈的描述中错误的是 A. 栈是先进后出的线性表 B. 栈只能顺序存储 C. 栈具有记忆作用 D. 对栈的插入与删除操作中，不需要改变栈底指针（分数：2.00）A.B. C.D.解析：解析 本题考核栈的基本概念，我们可以通过排除法来确定本题的答案。栈是限定在一端进行插入与删除的线性表，栈顶元素总是最后被插入的元素，从而也是最先能被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除的元素，即栈是按照“先进后出”或“后进先出”的原则组织数据的，这便是栈的记忆作用，所以选项 A 和选项 C 正确。对栈进行插入和删除操作时，栈顶位置是动态变化的，栈底指针不变，选项 D 正确。由此可见，选项 B 错误。17.在窗体上画一个名称为 List1 的列表框，为了对列表框中的
