全国计算机二级考试《VB》操作试题及答案

全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行，目前处于紧张的备考阶段，以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后，VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中，VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中，要将一个窗体装载到内存进行变量初始化等预处理，但没有显示该窗体，应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段：a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

全国计算机等级考试二级vb笔试试卷及参考答案（附详细解析）20XX年3月全国计算机等级考试二级vb笔试试卷及参考答案（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）（1）下列关于栈叙述正确的是A）栈顶元素最先能被删除B）栈顶元素最后才能被删除C）栈底元素永远不能被删除D）以上三种说法都不对（2）下列叙述中正确的是A）有一个以上根结点的数据结构不一定是非线性结构B）只有一个根结点的数据结构不一定是线性结构C）循环链表是非线性结构D）双向链表是非线性结构（3）某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为（假设根结点在第1层）A）3 B）4 C）6 D）7（4）在软件开发中，需求分析阶段产生的主要文档是A）软件集成测试计划B）软件详细设计说明书C）用户手册D）软件需求规格说明书（5）结构化程序所要求的基本结构不包括A）顺序结构B）GOTO跳转C）选择（分支）结构D）重复（循环）结构（6）下面描述中错误的是A）系统总体结构图支持软件系统的详细设计B）软件设计是将软件需求转换为软件表示的过程C）数据结构与数据库设计是软件设计的任务之一D）PAD图是软件详细设计的表示工具（7）负责数据库中查询操作的数据库语言是A）数据定义语言B）数据管理语言C）数据操纵语言D）数据控制语言（8）一个教师可讲授多门课程，一门课程可由多个教师讲授，则实体教师和课程间的联系是A）1:1联系B）1：m联系C）m：1联系D）m：n联系（9）有三个关系R、S和T如下：R S T AB C A1 2 B2 1 C3 1则由关系R 和S 得到关系T 的操作是A ）自然连接B ）交C ）除D ）并（10）定义无符号整数类为UInt ，下面可以作为类UInt 实例化值的是A ）-369B ）369C ）0.369D ）整数集合{1，2，3，4，5}（11）在Visual Basic 集成环境中，可以列出工程中所有模块名称的窗口是A ）工程资源管理器窗口B ）窗体设计窗口C ）属性窗口D ）代码窗口（12）假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是A ）LoadB ）ClickC ）LostFocusD ）KeyPress(13)为了使标签具有“透明”的显示效果，需要设置的属性是A) Caption B) Alignment C) BackStyle D) AutoSize（14）下面可以产生20-30（含20和30）的随机整数的表达式是A) Int （Rnd*10+20） B) Int （Rnd*11+20）C) Int （Rnd*20+30） D) Int （Rnd*30+20）（15）设窗体上有一个名称为HS1的水平滚动条，如果执行了语句： HS1.Value=（HS1.Max-HS1.Min ）/2+HS1.Min 则A ）滚动块处于最左端B ）滚动块处于最右端C ）滚动块处于中间位置D ）滚动块可能处于任何位置，具体位置取决于Max 、Min 属性的值（16）窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A ）Print Cb1.SelectedB ）Print Cb1.List(Cb1.ListIndex)C ）Print Cb1.Selected.TextD ）Print Cb1.List(ListIndex)(17)为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是C 1 A B c 3A) 把这2组单选按钮设置为名称不同的2个控件数组B) 使2组单选按钮的Index属性分别相同C) 使2组单选按钮的名称分别相同D) 使2组单选按钮分别画到2个不同的框架中（18）如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是A）它的Y1、Y2属性的值相等B）它的X1、X2属性的值相等C）它的X1、Y1属性的值分别与X2、Y2属性的值相等D）它的X1、X2属性的值分别与Y1、Y2属性的值相等（19）设a=2,b=3,c=4,d=5,则下面语句的输出是Print 3>2*b Or a=c And b<>c Or c>dA) False B) 1 C) True D) -1(20)窗体Form1上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是A) Private Sub Form1_Click()…End SubB) Private Sub Form_Click()…End Sub C) Private Sub Command1_Click()…End SubD) Private Sub Command_Click()…End Sub(21)默认情况下，下面声明的数组的元素个数是Dim a（5，-2 to 2）A）20 B）24 C）25 D）30（22）设有如下程序段Dim a(10)……For Each x In aPrint x;Next x在上面的程序段中，变量x必须是A) 整型变量B）变体型变量C）动态数组D)静态数组（23）设有以下函数过程Private Function Fun(a() As Integer, b As String)As Integer …End Function若已有变量声明：Dim x(5)As Integer,n As Integer,ch As String则下面正确的过程调用语句是A. x(0)=Fun(x,"ch")B. n=Fun(n,ch)C. Call Fun x,"ch"D. n=Fun(x(5),ch)(24)假定用下面的语句打开文件：Open“Filel.txt”For Input AS #1则不能正确读文件的语句是A) Input #1 ，ch$ B) Line Input #1，ch$C) ch$=Input$(5,#1) D) Read #1 ,ch$(25)下面程序执行结果是Private Sub Command 1_Click（）a=10For k=1 To 5 Step-1a=a-kNext kPrint a ;kEnd SubA) -5 6 B) -5 -5 C)10 0 D) 10 1（26）设窗体上有一个名为Text1 的文体框和一个名为Command1 的命令按钮，并有以下事件过程：Private Sub Command 1_Click()X!=Val(Text1.Text)Select Case xCase Is <-10,Is>=20Print “输入错误”Case Is<0Print 20-xCase Is <10Print 20Case Is<=20Print x +10End SelectEnd Sub程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是A) 5 B) 20 C) 25 D) 输入错误（27）设有如下程序Private Sub Command 1_Click()X=10:y=0For i=1 To 5Dox=x-2y=y+2Loop Unti1 y>5 Or x<-1NextEnd Sub运行程序，其中Do循环执行的次数是A) 15 B) 10 C) 7 D) 3（28）阅读程序Private Sub Command 1_ ClickDim arrDim i As IntegerArr=Array (0,1,2,3,4,5,6,7,8,9,10)For i=0 To 2Printarr（7 –i）;NextEnd Sub程序运行后，窗体上显示的是：A) 8 7 6 B) 7 6 5C) 6 5 4 D) 5 4 3（29）在窗体上画一个名为Command 1的命令按钮，然后编写以下程序：Private Sub Command 1_Click()Dim a(10) As IntegerFor k=10 TO 1 Step -1a（k）=20-2*kNext kK=k+7Print a(k-a(k))End Sub运行程序，单击命令按钮，输出结果是A) 18 B) 12 C)8 D)6(30)窗体上有一个名为Command 1 的命令按钮，并有如下程序：Private Sub Command 1_Click()Dim a(10),x%For k=1 To 10a(k)=Int(Rnd*90+10)x=x+a(k) Mod 2Next kPrint xEnd Sub程序运行后，单击命令按钮，输出结果是：A) 10个数中奇数的个数B) 10个数中偶数的个数C) 10个数中奇数的累加和D) 10个数中偶数的累加和(31) 窗体上有一个名为Command 1的命令按钮和一个名为Timer 1 的计时器，并有下面的事件过程：Private Sub Command 1_Click()Timer 1.Enabled=TrueEnd SubPrivate Sub Form _Load()Timer 1.Interval=10Timer 1.Enabled=FalseEnd SubPrivate Sub Timer 1_Timer()Command 1.Left=Command 1.Left+10End Sub程序运行时，单击命令按钮，则产生的结果是A) 命令按钮每10秒向左移动一次B) 命令按钮每10秒向右移动一次C) 命令按钮每10毫秒向左移动一次D) 命令按钮每10毫秒向右移动一次（32）设窗体上有一个名为List1 的列表框，并编写下面的事件过程：Private Sub List 1_Click()Dim ch AS Stringch=List 1.List(List1.ListIndex)List 1.RemoveItem List1.ListIndexList 1.AddItem chEnd Sub程序运行时，单击一个列表项，则产生的结果是A) 该列表项被移到列表的最前面B) 该列表项被删除C) 该列表项被移到列表的最后面D) 该列表项被删除后又在原位置插入（33）窗体上有一个名为Command1的命令按钮，并有如下程序：Private Sub Command1_Click()Dim a As Integer, b As Integera = 8b = 12Print Fun(a, b); a; bEnd SubPrivate Function Fun(ByVal a As Integer, b As Integer) As Integera = a Mod 5b = b \ 5Fun = aEnd Function程序运行时，单击命令按钮，则输出结果是A）3 3 2 B）3 8 2 C）8 8 12 D）3 8 12（34）为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：Private Sub Command1_Click()Open "File1.txt" For Output As #20Do While Not EOF(20)Line Input #20, ch$Print chLoopEnd Sub程序调试时，发现有错误，下面的修改方案中正确的是A）在Open语句中的文件名前添加路径B）把程序中各处的“20”改为“1”C）把Print ch 语句改为Print #20,chD）把Open语句中的Output改为Input（35）以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。

下面的138道题目，在二级考试中命中率极高。

一、选择题(1) 下面叙述正确的是(C)A. 算法的执行效率与数据的存储结构无关B. 算法的空间复杂度是指算法程序中指令（或语句）的条数C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止D. 以上三种描述都不对(2) 以下数据结构中不属于线性数据结构的是(C)A. 队列B. 线性表C. 二叉树D. 栈(3) 在一棵二叉树上第5层的结点数最多是(B) 注：由公式2k-1得A. 8B. 16C. 32D. 15(4) 下面描述中，符合结构化程序设计风格的是(A)A. 使用顺序、选择和重复（循环）三种基本控制结构表示程序的控制逻辑B. 模块只有一个入口，可以有多个出口C. 注重提高程序的执行效率D. 不使用goto语句(5) 下面概念中，不属于面向对象方法的是 (D) 注：P55-58A. 对象B. 继承C. 类D. 过程调用(6) 在结构化方法中，用数据流程图（DFD）作为描述工具的软件开发阶段是(B)A. 可行性分析B. 需求分析C. 详细设计D. 程序编码(7) 在软件开发中，下面任务不属于设计阶段的是(D)A. 数据结构设计B. 给出系统模块结构C. 定义模块算法D. 定义需求并建立系统模型(8) 数据库系统的核心是(B)A. 数据模型B. 数据库管理系统C. 软件工具D. 数据库(9) 下列叙述中正确的是(C)A.数据库是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致(10) 下列模式中，能够给出数据库物理存储结构与物理存取方法的是(A) 注：P108A. 内模式B. 外模式C. 概念模式D. 逻辑模式(11) 算法的时间复杂度是指(C)A. 执行算法程序所需要的时间B. 算法程序的长度C. 算法执行过程中所需要的基本运算次数D. 算法程序中的指令条数(12) 算法的空间复杂度是指(D)A. 算法程序的长度B. 算法程序中的指令条数C. 算法程序所占的存储空间D. 算法执行过程中所需要的存储空间(13) 设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为(B) 注：利用公式n=n0+n1+n2、n0=n2+1和完全二叉数的特点可求出A. 349B. 350C. 255D. 351(14) 结构化程序设计主要强调的是(B)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性(15) 在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是(D) 注：即第一个阶段A. 概要设计B. 详细设计C. 可行性分析D. 需求分析(16) 数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。

大学计算机二级vb试题及答案1. VB语言基础知识VB（Visual Basic）是一种基于事件驱动的编程语言，以下是一些VB语言的基础知识：1.1 数据类型VB中支持的数据类型有：- 整数类型（Integer）：用于表示整数，范围为-32768到32767。

- 长整型（Long）：用于表示较大的整数，范围为-2,147,483,648到2,147,483,647。

- 单精度浮点型（Single）：用于表示带有小数点的数字，范围为-1.401298E-45到3.402823E+38。

- 双精度浮点型（Double）：用于表示较大范围的浮点数，范围为-4.94065645841247E-324到1.79769313486232E+308。

- 字符串型（String）：用于表示文本数据。

- 布尔型（Boolean）：用于表示真或假的值。

1.2 变量声明与赋值在VB中，可以使用Dim语句声明变量并赋初值。

例如：```Dim num As Integernum = 10```1.3 运算符VB支持常见的算术运算符（+、-、*、/）和比较运算符（>、<、=），以及逻辑运算符（And、Or、Not）等。

2. VB程序设计题2.1 编写程序，计算并输出1到100之间所有偶数的和。

```Dim sum As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextMsgBox "1到100之间所有偶数的和为：" & sum```2.2 编写程序，判断一个正整数是否为素数。

```Dim num As IntegerDim isPrime As Booleannum = InputBox("请输入一个正整数：") isPrime = TrueFor i = 2 To num - 1If num Mod i = 0 ThenisPrime = FalseExit ForEnd IfNextIf isPrime ThenMsgBox num & "是素数。

vb二级计算机考试试题及答案1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 下列哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs答案：A3. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. ConstC. FunctionD. Sub答案：A4. 如果有一个名为“TextBox1”的文本框控件，要获取其文本内容，应该使用哪个属性？A. TextB. ValueC. CaptionD. Name答案：A5. 在Visual Basic中，以下哪个事件是在窗体加载时触发的？A. LoadB. ClickC. MouseDownD. KeyPress答案：A6. Visual Basic中的哪个控件用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B7. 在Visual Basic中，以下哪个语句用于结束当前程序的执行？A. EndB. ExitC. StopD. Quit答案：A8. 如果要在一个循环中使用变量i，并且希望它从1开始，每次循环增加1，直到10结束，应该使用哪种类型的循环？A. For EachB. Do WhileC. ForD. Do Until答案：C9. 在Visual Basic中，以下哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrCompD. StrConv答案：A10. 如果要在一个程序中调用另一个模块中的函数，应该如何引用该函数？A. 直接使用函数名B. 使用模块名.函数名C. 使用模块名()调用D. 使用模块名:函数名答案：B。

85 （1）【考点分析】本题考点有：文本框的Name、Height、Width、Font、FontSize属性，窗体的Caption、MaxButton、MinButton属性。

【解题思路】根据题意添加控件并设置相应属性。

不显示窗体的最大化和最小化按钮只需将其MaxButton和MinButton属性设为False即可。

【操作步骤】步骤1：建立界面，添加控件并设置控件的属性。

程序中用到的控件及属性见表3.275。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

（2）【考点分析】本题考点有：图像框的Name、Picture、Stretch属性，命令按钮的Name、Caption属性。

【解题思路】图像框（Image）的Picture属性用于在设计阶段设置在图像框中显示的图片，它的Stretch（自动伸缩）属性用来设定载入其中的图片是否需要自动调整大小，以适应图像框的大小。

本题要在单击按钮时实现"向右移动"或"向下移动"的功能，应在程序中动态设置图像框的Left和Top属性。

【操作步骤】步骤1：建立界面，添加并设置控件的属性。

程序中用到的控件及属性见表3.276。

4 步骤2：编写程序代码。

参考答案Private Sub Command1_Click()Image1.Left = Image1.Left + 100End SubPrivate Sub Command2_Click()Image1.Top = Image1.Top + 100End Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。

（1）【考点分析】本题考点有：命令按钮的Caption属性和Click事件，直线控件的X1、X2、Y1、Y2属性，形状控件的Shape属性，Sin( )函数，Cos( )函数以及计时器的Enabled属性和Timer事件。

【解题思路】Sin( )函数和Cos( )函数分别返回变量的正弦和余弦值；通过X1、X2、Y1、Y2属性来设置直线的端点。

历年计算机二级vb考试试题及答案一、单选题1. 在VB中，以下哪个选项不是有效的数据类型？A. IntegerB. StringC. DateD. Boolean答案：C2. VB中，以下哪个关键字用于声明一个过程？A. FunctionB. SubC. ClassD. Property答案：B3. 在VB中，以下哪个选项是正确的字符串连接操作？A. "Hello" + "World"B. "Hello" & "World"C. "Hello" || "World"D. "Hello" / "World"答案：B4. VB中，以下哪个选项不是控制结构？A. If...ThenB. For...NextC. While...WendD. Dim答案：D5. 在VB中，以下哪个选项用于声明一个变量？A. DimB. ConstC. FunctionD. Sub答案：A二、多选题1. 在VB中，以下哪些选项是合法的数组声明？A. Dim numbers(10) As IntegerB. Dim names() As StringC. Dim matrix(2, 3) As DoubleD. Dim matrix(3) As Double答案：A, B, C2. VB中，以下哪些选项是合法的循环结构？A. For...NextB. Do...LoopC. While...WendD. Repeat...Until答案：A, B, C, D三、判断题1. VB中，所有的变量都必须在程序开始之前声明。

（对/错）答案：错2. VB中，可以使用“=”来比较两个字符串是否相等。

（对/错）答案：错3. VB中，可以使用“&”来连接两个字符串。

计算机二级VB上机操作练习题及答案计算机二级VB上机操作练习题及答案Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，下面店铺为为大家带来计算机二级VB上机操作练习题及答案，希望大家喜欢！一、基本操作题(1)在名称为Forml、标题为“球类项目”且没有最大化和最小化按钮的窗体上画1个名称为Combol的组合框。

组合框中的文本内容为空，表项内容有“乒乓球”、“羽毛球”和“网球”3项。

运行后的窗体如图所示。

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

(2)在名称为Forml、标题为“转换”的窗体上，画1个名称为Shapel、边框宽度为3的形状。

再画两个标题分别为“椭圆”和“圆”的命令按钮。

如下图所示。

要求：编写适当的事件过程，使得单击“椭圆”按钮时，Shapel 的形状变换为椭圆;单击“圆”按钮时，Shapel的形状变换为圆。

程序中不得使用变量，每个事件过程中只能写一条语句。

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

二、简单应用题(1)考生文件夹中有工程文件sjt3.vbv。

窗体上显示有一个列表框和一个文本框，且列表框中已有若干列表项。

程序的功能是，程序运行时，当用户在列表框中单击并选中某个列表项时，该项的内容将显示到文本框中，用户可以在文本框中对相关内容进行编辑，按回车键后，能够用编辑好的内容替换被选中的列表项，并自动清空文本框;当双击某个列表项时，则从列表框中删除该列表项;当用户直接在文本框中键入文本并按回车键后，则把该文本添加为列表框的一个新列表项，添加完成后，将文本框清空。

运行窗体如图所示。

要求：程序已经给出，但不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。

注意：考生不得修改窗体文件中已经存在的控件和程序。

最后程序按原文件名存盘。

一、基本操作题下面出现的“考生文件夹”均为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）调试并运行程序。

计算机二级VB考试题含答案计算机二级VB考试题含答案计算机二级VB考试题及答案1.以下能判断指针是否指向文件尾的函数是(D)(单)A.BOFB.LOCC.LOFD.EOF2.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单)A.如果工程中含有SubMain过程，则程序一定首先执行该过程B.不能把标准模块设置为启动模块C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体D.任何时刻最多只有一个窗体是活动窗体3.窗体的过程Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs Single)，有4个参数，关于这些参数，正确的描述是(D)(单)A.通过Button参数判定当前按下的是键盘上哪一个键B.Shift参数只能用来确定是否按下Shift键C.Shift参数只能用来确定是否按下Alt和Ctrl键D.参数x,y用来设置鼠标当前位置的坐标4.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)bo1.RemoveItemTextbo1.RemoveItem2bo1.RemoveItem3bo1.RemoveItemCombo1.Listcount5.以下关于焦点的叙述中，错误的是(A)(单)A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据B.当文本框失去焦点时，触发LostFocus事件C.当文本框的Enabled属性为False时，其Tab顺序不起作用D.可以用TabIndex属性改变Tab顺序6.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单)A.=B.*C.&D.-7.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=val(Text1.Text)SelectCasenCase1To20x=10Case2,4,6x=20CaseIs<10x=30Case10x=40EndSelectText2.Text=xEndSub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单)A.10B.20C.30D.408.设有以下循环结构Do循环体LoopWhile<条件>则以下叙述中错误的是(A)(单)A.若"条件"是一个为0的常数，则一次也不执行循环体B."条件"可以是关系表达式、逻辑表达式或常数C.循环体中可以使用ExitDo语句D.如果"条件"总是为True，则不停地执行循环体9.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnum>6Printnum;num=num+2.4LoopEndSub程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单)A.13.45.8B.135C.147D.无数据输出10.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1s=s+aa=a-1LoopWhilea<=0Prints;aEndSub程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单)A.79B.340C.97D.死循环11.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：有如下通用过程：PublicFunctionf(xAsInteger)DimyAsIntegerx=20y=2f=x*yEndFunctionPrivateSubCommand1_Click()StaticxAsIntegerx=10y=f(x)Printx;yEndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单)A.105B.205C.2040D.104012.设有如下通用过程：PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextIEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：PrivateSubCommand1_Click()Dimarr(5)AsVariantFori=1To5arr(i)=iNextICallFun(arr(),n)Text1.Text=nEndSub程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单)A.10B.15C.25D.2413.在窗体上画一个名称为Command1的`命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()d=0c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfPrintdEndSub程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)A.89B.99C.23D.7714.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。

计算机二级VB考试题及答案计算机二级VB考试题及答案「篇一」1.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "m/d/yy")Print Format(MyDate,"yyyy年m月dd日")End SubA.7/21/97 1997年7月21日B.7-21-97 1997年7月21日C.97/7/21 1997年7月21日D.7/21/97 97年7月21日2.以下程序段运行的结果为(B)(单)Private Sub Form_ClickMyTime = #9:21:30 PM#MyDate = #7/21/1997#Print Tab(2); Format(MyDate, "mmmm-yy")Print Tab(2); Format(MyTime, "hh:mm:ss A/P")End SubA.July-97 9:21:30 PB.July-97 09:21:30 PC.07-97 9:21:30 PD.July-97 9:21:303.以下程序段运行的结果为(C)(单)Private Sub Form_ClickMyDate = #7/21/1997#Print Format(MyDate, "dddd,mmmm,dd,yyyy")End SubA.21,07,1997B.21,07,21,1997C.Monday,July,21,1997D.Monday,07,21,19974.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入字符"abc"之后，单击命令按钮，结果为(B)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示5.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Text1_LostFocusIf Not IsNumeric(Text1) ThenMsgBox "帐号有非数字字符错误"Text1.Text = ""Text1.SetFocuselseMsgBox "帐号正确"End IfEnd Sub当在text1文本框中输入数字123456之后，单击命令按钮，结果为(A)(单)A.显示对话框，提示信息为"帐号正确"B.显示对话框，提示信息为"帐号有非数字字符错误"C.程序出错D.没有任何提示6.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"Gong"，则程序运行结果为(A)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示7.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", 5 + vbExclamation, "输入密码")If I <>4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfElseMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"gong"，则程序运行结果为(B)(单)A.显示对话框，提示"密码帐号正确!"B.显示对话框，提示"密码错误"C.程序出错D.没有任何提示8.在窗体中建立一个文本框text1和一个命令按钮command1，编写下面程序：Private Sub Command1_ClickDim I As IntegerIf Text1.Text <> "Gong" ThenI = MsgBox("密码错误", VbRetryCancle + vbExclamation, "输入密码")If I <> 4 ThenEndElseText1.Text = ""Text1.SetFocusEnd IfMsgBox "密码帐号正确!"End IfEnd Sub若在text1中输入字符串"123"，显示"密码错误"对话框，关于此对话框描述正确的是(A)(单)A.显示对话框中有“重试”按钮B.显示对话框中有“确定”按钮C.显示对话框中有“是”按钮D.以上说法都不正确9.在窗体中建立三个文本框，名称分别为text1、text2和text3，还有一个名称为label1的标签，一个名称为command1的命令按钮，编写如下代码：Private Sub Command1_ClickDim x, y, z, t!x = Text1y = Text2z = Text3If x < y Thent = xx = yy = tEnd IfIf y < z Thent = yz = tIf x< y Thent = xx = yy = tEnd IfEnd IfLabel1.Caption = x & "," & y & "," & zEnd Sub当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为(C)(单)A.3,5,8B.5,3,8C.8,5,3D.3.8.510.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入1，则label1的标题显示结果为(A)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.511.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入2，则label1的标题显示结果为(B)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.512.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的'整数"))Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入3，则label1的标题显示结果为(C)(单) A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.513.以下程序段：Private Sub Form_LoadDim Nop As Integer, Op As String * 1Num1 = 3Num2 = 2Nop = val(Inputbox("请输入1-4之间的整数")) Select Case NopCase 1Op = "+"Result = Num1 + Num2Case 2Op = "-"Result = Num1 - Num2Case 3Op = "×"Result = Num1 * Num2Case 4Op = "÷"Result = Num1 / Num2End SelectLabel1= Num1 & Op & Num2 & "=" & ResultEnd Sub窗体运行后，输入4，则label1的标题显示结果为(D)(单)A.3+2=5B.3-2=1C.3×2=6D.3÷2=1.514.以下程序段的作用是(A)(单)Private Sub Picture1_ClickDim asci As Integer, i As Integeri = 0For asci = 32 To 126Picture1.Print Tab(7 * i + 2); Chr(asci); "="; asci;i = i + 1If i = 7 Then i = 0: Picture1.PrintNext asciA.打印ASCII码表，一行7个表达式B.打印九九乘法表，一行7个表达式C.打印ASCII码表，一行8个表达式D.以上说法都不正确15.我国现在人口有13亿，按人口增长0.8%计算，多少年后我国人口将超过26亿。

计算机二级考试vb题库及答案1. 题目：在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 题目：在VB中，以下哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Exp答案：A3. 题目：在VB中，以下哪个语句用于结束当前的过程？A. EndB. ExitC. StopD. Both A and C答案：D4. 题目：在VB中，以下哪个关键字用于声明一个变量？A. DimB. ConstC. Both A and BD. None of the above答案：C5. 题目：在VB中，以下哪个事件用于响应鼠标单击事件？A. ClickB. MouseDownC. MouseUpD. Both A and B答案：A6. 题目：在VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. Both A and BD. None of the above答案：A7. 题目：在VB中，以下哪个控件用于显示文本，但不能编辑？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A8. 题目：在VB中，以下哪个结构用于创建循环？A. For...NextB. Do...LoopC. Both A and BD. None of the above答案：C9. 题目：在VB中，以下哪个关键字用于声明一个子程序？A. SubB. FunctionC. Both A and BD. None of the above答案：C10. 题目：在VB中，以下哪个关键字用于声明一个函数？A. SubB. FunctionC. Both A and BD. None of the above答案：B结束语：以上是计算机二级考试VB题库及答案的示例，希望对您的学习和复习有所帮助。