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练习题及答案VB（Visual Basic）是一种广泛应用于Windows操作系统的编程语言，它以其简单易学的特点受到了许多初学者和专业开发者的青睐。

为了帮助大家更好地掌握VB编程，下面将提供一些VB练习题及其答案，希望能对大家有所帮助。

练习题一：计算器程序编写一个VB程序，实现一个简单的计算器功能。

要求用户输入两个数字和一个操作符（+、-、*、/），然后根据操作符进行相应的计算，并输出结果。

解答：```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二：学生成绩管理系统编写一个VB程序，实现一个简单的学生成绩管理系统。

要求用户输入学生的姓名和成绩，然后将其保存到数组中。

用户可以通过输入姓名来查询学生的成绩。

解答：```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三：简单的文本编辑器编写一个VB程序，实现一个简单的文本编辑器功能。

(整理)计算机等级考试二级VB模拟试题一及答案解析

计算机等级考试二级VB模拟试题一及答案解析知识点复习：形参：指出现在Sub 和Function过程形参表中的变量名、数组名，过程被调用前，没有分配内存，其作用是说明自变量的类型和形态以及在过程中的角色。

形参可以是：1）除定长字符串变量之外的合法变量名；2）后面跟（）括号的数组名。

实参：是在调用Sub 和Function过程时，传送给相应过程的变量名、数组名、常数或表达式。

在过程调用传递参数时，形参与实参是按位置结合的，形参表和实参表中对应的变量名可以不必相同，但位置必须对应起来。

一、选择题(1) 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成A) 动态结构和静态结构B) 紧凑结构和非紧凑结构C) 线性结构和非线性结构D) 内部结构和外部结构正确答案: C(2) 设一棵二叉树中有3个叶子结点，有8个度为1的结点，则该二叉树中总的结点数为A) 12B) 13C) 14D) 15正确答案: B(3) 在下列几种排序方法中，要求内存量最大的是A) 插入排序B) 选择排序C) 快速排序D) 归并排序正确答案: D(4) 下列叙述中，不属于结构化程序设计方法的主要原则的是A) 自顶向下B) 由底向上C) 模块化D) 限制使用goto语句正确答案: B(5) 下列不属于软件调试技术的是A) 强行排错法B) 集成测试法C) 回溯法D) 原因排除法正确答案: B(6) 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为A) PAD图B) N-S图C) 结构图D) 数据流图正确答案: B(7) 软件复杂性度量的参数包括A) 效率B) 规模C) 完整性D) 容错性正确答案: B(8) 下列叙述中，不属于数据库系统的是A) 数据库B) 数据库管理系统C) 数据库管理员D) 数据库应用系统正确答案: B(9) 数据库系统的核心是A) 数据库B) 数据库管理系统C) 数据模型D) 软件工具正确答案: B(10) 视图设计一般有3种设计次序，下列不属于视图设计的是A) 自顶向下B) 由外向内C) 由内向外D) 自底向上来源正确答案: B(11) 下列说法错误的是A) 标准模块的扩展名是.basB) 标准模块由程序代码组成C) 标准模块只用来定义一些通用的过程D) 标准模块不附属于任何一个窗体正确答案: C(12) 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性A) ValueB) VisibleC) DefaultD) Enabled正确答案: D(13) 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是A) 设置Enabled的值为TrueB) 设置TabIndex的值为1C) 设置TabIndex的值为0D) 设置Index的值为0正确答案: C(14) 下列几项中，属于合法的日期型常量的是A) "10/10/02"B) 10/10/02C) {10/10/02}D) #10/10/02#正确答案: D(15) 下列程序段的执行结果为A=2B=5If A * B < 1 Then B=B - 1 Else B=-1Print B - A > 0A) TrueB) FalseC) -1D) 1正确答案: B(16) 以下语句的输出结果是a=Sqr(26)Print Format$ (a, "$####.###")A) $5.099B) 5.099C) 5099D) $0005.099正确答案: A(17) 标签控件能够显示文本信息，决定其文本内容的属性是A) AlignmentB) CaptionC) VisibleD) BorderStyle正确答案: B(18) 在属性窗口中，加载指定的图形放入当前对象中的属性是A) CurrentYB) PictureC) CurrentXD) Caption正确答案: B(19) 在使用应用程序时，常常用作在单击时执行指定的操作的控件是A) 命令按钮B) 图片框C) 复选框D) 单选按钮正确答案: A(20) 当直线或形状的BorderStyle属性设置为1时，控件是A) 虚线B) 点线C) 不可见D) 实线正确答案: D正确答案: B(21) 通过设置何属性可以改变所画图形的形状？A) ShapeB) IndexC) EnabledD) Height正确答案: A(22) 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()s=1Dos=(s + 1) * (s + 2)Number=Number + 1Loop Until s >=30Print Number, sEnd Sub程序运行后，输出的结果是A) 2 3B) 2 56C) 5 12D) 10 20正确答案: B(23) 下列程和序段的执行结果为x=Int(Rnd() + 9)Select Case xCase 10Print "excellent"Case 9Print "good"Case 8Print "pass"Case ElsePrint "fail"End SelectA) excellentB) goodC) passD) fail正确答案: B(24) 下列程序段的执行结果为a=75If a > 60 Then Score=1If a > 70 Then Score=2If a > 80 Then Score=3If a > 90 Then Score=4Print " Score="; ScoreA) Score＝1B) Score＝2C) Score＝3D) Score＝4正确答案: B(25) 下列程序段的执行结果为I=1x=5DoI=I + 1x=x + 2Loop Until I >=7Print "I="; IPrint "x="; xA) I＝4x＝5B) I＝7x＝15C) I＝6x＝8D) I＝7x＝17正确答案: D(26) 下面的程序的运行结果是a=1b=1Doa=a^2b=b + 1Loop Until b > 5Print "k="; a; Spc(4) ; "b="; b + aA) k＝7b＝14B) k＝6b＝6C) k＝4b＝8D) k＝1b＝7正确答案: D(27) 单击命令按钮，下列程序的执行结果为Private Sub Command1_Click()Dim x As Integer, y As Integerx=32: y=42Call PCS(x, y)Print x; yEnd SubPublic Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1m=m Mod 10+1End SubA) 32 42B) 2 32C) 2 3D) 12 3正确答案: A(28) 下列程序的执行结果为Private Sub Command1_Click()Dim s1 As String, s2 As Strings1="abcd"Call Transfer(s1, s2)Print s2End SubPrivate Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As Stringi=Len(xstr)Do While i >=1tempstr=tempstr + Mid(xstr, i, 1)i=i - 1Loopystr=te mpstrEnd SubA) dcbaB) abdcC) abcdD) dabc正确答案: A(29) 单击命令按钮，下列程序的执行结果是Private Sub Blck(x As Integer)x=x * 2 + 1If x < 6 ThenCall Blck(x)End Ifx=x * 2 + 1Print x;End SubPrivate Sub Command1_Click()Blck 2End SubA) 23 47B) 10 36C) 22 44D) 24 50正确答案: A(30) 有如下程序：Private Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print Gad (A)Next iEnd SubFunction Gad (a As Integer)b=0Static cb=b + 1c=c + 1Gad=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为A)123B) 234C) 456D) 146正确答案:c(31) 下列过程定义语句中，参数不是对象的定义语句是A) Sub Pro4(x As Form)B) Sub Pro4(y As Control)C) Sub Pro4(Form1 As Form,Labell As Control)D) Sub Pro4(x As Currency)正确答案: D(32) 下列说法正确的是A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器D) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器正确答案: D(33) 下列各选项说法错误的一项是A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框B) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件D) 通用对话框的名称属性的默认值为CommonDialogX(X＝1，2……) ，此外，每种对话框都有自己的默认标题正确答案: B(34) 下列数组定义语句错误的是A)k%=10Dim Arr(k)B)Const k%=10Dim Arr(k)C)Dim Arr1(10) As IntegerDim Arr2 (10)D)Dim Arr1(1 To 10)Dim Arr2(1 To 10, 2 To 11)正确答案: A(35) 在Visual Basic中按文件的数据性质不同，可将文件分为A) 数据文件和程序文件B) 文本文件和数据文件C) 顺序文件和随机文件D) ASCII文件和二进制文件正确答案: A二、填空题(1) 算法的工作量大小和实现算法所需的存储单元多少分别称为算法的【1】。

vb理论第2次练习范文

1 用下面语句定义的数组元素个数是（）。

Option Base 1Dim Arr4(6,5) As IntegerA）42 B）30 C）37 D）36解答该题首先通过Option Base 1语句使数组的下标从１开始，所以数组定义语句Dim Arr4(6,5) As Integer与语句Dim Arr4(1 to 6,1 to 5) As Integer等价，不难算出该数组元素个数为30。

答案 B2 可以用来清除数组内容或对数组重新定义的语句是（）A UnloadB ClsC EraseD Free解答数组一旦被定义，就在内存中分配了相应的存储空间，其大小是不能改变的但有时可能需要清除数组的内容或对其重新定义，这可以用 Erase 语句来实现，其格式为 Erase 数组名[, 数组名]…，该语句用来重新初始化静态数组的元素或者释放动态数组的存储空间，其中，数组名不带括号和下标。

Unload 语句是从内存中卸载窗体或控件，当所占内存另有它用或需要重新设置窗体控件的属性值为初始值时，就有必要卸载窗体或控件，而 Cls Clear 都是 Visual Basic 中的方法。

本题正确答案为 C3 下面能正确表示Visual Basic 中数组a 的元素的是（）A a[5]B a5C aD a(5)解答在Visual Basic 中使用数组元素时，必须把下标放在一对紧跟在数组名之后的括号不能写其他的形式，如要表示数组s 中下标为 5 的元素必须写成s(5) 。

答案为D4 下列数组定义中错误的是：其中n 是一个变量A Dim a(7, 3 To 9) As StringB Dim b(n) As IntegeC Dim c(1, 7, 9) As IntegerD ReDim(n)解答在使用Dim 定义一个数组时其上下标不能为变量，而在ReDim 中就可以使用变量来改变数组的维数答案为B5 使用语句Dim A（）As Integer 声明数组A 之后，以下说法正确的是：A A 数组中的所有元素值为0B A 数组中的所有元素值不确定C A 数组中的所有元素值为EmptyD 执行Erase A 后A 数组中的所有元素值为0解答所谓数组就是能够保存具有数据类型的多个数值的存储空间，当声明一个数组后，在没有给它赋值前，数组中的所有元素值为0，因此可知选项A 是正确的，B ，C选项都是错误的，在选项 D 中出现了Erase 语句，使用Erase 语句将释放动态数组所占的内存空间，而题中语句Dim A As Integer 正好是声明动态数组A 的，所以选项D 的说法不正正确答案为A6 计算下列定义的语句中数组所占有的空间为（）Option Base 1Dim sngLp(3, 2 To 5) As SingleA 80 字节B 48 字节C 60 字节D 96 字节解答首先使用了Option Base 1 将数组的下标定位为1，所以数组sngLp 的定义实际是Dim sngLp(1 To 3, 2 To 5) As Single，又因为Single 单精度类型的所占空间为4个字节，因此所占空间=(3-1+1)*(5-2+1)*4=48 字节。

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

计算机二级考试VB练习题及答案计算机二级考试VB练习题及答案为了使广大考生在备战计算机等级考试时，更快的掌握相应知识点，下面是店铺搜索整理的计算机二级考试VB练习题及答案，供参考练习，预祝考生们考出自己理想的成绩!计算机二级考试VB练习题及答案1.以下程序是求最大公约数和最小公倍数的程序，在【】处填写合适的关系运算符。

Private Sub Form_Click( )Dim m1, n1, m, n, r As Integern1 = InputBox("输入自然数n", "输入数")m1 = InputBox("输入自然数m", "输入数")n = n1m = m1If m<n p="" then<="">t = m: m = n: n = tEnd Ifr = m Mod nDo While r 【<>】 0m = nn = rr = m Mod nLoopPrint "最大公约数=", nPrint "最小公倍数= ", m1 * n1 / nEnd Sub2.下面是求100以内素数的程序。

Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod 【i】 = 0 Then tag = FalseNext iIf tag Then Print mNext mEnd Sub3.下面是求100以内素数的程序，下面说法正确的是(A)(单)Private Sub Command1_Click( )Dim i As Integer, m As Integer, tag As BooleanFor m = 2 To 100tag = TrueFor i = 2 To m - 1If m Mod i = 0 Then tag = FalseNext iIf tag=true Then Print mNext mEnd SubA.tag为true时，表示m是素数B.tag为false时，表示m是素数C.语句m Mod i = 0，说明m是素数D.以上说法都不正确4.百元买百鸡问题：假定小鸡每只5角,公鸡每只2元，母鸡每只3元。

国家二级VB机试(菜单和对话框、数组)模拟试卷2(题后含答案及解析)

国家二级VB机试（菜单和对话框、数组）模拟试卷2(题后含答案及解析)题型有：1. 选择题选择题1．以下打开Visual Basic菜单编辑器的操作中，错误的是A．执行“编辑”菜单中的“菜单编辑器”命令B．执行“工具”菜单中的“菜单编辑器”命令C．单击工具栏中的“菜单编辑器”按钮D．右击窗体，在弹出的快捷菜单中选择“菜单编辑器”命令正确答案：A解析：Visual Basic中的菜单通过菜单编辑器建立，可以通过4种方式进入菜单编辑器：执行“工具”菜单中的“菜单编辑器”命令；使用Ctrl+E组合键；单击工具栏中的“菜单编辑器”按钮；在要建立菜单的窗体上单击右键，将弹出一个菜单，然后单击“菜单编辑器”命令。

知识模块：菜单和对话框2．以下说法中正确的是A．任何时候都可以用Ctrl+E键打开菜单编辑器B．只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C．只有当代码窗口为当前活动窗口时，才能打开菜单编辑器D．任何时候都可以用标准工具栏的“菜单编辑器”按钮打开菜单编辑器正确答案：B解析：打开菜单编辑器有4种方法：①选择菜单“工具”菜单框中的”菜单编辑器”命令；②单击工具栏上的“菜单编辑器”按键；③使用快捷键＜Ctrl+E ＞；④右击窗体，从弹出的快捷菜单中选择“菜单编辑器”命令。

注意：只有当某个窗体成为活动窗体时，才能使用以上方法打开其菜单编辑器。

知识模块：菜单和对话框3．下列关于菜单项的描述中，错误的是A．通过内缩符号(....)设置菜单项的层次B．通过Enabled属性设置菜单项的有效性C．菜单项的索引号可以不连续D．菜单项的索引号必须从1开始正确答案：D解析：在菜单编辑器中，可以通过内缩符号(....)设置菜单项的层次；通过Enabled属性设置菜单项的有效性，Visible属性设置菜单项的可见性：菜单的索引号必须是从0开始的连续值。

知识模块：菜单和对话框4．下列关于菜单项的描述中，错误的是A．菜单项不能响应Click事件以外的其他事件B．每个菜单项都可以被看作一个控件，具有相应的属性和事件C．菜单项的索引号可以不连续D．通过Visible属性设置菜单项的有效性正确答案：D解析：菜单项是VB中的一种对象，每个菜单项都可以被看作一个控件，具有相应的属性和事件，而且只能响应Click事件：菜单项的索引号可以不足连续的，通过Enabled属性设置菜单项的有效性，通过Visible属性设置菜单项的可见性。

2016年计算机二级《VB》基础练习题及答案(2)

2016年计算机二级《VB》基础练习题及答案(2)1[简答题]在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。

窗体的标题为“窗口”。

请通过属性窗口设置适当的属性，满足如下要求：①Text2可以显示多行文本，并且有垂直和水平两个滚动条;②程序运行时在Textl中显示输入的字符为“*”。

程序运行后的窗体如图所示。

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

参考解析：【考点分析】本题考点有：窗体的Caption属性，文本框的Name、Width、Hei【ght、PasswordChar、Text、MuhiLine、ScrollBars属性。

【解题思路】文本框控件的MuhiLine属性用于设置文本框是否显示多行文本，值为Tr ue表示是，值为False则表示否。

ScrollBars属性设置文本框是否有水平或垂直滚动条，它有0、l、2和3这4个值，0表示没有滚动条(默认值)，1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条。

文本框的PasswordChar属性常用于设置用某字符(如“*”)屏蔽用户在文本框中键入的内容，常用于口令输入。

【操作步骤】步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3.8和表3.9。

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

【易错提示】由于ScrollBars属性的设置值较多，易混乱，请考生牢记4个值分别设置的文本框滚动条属性。

2[单选题] 在下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。

A.外模式B.内模式C.概念模式D.逻辑模式参考答案：B参考解析：数据库系统的三级模式是概念模式、外模式和内模式。

概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。

国家二级VB机试(选择题)模拟试卷2(题后含答案及解析)

国家二级VB机试（选择题）模拟试卷2(题后含答案及解析)题型有：1. 选择题选择题1．在窗体上画一个名称为Commandl的命令按钮，并编写如下程序：Function Fun(x) y=0 If x＜10 Then y=x Else y=y+10 End If Fun=y End Function Private Sub Command l_Click( ) n=InputBox(”请输入一个数”)：n=Val(n) P=Fun(n)：Print P End Sub 运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入100，并单击“确定”按钮，则输出结果为A．10B．100C．1 10D．出错信息正确答案：A解析：本题是一个简单的函数调用，在函数中会判断参数x的值，根据x 的值不同执行If语句的不同分支。

由于实际参数为100不满足x＜10，因此函数返回值为10。

2．设有如下事件过程：Private Sub Command l_Click( )Dim aa=Anrray(12，3，8，5，10，3，5，9，2，4)For k=1 To 9 Print fun(a(k-1)，a(k))；””；Next k End Sub Private Function fun(x，y)As IntegerDo While x＞：y x=x-yLoopfun=x End Function 程序运行时的输出结果是A．4 0 1 0 3 0 0 4 0B．0 3 3 5 1 3 5 1 2C．9-5 3-5 7-2-4 7-2D．9 3 3 5 7 3 5 7 2正确答案：B解析：本题中函数fun的作用是当第一个形参比第二个形参大或着相等的时候让它减去第二个形参，直到比第二个形参小为止；在按钮的单击事件中循环调用9次函数，每次都用数组的前一个元素和后一个元素作为函数的实参，所以应输出的是12-3-3-3-3、3、8-5、5、10-3、3、5、9-2、2。

计算机等级考试二级VB全真模拟题及答案（2）

计算机等级考试二级VB全真模拟题及答案（2）2015计算机等级考试二级VB全真模拟题及答案End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住Shift键和锁定大写键时) 运行程序，如果按"A"键，则程序输出的结果是A) AaB) aAC) AAD) aa正确答案：C(23) 要使菜单项MenuOne在程序运行时失效，使用的语句是A) MenuOne.Visible=TrueB) MenuOne.Visible=FalseC) MenuOne.Enabled=TrueD) MenuOne.Enabled=False答案：D(24) 在窗体上建立通用对话框需要添加的控件是A) Data控件B) From控件C) CommonDialog控件D) VBComboBox控件答案：C(25) 在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是A) LoadB) ShowC) HideD) Unload答案：A(26) 运行下列程序段后，显示的结果为J1=4J2=9If J1A) 4B)9C) 13D) 49答案：B(27) 下列语句正确的是A) If A≠B Then Print "A不等于B"B) If A<>B Then Printf "A不等于B"C) If A<>B Then Print "A不等于B"D) If A≠B Print "A不等于B"答案：C(28) 下面语句正确的是A) If x<3?y And x>y Then y=x^3B) If x<3?y And x>y Then y=3xC) If x<3?y:x>y Then y=x^3D) If x<3?y And x>y Then y=x* *3答案：A(29) 计算z的值，当x大于y时，z=x;否则z=y。

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

计算机二级vb模拟考试试题及答案一、单选题1. 下面哪个选项是VB的内置数据类型？A. IntegerB. StringC. DoubleD. All of the above答案：D2. 在VB中，用于表示两个选项互斥关系的控件是？A. RadiobuttonB. CheckboxC. ComboboxD. Listbox答案：A3. 下面哪个事件是在窗体加载时发生？A. LoadB. ClickC. MouseHoverD. KeyPress答案：A4. 在VB中，用于将文本显示在标签控件上的属性是？A. TextB. ValueC. CaptionD. Name答案：C5. 在VB中，用于打开文件选择对话框的控件是？A. OpenFileDialogB. SaveFileDialogC. FolderBrowserDialogD. PrintDialog答案：A二、填空题1. 在VB中，用于声明一个整型变量的关键字是________________。

答案：Dim2. 在VB中，用于判断条件的关键字是________________。

答案：If3. 在VB中，用于循环执行代码块的关键字是________________。

答案：For4. 用于将字符串转换为整型的函数是________________。

答案：CInt5. 用于将字符串转换为小数类型的函数是________________。

答案：CDbl三、编程题1. 编写一个VB程序，实现计算两个数相加的功能，并在窗体上显示结果。

答案：```vbPublic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(TextBox1.Text)num2 = CInt(TextBox2.Text)result = num1 + num2Label1.Text = "结果：" & result.ToString()End SubEnd Class```2. 编写一个VB程序，实现输入一个整数n，计算并输出1到n的所有偶数之和。

全国计算机等级考试二级VB模拟试题及答案解析9套

目录计算机二级VB模拟试题及答案解析（1） (2)计算机二级VB模拟试题及答案解析（2） (12)计算机二级VB模拟试题及答案解析（3） (20)计算机二级VB模拟试题及答案解析（4） (29)计算机二级VB模拟试题及答案解析（5） (39)计算机二级VB模拟试题及答案解析（6） (48)计算机二级VB模拟试题及答案解析（7） (56)计算机二级VB模拟试题及答案解析（8） (65)计算机二级VB模拟试题及答案解析（9） (75)计算机二级VB模拟试题及答案解析（1）一、选择题1). 下列说法有错误的是A.默认情况下，属性Visible的值为FalseB.如果设置控件的Visible属性为False，则运行时控件会隐藏C.Visible的值可设为True或者FalseD.设置Visible属性同设置Enabled属性的功能是相同的，都是使控件处于失效状态正确答案：D2). 不需要事先建立就可以使用的变量是A.公共变量B.私有变量C.局部变量D.数组变量正确答案：B3). 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为A.For i=0 To List1.ListCount-1……NextB.For i=0 To List1.Count-1……NextC.For i=1 To List.ListCount……NextD.For i=1 To L ist1.Count……Next正确答案：A4). 语句a=b+c代表的意思是( )A.变量a等于b+c的值B.变量a等于b的值，然后再加上c的表达式C.将变量a存入变量存入b中，然后再加上c的表达式D.将变量a存入变量b+c中正确答案：A5). 循环链表的主要优点是A.不再需要头指针了B.从表中任一结点出发都能访问到整个链表C.在进行插入、删除运算时，能更好的保证链表不断开D.已知某个结点的位置后，能够容易的找到它的直接前件正确答案：B二、基本操作题(1)在名称为Forml的窗体上画两个标签(名称分别为Labell和Label2，标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Textl和Text2，初始内容均为空)和一个命令按钮(名称为Commandl，标题为“显示”)。

计算机二级考试《VB》练习题及答案

xx年计算机二级考试《VB》练习题及答案1、一个栈的初始状态为空。

现将元素1、2、3、4、5、A、B、c、D、E依次入栈，然后再依次出栈，那么元素出栈的顺序是( )。

A.12345ABCDEB.EDCBA54321C.ABCDEl2345D.54321EDCBA2、以下表达中正确的选项是( )。

A.循环队列有队头和队尾两个指针，因此，循环队列是非线性构造B.在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C.在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况D.循环队列中元素的个数是由队头指针和队尾指针共同决定3、在长度为凡的有序线性表中进展二分查找，最坏情况下需要比拟的次数是( )。

A.0(n)B.O(n2)C.O(1092n)D.0(nlog2n)4、以下表达中正确的选项是( )。

A.顺序存储构造的存储一定是连续的，链式存储构造的存储空间不一定是连续的B.顺序存储构造只针对线性构造，链式存储构造只针对非线性构造C.顺序存储构造能存储有序表，链式存储构造不能存储有序表D.链式存储构造比顺序存储构造节省存储空间5、数据流图中带有箭头的线段表示的是( )。

A.控制流B.事件驱动C.模块调用D.数据流6、在软件开发中，需求分析阶段可以使用的工具是( )。

A.N—s图B.DFD图C.PAD图D.程序流程图7、在面向对象方法中，不属于“对象”根本特点的是( )。

A.一致性B.分类性C.多态性D.标识唯一性8、一问宿舍可住多个学生，那么实体宿舍和学生之间的联系是( )。

A.一对一B.一对多C.多对一D.多对多9、在数据管理技术开展的三个阶段中，数据共享最好的是( )。

A.人工管理阶段B.文件系统阶段C.数据库系统阶段D.三个阶段相同10.栈和队列的共同特点是( )A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素D.没有共同点参考答案： C。

计算机二级VB训练题及答案

计算机二级VB训练题及答案2017年计算机二级VB训练题及答案计算机等级考试要取得好成绩平时一定要多加练习，提高做题技巧和速度。

下面是店铺为大家整理的2017年计算机二级VB训练题及答案，希望对大家有帮助!练习一1.在待排序的元素序列基本有序的前提下，效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向)，满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中，有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中，正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中，对一个关系做投影操作后，新关系的.元组个数将(A)A)等于原来关系中的元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后，Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载，其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化，则应：(A)A)在Dirl中的Change事件中，书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中，书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中，书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中，书写语句Dirl.Drive=Drivel.Drive15.设有如下声明：Dim x As Integer如果Sgn(x)的值为-1，则表示x的值是(A)A)整数B)大于0的整数> C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中，不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时，也可以用Cls方法清除C)Move方法用来移动窗体和控件，并改变其大小D)Cls方法中的对象，可以是窗体或图片框，如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形，为了清除该图形(注意，清除图形，而不是删除图片框)，应采用的正确方法是(D)A)选择图片框，然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框，在属性窗口中选择Picture属性条，然后按回车键[ 结束 ]练习二1.下列关于栈的叙述正确的是(D)A)栈是非线性结构B)栈是一种树状结构C)栈具有先进先出的特征D)栈具有后进先出的特征2.若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是(D)A)bdgcefhaB)gdbecfhaC)bdgaechfD)gdbehfca3.根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成(C)A)动态结构和静态结构B)紧凑结构和非紧凑结构C)线性结构和非线性结构D)内部结构和外部结构4.下面对对象概念描述错误的是(A)A)任何对象都必须有继承性B)对象是属性和方法的封装体C)对象间的通讯靠消息传递D)操作是对象的动态属性5.软件开发的结构化生命周期方法将软件生命周期划分成(A)A)定义、开发、运行维护B)设计阶段、编程阶段、测试阶段C)总体设计、详细设计、编程调试D)需求分析、功能定义、系统设计6.下列工具中为需求分析常用工具的是(D)A)PADB)PFDC)N-SD)DFD7.开发大型软件时，产生困难的根本原因是(A)A)大系统的复杂性B)人员知识不足C)客观世界千变万化D)时间紧、任务重8.下述关于数据库系统的叙述中正确的是(A)A)数据库系统减少了数据冗余B)数据库系统避免了一切冗余C)数据库系统中数据的一致性是指数据类型一致D)数据库系统比文件系统能管理更多的数据9.单个用户使用的数据视图的描述称为(A)A)外模式B)概念模式C)内模式D)存储模式10.关系数据库管理系统能实现的专门关系运算包括(B)A)排序、索引、统计B)选择、投影、连接C)关联、更新、排序D)显示、打印、制表11.与传统的程序设计语言相比，Visual Basic 最突出的特点是(C)A)结构化程序设计B)程序开发环境C)事件驱动编程机制D)程序调试技术12.在Visual Basic 中，下列优先级最高的运算符是(A)A)*B)\C)<D)Not13.下列语句用来设置疤錐orm1的属性，其中在运行时不能正确操作的语句是(B)A)Form1.Caption="Form Test"B)="Form Test"C)Form1.MaxButton=FalseD)Form1.MinButton=False14.表达式Left("how are you",3)的值是(A)A)howB)areC)youD)how are you15.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)A)工程资源管理器窗口B)工具箱窗口C)代码窗口D)属性窗口16.下列正确的Visual Basic注释语句是(B)A)Dim a(10)As Integer Rem 这是一个VB程序B)这是一个VB程序P Private Sub Command1_Click() …C)a=1:b=2:_Rem 这是一个VB程序：c=3D)If Shift=6 And Button=2 ThenPrint"BBBB"Rem这是一个VB程序End If17.代数式ab+cd对应的Visual Basic6.0表达式是(A)A)a/(b+c/D)B)(a/b+c)/dC)a/(b+c)/dD)a/b+c/d18.使程序立即从一个Function过程中退出的语句是(A)A)Exit FunctionB)ExitC)ReturnD)Resume19.要使一个标签透明且具有边框，则应(B)A)将其BackStyle属性设置为0，BorderStyle属性设置为0B)将其BackStyle属性设置为0，BorderStyle属性设置为1C)将其BackStyle属性设置为1，BorderStyle属性设置为0D)将其BackStyle属性设置为1，BorderStyle属性设置为120.在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click()a&=InputBox("请输入第一个数")b&=InputBox("请输入第二个数")Print b&+a&End Sub程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是(A)A)66666B)5432112345C)1234554321D)出错[ 结束 ]【2017年计算机二级VB训练题及答案】。

vb课后练习答案习题解答（2）

vb课后练习答案习题解答（2）第2章基本数据类型与表达式2．1 填空题1．程序设计语言中（）是语言的最基本符号，（）是具有语法意义的最小语法单位。

答案：字符、单词2．（）用于标记用户自定义的常量、类型、变量、控件、过程、函数等名字。

答案：标识符3．整型数据占（）字节的内存空间。

长整型数据占（）个字节的内存空间。

单精度浮点型数据占（）个字节的内存空间。

双精度浮点型数据占（）个字节的内存空间。

日期型数据占（）个字节的内存空间。

答案：2、4、4、8、84．100% 表示100为（）型数据；100！表示100为（）型数据；100＠表示100为( )型数据.答案：整、单精度浮点、货币5．符号常量在某一过程中说明，则该符号常量只能在（）内有效。

答案：该过程内6．若一个整型变量说明了之后没有给它赋值，则它的值为（）。

答案：07．在VB中可以把类型说明符放在变量名的（）来说明变量的类型。

答案：末尾8．为了使VB的编译程序自动检查变量声明，遇到未经说明的标识符发出错误警告信息，在程序中要加上（）语句。

答案：Option Explicit9．对含有多种运算的表达式，各种运算之间的顺序为（）→（）→（）→（）。

答案：函数运算、算术运算、关系运算、逻辑运算10．把1234.567的小数部份四舍五入转换为整数，可使用函数（）。

答案：Cint(1234.567)11．将x四舍五入到百位（例如，若x=23874.52应舍入成23900），可使用表达式（）。

答案：Int(x / 100 + 0.5) * 10012．将x从十位截断（例如，x=23874.52应截成23800）可使用表达式（）。

答案：Fix(x / 100) * 100或者Int(x/100)*100或者Cint(x\100-0.5)*10013．设X为数值变量，求X的常用对数可使用的表达式是（）。

答案：Log(X)/Log(10)14．要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（）。

vb2级题库及答案

vb2级题库及答案VB2级考试通常是指Visual Basic 2级的编程考试，它测试学生对Visual Basic编程语言的理解和应用能力。

以下是一些可能的VB2级题目和它们的答案：1. 题目：编写一个VB程序，实现输入两个整数，输出它们的和。

答案：```vbDim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = InputBox("请输入第一个整数：")num2 = InputBox("请输入第二个整数：")sum = num1 + num2MsgBox("两个数的和是：" & sum)```2. 题目：创建一个VB程序，该程序可以计算并显示一个矩形的面积和周长。

答案：```vbDim length As DoubleDim width As DoubleDim area As DoubleDim perimeter As Doublelength = InputBox("请输入矩形的长度：")width = InputBox("请输入矩形的宽度：")area = length * widthperimeter = 2 * (length + width)MsgBox("矩形的面积是：" & area & "，周长是：" & perimeter) ```3. 题目：编写一个VB程序，用于检查输入的年份是否为闰年。

答案：```vbDim year As IntegerDim isLeapYear As Booleanyear = InputBox("请输入一个年份：")If (year Mod 4 = 0 And year Mod 100 <> 0) Or (year Mod 400 = 0) ThenisLeapYear = TrueElseisLeapYear = FalseEnd IfIf isLeapYear ThenMsgBox(year & " 是闰年。

VB第四章练习(二)

VB第四章练习（二）VB第四章练习（二）（有正确答案的）一、填空题1设 a=2,b=3，表达式 a>b 的值是_______。

FALSE|0|零|假|假值|零值 2．在VB中声明静态变量的关键字是_______。

static 3．在VB中声明符号常量的关键字是_______。

const 4．表达式10 MOD 16\\4的值是_______。

25．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D的值是_______。

False|0|零|假|假值|零值6．设a=6，b=3，c=5，则表达式Not a>c And c=b Or b<>a+c 的值为_______。

True|真|真值|-18．设a=1,b=2,c=3,则VB6.0表达式：a9．x是小于120的非负数，描述该条件的布尔（逻辑）表达式是_。

0|零 11．表示x是5的倍数VB表达式为_______。

X MOD 5=0|x/5=int(x/5)|int(x/5)=x/5 12．已知 a=3.5,b=5.0,c=2.5,d=True 则表达式：a>=0 AND a+c>b+3 OR NOT d 的值是____。

False|0|零|假|假值|零值13．用于声明全局变量的关键字是_______。

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

A100BLabel1.Left = Label1.Left CDLabel1.Move Label1.LeftA BC DA BC DA Private Sub Command1_Click():B Private Sub Command1_Click():C Private Sub Text1_Change():D Private Sub Text1_Click():A If a ≥ b Then t=aBIf a ≥ b Then t=a;a=b;C If a >= b Then t=aD If a >= b Then t=a:A B C D A B C DA函数的“提示信息参数”不能缺省B 函数，只能输入一个值C 回值是数值型的D 的返回值必须赋予一个变量A 如Case x ,y ,zB 如Case "a ","b","c"C 如Case 1 to 10D 如Case Is <8A B C D A B C D A B C DA B C D A B C D A B C DA窗口中选择Picture属性条，然后按回车键B Del键C 句Picture1.Picture =D 句Picture1.Picture =A B C D A B C DA age>=20 And age<=30B age>=20 0r age<=30C age<=20 And age>=30D age<=20 0r age>=30A (.vbp)B （.frm）C （.bas）D 工程文件A BC DA BC DA BC DA BCText1_KeyPress(KeyAsciiDA BC DA B C DA TestDate = #1/1/2002#B TestDate = #"1/1/2002"#C TestDate = Date("1/1/2002")D TestDate = Format("m/d/yy",A B C D A B C D AB取整并输出CD部分并输出A B C D A BC D A"12"B C"12"DA1的值相等B X + 1中去C后赋给变量XDA BC DA BC DA Const a As Single =B Const a As Integer =CConst a As Double =DA BC DA x = Int(Rnd * n) +B x = Int(Rnd * (n–mC x = Int(Rnd * m) +D x = Int(Rnd * (n-m))A B C D A B C D A B CDSin(30 * 3.14 / 180)A B C D A B C D A BC DA B C D A B C D A B C D A B C D A BD CConst G = 23 + 12Next iPrint aEnd Sub（4分）2、* 对10个100以内的整数用冒泡法按递减顺序排序。

Private Sub Command1_Click()Dim a(10) As Integer, t As IntegerDim i As Integer, j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next i: PrintFor i = 1 To 9For j = 1 To 10 - iIf a(j) < a(j + 1) Then t= a(j): a(j) = a(j + 1): a(j + 1) = tNext jNext iFor i = 1 To 10Print a(i);Next i: PrintEnd Sub（4分）3、* 删除已知数组 a 中的某个元素。

Private Sub Command1_Click()Dim a() As Variant, n As Integer, Key As Integera = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)n = UBound(a)Key = InputBox("请输入要删除的数")For i = 0 To nIf Key = a(i) Then Exit ForNext iIf i= n + 1 Then MsgBox ("找不到此数"): Exit SubFor j = i + 1 To na(j - 1) = a(j)Next jn =n - 1ReDim Preserve a(n)For i = 0 To nPrint a(i);Next i: PrintEnd Sub（4分）4、* 三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。

Private Sub Form_Click()Dim R(1 To 3, 1 To 4) As IntegerDim S(1 To 3) As IntegerDim i%, j%, max%, k% 'k为最高成绩学生序号For i = 1 To 3S(i) = 0For j = 1 To 4R(i, j) = Int(30 * Rnd + 70)Print Tab((j - 1) * 5); R(i, j);S(i) = S(i) + R(i, j)Next jS(i) = S(i) / 4PrintNext imax = 0For i = 1 To 3Print "学生" & i; "平均成绩:" & S(i)If max < S(i) Thenmax = S(i)k = iEnd IfNext iPrint "最高平均成绩k="; k, "max="; maxEnd Sub（4分）5、* 利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。

* 程序代码如下：Private Sub Command1_Click()Dim sum As Long,n As Integersum=0For n = 100 To 999If duicheng(n) then sum=sum+nNext nEnd SubPublic Function duicheng(ByVal i%) As Booleana = i Mod 10c = i \ 100If a = c Thenduicheng=trueElseduicheng=FalseEnd IfEnd Function（4分）6、* 用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8...）的前20项及前20项的和。

* 程序代码如下：Private Sub Command1_Click()Dim s&, a%, b%, c%a = 0:b = 1c= a + bPrint aPrint bFor i = 1 To 18fib a, b, cprint cs = s + cNext iPrint "Fibonacci（斐波那契）数列的前20项的和为："; sEnd SubPrivate Sub fib(a, b, c)c = a + ba = bb = cEnd Sub（4分）7、* 编写一个显示随机数的程序，如图{<x_2.jpg>}所示。

* 运行过程：* 点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。

Private Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Form_Load()Label1.ForeColor = vbWhiteLabel1.BackColor = vbGreenEnd SubPrivate Sub Timer1_Timer ( )Label1 = Val(Int(Rnd * 90000 + 10000))End Sub【附图6】（6分）1、* 编写程序：* 有一分数序列2/1，3/2，5/3，8/5，13/8，21/13，…，求这个数列的前20项和。

（保留小数点后两位）Private Sub Command1_Click()Dim i As Integer, n1 As Long, n2 As LongDim sum As Single, n As Singlesum = 0n1 = 2n2 = 1For i = 1 To 20n = n1 / n2sum = sum + nn1 = n1 + n2n2 = n1 - n2Next iPrint Format(sum, "####.00")End Sub2、 * 下载由正整数组成的文件wj5.txt，编程统计该文件中偶数元素的个数。

（【下载文件“wj5.txt”】；Private Sub Command1_Click()Dim count As Integer, t%count = 0sum = 0Open "d:\wj5.txt" For Input As 1Do While Not EOF(1)Input #1, tIf t Mod 2 = 0 Thencount = count + 1End IfLoopClose #1Print countEnd Sub。