计算机二级考试VB一般程序设计习题
全国计算机二级《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语言程序设计考试题及答案
计算机二级VB语言程序设计考试题及答案计算机二级VB语言程序设计考试题及答案1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)A.7236B.10836C.726D.2732.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c="1234"Fori=1To4c1=Trim(Str())Printc1NextiEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为(B)(单)A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1,i,i)3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2TonForj=2Tosqr(i)IfiModj=0ThenExitForNextjIfj>Sqr(i)ThenPrintiNextiEndSub该事件过程的功能是(C)(单)A.输出n以内的奇数B.输出n以内的'偶数C.输出n以内的素数D.输出n以内能被j整除的数4.在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionf(mAsInteger)IfmMod2=0Thenf=mElsef=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsIntegers=0Fori=1To5s=s+f(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是(C)(单)A.11B.10C.9D.85.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j)=i+jNextjNextiText1.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)A.15B.14C.13D.126.VisualBasic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。
江苏省计算机二级考试VB程序设计复习题
江苏省计算机二级考试VB程序设计复习题一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。
2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。
3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。
第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。
2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是_ backcolor __。
5、所有控件都具有的共同属性是__ name __属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。
7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。
第三章1、一般可以使用____ Const ______关键字声明常量。
2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：_隐式声明__和__显示声明__。
安徽省计算机二级vb考试试题及答案
安徽省计算机二级vb考试试题及答案一、选择题（每题2分，共40分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 下列哪个函数用于获取当前系统日期？A. Now()B. Date()C. Time()D. Today()答案：B3. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. SetC. ConstD. All of the above答案：D4. 以下哪个控件不存在于Visual Basic标准工具箱中？A. TextBoxB. LabelC. CommandButtonD. ListBox答案：B5. 在Visual Basic中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D6. 如何在Visual Basic中声明一个名为“myFunction”的函数？A. Function myFunctionB. Sub myFunctionC. Procedure myFunctionD. Method myFunction答案：A7. 在Visual Basic中，以下哪个选项是正确的事件处理程序？A. On ClickB. On ChangeC. On LoadD. All of the above答案：D8. Visual Basic中，以下哪个选项用于创建一个数组？A. Dim myArray(10) As IntegerB. Set myArray = New IntegerC. Declare myArray As IntegerD. All of the above答案：A9. 在Visual Basic中，以下哪个选项是正确的条件语句？A. If...ThenB. Select CaseC. Do WhileD. All of the above答案：D10. 如何在Visual Basic中打开一个文件？A. Open "filename.txt" For Input As #1B. Open "filename.txt" For Output As #1C. Open "filename.txt" For Append As #1D. All of the above答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以定义一个类。
计算机等级考试二级VB真题附答案范文一份
计算机等级考试二级VB真题附答案范文一份计算机等级考试二级VB真题附答案12017年计算机等级考试二级VB真题附答案一、选择题1). ABC.DBF是一个具有两个备注型字段的数据表文件，若使用COPY TO TEMP命令进行复制操作，其结果是A.得到一个新的数据表文件B.得到一个新的数据表文件和一个新的备注文件C.得到一个新的数据表文件和两个新的备注文件D.错误信息，不能复制带有备注型字段的数据表文件正确答案：B2). 若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是A.bdgcefhaB.gdbecfhaC.bdgaechfD.gdbehfca正确答案：D3). 已知一棵二叉树前序遍历和中序遍历分别为__H和__F，则该二叉树的后序遍历为A.__AB.__AC.__HD.__G正确答案：B4). 下面有关注释语句的格式，错误的是A.Rem注释内容B.′注释内容C.a=3:b=2 ′对a、b赋值D.Private Sub Command1_MouseDown(button As Integer , shift As Integer , _Rem 鼠标按下事件的命令调用过程X As Single ,Y As Single)正确答案：D5). 栈底至栈顶依次存放元素A、B、C、D，在第五个元素E 入栈前，栈中元素可以出栈，则出栈序列可能是A.ABCEDB.DCBEAC.DBCEAD.CDABE正确答案：B二、基本操作题(1)在名称为Forml的窗体上添加一个名称为Shapel的形状控件，通过设置参数使其形状为圆形;添加一个名称为Labell的标签，标题为“形状”，标签的大小能够根据标签内容的字数、大小而定;添加一个名称为Textl的文本框，文本框最多能够显示5个字符，文本框中初始内容为“圆形”注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sitl.frm，工程文件名为sjtl.vbp。
计算机二级vb考试题库及答案
计算机二级vb考试题库及答案一、单选题1. VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. OptionD. All of the above答案：D3. VB中，以下哪个函数用于计算两个数的绝对值？A. AbsB. SgnC. IntD. Round答案：A4. 在VB中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. OptionButton答案：A5. VB中，以下哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyDown答案：A二、多选题1. VB中，以下哪些是合法的变量名？A. myVarB. 2ndVarC. _varD. $var答案：A, C2. 在VB中，以下哪些是基本的数据类型？A. IntegerB. StringC. BooleanD. Date答案：A, B, C, D3. VB中，以下哪些是常用的流程控制语句？A. If...Then...ElseB. For...NextC. Do...LoopD. With...End With答案：A, B, C三、判断题1. VB中的数组声明时必须指定大小。
（对/错）答案：错2. VB中，所有变量在使用前都必须声明。
（对/错）答案：对3. VB中，Sub过程可以返回值。
（对/错）答案：错四、填空题1. 在VB中，使用________关键字可以定义一个函数。
答案：Function2. VB中，使用________方法可以获取当前系统时间。
答案：Now3. VB中，使用________方法可以打开一个文件进行读写。
答案：Open五、简答题1. 请简述VB中事件驱动编程的概念。
全国计算机二级VB试题及答案
下面的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考试题附参考答案
国家二级计算机vb考试题附参考答案一、单项选择题（每题2分，共20分）1.在Visual Basic中，以下哪个选项不是基本数据类型？A.IntegerB.StringC.ObjectD.Boolean答案：C2.如果一个变量被声明为Dim x As Integer，那么x的值可以是以下哪个？A.123B."Hello"C.3.14D.True答案：A3.在Visual Basic中，哪个关键字用于声明过程？A.FunctionB.SubC.IfD.For答案：B4.下列哪个选项不是Visual Basic的控件？A.TextBoxbelC.ButtonD.List答案：D5.在Visual Basic中，以下哪个选项可以用于循环结构？A.ForB.IfC.Select CaseD.With答案：A6.在Visual Basic中，哪个函数用于计算一个数的绝对值？A.AbsB.RoundC.IntD.Sgn答案：A7.在Visual Basic中，哪个属性用于设置文本框的只读属性？A.ReadOnlyB.BackColorC.ForeColorD.Enabled答案：A8.在Visual Basic中，哪个事件用于响应按钮点击？A.ClickB.DoubleClickC.MouseDownD.MouseUp答案：A9.在Visual Basic中，哪个关键字用于创建数组？A.ArrayB.ListC.CollectionD.Dim答案：D10.在Visual Basic中，哪个函数用于将字符串转换为数字？A.StrB.ValC.CStrD.Chr答案：B二、填空题（每题2分，共20分）1.在Visual Basic中，使用________关键字可以声明一个全局变量。
答案：Public2.如果一个变量的值需要在多个过程中共享，应该使用________关键字进行声明。
答案：Shared3.在Visual Basic中，使用________函数可以将小数四舍五入到最接近的整数。
大学计算机二级vb试题及答案
大学计算机二级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考试试题及答案
国家二级计算机vb考试试题及答案一、单项选择题（每题1分，共10分）1. 在VB中，用于定义变量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项不是VB中的控制结构？（）A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. VB中，用于声明一个子程序的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：B4. 在VB中，用于表示逻辑“与”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：A5. VB中，用于表示逻辑“或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：B6. 在VB中，用于声明一个数组的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：A7. VB中，用于声明一个常量的关键字是（）。
A. DimB. SubC. FunctionD. Const答案：D8. 在VB中，用于表示逻辑“非”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：C9. VB中，用于声明一个函数的关键字是（）。
A. FunctionB. SubC. DimD. Const答案：A10. 在VB中，用于表示逻辑“异或”运算符的是（）。
A. AndB. OrC. NotD. Xor答案：D二、填空题（每题2分，共10分）1. 在VB中，使用____关键字可以定义一个全局变量。
答案：Public2. 当需要在VB中定义一个私有变量时，应使用____关键字。
答案：Private3. 在VB中，使用____关键字可以定义一个局部变量。
答案：Dim4. VB中，使用____关键字可以定义一个过程。
答案：Sub5. VB中，使用____关键字可以定义一个函数。
答案：Function三、简答题（每题5分，共20分）1. 请简述VB中事件驱动编程的概念。
江苏省计算机二级考试VB程序设计复习题
一、填空题：（第一章Visual Basic程序设计概述）1、Visual Basic是一种面向_对象_的可视化程序设计语言，采取了__事件驱动__的编程机制。
2、在VB中工程文件的扩展名是_ Vbp ，窗体文件的扩展名是frm _，标准模块文件的扩展名是_ bas _。
3、执行“工程”菜单下的部件命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发_ WINDOWS环境下的应用程序。
第二章简单的VB程序设计1、设置是否可以用Tab键来选取命令按钮，应该用_ Tabstop ___属性。
2、一个控件在窗体的位置由__ Left ___和_ top ___属性决定，其大小由__ height _和_ width _属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和_ enabled __属性为true，才能接受焦点。
4、设置控件背景颜色的属性名称是_ backcolor __。
5、所有控件都具有的共同属性是__ name __属性。
6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_ name和caption。
7、VB中的每个对象（控件）都有一组特征，这组特征称为_属性_，我们通过修改它可以控制对象的外观和操作。
8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_标准模块文件_文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。
9、VB有三种工作模式，分别是设计（Design）模式、_运行模式__和中断（Break）模式。
第三章1、一般可以使用____ Const ______关键字声明常量。
2、_ Variant _类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
3、变量的声明分为两种方法：_隐式声明__和__显示声明__。
全国计算机二级VB试题
下面的138道题目，在二级考试中命中率极高。
一、选择题(1) 下面叙述正确的是(C)A. 算法的执行效率与数据的存储结构无关B. 算法的空间复杂度是指算法程序中指令（或语句）的条数C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止D. 以上三种描述都不对(2) 以下数据结构中不属于线性数据结构的是(C)A. 队列(3)(4)A.(5)A. 对象(6)A.(7)A.C.(8)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)(14)A.C.(15)(D)A.(16)A.(17)以及A.(18) 下述关于数据库系统的叙述中正确的是(A)A. 数据库系统减少了数据冗余B. 数据库系统避免了一切冗余C. 数据库系统中数据的一致性是指数据类型的一致D. 数据库系统比文件系统能管理更多的数据(19) 关系表中的每一横行称为一个(A)A. 元组B. 字段C. 属性D. 码(20) 数据库设计包括两个方面的设计内容，它们是(A)A. 概念设计和逻辑设计B. 模式设计和内模式设计C. 内模式设计和物理设计D. 结构特性设计和行为特性设计(21) 下列叙述中正确的是(A)A. 线性表是线性结构B. 栈与队列是非线性结构C. 线性链表是非线性结构D. 二叉树是线性结构(22)A.C.(23)A.C.(24)A.C.(25)A.C.(26)A. 工具B. 过程C. 方法D. 环境(27) 程序流程图（PFD）中的箭头代表的是(B) 注：P81A. 数据流B. 控制流C. 调用关系D. 组成关系(28) 在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。
计算机二级vb考试试卷及答案
计算机二级vb考试试卷及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项不是基本数据类型？A. IntegerB. StringC. DoubleD. Object答案：D2. VB中的控件数组允许我们做什么？A. 将多个控件视为一个单一实体B. 存储多个控件的集合C. 将控件的多个实例存储在一个数组中D. 以上都是答案：C3. 在VB中，哪个关键字用于声明一个变量？A. DimB. DeclareC. ConstD. Option答案：A4. VB中的哪个事件是在窗体加载时触发的？A. ClickC. MouseDownD. KeyPress答案：B5. 在VB中，以下哪个选项不是窗体的属性？A. CaptionB. HeightC. WidthD. Color答案：D6. VB中用于循环遍历数组的关键字是什么？A. ForB. WhileC. DoD. Each答案：A7. VB中哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs答案：A8. 在VB中，以下哪个选项不是过程的类型？B. FunctionC. PropertyD. Event答案：D9. VB中哪个控件用于显示文本，但不提供文本编辑功能？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B10. VB中哪个关键字用于退出当前的过程？A. ExitB. ReturnC. EndD. Stop答案：A二、填空题（每空2分，共20分）1. VB中的________关键字用于声明一个常量。
答案：Const2. 在VB中，________事件用于响应鼠标单击。
答案：Click3. VB中的________函数用于将字符串转换为数字。
答案：Val4. 在VB中，________属性用于设置或返回一个控件的可见性。
答案：Visible5. VB中________方法用于在数组中添加一个新元素。
全国计算机二级vb考试试题及答案
全国计算机二级vb考试试题及答案一、单项选择题（每题2分，共40分）1. VB中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A3. VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A4. 在VB中，以下哪个是正确的循环结构？A. ForB. WhileC. LoopD. All of the above答案：D5. VB中，以下哪个不是控制结构？A. IfB. Select CaseC. DoD. Call答案：D6. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. ReDim arr(10)D. Dim arr As Integer = {1, 2, 3}答案：D7. VB中，以下哪个不是窗体(Form)的属性？A. NameB. CaptionC. TextD. Color答案：C8. 在VB中，以下哪个不是基本的输入输出函数？A. InputBoxB. MsgBoxC. PrintD. MessageBox答案：D9. VB中，以下哪个不是事件驱动编程中的事件？A. ClickB. LoadC. ChangeD. Execute答案：D10. 在VB中，以下哪个不是常用的控件？A. LabelB. TextBoxC. ButtonD. Chart答案：D11. VB中，以下哪个不是控件的属性？A. NameB. TextC. ValueD. Execute答案：D12. 在VB中，以下哪个不是控件的事件？A. ClickB. DoubleClickC. MouseDownD. Open答案：D13. VB中，以下哪个不是文件操作的函数？A. OpenB. CloseC. WriteD. Execute答案：D14. 在VB中，以下哪个不是数据库访问的方法？A. OpenB. FetchC. UpdateD. Execute答案：D15. VB中，以下哪个不是错误处理的关键字？A. On ErrorB. ResumeC. ExitD. Err答案：C16. 在VB中，以下哪个不是面向对象编程的概念？A. ClassB. ObjectC. InterfaceD. Function答案：D17. VB中，以下哪个不是类的成员？A. PropertyB. MethodC. EventD. Variable答案：D18. 在VB中，以下哪个不是继承的特性？A. 单继承B. 多继承C. 覆盖D. 封装答案：B19. VB中，以下哪个不是多态性的表现？A. 方法重载B. 方法重写C. 接口实现D. 函数调用答案：D20. 在VB中，以下哪个不是封装的体现？A. PrivateB. PublicC. ProtectedD. Friend答案：D二、填空题（每题2分，共20分）1. VB中，声明一个整型变量并赋值为10的语句是：Dim num As Integer; num = _______。
vb二级计算机考试试题及答案
vb二级计算机考试试题及答案一、单选题（每题2分，共20分）1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Type答案：A2. 下列哪个选项不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 函数结构答案：D3. 在VB中，用于定义类模块的关键字是：A. ClassB. ModuleC. FormD. Interface答案：A4. VB中，用于读取文件内容的函数是：A. DirB. FileGetC. FileOpenD. FilePut答案：C5. 在VB中，下列哪个选项不是数组的声明方式？A. Dim arr(5) As IntegerB. Dim arr() As Integer = New Integer(5)C. Dim arr(5 To 10) As IntegerD. Dim arr As Integer = New Integer(5)答案：D6. VB中，用于创建一个窗体的关键字是：A. FormB. DialogC. WindowD. Frame答案：A7. VB中，用于实现事件驱动编程的关键字是：A. EventB. SubC. FunctionD. Property答案：B8. 在VB中，下列哪个选项不是字符串函数？A. LeftB. RightC. MidD. Round答案：D9. VB中，用于定义常量的关键字是：A. DimB. ConstC. StaticD. Private答案：B10. VB中，下列哪个选项不是循环结构？A. For EachB. ForC. Do WhileD. If答案：D二、填空题（每题2分，共20分）1. VB中，用于声明全局变量的关键字是________。
答案：Public2. VB中，用于定义一个过程的关键字是________。
答案：Sub3. 在VB中，用于定义一个函数的关键字是________。
2024年等级考试-计算机二级-VB语言程序设计考试历年真题常考点试题4带答案
2024年等级考试-计算机二级-VB语言程序设计考试历年真题常考点试题带答案（图片大小可任意调节）第1卷一.单选题(共20题)1.如果要改变窗体的标题,则需要设置的属性是A.BorderStyleC.BackColorD.Caption2.窗体的 DrawWidth属性值设置为大于 1 时，下列 ( ) 属性会失去作用A.BackcolorB.FillStyleC.DrawstyleD.Fillcolor3.要改变控件的宽度，应修改该控件的 ( ) 属性。
A.TopB.LeftC.WidthD.Height4.要使鼠标指向“命令按钮”时，出现一个提示文本，应设置其()属性。
A.ToolTipTextB.StyleC.PictureD.Caption5.下面方法不属于列表框和组合框。
B.AddItemC.GetFocusD.RemoveItem6.为了把焦点移到某个指定的控件,所使用指定的控件的()方法.A.VisibleB.RefreshC.SetFocusD.GetFocus7.下列数据类型中,占用内存最大的是A.BooleanB.IntegerC.ByteD.Single8.要使标签控件标题内容居中显示，应设置其()属性。
A.ToolTipTextB.AlignmentC.BackStyleD.Appearance9.定时器控件唯一能够响应的事件为()A.Click事件B.Timer事件C.Change事件D.DblClick事件10.对象不具有 Caption 属性。
belB.OptionC.FormD.Timer11.产生[10,37]之间的随机整数的VisualBasic表达式是A.Int(Rnd(1)*27)+11B.Int(Rnd (1)*28)+11C.Int (Rnd(1) w28)+10D.In t(Rnd(1)*27)+1012.以下关键字中,不能定义变量的就是()C.PublicD.Private13.下列数据类型中，占用内存最小的是A.BooleanB.ByteC.IntegerD.Single14.程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是A.LoadB.ClickC.MouseDownD.MouseUp15.以下关于窗体的描述中，错误的是()。
国家二级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中，使用________关键字可以声明一个全局常量。
计算机二级VB考试题及答案
计算机二级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计算机考试试题及答案
二级vb计算机考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. StringD. All of the above答案：D2. VB中的哪个函数用于计算两个数的和？A. Sum()B. Add()C. +D. Concatenate()答案：C3. 下列哪个控件用于在VB中显示文本？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A4. 在VB中，如何声明一个变量？A. Dim variableNameB. Declare variableNameC. Variable variableNameD. Let variableName5. VB中哪个事件用于响应按钮点击？A. ClickB. PressC. DoubleClickD. MouseDown答案：A6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. WhileC. Do WhileD. All of the above答案：D7. VB中哪个函数用于获取当前日期？A. Now()B. Date()C. Today()D. GetCurrentDate()答案：C8. 在VB中，哪个属性用于设置控件的可见性？A. VisibleB. DisplayC. ShowD. Hide答案：A9. VB中哪个事件用于响应文本框内容改变？B. TextChangeC. TextModifiedD. TextUpdate答案：A10. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arrayName() As IntegerB. Dim arrayName As Integer()C. Array arrayName = New Integer()D. Both A and B答案：D二、填空题（每题2分，共20分）1. VB中的________函数用于将字符串转换为数值。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
(事件)单击窗体'(响应)求100以内偶数的和，并将结果输出在窗体上。
将结果存入变量SUM中Dim i As IntegerFor i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNextPrint sum'〖第2题〗：(事件)双击窗体。
' (响应)求s=1+1×2+1×2×3+…+1×2×3×…×10' 并将结果存到变量S中Dim i, j As IntegerDim k As Longk = 1s = 0For i = 1 To 10For j = 1 To ik = k * jNexts = s + kk = 1NextPrint (CStr(s))'〖第3题〗：(事件)单击窗体。
' (响应)求1+2+3+……+100的值，并把结果输出在窗体上' 结果存入变量SUM中。
'答案：Dim i As IntegerFor i = 1 To 100sum = sum + iNextPrint sum'〖第4题〗：判断一个数是否是素数'答案：Dim i As IntegerPrime = TrueFor i = 2 To Int(Sqr(m))If m Mod i = 0 Then Prime = False: Exit ForNext i'〖第5题〗：(事件)单击窗体。
' (响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值' 将结果存入变量J中Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j''〖第6题〗：(事件)单击窗体。
' (响应)求200~300之间既能被3整除又能被7整除的数。
' 并求出所有数之和存入变量SUM中'答案：Dim i As IntegerFor i = 201 To 300If ((i Mod 3) = 0) And ((i Mod 7) = 0) ThenPrint (CStr(i))sum = sum + iEnd IfNextPrint sum'〖第7题〗：(事件)单击窗体。
' (响应)求数列1+3+3+9+27+……前6项的和，并将' 结果输出到窗体上。
将结果存入变量SUM中。
'答案： Dim i As IntegerDim j(1 To 6) As IntegerFor i = 1 To 6If i < 3 Thenj(i) = 3 ^ (i - 1)Elsej(i) = j(i - 1) * j(i - 2)End Ifsum = sum + j(i)NextPrint sum'〖第8题〗：(事件)单击窗体。
' (响应)求10!的值，并将结果输出到窗体上。
' 将结果存入变量SUM中。
'答案： Dim i As Integersum = 1For i = 1 To 10sum = sum * iNextPrint sum'〖第9题〗：(事件)双击窗体。
' (响应)求出100~200之间，能被5整除，但不能被3' 整除的数。
并求所有数之和，存入变量中' SUM中。
'答案：Dim i As IntegerFor i = 100 To 200If ((i Mod 5) = 0) And ((i Mod 3) <> 0) ThenPrint (CStr(i))sum = sum + iEnd IfNext'〖第10题〗：(事件)双击窗体。
' (响应)把一元钞票换成一分、二分和五分的硬币' （每种至少有一枚），求出其所有的换法，' 把结果输出在窗体上。
' 将所有的换法的数目存入变量N中答案：Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If ((i + 2 * j + k * 5) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNextNextNext'〖第11题〗：求两个数m,n的最大公约数p和最小公倍数q '答案：nm = n * mIf m < n Then t = m: m = n: n = tr = m Mod nDo While (r <> 0)m = nn = rr = m Mod nLoopp = nq = nm / n'〖第12题〗：(事件)双击窗体。
' (响应)s=20+21+22+…+263，求s的值，并将结果' 存储到变量S中。
答案：Dim i As Integeri = 20While i <= 263s = s + ii = i + 1WendPrint (CStr(s))'〖第13题〗：(事件)双击窗体。
' (响应)求3+6+9+12+15+18+……+300的和，并将结' 果输出到窗体上。
将结果存入变量 SUM中。
'答案： Dim i As IntegerFor i = 3 To 300If i Mod 3 = 0 Thensum = sum + iEnd IfNextPrint sum'〖第14题〗：(事件)双击窗体。
' (响应)求1+5+10+15+……+500的和，并将结果输' 出到窗体上。
将结果存入变量SUM中。
答案： Dim i As IntegerFor i = 1 To 500If i Mod 5 = 0 Thensum = sum + iEnd IfNextPrint sum'〖第16题〗：(事件)单击窗体。
' (响应)编写程序求10×11×12+11×12×13+…+15×16×17的结果，' 并将结果输出到窗体上。
' 将结果存入变量M中'答案：Dim i, j As IntegerDim s As LongFor i = 10 To 15s = 1For j = i To i + 2s = s * jNextm = m + sNextPrint (CStr(m))'〖第17题〗：(事件)双击窗体。
' (响应)求出50以内所有奇数的和。
' 将结果存入变量SUM中答案： Dim i As IntegerFor i = 1 To 50If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum'〖第19题〗：(事件)单击窗体。
' (响应)求10~20之间所有素数的乘积并输出在窗体上。
' 将结果存入变量L中。
答案：Dim i As IntegerDim j As IntegerDim b As Booleanl = 1b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd Ifb = FalseNextPrint Str(l)〖第20题〗：编写函数fun其功能是:能计算从1开始到n的' 自然数中偶数的平方的和，n由键盘输入，' (n是偶数)'答案： Dim sum As Integer, i As Integersum = 0For i = 2 To n Step 2sum = sum + i * iNextfun = sum'〖第21题〗：(事件)单击窗体。
' (响应)求出1000-9999之间具有如下特点的四位数字，' 它的平方根' 恰好就是它中间的两位数字，例如，2500开' 平方为50，恰为2500的中间两位，找出所有' 这样的四位数。
' 并求出所有这样的数的和存入SUM中'答案： Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j = Val(Mid(Trim(Str(i)), 2, 2))If j ^ 2 = i ThenPrint i,sum = sum + iEnd IfNext'〖第22题〗：(事件)双击窗体。
' (响应)求100以内奇数的和，并将结果输出在窗体上。
' 将结果存入变量SUM中答案： Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum〖第23题〗：(事件)单击窗体。
' (响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…' 的前10项，并求其和。
'答案：Dim i, j, k, m As Integers = 0i = 2j = 1For k = 1 To 10m = jPrint (CStr(i)) & "/" & CStr(j)j = ii = i + ms = s + i / jNext'〖第24题〗：(事件)双击窗体。
' (响应)写程序解决百钱买百鸡问题：公鸡3元1只，' 母鸡5元1只，小鸡一元3只，怎样用100元买' 100只鸡。
把结果输出到窗体上。
' 将答案数存放在变量N中'答案：Dim i, j, k As IntegerFor i = 1 To 20 '母鸡For j = 1 To 33 '公鸡For k = 3 To 100 '小鸡If ((k Mod 3) = 0) And ((i * 5 + j * 3 + k / 3) = 100) And ((i + j + k) = 100) ThenPrint (CStr(i))Print (CStr(j))Print (CStr(k))n = n + 1End IfNextNextNext'〖第25题〗：(事件)单击窗体。