全国计算机等级考试二级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】(注意不要写点)。

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

计算机二级vb考试题及答案一、单选题（每题2分，共20分）1. VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 在VB中，哪个关键字用于声明一个变量？A. DimB. SetC. ConstD. Option答案：A3. VB中的窗体对象Form的默认名称是什么？A. Form1B. Form2C. FormMainD. MainForm答案：A4. 在VB中，哪个函数用于将字符串转换为数字？A. StrB. ValC. CIntD. CStr5. VB中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A6. VB中，哪个事件用于响应鼠标单击动作？A. ClickB. MouseDownC. MouseUpD. DoubleClick答案：A7. 在VB中，哪个属性用于设置文本框（TextBox）的只读状态？A. ReadOnlyB. EnabledC. VisibleD. BackColor答案：A8. VB中，哪个方法用于在文本框中追加文本？A. AppendB. InsertC. AddD. Print答案：D9. VB中，以下哪个选项是正确的循环结构？B. WhileC. DoD. All of the above答案：D10. 在VB中，哪个函数用于获取当前日期？A. NowB. DateC. TodayD. Time答案：C二、判断题（每题1分，共10分）1. VB中的数组下标默认从0开始。

（错误）2. VB中可以使用Mid函数来获取字符串的子串。

（正确）3. VB中，使用Set可以声明对象变量。

（正确）4. VB中的If语句后面必须跟Then关键字。

（正确）5. VB中，使用Randomize函数可以初始化随机数生成器。

（正确）6. VB中，使用Exit Sub可以提前退出Sub过程。

国家二级VB程序设计题带答案

Vb专项练习第一套题目1、打开“考生文件夹\96\工程1.vbp”，完善程序并保存。

实现功能：假设有一个5位数密码。

只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除。

请完善算法帮忙找出这个密码。

''请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()Dim x As LongFor x = ① To 67998 Step 10If (x Mod 67 = 0) And (x Mod 78 = 0) ThenPrint ②End If③End Sub2、“考生文件夹\51\工程1.vbp”是采用“穷举法”求出所有水仙花数的程序，请完善程序并保存。

说明：若一个三位数abc，满足：abc=a3+b3+c3，则称abc为水仙花数。

如三位数153满足：13+53+33=1+125+27=153，则153是水仙花数。

'请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善Private Sub Command1_Click()Dim i, a, b As IntegerFor i = 100 To ①a = i \ 100b = (i - a * 100) \ 10c = ②If a * a * a + b * b * b + c * c * c = i ThenPrint CStr(i)③Next iEnd Sub3、打开“考生文件夹\12\工程1.vbp”，完善程序并保存。

实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。

如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。

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

2005年9月全国计算机等级考试二级笔试试卷公共基础知识和Visual Basic 语言程序设计(考试时间90 分钟，满分100 分)一、选择题 (每小题 2 分,共 70 分 )下列各题A) 、 B) 、C)、 D) 四个选项中，只有一个选项是正确的。

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

（1）下列叙述中正确的是A ．程序设计就是编制程序C．程序经调试改错后还应进行再测试C。

B．程序的测试必须由程序员自己去完成D．程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是A ．顺序存储的有序线性表 B ．线性链表AC．二叉链表。

D．有序线性链表（3）下列关于栈的描述正确的是C。

A．在栈中只能插入元素而不能删除元素B．在栈中只能删除元素而不能插入元素C．栈是特殊的线性表，只能在一端插入或删除元素D．栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是D。

A．一个逻辑数据结构只能有一种存储结构B．数据的逻辑结构属于线性结构，存储结构属于非线性结构C．一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D．一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是C。

A．软件工程只是解决软件项目的管理问题B．软件工程主要解决软件产品的生产率问题C．软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D．软件工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是D。

A ． PDL( 过程设计语言 )B ．PAD 图C． N-S 图 D． DFD 图（7）下列叙述中正确的是A。

A ．软件交付使用后还需要进行维护B．软件一旦交付使用就不需要再进行维护C．软件交付使用后其生命周期就结束D．软件维护是指修复程序中被破坏的指令（8）数据库设计的根本目标是要解决A。

A ．数据共享问题B．数据安全问题C．大量数据存储问题 D ．简化数据维护（9）设有如下关系表 :R S TA B C A B C A B C112313112223223313则下列操作中正确的是B。

计算机二级VB练习题附答案

计算机二级VB练习题附答案计算机二级VB练习题附答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。

那么计算机二级vb考试会怎么考？以下仅供参考！【计算机二级VB练习题一】1、为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为True( )。

A.Contr01BoxB.MinButtonC.MaxButtonD.BorderStyle参考答案：A参考解析：本题考查窗体的常见属性。

窗体中ControlBox属性用来控制是否显示控制菜单，属性值为False时不显示控制菜单。

属性MinButton和MaxButton控制是否显示最大化和最小化按钮，属性BorderStyle则是设置窗体的边界样式。

2、组合框是文本框和( )特性的组合。

A.复选框B.标签C.列表框D.目录列表框参考答案：C参考解析：本题考查组合框。

组合框控件(ComboBox)是将文本框和列表框的功能结合在一起，用户可以在列表中选择某项(注：只能选取一项)，或在编辑区域中直接输入文本内容来选定项目。

3、Visual Basic根据计算机访问文件的方式将文件分成3类，其中不包括( )。

A.顺序文件B.Unix文件C.二进制文件D.随机文件参考答案：B参考解析：本题考查VB文件的分类。

VB中根据文件的访问形式分为顺序文件、随机文件和二进制文件。

4、下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。

A.内模式B.外模式C.概念模式D.逻辑模式参考答案：A参考解析：数据库管理系统的三级模式结构由外模式、模式和内模式组成。

外模式，或予模式，或用户模式，是指数据库用户所看到的数据结构，是用户看到的数据视图。

模式，或逻辑模式，是数据库中对全体数据的逻辑结构和特性的描述，是所有用户所见到的数据视图的总和。

全国计算机二级VB上机题库(题+答案)

一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。

请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。

只建立菜单，不必定义其事件过程。

注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。

2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。

编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。

程序中不能使用任何变量，直接显示字符串。

注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。

一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。

（2）菜单设计见表4-1。

表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。

（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。

（5）设计完成之后，按规定方式存盘。

2．【解题步骤】（1）建立界面和控件并设置控件属性。

程序中用到的控件及其属性见表4-2。

表4-2控件属性设置值按钮Name Cmd1Caption喜欢按钮Name Cmd2Caption不喜欢（2）编写程序代码。

参考代码：Private Sub Cmd1_Click()Print"数理化"End SubPrivate Sub Cmd2_Click()Print"政史地"End Sub（3）调试并运行程序。

全国计算机等级考试二级Visual+Basic语言程序设计真题精选2(含答案)

全国计算机等级考试二级Visual+Basic语言程序设计真题精选2一、单项选择题1.软件设计中模块划分应遵循的准则是（）。

A.低内聚低耦合B.高内聚低耦合√C.低内聚高耦合D.高内聚高耦合解析：软件设计中，模块划分应遵循的准则是高内聚低耦合、模块大小规模适当、模块的依赖关系适当等。

模块的划分应遵循一定的准则，以保证模块划分合理，并进一步保证以此为依据开发出的软件系统可靠性高，易于理解和维护。

模块之间的耦合应尽可能地低，模块的内聚应尽可能地高。

2.栈和队列的共同点是（）。

A.都是先进后出B.都是先进先出C.只允许在端点处插入和删除元素√D.没有共同点解析：栈和队列都是一种特殊的操作受限的线性表，只允许在端点处进行插入和删除。

二者的区别是：栈只允许在表的一端进行插入或删除操作，是一种“后进先出”的线性表；而队列只允许在表的一端进行插入操作，在另一端进行删除操作，是一种“先进先出”的线性表。

3.设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是（）。

A.Line1.X1=Line2.X2且Line1.YI=Line2.Y2 √B.Line1.X1=Line2.Y1且Line1.Y1=Line2.X1C.Line1.X2=Line2.X1且Line1.Y1=Line2.Y2D.Line1.X2=Line2.X1且Line1.Y2=Line2.Y2解析：直线控件的X1、Y1和X2、Y2属性分别表示直线两个端点的坐标，即（X1，Y1）和（X2，Y2）。

如果要使两条直线相连，显然这两条直线的某一端点的坐标相同才行。

因此本题需要Line1.X1=Line2.X1且Line1.Y1=Line2.Y1，或Line1．X1=Line2.X2且Line1.Y1=Line2.Y2，或Line1.X2=Line2.X1且Line1.Y2=Line2.Y1，或Line1.X2=Line2.X2且Line1.Y2=Line2.Y2。

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

计算机二级vb考试试题及答案1. 简单应用(2小题，每题20分，计40分)注意：下面出现的"考生文件夹"均为*********************************************************** ***** *(1)在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其他局部。

存盘时不得改变文件名和文件夹。

此题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为"复制"。

要求程序运行后，在列表框中自动建立四个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"。

如果选择列表框中的一项，那么单击"复制"按钮时，可以把该项复制到文本框中。

(2)在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm ，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即'号)，但不能修改其它局部。

存盘时不得改变文件名和文件夹。

此题描述如下：在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。

要求程序运行后，如果选中某个复选框，那么当单击"显示"命令按钮时，那么显示相应的信息。

例如，如果选取中"体育"和"音乐"复选框，那么单击"显示"命令按钮后，在窗体上显示"我的爱好是体育音乐"(如下图);而如果选中"体育"、"音乐"和"美术"复选框，那么单击"显示"按钮后，在窗体上显示"我的爱好是体育音乐美术"。

全国计算机等级考试二级 VB 试卷

2002年9月全国计算机等级考试二级VB 试卷一、选择题(每题2分，共70分)下列各题A) 、B) 、C) 、D) 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

(1) 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是cA) 工程资源管理器窗口B) 工具箱窗口C) 代码窗口D) 属性窗口(2) 以下叙述中正确的是aA) 窗体的Name属性指定窗体的名称，用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变对象的Name属性的值D) 对象的Name属性值可以为空(3) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是cA) 单选按钮B) 图片框C) 通用对话框D) 文本框(4) 设有如下变量声明aDim TestDate As Date为变量TestDate正确赋值的表达方式是A) TextDate=#1/1/2002# B) TestDate=#“1/1/2002”#C) TextDate=date(“1/1/2002”) D) TestDate=Format(“m/d/yy”,“1/1/2002”)(5) 设有如下声明：bDim X As Integer如果Sgn(X) 的值为-1，则X的值是A) 整数B) 大于0的整数C) 等于0的整数D) 小于0的数(6) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：dPrivate Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为A) 15 16 B) 15 6 C) 15 15 D) 5 6(7) 设a=3,b=5，则以下表达式值为真的是A) a%26gt;=b And b%26gt;10 B) (a%26gt;b)Or(b%26gt;0)C) (a%26lt;0)Eqv(b%26gt;0) D) (-3+5%26gt;a)And(b%26gt;0)(8) 设有语句x=InputBox(“输入数值”，“0”，“示例”)程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是A) 变量X的值是数值10 B) 在InputBox对话框标题栏中显示的是“示例”C) 0是默认值D) 变量X的值是字符串“10”(9) 从键盘上输入两个字符串，分别保存在变量str1、str2中。

国家二级vb计算机考试试题及答案

国家二级vb计算机考试试题及答案一、选择题（每题2分，共40分）1. 在VB中，以下哪个选项表示逻辑“与”运算？A. AndB. OrC. NotD. Xor答案：A2. VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Str()C. Mid()D. Left()答案：A3. 以下哪个选项不是VB中的标准控件？A. TextBoxB. ComboBoxC. ListBoxD. DataGrid答案：D4. 在VB中，以下哪个关键字用于定义一个子程序？A. FunctionB. SubC. ProcedureD. Method答案：B5. VB中，以下哪个选项用于声明一个整型变量？A. Dim intVar As IntegerB. Dim intVar As StringC. Dim intVar As DoubleD. Dim intVar As Boolean答案：A6. 在VB中，以下哪个选项用于创建一个数组？A. Dim arr(10) As IntegerB. Dim arr As IntegerC. Dim arr(10)D. Dim arr[10] As Integer答案：A7. VB中，以下哪个选项用于获取当前日期？A. NowB. TodayC. DateD. Time答案：B8. 在VB中，以下哪个选项用于打开一个文件进行读取？A. Open For OutputB. Open For InputC. Open For RandomD. Open For Append答案：B9. VB中，以下哪个选项用于关闭一个打开的文件？A. CloseB. OpenC. WriteD. Read答案：A10. 在VB中，以下哪个选项用于实现循环结构？A. If...ThenB. Do...LoopC. For...NextD. While...Wend答案：C11. VB中，以下哪个选项用于声明一个全局变量？A. DimB. PublicC. PrivateD. Static答案：B12. 在VB中，以下哪个选项用于实现事件驱动编程？A. SubB. FunctionC. EventD. Procedure答案：C13. VB中，以下哪个选项用于声明一个模块级变量？A. DimB. PublicC. PrivateD. Static答案：C14. 在VB中，以下哪个选项用于实现条件分支结构？A. If...ThenB. Do...LoopC. For...NextD. While...Wend答案：A15. VB中，以下哪个选项用于声明一个静态变量？A. DimB. PublicC. PrivateD. Static答案：D16. 在VB中，以下哪个选项用于声明一个函数？A. SubB. FunctionC. ProcedureD. Method答案：B17. VB中，以下哪个选项用于实现异常处理？A. Try...CatchB. On ErrorC. If...ThenD. Do...Loop答案：B18. 在VB中，以下哪个选项用于声明一个类模块？A. ClassB. ModuleC. InterfaceD. Structure答案：A19. VB中，以下哪个选项用于声明一个接口？A. ClassB. ModuleC. InterfaceD. Structure答案：C20. 在VB中，以下哪个选项用于声明一个结构体？A. ClassB. ModuleC. InterfaceD. Structure答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个全局常量。

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下列关于死循环的叙述中正确的是（）。