全国计算机等级考试二级VB真题与答案

合集下载

计算机二级VB考试题及答案

计算机二级VB考试题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩!1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容 121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1_Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS 或.BAS】(注意不要写点)。

(完整word版)计算机二级VB编程题目含答案

Private Sub Command1_Click()Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text)s = 0For i = 1 To ns = s + i ^ 2Next iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerOpen App.Path & "\" & "yssj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Next iClose #1End SubPrivate Sub Command2_Click()''' 不得删除本行注释Dim i As IntegerText1.Text = ""For i = 1 To 10If a(i) Mod 3 = 2 ThenText1.Text = Text1.Text & Str(a(i)) End IfNext iEnd SubPrivate Sub command1_Click()'''不得删除本行注释Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text)a = 0b = 0For i = 1 To na = a + ib = b + aNext iText2.Text = bEnd SubPrivate Sub Command1_Click()'''不得删除本行注释Dim i%, xh$, xm$Open App.Path & "\" & "Xhxm.txt" For Output As #1For i = 1 To 3xh = InputBox("请输入学号")xm = InputBox("请输入姓名")Write #1, xh, xmNext iClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim s as stringOpen App.Path & "\" & "Xhxm.txt" For Input As #2Do While Not EOF(2)Line Input #2, sText1.Text = Text1.Text & s & vbCrLf LoopClose #2End SubPrivate Sub Command1_Click()‘”读取文件”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & “jmwb.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private Sub Command2_Click()Dim s As String, co As String, c As String, Dim n As Integer, i As Integer, p As Integer s = Trim(Text1.Text)n = Len(s)co = ""For i = 1 To nc = Mid(s, i, 1)p = Asc(c) + 5co = co + Chr(p)Next iText2.Text = coEnd SubPrivate Sub command1_click()'''不得删除本行注释For N = 1 To 15x(N) = Int(Rnd * 91 + 10)Text1.Text = Text1.Text + Str(x(N)) Next NEnd Sub Private Sub Command2_Click()'''不得删除本行注释Dim m As Integer, K As IntegerFor N = 1 To 15For m = N + 1 To 15If x(m) > x(N) ThenK = x(N)x(N) = x(m)x(m) = KEnd IfNext mText2.Text = Text2.Text + Str(x(N)) Next NEnd SubPrivate Sub Command1_Click()Dim char As String * 1char = Trim(Text1.Text)If Not IsNumeric(char) ThenIf (Asc(char) >= 65 And Asc(char) <= 90) Or _(Asc(char) >= 97 And Asc(char) <= 120) ThenLabel1.Caption = "输入的是字母"Else: Label1.Caption = "输入的是其它符号"End IfElse: Label1.Caption = "输入的是数字"End IfEnd SubPrivate Sub Command1_Click()Text1.Text = UCase(Text1.Tag)End SubPrivate Sub Command2_Click()Text1.Text = LCase(Text1.Tag)End SubPrivate Sub Command3_Click()Text1.Text = Text1.TagEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存Text1.Tag = Text1.Text '用Text1.Tag属性作为保存textbox控件文本内容的临时存储区End SubPrivate Sub command1_Click()''' 不得删除本行注释Dim a As Integer, b As Integer, c As Integer Dim max As Integer, min As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)max = a + b + Abs(a - b)max = max / 2min = a + b - Abs(a - b)min = min / 2max = max + c + Abs(max - c)max = max / 2min = min + c - Abs(min - c)min = min / 2Text4.Text = maxText5.Text = minEnd SubPrivate Sub Command1_Click()Dim a As IntegerIf Not IsNumeric(Text1.Text) ThenMsgBox "请输入数字！", 48, "输入的不是数字"Else a = Val(Text1.Text)If (a Mod 4 = 0 And a Mod 100 <> 0) Or a Mod 400 = 0 ThenText2.Text = "闰年"Else: Text2.Text = "非闰年"End IfEnd ifText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim n As Integer, i As Integern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数" Open App.Path & "\" & "jfwj.txt" For Output As #1For i = 1 To nPrint #1, String(i, "*")Next iClose #1End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerFor i = 1 To 200If i Mod 3 = 0 And i Mod 7 = 0 ThenText1.Text = Text1.Text + Str(i)End IfNextEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim sum As Single, i As IntegerOpen App.Path & "\" & "Jsdata.txt" For Input As #1 For i = 1 To 15Input #1, Arr(i)Next iClose #1If Op1 ThenT1.Text = AaaEnd IfIf Op2 ThenT1.Text = BbbEnd IfEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As Integer, n As Integer, s As Integern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数" s = 0For i = 1 To nIf i Mod 3 = 0 Thens = s + iEnd IfNext iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim a As Integera = Val(Text1.Text)Text2.Text = zh(a)‘ zh过程在原本的程序代码中已经有了～直接可用End SubPrivate Sub Command1_Click() ''' 不得删除本行注释Dim x As DoubleDim y As Doublex = Val(Text1.Text)If x < 10 Theny = x - 1ElseIf x < 20 Theny = 2 * x - 1Else: y = 3 * x - 1End IfText2.Text = yEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Text1.Text = ""Open App.Path & "\" & "zfwj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Text1.Text = Text1.Text & " " & a(i)Next iClose #1End Sub Private Sub Command2_Click()''' 不得删除本行注释Dim t As StringText2.Text = ""For i = 1 To 10t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tText2.Text = Text2.Text & " " & a(i) Next iEnd SubPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = Val(Text1.Text)b = Val(Text2.Text)Label1.Caption = Int(Rnd() * (b - a + 1) + a) Label2.Caption = Int(Rnd() * (b - a + 1) + a) Label3.Caption = Int(Rnd() * (b - a + 1) + a)End SubPrivate Sub Command1_Click()Dim s as stringOpen App.Path & "\" & "Bdata.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text + s + Chr(13) + Chr(10) LoopClose #1End SubPrivate Sub Command1_Click()'''不得删改本行注释Dim n As Integern = Val(Text1.Text)If n < 100 Or n > 999 ThenMsgBox "请输入三位正整数", , "输入出错" Else: Text2.Text = Int(n Mod 10)Text3.Text = Int((n Mod 100) / 10)Text4.Text = Int(n / 100)End IfEnd SubPrivate Sub Command1_Click()'产生按钮的代码i = List1.ListIndexFor i = 0 To 9List1.AddItem Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command3_Click() ’清除按钮的代码List1.ClearList2.ClearEnd Sub Private Sub Command2_Click()'''不得删改本行注释Dim n As Double, j As Integeri = List1.ListIndexFor i = List1.ListCount - 1 To 0 Step -1 n = Val(List1.List(i))If n Mod 2 = 1 ThenList2.AddItem nList1.RemoveItem iEnd IfNext iEnd SubPrivate Sub Command1_Click()‘”读入数据”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & "yy.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim x As String, y As String * 1, n As Integer, i As Integer, p As Integerx = Trim(Text1.Text)n = Len(x)p = 0For i = 1 To ny = UCase(Mid(x, i, 1))If y >= "A" And y <= "Z" Thenp = p + 1End IfNext iLabel1.Caption = "共" & p & "个字母"End SubPrivate Sub Command1_Click()'''不得删除本行注释Dim n As Integer, k As Integer, i As IntegerFor n = 200 To 300k = Int(Sqr(n))For i = 2 To kIf n Mod i = 0 Then Exit ForNext iIf i > k Then List1.AddItem nNext nEnd Sub。

全国计算机等级考试二级VB笔试试题及参考答案

全国计算机等级考试二级VB笔试试题(1)一、单项选择题(每小题2分，共70分)1. 设在菜单编辑器中定义了一个菜单项，名为menu1。

为了在运行时显示该菜单项，应使用的语句是( )。

A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.menu1.Visible=TrueD.menu1.Visible=False 【答案】： C【解析】：显示是将属性Visual设置为True2. 以下合法的Visual Basic标识符是( )。

A.DoWhileB.DoC.56dD.A#BC【答案】：A【解析】：DoWhile是两个关键字拼接，从而变成非关键字，直接选择A。

B是关键字，丽C 以数字开头，D中间夹带字符“#”，均属于不允许之列。

3. 数据结构作为计算机的一门学科，主要研究数据的逻辑结构、对各种数据结构进行的运算，以及( )。

A.数据的存储结构B.计算方法C.数据映象D.逻辑存储【答案】：A4. 以下语句正确的是( )。

monDialog.Filter=All Files i*.*IPictures(*.bmp)|*.bmpmonDialog.Fliter="AllFileS"|"*.*"|"Pictures(*.bnlp)|"*.bmp"monDialog.Filter=="AllFiles|*.*|Pictures(*.bmp)|*.bmp"monDialog.Filter={ All Files |*.*| Pictures(*.bmp)|*.bmp}【答案】：C【解析】：这是概念题，答案为C。

可以这样解题：Filter属性要求的是字符串，所以只能从B和C中选择。

不会使用像B那样的混乱方式，由此可以判定应该选择C。

5. 下述关于数据库系统的叙述中正确的是( )。

A.数据库系统中数据的一致性是指数据类型一致B.数据库系统比文件系统能管理更多的数据C.数据库系统减少了数据冗余D.数据库系统避免了一切冗余【答案】：C【解析】：C和D两者的描述对象一样，结果必然在这两者之中。

2011-2019年全国计算机二级VB考试真题及答案

2011年9月全国计算机等级考试二级VB 笔试试卷及参考答案2011年 9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90 分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。

请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。

（1）下列叙述中正确的是（）。

A）算法就是程序B）设计算法时只需要考虑数据结构的设计C）设计算法时只需要考虑结果的可靠性D）以上三种说法都不对（2）下列关于线性链表的叙述中，正确的是A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C）进行插入与删除时，不需要移动表中的元素D）以上三种说法都不对（3）下列关于二叉树的叙述中，正确的是A）叶子结点总是比度为2的结点少一个B）叶子结点总是比度为2的结点多一个C）叶子结点数是度为2的结点数的两倍D）度为2的结点数是度为1的结点数的两倍（4）软件按功能可以分为应用软件、系统软件和支撑软件（或工具软件）。

下面属于应用软件的是A）学生成绩管理系统B）C语言编译程序C）UNIX操作系统D）数据库管理系统（5）某系统总体结构图如下图所示：该系统总体结构图的深度是A）7 B）6 C）3 D）2（6）程序调试的任务是A）设计测试用例B）验证程序的正确性C）发现程序中的错误D）诊断和改正程序中的错误（7）下列关于数据库设计的叙述中，正确的是A）在需求分析阶段建立数据字典B）在概念设计阶段建立数据字典C）在逻辑设计阶段建立数据字典D）在物理设计阶段建立数据字典（8）数据库系统的三级模式不包括A）概念模式B）内模式C）外模式D）数据模式（9）有三个关系R、S和T如下：则由关系R和S得到关系T的操作是A）自然连接B）差C）交D）并（10）下列选项中属于面向对象设计方法主要特征的是A）继承B）自顶向下C）模块化D）逐步求精（11）以下描述中错误的是A）窗体的标题通过其Caption属性设置B）窗体的名称（Name属性）可以在运行期间修改C）窗体的背景图形通过其Picture属性设置D）窗体最小化时的图标通过其Icon属性设置（12）在设计阶段，当按Ctrl+R键时，所打开的窗口是A）代码窗口B）工具箱窗口C）工程资源管理器窗口D）属性窗口（13）设有如下变量声明语句：Dim a, b As Boolean则下面叙述中正确的是A）a和b都是布尔型变量B）a是变体型变量，b是布尔型变量C）a是整型变量，b是布尔型变量D）a和b都是变体型变量（14）下列可以作为Visual Basic变量名的是A）A#A B）4ABC C）?xy D）Print_Text（15）假定一个滚动条的LargeChange属性值为100，则100表示A）单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B）滚动框位置的最大值C）拖动滚动框时滚动框位置的变化量D）单击滚动条箭头时滚动框位置的变化量（16）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()MsgBox Str(123 + 321)End Sub程序运行后，单击命令按钮，则在信息框中显示的提示信息为A）字符串“123+321”B）字符串“444”C）数值“444”D）空白（17）假定有以下程序：Private Sub Form_Click()a = 1:b = aDo Until a >= 5x = a * bPrint b; xa = a + bb = b + aLoopEnd Sub程序运行后，单击窗体，输出结果是A） 1 1 B） 1 1 C） 1 1 D） 1 12 3 2 4 3 8 3 6（18）在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。

计算机二级考试VB考试题及答案

计算机二级考试VB考试题及答案计算机二级考试VB考试题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB考试题及答案1、窗体中有一个名称为txtSpeed的文本框，一个名称为hsbSpeed的滚动条。

以下程序：Private Sub hsbSpeed_Change( )txtSpeeD.Text = hsbSpeeD.ValueEnd Sub当单击滚动条hsbSpeed右端的箭头时，以下说法不正确的是(B) (单)A.此时会触发change事件B.此时不会触发change事件C.在文本框中显示了滚动条滑块所在位置的值D.此时不会触发scroll事件2.利用窗体中的滚动条HScroll1改变窗体的背景色，可以这样编写代码：Private Sub HScroll1_Change( )R= HScroll1.Valueform1.BackColor = RGB(R，int(Rnd*256)，int(Rnd*256))End Sub以下说法不正确的是(C) (单)A.窗体的背景色是一个随机的颜色B.RGB函数取得到的颜色有256*256*256种C.表达式int(Rnd*256)取得随机数的范围为0-256之间的整数D.表达式int(Rnd*256)取得随机数的范围为0-255之间的整数3.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：Private Sub Slider1_change( )Text1.FontSize =【Slider1.value】End Sub当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。

4.窗体中有一个名称为Slider1的可选择性刻度滑块控件，一个名称为text1的文本框，如下程序：Private Sub Slider1_change( )Text1.【Fontsize】 = slider1.valueEnd Sub当拖动滑块时，以上程序实现用Slider控件设置文本框中的字体大小的功能。

计算机等级考试二级_VB笔试真题及答案

2006年9月二级VisualBasic程序设计笔试试卷及答案一、单项选择(1)下列选项中不符合良好程序设计风格的是_____ 。

A) )源程序要文档化B)数据说明的次序要规范化C) )避免滥用goto 语句D)模块设计要保证高耦合、高内聚(2)从工程管理角度，软件设计一般分为两步完成，它们是_____ 。

A) )概要设计与详细设计B)数据设计与接口设计C) )软件结构设计与数据设计D)过程设计与数据设计(3)下列选项中不属于软件生命周期开发阶段任务的是_____ 。

A) )软件测试B)概要设计C)软件维护D)详细设计(4)在数据库系统中，用户所见的数据模式为_____ 。

A) )概念模式B)外模式C)内模式D)物理模式(5)数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和_____ 。

A) )编码设计B)测试阶段C)运行阶段D)物理设计(6)设有如下三个关系表：下列操作中正确的是_____ 。

(7)下列叙述中正确的是_____ 。

A) )一个算法的空间复杂度大，则其空间复杂度也必定大B) )一个算法的空间复杂度大，则其时间复杂度必定小C) )一个算法的时间复杂度大，则其空间复杂度必定小D) )上述三种说法都不对(8)在长度为64 的有序线性表中进行顺序查找，最坏情况下需要比较的次数为_____ 。

A) ) 63 B) 64 C) 6 D) 7(9)数据库技术的根本目标是要解决数据的_____ 。

A) )存储问题B)共享问题C)安全问题D)保护问题(10)对下列二叉树：进行中序遍历的结果是_____ 。

A) ) ACBDFEG B) ACBDFGE C) ABDCGEF D) FCADBEG(11)以下叙述中正确的是_____ 。

A) )窗体的Name 属性指定窗体的名称，用来标识一个窗体B) )窗体的Name 属性值是显示在窗体标题栏中文本C) )可以在运行期间改变窗体的Name 属性的值D) )窗体的Name 属性值可以为空(12)以下叙述中错误的是_____ 。

全国计算机二级VB考试真题和答案

2007年春江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试二级试卷试卷语种：Visual Basic第一部分计算机基础知识1．微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。

在下列有关叙述中，错误的是。

A．A．目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件B．B．Moore定律指出，单块IC的集成度平均每半年翻一番C．C．从原料熔练到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高D．D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡2．在下列有关通信中使用的传输介质的叙述中，错误的是。

A．A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离大约100mB．B．同轴电缆可用于传输电视信号C．C．光纤价格高，一般不在校园网和企业网中使用D．D．微波的波长很短，适合于长距离、大容量无线通信3．二进制数（1010）2与十六进制数（B2）16相加，结果为。

A．(273)8B.(274)8C.(314)8D.(313)84.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6，则在这段文本中含有。

A．1个汉字和9个西文字符 C.3个汉字和5个西文字符B.2个汉字和7个西文字符 D.4个汉字和3个西文字符5.在下列有关CPU的叙述中,错误的是 .A. A.CPU的主要组成部分有运算器、控制器和寄存器组B. B.CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所不同C. C.为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU）D. D.目前PC机所有的CPU芯片均为Intel公司的产品6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。

若在启动过程中，用户按某一热键（通常是Del键）则可以启动CMOS设置程序。

计算机二级VB考试题及答案

计算机二级VB考试题及答案为了使广阔考生在备战计算机等级考试时，更快的掌握相应知识点，下面是搜索的计算机二级VB考试题及答案，供参考练习，预祝考生们考出自己理想的成绩!1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1Click( )n = Val(Text1.Text)If n2 = n/2 Thenf = f1(n)Elsef = f2(n)End IfPrint f; nEnd SubPublic Function f1(ByRef x)x=x*xf1=x+xEnd FunctionPublic Function f2(ByVal x)x=x*xf2=x+x+xEnd Function程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.72 36B.108 36C.72 6D.27 32.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )c = "1234"For i = 1 To 4c1 = Trim(Str( ))Print c1Next iEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234那么在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1Click( )n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j >Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：Private Function f(m As Integer)If m Mod 2 = 0 Thenf = mElsef = 1End IfEnd FunctionPrivate Sub Command1Click( )Dim i As Integers = 0For i = 1 To 5s = s + f(i)NextPrint sEnd Sub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click( )Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

机密★启用前2007年4月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计26注意事项一、考生应严格遵守考场规则，得到监考人员指令后方可作答。

二、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答题卡的相应位置上。

三、选择题答案必须用铅笔填涂在答题卡的相应位置上，填空题的答案必须用蓝、黑色钢笔或圆珠笔写在答题卡的相应位置上，答案写在试卷上无效。

四、注意字迹清楚，保持卷面整洁。

五、考试结束将试卷和答题卡放在桌上，不得带走。

待监考人员收毕清点后，方可离场。

A）算法的效率只与问题的规模有关，而与数据的存储结构无关B）算法的时间复杂度是指执行算法所需要的计算工作量C）数据的逻辑结构与存储结构是一一对应的D）算法的时间复杂度与空间复杂度一定相关（2）在结构化程序设计中，模块划分的原则是（）。

A）各模块应包括尽量多的功能B）各模块的规模应尽量大C）各模块之间的联系应尽量紧密D）模块内具有高内聚度、模块间具有低耦合度（3）下列叙述中正确的是（）。

A）软件测试的主要目的是发现程序中的错误B）软件测试的主要目的是确定程序中错误的位置C）为了提高软件测试的效率，最好由程序编制者自己来完成软件测试的工作D）软件测试是证明软件没有错误（4）下列选项中不属于面向对象程序设计特征的是（）。

A）继承性B）多态性C）类比性D）封装性（5）下列对队列的叙述正确的是（）。

A）队列属于非线性表B）队列按“先进后出”原则组织数据C）队列在队尾删除数据D）队列按“先进先出”原则组织数据（6）对下列二叉树：进行前序遍历的结果为（）。

A）DYBEAFCZX B）YDEBFZXCAC）ABDEYCFXZ D）ABCDEFXYZ（7）某二叉树中有n个度为2的结点，则该二叉树中的叶子结点数为（）。

A）n+1 B）n-1 C）2n D）n/2（8）在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是（）。

A）并B）交C）投影D）笛卡尔乘积（9）在E-R图中，用来表示实体之间联系的图形是（）。

A）矩形B）椭圆形C）菱形D）平行四边形（10）下列叙述中错误的是（）。

A）在数据库系统中，数据的物理结构必须与逻辑结构一致B）数据库技术的根本目标是要解决数据的共享问题C）数据库设计是指在已有数据库管理系统的基础上建立数据库D）数据库系统需要操作系统的支持（11）下列可以正确定义2个整型变量和1个字符串变量的语句是（）。

A）Dim n,m As Integer,s As StringB）Dim a%,b$，c As StringC）Dim a As Integer,b,c As StringD）Dim x%,y As Integer,z As String（12）下列表达式中不能判断x是否为偶数的是（）。

A）x/2=Int(x/2) B）x Mod 2=0C）FiX(x/2)=x/2 D）x\2=0（13）设在名称为Myform的窗体上只有1个名称为C1的命令按钮，下列叙述中正确的是（）。

A）窗体的Click事件过程的过程名是Myform_ClickB）命令按钮的Click事件过程的过程名是C1_ClickC）命令按钮的Click事件过程的过程名是Command1_ClickD）上述3种过程名称都是错误的（14）设窗体上有1个滚动条，要求单击滚动条右端的按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是（）。

A）Max B）Min C）SmallChange D）LargeChange（15）1个二维数组可以存放1个矩阵。

在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放1个4╳3矩阵（即只有12个元素）的是（）。

A）Dim a(-2 To 0,2)As Integer B）Dim a(3,2)As IntegerC）Dim a(4,3)As Integer D）Dim a(-1 To -4,-1 To -3)As Integer（16）若设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后，文本框中显示的是（）。

A）8个"$" B）1个"$" C）8个"*" D）无任何内容（17）设在窗体上有1个名称为Combol的组合框，含有5个项目，要删除最后一项，正确的语句是（）。

A）Combo1.RemoveItem Combo1.TextB）Combo1.RemoveItem 4C）Combo1.RemoveItem Combo1.ListCountD）Combo1.RemoveItem 5（18）工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。

要求程序运行后单击该命令按钮时显示Form2，则按钮的Click事件过程应该是（）。

A）Private Sub Command1_Click( ) B）Private Sub Command1_Click( )Form2.Visible Form2.Show End Sub End SubC）Private Sub Command1_Click( ) D）Private Sub Command1_Click( )Form2 Form2.Load Load End Sub End Sub（19）若在某窗体模块中有下列事件过程：Private Sub Command1_Click(Index As Integer)……End Sub则下列叙述中正确的是（）。

A）此事件过程与不带参数的事件过程没有区别B）有1个名称为Command1的窗体，单击此窗体则执行此事件过程C）有1个名称为Command1的控件数组，数组中有多个不同类型控件D）有1个名称为Command1的控件数组，数组中有多个相同类型控件（20）下列循环语句中在任何情况下都至少执行一次循环体的是（）。

A）Do While <条件> B）While <条件>循环体循环体Loop Wend C）Do D）Do Until <条件>循环体循环体LoopUntil <条件> Loop（21）在窗体上有1个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是（）。

A）Cd1.Action=2 B）Cd1.Action=1C）Cd1.ShowSave=True D）Cd1.ShowSave=0（22）下列关于菜单的叙述中错误的是（）。

A）各级菜单中的所有菜单项的名称必须惟一B）同一子菜单中的菜单项名称必须惟一，但不同子菜单中的菜单项名称可以相同C）弹出式菜单用PopupMenu方法弹出D）弹出式菜单也用菜单编辑器编辑（23）已知有下列过程：Private Sub proc1(a As Integer,b As String,Optional x As Boolean)……End Sub正确调用此过程的语句是（）。

A）Call proc1(5) B）Call proc1 5,"abc",FalseC）proc1(12,"abc",True) D）proc1 5,"abc"（24）在窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。

下列能够正确实现上述功能的程序是（）。

A）Private Sub Command1_Click( ) B）Private Sub Command1_Click( )Text1.Left=100 Text1.Left=Text1.Left-100 End Sub End SubC）Private Sub Command1_Click( ) D）Private Sub Command1_Click( )Textl.Move Text1.Left+100 Text1.Move Text1.LeftEnd Sub End Sub（25）某人创建了1个工程，其中的窗体名称为Form1；之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（）。

A）在工程属性对话框中把“启动对象”设置为Form2B）在Forml的Load事件过程中加入语句Load Form2C）在Form2的Load事件过程中加入语句Form2.ShowD）把Form2的TabIndex属性设置为l，把Form1的TabIndex属性设置为2（26）窗体上有1个名称为Text1的文本框和1个名称为Command1.的命令按钮。

要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。

下列能够正确实现以上功能的程序是（）。

A）Private Sub Command1_Click( )Open "out.txt" For Input As #1Print #1,Text1.TextClose #1End SubB）Private Sub Command1_Click( )Open "out.txt" For Output As #1Print #1,Text1.TextClose #1End SubC）Private Sub Command1_Click( )Open "out.txt" For Append As#1Print #1,Text1.TextClose #1End SubD）Private Sub Command1_Click( )Open "out.txt" For Random As#1Print #1,Text1.TextClose #1End Sub（27）为了计算1+3+5+…+99的值，某人编程下列：k=1s=0While k<=99k=k+2∶s=s+kWendPrint s在调试时发现运行结果有错误，需要修改。

下列错误原因和修改方案中正确的是（）。

A）While…Wend循环语句错误，应改为For k=1 To 99 …Next kB）循环条件错误，应改为While k<99C）循环前的赋值语句k=l错误，应改为k=0D）循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2（28）下列程序在调试时出现了死循环：Private Sub Command1_Click( )n=InputBox("请输入一个整数")DoIf n Mod 2=0 Thenn=n+1Elsen=n+2End IfLoop Until n=1000End Sub下列关于死循环的叙述中正确的是（）。