二级Visual+Basic语言程序设计模拟152
1 [模拟] 二级Visual Basic语言程序设计模拟152 单项选择题 第1题： 在窗体上面一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1＿Click() Dim A1(4)As Integer，A2(4)As Integer For k：0 T0 2 A1(k+1)=InputBox(“请输入一个整数”) A2(3一k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为( )。 A.0 B.1 C.2 D.3 参考答案：C
程序运行过程如下： k=0，输入2，A1(k+1)=A1(0+1)=A1(1)=2，A2(3－k)=A2(3－0)=A2(3)=2 k=1，输入4，A1(k+1)=A1(1+1)=A1(2)=4，A2(3－k)=A2(3－1)=A2(2)=4 k=2，输入6，A1(k+1)=A1(2+1)=A1(3)=6，A2(3－k)=A2(3－2)=A2(1)=6 k=3，For循环结束，输出A2(k)的值即A2(3)的值，即2。 第2题： 用链表表示线性表的优点是____。 A.花费的存储空间较顺序存储少 B.没有明显优势 C.便于插入和删除操作 D.便于随机存取操作 参考答案：C
链式存储结构克服了顺序存储结构的缺点：它的结点空间可以动态申请和释放；它的数据元素的逻辑次序靠结点的指针来指示，不需要移动数据元素。故链式存储结构下的线性表便于插入和删除操作。本题答案为C。 第3题： 设窗体上有2个文本框Text1和Text2，并有下面的事件过程： Dim n Private Sub Text1—KeyPress(KeyAscii As Integer) 2
lf“A”〈 ＝Chr(KeyAscii)And Chr(KeyAscii)〈 ＝“Z”Then n=n+1 End If If KeyAscii=13 Then Text2．Text＝n End If End Sub 程序运行时，在文本框Text1中输入“Visual Basic 6．0”并按回车键后，在文本框Text2中显示的是( )。 A.2 B.9 C.13 D.16 参考答案：A
KeyPress事件的参数KeyAscii为所按键的ASCII码，Chr函数把这个ASCii码转换为对应的字符，回车键的ASCii码值是13。程序中KeyPress过程的功能是统计Text1文本框中输入的字符串中A～z之间字母的个数，按回车键后把个数值显示在Text2文本框中。存Text1义本框中输入“Visual Basic 6．0”，其中A～z的字母有2个，按回车键后，Text文本框将会显示2。 第4题： 窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub Option1_Click(Index As Integer) … End Sub 下面关于此过程的参数Index 的叙述中，正确的是（ ）。 A.Index为1表示单选按钮被选中，为0表示未选中 B.Index 的值可正可负 C.Index 的值用来区分哪个单选按钮被选中 D.Index表示数组中单选按钮的数量 参考答案：C
Index参数值返回的是单选按钮数组中各单选按钮的索引值，用它来区分各单选按钮。因此A）、D）选项错误，C）选项正确；Index的值只能是非负数，因此B）选项错误。 第5题： 在窗体上画一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) ...... End Sub 假定焦点位于文本框中，则以下能触发 KeyPress 事件的操作是 ____ A.在窗体上单击鼠标 B.双击文本框 3
C.用鼠标滑过文本框 D.按下键盘上的某个键 参考答案：D
KeyPress事件，当用户按下和松开一个键时所触发的事件，该事件将返回所按键的ASCII码值，故D选项正确。 第6题： 编写如下程序： Private Sub Command1_Click() Dim m As Integer， n As Integer n＝2 For m＝1 To 3 Print proc(n)； Next m End Sub Function proc(i As Integer) Dim a As Integer Static b As Integer a＝a＋1 b＝b＋1 proc＝a * b＋i End Function 程序运行后，单击命令按钮Command1，输出结果为____。 A.3 3 3 B.3 4 5 C.3 5 6 D.1 2 3 参考答案：B
第7题： 编写如下程序： Private Sub Command1_Click() Dim i As Integer, num As Integer Dim arr(10) As Integer For i = 0 To 10 arr(i) = i Next Do num = num + arr(10 - i) i = i - 1 Loop Until i ﹤= 5 Print num End Sub 程序运行后，单击命令按钮Command1，输出结果为 ____ 4
A.0 B.1 C.10 D.程序出错 参考答案：D
定义数组 arr(10)，并利用For循环对其赋值 arr(10)=[0,1,2，...,9,10]。在Do循环中，意在对数组 arr(10)中的部分元素值求和。题目中的程序Do语句缺少对i的赋值，故程序出错。所以选择D项。 第8题： 下列叙述中错误的是（ ）。 A.在数据库系统中，数据的物理结构必须与逻辑结构一致 B.数据库技术的根本目标是要解决数据的共享问题 C.数据库设计是指在已有数据库管理系统的基础上建立数据库 D.数据库系统需要操作系统的支持 参考答案：A
数据库应用系统中的核心问题是设计一个能满足用户需求、性能良好的数据库，这就是数据库设计，因此本题答案为A）。 第9题： 现有如下一段程序： x＝UCase(InputBox("输入：")) Select Case x Case "A" To "C" Print "考核通过！" Case "D" Print "考核不通过 ！" Case Else Print "输入数据不合法！" End Select End Sub 执行程序，在输入框中输入字母"B"，则以下叙述中正确的是____。 A.程序运行错 B.在窗体上显示"考核通过！" C.在窗体上显示"考核不通过 ！" D.在窗体上显示"输入数据不合法！" 参考答案：B
程序中Ucase函数将输入的字母转换为大写，然后通过Select多分支控制语句选择输出不同信息，当输入字母在"A"到"C"之间时，显示"考核通过！"，输入的是"D"时显示"考核不通过！"，如果输入的是"A"到"D"之外的其他字符则显示"输入数据不合法！"。程序中输入字母"B"，因此会显示"考核通过！"。 第10题： 设有如下事件过程： 5
Private Sub Command1_Click() Dim a a = Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5) x = 0 n = UBound(a) For i = 0 To n m = 0 For j = 0 To n If a(i) = a(j) Then m = m + 1 End If Next j If m 〉 x Then x = m: b = a(i) Next i Print b End Sub 运行程序，输出是（ ）。 A.2 B.3 C.5 D.9 参考答案：B
本题程序中内层For循环统计具有相同值元素的个数，外层循环的功能则是对数组中的所有元素进行统计，找出第1个具有相同值的元素个数最多的那个元素值。数组中元素值为3的元素有5个，元素值为5的元素有5个，元素值为6的元素为3个，元素值为2的元素有1个，元素值为4的元素有2个，元素值为9的元素有1个。因此第1个具有相同元素值的最多个数的元素值是3，B）选项正确。 第11题： 设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组说法错误的是（ ）。 A.命令按钮的所有Caption 属性都是Command1 B.在代码中访问任意一个命令按钮只需使用名称Command1 C.命令按钮的大小都相同 D.命令按钮共享相同的事件过程 参考答案：B
在访问数组控件时，除了要使用控件的名称外，还需要使用控件下标（即Index属性）来区别数组控件中的具体控件。 第12题： 关系表中的每一横行称为一个( )。 A.字段 B.元组
二级Visual+Basic语言程序设计模拟216
[模拟] 二级Visual Basic语言程序设计模拟216单项选择题第1题：对长度为n的线性表排序，在最坏情况下，比较次数不是n(n－1)/2的排序方法是____。
A.快速排序B.冒泡排序C.直接插入排序D.堆排序参考答案：D除了堆排序算法的比较次数是O(nlog2n)，其他的都是n(n－1)/2。
第2题：下列叙述中正确的是____。
A.栈是"先进先出"的线性表B.队列是"先进后出"的线性表C.循环队列是非线性结构D.有序线性表既可以采用顺序存储结构，也可以采用链式存储结构参考答案：D栈是先进后出的线性表，所以A错误；队列是先进先出的线性表，所以B错误；循环队列是线性结构的线性表，所以C错误。
第3题：Visual Basic中的"启动对象"是指启动Visual Basic应用程序时，被自动加载并首先执行的对象。
下列关于Visual Basic"启动对象"的描述中，错误的是____。
A.启动对象可以是指定的标准模块B.启动对象可以是指定的窗体C.启动对象可以是Sub Main过程D.若没有经过设置，则默认的"启动对象"是第一个被创建的窗体参考答案：AVB中启动对象可以是Sub Main过程或窗体，不能是标准模块。
故A选项错误。
第4题：算法的空间复杂度是指____。
A.算法在执行过程中所需要的计算机存储空间B.算法所处理的数据量C.算法程序中的语句或指令条数D.算法在执行过程中所需要的临时工作单元数参考答案：A算法的空间复杂度是指算法在执行过程中所需要的内存空间。
所以选择A。
第5题：对于循环队列，下列叙述中正确的是____。
A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针参考答案：D循环队列的队头指针与队尾指针都不是固定的，随着入队与出队操作要进行变化。
计算机等级考试二级VisualBasic语言程序设计模拟题2题-无答案(660)34
计算机等级考试二级Visual Basic语言程序设计模拟题2020年(4)(总分100,考试时间120分钟)基本操作题1. 1.在窗体上画1个标题为“文字属性”、名称为FrameI的框架控件，在框架中画一个名称为Checkl的复选框数组，含2个数组元素。
按下标的前后顺序，其标题分别是“粗体”和“斜体”，并设置适当属性，使得“粗体”被选中，界面如图所示。
存盘时，工程文件名为sjtl．vbp，窗体文件名为sjt1．frm。
2. 2.在窗体上画一个名称为CD1的通用对话框，并设置属性使得在打开文件对话框时，其标题为“文件操作”，默认路径为C盘根目录；再画2个命令按钮，名称分别为Commandl、Command2，标题分别为“读文件”、“选择颜色”。
请编写适当的事件过程，使得程序运行时，单击“读文件”按钮后，可以利用CDI弹出打开文件对话框，单击“选择颜色”按钮，可以弹出颜色对话框。
设计模式下的窗体外观如图所示。
存盘时，工程文件名为sjt2．vbp，窗体文件名为sjt2．frm。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。
简单应用题3. 3.在考生目录下有一个工程文件sjt3．vbp。
窗体上有一个名称为List1的空列表框。
程序运行时，单击Commandl按钮，则从键盘输入10个任意字符串，并按字典顺序添加到Listl 中成为它的列表项。
给出的程序不完整。
要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性。
最后把修改后的文件按原文件名存盘。
4. 4.考生文件夹下有一个工程文件sjt4．vbp，窗体左端中有一个小的实心圆。
程序运行时，单击窗体，圆将沿着正弦曲线的轨迹向右运动，运动一个正弦周期后。
再沿着原来的轨迹退回到原来的位置。
然后再沿正弦曲线的轨迹向右运动，如此周而复始。
给出的程序不完整。
要求：去掉程序中的注释符，把程序中的?改为正确的内容。
注意：考生不得修改窗体文件中已经存在的控件和程序。
计算机等级考试二级VisualBasic语言程序设计模拟题2真题无答案(375)37
计算机等级考试二级Visual Basic语言程序设计模拟题2020年(6)(总分100, 做题时间120分钟)基本操作题1.在名称为Forml的窗体上添加一个名称为L1的标签，标签上标题为“请输入密码”，添加一个名称为Textl的文本框，其宽、高分别为2000和300，设置适当的属性，使得在输入密码时，文本框中显示为“*”字符，此外再把窗体的标题设置为“密码窗口”，以上这些设置都必须在属性窗口中进行，程序运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
SSS_TEXT_QUSTI2.在名称为Forml的窗体上添加一个名称为P1的图片框，请编写适当的事件过程，使得程序在运行时，每单击一次图片框，就在图片框中输出“单击图片框”，每单击图片框外的窗体一次，就在窗体中输出“单击窗体”，运行时的窗体如图所示。
要求在程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。
SSS_TEXT_QUSTI3.在名称为Forml的窗体上添加两个名称分别为Textl和Text7．的文本框，它们的高、宽分别为300、2400和1200、2400 c，窗体的标题为“窗口”。
请通过属性窗口设置适当的属性，满足如下要求：①Text2可以显示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Textl中显示输入的字符为“*”.程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sjt1．frm。
SSS_TEXT_QUSTI4.在名称为FormI的窗体上添加一个名称为Imagel的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件picl．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。
二级Visual+Basic语言程序设计模拟106 (1)
[模拟] 二级Visual Basic语言程序设计模拟106单项选择题第1题：以下关于通用对话框的叙述中，错误的是( )。
A.在程序运行状态下，通用对话框控件是不显示的B.通用对话框控件是Visual Basic的标准控件C.设计时，通用对话框控件的火小是固定的，不能改变D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框参考答案：B通用对话框是一个AetiveX控件，不是标准控件，故B选项错误。
第2题：算法的空间复杂度是指____。
A.算法程序的大小B.算法执行过程中所需要的存储空间C.算法程序所占的存储空间D.算法程序中的指令数目参考答案：B一个算法的空间复杂度，一般是指执行这个算法所需的内存空间。
一个算法所占用的存储空间包括算法程序所占的空间、输入的初始数据所占的存储空间以及算法执行过程中所需要的额外空间。
本题答案是B。
第3题：有如下程序段：num = 80 + Rnd() * 5Select Case numCase Is ﹥= 85Print "优秀"Case Is ﹥= 60Print "合格"Case ElsePrint "不合格"End Select以上程序段的运行结果为 ____A.优秀B.合格C.不合格D.程序出错参考答案：BRnd产生0～1之间的随机数（不包括0和1），则num在80和85之间（不包括80和85）。
可知num满足Case IS ﹥= 60的条件，运行结果为合格，故选B 项。
第4题：为了调整图像框的大小以与其中的图形相适应，必须把它的Stretch属性设置为______。
A.TrueB.FalseC.1D.2参考答案：B图像框的Strethc属性值为False时，将自动放大或缩小图像框中的图形以与图像框的大小相适应。
[知识点] [选项个数]4 [试题编号] [分数] [题目类型] [难度]第5题：设有以下程序代码：Private Sub Command1_Click()Static a As Integerproc aPrint aEnd SubSub proc(x As Integer)x = x + 1End Sub运行程序，3次单击命令按钮，第3次单击后显示的是 ____A.0B.1C.3D.4参考答案：C过程proc中的参数是按地址传的，即实参的地址传给形参，形参x的变化也意味着a的变化，形参x增加1，实参变量a等于x，即也增加1。
二级Visual+Basic语言程序设计模拟175
[模拟] 二级Visual Basic语言程序设计模拟175单项选择题第1题：下列叙述中，不属于设计准则的是( )。
A.提高模块独立性B.使模块的作用域在该模块的控制域中C.设计成多入口、多出口模块D.设计功能可预测的模块参考答案：C大量软件设计表明，以下的设计准则是可以借鉴为设计的指导和对软件结构图进行优化，这些准则是：提高模块独立性；模块规模适中：深度、宽度、扇出和扇入适当；使模块的作用域在该模块的控制域中；应减少模块的接口和界面的复杂性；设计成单入口、单出口的模块；设计功能可预测的模块。
第2题：在窗体Form1上放一个名为Text1的文本框和一个名为Command1的命令按钮，然后编写一个事件过程。
要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“VB等级考试二级”。
以下能正确实现上述操作的事件过程是____。
A.Private Sub Text1—Change() Commandl．Caption=“VB等级考试二级”End SubB.rivate Sub Command1-Click() Caption=“VB等级考试二级” End SubC.Private Sub Forml—Click() Textl．Caption=“VB等级考试二级” End SubD.Private Sub Commandl—Click() Text1．Text=“VB等级考试二级” End Sub参考答案：A本题考查文本框的事件。
文本框的Click事件是单击文本框时触发的，Change事件是每次文本框中文本发生改变时都触发的事件。
题中要求当文本框的字符改变以后实现要求，因此应通过文本框的Change事件更改Commandl的Caption属性。
第3题：窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。
以下程序的功能是从顺序文件中读取数据：Private Sub Command1_Click()Dim s1 As String, s2 As StringOpen "c:\d4.dat" For Append As #3Line Input #3, s1Line Input #3, s2Text1.Text=s1+s2CloseEnd Sub该程序运行时有错误，应该进行的修改是______。
VB模拟试卷参考答案
计算机等级考试二级VB模拟试卷(一)杭州师范学院钱江学院计算机等级考试二级VB模拟考试参考答案一、计算机基础题（共15分）二、VB程序设计（共85分）（四）程序阅读题（20分，每题4分）1、4 5 62、101103、1 9 8 7 6 5 4 3 2 101 7 6 5 4 32 8 9 104、1 4 65、wFg,C4d5（五）程序设计题（25分，题1为5分）1、Public Function g(x As Single, eps As Single) As SingleDim e&, t!, i%If x < -1 Or x > 1 Theng = 0Elsee = 1i = 1Doe = e * it = (i + x) / eg = g + ti = i + 1Loop Until t < epsEnd IfEnd Function2、Private Sub Form_Click()Dim a(1 To 50) As Integer, i%, s!For i = 1 To 50a(i) = Val(InputBox("请输入一个数")) Next is = 0For i = 1 To 50s = s + a(i)Next is = s / 50Open "g:\data.txt" For Output As #1For i = 1 To 50If a(i) > s Then Print #1, a(i)Next IClose #1End Sub3.Dim n%Private Sub Command1_Click()n = Val(InputBox("输入要计时的秒数")) Timer1.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Form_Load()Form1.Caption = "到计时牌"Command1.Caption = "设置"Timer1.Interval = 1000Timer1.Enabled = FalseLabel1.Caption = "计时"End SubPrivate Sub Timer1_Timer()n = n - 1h = n \ 3600m = (n Mod 3600) \ 60s = n Mod 60Label1 = "还剩" & h & "小时" & m & "分" & s & "秒" If n = 0 ThenTimer1.Enabled = FalseLabel1 = "时间到！"Command1.Enabled = TrueEnd IfEnd Sub。