2级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的命令按钮，然后编写如下事件过程和通用过程：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】(注意不要写点)。
计算机二级vb考试题及答案
计算机二级vb考试题及答案一、选择题（每题2分，共20分）1. VB中，以下哪个选项不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 在VB中，以下哪个关键字用于声明常量？A. DimB. ConstC. LetD. Set答案：B3. 下列关于VB中的事件驱动编程描述正确的是：A. 程序执行顺序由事件决定B. 程序执行顺序由代码顺序决定C. 程序执行顺序由用户输入决定D. 程序执行顺序由系统决定答案：A4. 在VB中，如果要在窗体上显示文本，应该使用哪个控件？A. TextBoxB. ComboBoxC. LabelD. CheckBox答案：C5. VB中，以下哪个选项是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Procedure MySub()D. Method MySub()答案：A6. 在VB中，以下哪个选项不是控制结构？A. If...Then...ElseB. For...NextC. Do...LoopD. Call答案：D7. VB中，以下哪个选项不是数组声明的正确方式？A. Dim arr(10) As IntegerB. Dim arr() As IntegerC. Dim arr(1 To 10) As IntegerD. Dim arr As Integer()答案：D8. 在VB中，以下哪个选项不是合法的变量名？A. myVarB. _myVarC. 123VarD. my$Var答案：C9. VB中，以下哪个选项是正确的循环结构？A. Do WhileB. While DoC. For ToD. Loop Until答案：A10. 在VB中，以下哪个选项不是合法的注释方式？A. ' 这是一个注释B. REM 这是一个注释C. // 这是一个注释D. /* 这是一个注释 */答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以定义一个类。
计算机二级《VB》备考练习题及答案
计算机二级《VB》备考练习题及答案1[单选题] 数据库设计中反映用户对数据要求的模式是()。
A.内模式B.概念模式C.外模式D.设计模式参考答案：C参考解析：数据库系统的三级模式是餐念摸式、外模式和内模式。
概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。
外模式也称子模式或用户模式，它是用户的数据视图，给出了每个用户的局部囊据描述，所以选择C。
内模式又称物理模式，它给出了数据库暂理存储结构与物理存取方法。
2[单选题] 有如下数据定义语句：Dim X，Y As Integer以上语句表明()。
A.x、Y均是整型变量B.x是整型变量，Y是变体类型变量C.X是变体类型变量，Y是整型变量D.x是整型变量，Y是字符型变量参考答案：C参考解析：用Dim可同时定义多个变量，但变量要l分别声明其数据类型，如果不声明数据类型，默认是Variant变I体型变量。
l本题中，变量x定义时没声明数据类型，所以为Variant型I变量，变量Y是整型变量。
故c选项正确。
3[单选题] 现有如下语句：X=IIf(a>50，Int(a\3)，a Mod 2)当a=52时，X的值是()。
A.0B.1C.17 D.18参考答案：C参考解析：首先计算Int(a、3)即Int(52、3)=IInt(17)=17，52 MOD 2结果为0。
I再计算IIf(52>50，17，0)，52>50结果为True，所以IIF l函数返回l7，则x值为l7，故选C。
4[单选题] 在窗体上画一个水平滚动条，其属性值满足MinA.增加一个SmallChange量B.减少一个SmallChange量C.增加一个LargeChange量D.减少一个LargeChange量参考答案：A参考解析：当水平滚动条的属性值kiln本题单击的是滚动条右端的箭头，故Vlaue属性值应该是增加一个SmaUChange量。
故选A。
5[单选题] 以下不能触发滚动条Change事件的操作是()。
计算机二级考试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模拟试题及答案
全国计算机二级VB模拟试题及答案全国计算机二级VB模拟试题及答案计算机二级考试是全国计算机等级考试（National Computer Rank Examination，简称NCRE）四个等级中的一个等级，考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么全国计算机二级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属性条，然后按回车键21.线性表L=(a1,a2,a3,…ai,…an)，下列说法正确的是(D)A)每个元素都有一个直接前件和直接后件B)线性表中至少要有一个元素C)表中诸元素的排列顺序必须是由小到大或由大到小D)除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件22.设树T的度为4，其中度为1,2，3,4的结点个数分别为4,2，1,1。
计算机二级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考试试题及答案计算机二级VB考试是考察考生对VB（Visual Basic）编程语言的掌握程度和应用能力。
以下是历年计算机二级VB考试的试题及答案，供考生参考。
第一部分：选择题1. 下列VB控件中，不是用于用户输入的是：A) 文本框B) 输入框C) 复选框D) 按钮答案: D2. VB运行环境中，可视化地设计界面的工具是：A) MsgBoxB) PaintC) IDED) Debug答案: C3. 下列哪个选项能够将字符串转换为整数类型？A) Str()B) Val()C) Len()D) Mid()答案: B4. VB中表示循环结构的关键字是：A) ForB) WhileC) IfD) Do答案: D5. 下列哪个选项用于定义数组？A) Array[]B) Array()C) List[]D) List()答案: B第二部分：填空题1. 在VB中，实现条件判断可以使用 ___________ 语句。
答案: If2. VB中，用于判断两个变量是否相等的运算符是 ___________。
答案: =3. 在VB中，数组的下标从 ___________ 开始计数。
答案：04. VB中，使用 ___________ 关键字来声明一个变量。
答案: Dim5. VB中，用于结束循环的关键字是 ___________。
答案: Exit第三部分：编程题1. 编写一个VB程序，要求用户输入一个整数n，计算并输出1到n 之间所有整数的和。
答案:Private Sub btnCalculate_Click()Dim n As IntegerDim sum As Integern = Val(txtNumber.Text)sum = 0For i = 1 To nsum = sum + iNext iMsgBox "1到" & n & "之间所有整数的和为：" & sumEnd Sub2. 编写一个VB程序，要求用户输入一个字符串，将字符串中的大写字母全部转换为小写字母，并将结果输出。
计算机二级vb试题题目及答案
计算机二级vb试题题目及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的字符串比较？A. "Hello" > "hello"B. "Hello" < "hello"C. "Hello" = "hello"D. "Hello" <> "hello"答案：B2. VB中，哪个函数可以用来计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Size答案：A3. 在VB中，以下哪个选项表示创建一个名为“myForm”的窗体？A. Form myFormB. Dim myForm As FormC. Dim myFormD. Form myForm As New Form答案：D4. VB中，下列哪个选项是正确的文件打开模式？A. Open "filename" For Input As #1B. Open "filename" For Output As #1C. Open "filename" For Append As #1D. All of the above答案：D5. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. FloatD. All of the above答案：D6. VB中，哪个关键字用来声明一个变量？A. DimB. DeclareC. ConstD. All of the above答案：D7. 在VB中，以下哪个选项是正确的循环结构？A. ForB. DoC. WhileD. All of the above答案：D8. VB中，哪个函数可以用来获取当前系统日期？A. NowB. DateC. TimeD. Today答案：D9. 在VB中，以下哪个选项表示创建一个名为“myButton”的按钮？A. Button myButtonB. Dim myButton As ButtonC. Dim myButtonD. Button myButton As New Button答案：D10. VB中，哪个关键字用来结束一个程序的运行？A. EndB. ExitC. StopD. All of the above答案：D二、填空题（每题2分，共20分）1. 在VB中，使用________关键字可以声明一个全局变量。
计算机二级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考试试卷及答案
计算机二级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》操作试题及答案全国计算机二级考试《VB》操作试题及答案一、基本操作题(1)请在名称为Forml的窗体上添加一个名称为H1的水平滚动条，并在属性窗口中设置它的属性值，使其满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时，用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。
再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl.vbp，窗体文件名为sjtl.frm。
(2)在名称为Forml的窗体上添加两个名称分别为Textl和Text2的文本框，初始内容均为空;再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Copy和Clear，标题分别为“复制”、“清除”，请编写适当的事件过程，使得在程序运行时，单击“复制”选项菜单，则把Textl中的内容复制到Text2中，单击“清除”选项菜单，则清除Text2中的内容(即在Text2中填入空字符串)。
运行时的窗体如图所示。
要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sit2.vbp，窗体文件名为sjt2.frm。
二、简单应用题(1)在考生文件夹F有一个工程文件sjt3.vbp，窗体上已经有一个标签Labell，请添加一个单选按钮数组，名称为Opl，含三个单选按钮，它们的Index 属性分别为0、1、2，标题依次为“飞机”、“火车”、“汽车”，再添加一个名称为Textl的文本框。
窗体文件中已经给出了Opl的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在程序运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”，如图所示。
国家二级计算机vb考试试题及答案
国家二级计算机vb考试试题及答案一、单项选择题1. 下列选项中，属于VB常用数据类型的是：A) IntegerB) StringC) BooleanD) All of the above答案: D2. 下列关于VB中函数和子过程的说法，哪个是正确的？A) 函数可以返回一个值，子过程不能返回值B) 函数和子过程都可以返回一个值C) 函数和子过程都不能返回值D) 函数和子过程都可以返回多个值答案: A3. VB中的控件“Label”用于：A) 显示文本信息B) 接受用户的输入C) 显示图像D) 进行数据计算操作答案: A4. 下列关于VB中数组的说法，哪个是正确的？A) 数组的下标从0开始B) 数组的下标从1开始C) 数组的下标可以是负数D) 数组的下标可以是小数答案: A5. VB中用于处理数据的语句不包括：A) If-ThenB) For-NextC) Do-WhileD) Break-Continue答案: D二、填空题1. VB中，用于变量声明与赋值的是_________语句。
答案: Dim2. VB中，执行循环的语句是___________。
答案: For-Next3. VB中，用于判断条件的语句是___________。
答案: If-Then4. VB中，用于定义子过程的关键字是_____________。
答案: Sub5. VB中，用于结束程序的语句是____________。
答案: End三、编程题编写一个VB程序，实现计算一个数字列表的平均值的功能。
具体要求如下：1. 创建一个名为"frmAverageCalculator"的窗体，包含一个Label控件、一个TextBox控件和一个Button控件。
2. 在Label控件中显示提示信息："请输入数字，以逗号分隔："。
3. 用户在TextBox控件中输入一组数字列表，以逗号分隔，例如："1,2,3,4,5"。
国家二级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计算机二级试题及答案一、选择题1. 下列哪项不是VB中常见的数据类型？A. IntegerB. BooleanC. StringD. Double答案：D2. VB中用于用户输入的控件是：A. TextBoxB. LabelC. ComboBoxD. PictureBox答案：A3. VB中用于显示文本的控件是：A. TextBoxB. LabelC. ComboBoxD. PictureBox答案：B4. VB中用于展示图片的控件是：A. TextBoxB. LabelC. ComboBoxD. PictureBox答案：D5. 在VB中，用于执行特定任务并返回结果的代码块是：A. FunctionB. SubC. Select CaseD. If...Then...Else答案：A6. 在VB中，用于执行特定任务的代码块是：A. FunctionB. SubC. Select CaseD. If...Then...Else答案：B7. VB中用于进行条件判断的结构是：A. FunctionB. SubC. Select CaseD. If...Then...Else答案：D8. VB中用于根据不同条件执行不同代码块的结构是：A. FunctionB. SubC. Select CaseD. If...Then...Else答案：C9. 在VB中，声明一个整数类型的变量的关键字是：A. BooleanB. IntegerC. StringD. Double答案：B10. 在VB中，声明一个字符串类型的变量的关键字是：A. BooleanB. IntegerC. StringD. Double答案：C二、编程题请编写一个VB程序，要求实现以下功能：1. 用户输入两个整数。
2. 程序计算并输出这两个整数的和。
3. 程序计算并输出这两个整数的差。
4. 程序计算并输出这两个整数的乘积。
5. 程序计算并输出这两个整数的商。
vb全国二级考试答案
vb全国二级考试答案1. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. SubC. FunctionD. Const答案：A2. Visual Basic中，哪个函数用于计算一个数的绝对值？A. AbsB. SgnC. IntD. Round答案：A3. 在Visual Basic中，以下哪个控件用于显示文本信息，但不能编辑？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A4. 如果要在Visual Basic中创建一个事件处理程序，应该使用哪个关键字？A. SubB. FunctionC. EventD. Procedure答案：A5. 在Visual Basic中，如何使用循环结构来重复执行某段代码？A. 使用For...Next循环B. 使用While...Wend循环C. 使用Do...Loop循环D. 所有以上选项答案：D6. Visual Basic中，哪个属性用于设置或返回一个控件的可见性？A. VisibleB. EnabledC. CaptionD. Name答案：A7. 在Visual Basic中，哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrCompD. Trim答案：A8. Visual Basic中，哪个控件允许用户从预定义的列表中选择一个或多个项目？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，如何声明一个数组？A. 使用Dim关键字后跟数组名和圆括号B. 使用ReDim关键字后跟数组名和圆括号C. 使用New关键字后跟数组名和圆括号D. 使用Set关键字后跟数组名和圆括号答案：A10. Visual Basic中，哪个属性用于设置或返回一个控件的标题或文本？A. TextB. CaptionC. LabelD. Name答案：B结束语：以上是VB全国二级考试的部分答案，希望对您的学习和复习有所帮助。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一（1）画一个图片框控件，通过其属性窗口将名称设为Pic，在Picture属性中放入Tul-1.jpg 文件。
单击窗体（即运行Click事件过程），在该Private Sub Form_Click()事件过程中加入语句：Private Sub Form_Click()Pic.Print "VB等级考试"End Sub一（2)画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）“命令按钮”。
通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“控件”，名称处输入menu。
在“控件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示命令按钮”和“隐藏命令按钮”，名称处分别输入subMenu1和subMenu2。
选择“显示命令按钮”菜单（即运行Click事件过程），在该Private Sub subMenu1_Click()事件过程中加入语句：Private Sub subMenu1_Click()Command1.Visible = TrueEnd Sub选择“隐藏命令按钮”菜单（即运行Click事件过程），在该Private Sub subMenu2_Click()事件过程中加入语句：Private Sub subMenu2_Click()Command1.Visible = FalseEnd Sub二（1)相应的窗体文件名为sjt31.frm和sjt32.frm。
在Private Sub Command1_Click()事件过程中1) 将语句'z = z + ?改为z = z + xn(t)在Private Function xn(m As Integer) As Long函数中1) 将语句'tmp = ?改为tmp = 12) 将语句'tmp =?改为tmp = tmp * i3) 将语句'? = tmp改为xn = tmp二（2)在Private Sub Form_Load()事件过程中'?= Array("第一项", "第二项", "第三项", "第四项")改为arr = Array("第一项", "第二项", "第三项", "第四项")在Private Sub Timer1_Timer()事件过程中1) 将语句'? i As Integer改为Static i As Integer2) 将语句'Label1.Caption =?改为Label1.Caption = arr(i)3) 将语句'i =?改为i = 0三在窗体的Private Sub Command2_Click()事件过程中1) 将语句'j = ?改为j = 92) 将语句'? = Text1(j)改为temp = Text1(j)3) 将语句'While (i < ?)改为While (i < j)4) 将语句'If Text1(j) Mod 2 = ? Then改为If Text1(j) Mod 2 = 1 Then第四十八套一（1)画一个框架控件，通过其属性窗口将名称设为Frame1。
在框架内画二个单选按钮控件，通过其属性窗口将名称分别为Opt1和Opt2、标题（Caption属性）分别设为“字体”和“大小”。
激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“框架”。
一(2)画一根直线控件，通过其属性窗口将名称设为Line4，点X1属性设为1600，点X2属性分别设为1600，点Y1属性设为300，点Y2属性设为1200，Visible属性设为False。
画二个命令按钮控件，通过其属性窗口将名称分别设为Cmd1和Cmd2，标题（Caption属性）分别设为“显示高”和“隐藏高”。
单击“显示高”按钮：Private Sub Cmd1_Click()Line4.Visible = TrueEnd Sub单击“隐藏高”按钮：Private Sub Cmd2_Click()Line4.Visible = FalseEnd Sub二（1）将计时器的Enabled属性设为False，Interval属性设为1000。
在命令按钮的Private Sub C1_Click(Index As Integer)事件过程中1) 将语句'Select Case ?改为Select Case Index2) 将语句'Case ?改为Case 0在计时器的Private Sub Timer1_Timer()事件过程中1) 将语句'Text1.Text = Text1.Text ?改为Text1.Text = Text1.Text + 1二(2)在Private Sub Command2_Click()事件过程中1) 将语句'Select Case ?改为Select Case s2) 将语句'?改为f = 103) 将语句'f = 10 + ?改为f = 10 + (s - 4) * 1.24) 将语句'?改为Case Else5) 将语句'f = 10 + ? + (s - 15) * 1.8改为f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8三需画二个标签控件，通过其属性窗口将名称分别设为Label1和Label2，标题（Caption 属性）分别设为“出现次数最多的字母是”和“它出现的次数为”。
画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2，初始内容（Text属性）均设为空。
由于所提供的窗体程序不完整，需在“统计”命令按钮的Click事件过程中加入语句：Private Sub Command2_Click()' 考生编写Dim a(26) As Integern = Len(s)For i = 1 To nc = UCase(Mid(s, i, 1))If c >= "A" And c <= "Z" Thenj = Asc(c) - Asc("A") + 1a(j) = a(j) + 1End IfNext iMax = a(1)t = Chr(Asc("A"))For i = 2 To 26If a(i) > Max ThenMax = a(i)t = Chr(Asc("A") + i - 1)End IfNext iText1.Text = tText2.Text = MaxEnd Sub第四十七套一（1）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“计算机等级考试”，AutoSize属性设为True，边框（BorderStyle属性）设为1，点击Font属性，在弹出的“字体”对话框中，在字体大小下选择“三号”。
激活Form1窗体，通过其属性窗口将标题（Caption属性）设为“标签”。
一(2）画一个水平滚动条控件，通过其属性窗口将名称设为Hscroll1，最大值（Max属性）设为100，最小值（Min属性）设为1，TabIndex属性为0。
画一个文本框控件，通过其属性窗口将名称设为Text1，初始内容（Text属性）设为1。
改变滚动框位置（即运行Change事件过程），在该Private Sub HScroll1_Change()事件过程中加入语句：Private Sub HScroll1_Change()Text1.Text = HScroll1.V alueEnd Sub二（1）画一个形状控件，通过其属性窗口将名称设为Shape1，FillStyle属性0，Top属性设为360，颜色（FillColo属性）设为红色（对应的值为：&H000000FF& 或&HFF&）。
在Private Sub Form_Load()事件过程中1) 将语句'Timer1.Enabled = ?改为Timer1.Enabled = True在计时器的Private Sub Timer1_Timer()事件过程中1) 将语句'If Shape1.Top <= ? Then改为If Shape1.Top <= Line1.Y1 Then2) 将语句'If Shape1.Top + ? >= Line2.Y1 Then改为If Shape1.Top + Shape1.Height >= Line2.Y1 Then二（2）需在“计算”命令按钮的Click事件过程中加入语句：Private Sub Command2_Click()'考生编写Select Case Combo1.ListIndexCase 0Text1 = even()Case 1Text1 = odd()Case 2Text1 = all()End SelectEnd Sub三在窗体的Private Sub Form_Click()事件过程中1) 将语句'Dim ?改为Dim Mat(M, N) As Integer2) 将语句'Open App.Path & "\" & "datain.txt" ? As #1改为Open App.Path & "\" & "datain.txt" For Input As #13) 将语句'?改为Input #1, Mat%(i, j)4) 将语句'?改为Mat%(i, 4) = t第四十六套一(1）画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“设置速度”，AutoSize属性设为True。
画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，最大值（Max属性）设为80，最小值（Min属性）设为1，最小移动（SmallChange 属性）设为2，初始值（V alue属性）设为30。
一（2）画一个形状控件，通过其属性窗口将名称设为Shape1。
画一个目录列表框控件，通过其属性窗口将名称设为Dir1。
画二个命令按钮控件，通过其属性窗口将名称分别设为Command1和Command2，标题（Caption属性）分别设为“圆形”和“红色边框”。