下载文档原格式
VB 笔试复习提纲VB（开发环境、特点、对象）1.Visual Basic 规定工程（项目）文件的扩展名是C 。
A. .forB. .frmC. .vbpD. .bas解析：工程文件扩展名为.vbpVB 后缀名：.bas 基本模块.frm 窗体文件 . .vbp Visual Basic 工程文件 .2.标准模块中的内容存放在以 B 为扩展名的文件中。
A. FrmB. .BasC. .ClsD. .Txt3.以下能在“工程资源管理器”窗口中列出的文件类型是：B 。
A. *.txtB. *.frmC. *.docD. *.jpg解析：VB工程资源管理器窗口包含的文件类型有几种：vbp工程文件frm 窗体文件cls 类模块文件ctl 用户控件文件pag 属性页文件bas 模块文件4.VB 的启动有多种方法，下面不能启动 VB 的是D。
A.使用“开始”菜单中的“程序”命令B.使用“开始”菜单中的“运行”命令，在弹出的对话框中输入VB启动文件的名字C.使用“我的电脑”，在VB所在硬盘驱动器中找到相应的VB文件夹，双击VB 启动文件的名字D.先打开VB安装所在的文件夹，再按Alt+Q组合键解析：开机并进入中文Windows后，可以用多种方法启动VisualBasic.1. 使用“开始”菜单中的“程序”命令2.使用“我的电脑”3. 使用“开始”菜单中的“运行”命令，在“打开”栏内输入 Visual Basic6.0 启动文件的名字（包括路径）。
4.建立启动Visual Basic 6.0的快捷方式。
5.VB6.0 集成环境的主窗口中不包括C 。
A. 标题栏B. 菜单栏C. 状态栏D. 工具栏解析：VB6.0集成开发环境的主窗口包括:菜单栏,工具箱,窗体设计窗口,立即窗口,工具栏,工程资源管理器,属性窗口,窗体布局窗口6.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是C。
A. 工程资源管理器B. 工具箱窗口C. 代码窗口D. 属性窗口解析：对应的CS文件中的控件默认事件比如点击窗体就是load事件点击button就是click 事件点击 textbox 就是 TextChanged 事件。
全国计算机等考试VB语言笔试试题及答案(一)全国计算机等级考试(VB语言)笔试试题及答案为了让广大考生能更好的备考，本文将为大家提供全国计算机等级考试VB语言笔试试题及相关答案解析。
VB语言考试是比较热门的一种考试，因此备考也是非常重要的。
下面是试题及答案解析，希望对大家有所帮助。
一、单选题1、在VB语言中，执行时间比较久的程序可以采用的方法是：A.增加循环次数B.加快程序运行速度C.使用进度条等控件D.以上都不对【答案及解析】C。
在程序运行期间，如果程序执行时间太长，可以使用进度条控件使用户知道程序正在执行，以及当前运行到哪一步，提升程序的运行效率和用户体验。
2、在VB语言中，某控件的Tag属性表示：A.控件的位置B.控件所在窗口的名称C.控件的类型D.控件存储数据的指针【答案及解析】D。
在VB语言中，每个控件都可以设置其Tag属性，Tag属性可以存储控件相关的任何数据，该属性非常灵活方便。
3、在VB语言中，数组存储数据的方式是：A.栈存储B.堆存储C.静态存储D.以上都错【答案及解析】B。
在VB语言中，数组存储在堆中，即动态内存分配，这样以便在程序运行时更好地管理和利用内存。
二、多选题1、在VB语言中，下列哪些是合法的数组定义方式？（）A. Dim arr(3,5) As IntegerB. Dim arr(3)(5) As IntegerC. Redim arr(3,5)D. Dim arr() As Integer【答案及解析】A、D。
A、D都是合法的数组定义方式。
选项B是二维数组，但是定义方式不合法。
选项C是改变数组大小的方式，不是定义数组的方式。
2、在VB语言中，下列哪些事件是窗体的事件？( )A.LoadB.MouseMoveC.ClickD.Resize【答案及解析】A、D。
Load和Resize是窗体的事件，B和C是每个控件都有的事件。
三、判断题1、在VB语言中，Option Explicit语句可以保证变量在使用前被声明，从而减少程序出错的几率。
vb考试试题和答案**VB考试试题和答案**一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. DoubleD. All of the above**答案：D**2. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. LogD. Abs**答案：A**3. 下列哪个选项是VB中的保留字？A. MyB. MeC. DimD. All of the above**答案：D**4. 在VB中，下列哪个选项用于声明一个变量？A. ConstB. DimC. FunctionD. Sub**答案：B**5. VB中，哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox**答案：B**6. 在VB中，下列哪个选项用于循环遍历数组中的每个元素？A. For EachB. ForC. WhileD. Do**答案：A**7. VB中，哪个函数用于将字符串转换为大写？A. LCaseB. UCaseC. StrCompD. Trim**答案：B**8. 在VB中，哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. MouseUp**答案：A**9. VB中，哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. BackColor**答案：A**10. 在VB中，下列哪个选项用于声明一个过程？A. FunctionB. SubC. ClassD. Module**答案：B**二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是________。
**答案：Integer**2. VB中，用于定义一个函数的关键字是________。
**答案：Function**3. VB中，用于定义一个子程序的关键字是________。
vb考试题及答案一、单选题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. VB中的“Mid”函数用于什么？A. 计算字符串长度B. 计算字符串的ASCII值C. 从字符串中提取子字符串D. 将字符串转换为大写答案：C3. 以下哪个是VB中的流程控制语句？A. IfB. ForC. NextD. All of the above答案：D4. 在VB中，如何声明一个整型变量？A. Dim x As IntegerB. Integer xC. x = IntegerD. x Integer答案：A5. VB中的“Print”方法用于做什么？A. 打印文档B. 在窗体上显示文本C. 打印窗体D. 显示错误信息答案：B6. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. DateD. Object答案：D7. VB中的“Select Case”语句用于什么？A. 循环控制B. 条件分支C. 数据类型转换D. 异常处理答案：B8. 在VB中，如何将一个变量的值赋给另一个变量？A. x = yB. x := yC. x = y = zD. x = (y)答案：A9. VB中的“Do While”循环在什么条件下执行？A. 条件为真时B. 条件为假时C. 条件未知时D. 从不执行答案：A10. 在VB中，以下哪个不是集合（Collection）的方法？A. AddB. RemoveC. CountD. Find答案：D二、多选题（每题3分，共15分）1. VB中，哪些是合法的变量名？A. _nameB. 2nameC. name$D. name答案：A, D2. 在VB中，哪些是合法的常量声明？A. Const pi = 3.14B. Const pi = "3.14"C. Const pi = 3.14DD. Const pi = 3.14F答案：A, C, D3. VB中，哪些是合法的数组声明？A. Dim arr(5) As IntegerB. Dim arr(5 To 10) As IntegerC. Dim arr() As Integer = New Integer(10) {}D. Dim arr(,) As Integer = New Integer(,) {{1, 2}, {3, 4}} 答案：A, C, D4. 在VB中，哪些是合法的函数调用？A. MsgBox("Hello World")B. Int(123.456)C. UCase("Hello World")D. LCase("HELLO WORLD")答案：A, B, C, D5. VB中，哪些是合法的循环控制语句？A. For i = 1 To 10B. While TrueC. Do Until FalseD. For Each item In collection答案：A, B, C, D三、判断题（每题1分，共10分）1. VB中，所有变量都必须在使用前声明。
1999年（秋）江苏省普通高校非计算机专业学生计算机基础知识和应用能力等级考试笔试卷二级VB第一部分计算机基础知识●A类以Windows95为平台1.目前人们议论的热点话题“计算机千念虫”问题是指____1____。
A. 一种计算机病毒B. Internet上的一种硬件故障C. 指2000年以后，世界上所有的计算机都不能使用D. 指计算机系统能否正确处理涉及2000年以后的日期数据的问题2. 算术式（1023）10-（337）8+（100）16的值是___2____。
A. （1024）10B. （746）8C.（1025）10D. （746）163. 按照汉字的“输入——处理——输出打印”的处理流程，不同阶段使用的汉字编码分别对应为___3___。
A. 国标码--交换码--字型码C.输入码--机内码--字型码B.输入码--国标码--机内码D.拼音码--交换码--字型码4.对于计算机网络来说，局域网的基本拓扑结构有___4____。
A. 总线形、主从型和对等型C.总线形、环行和星型B.总线形、星型和主从型D.总线形、星型和对等型5. Intel公司生产的Pentium系列CPU与Motorola公司生产的Power PC系列CPU相比，其指令系统是___5____。
A. MCAB.ISAC. EISAD. PCI6. 显示器是计算机重要的输出设备，它用红、绿、蓝三基色的组合来显示彩色，使用___6___位二进制z表示一个象素就可以表现出真彩色。
A. 指令条数相等B.相互兼容C.相互不兼容D.寻址方式完全相同7. 结构化查询语言(SQL)通常是___7___的主要功能语言和主要组成部分。
A. 管理信息系统B.通用管理软件系统C. 数据库管理系统D.高级语言8. 在Windows95环境下，鼠标的___8___操作通常无任何作用。
A. 左键双击B.右键双击C.左键拖放D.右键拖放9. 在Windows95环境下，用户在创建文件时，输入的文件名为“ X Y ”(字母X与Y前后均有空格)，则系统认为该文件名为___9___。
vb会考考试题库及答案1. 以下哪个选项是Visual Basic（VB）中声明变量的正确方式？A. Dim myVarB. Dim myVar As IntegerC. Dim myVar As StringD. All of the above答案：D2. 在VB中，如何将字符串"Hello"和"World"连接起来？A. "Hello" + "World"B. "Hello" & "World"C. Concat("Hello", "World")D. Join("Hello", "World")答案：B3. VB中哪个关键字用于定义一个子程序？A. FunctionB. SubC. ClassD. Module答案：B4. 在VB中，以下哪个选项不是控制结构？A. If...Then...ElseB. For...NextC. While...WendD. Print答案：D5. VB中如何声明一个整型数组？A. Dim myArray() As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer()D. Dim myArray(0 To 10) As Integer答案：A6. 在VB中，哪个函数用于将字符串转换为整数？A. StrConvB. CIntC. ValD. Convert.ToInt32答案：B7. VB中如何使用For循环遍历数组？A. For i = 0 To UBound(myArray) - 1' Code hereNext iB. For i = 0 To myArray.Length - 1' Code hereNext iC. For Each i In myArray' Code hereNextD. For i = 1 To myArray.Length' Code hereNext i答案：A8. 在VB中，如何声明一个具有默认参数值的函数？A. Function myFunction(Optional ByVal myParam As Integer = 10) As IntegerReturn myParamEnd FunctionB. Function myFunction(ByVal myParam As Integer = 10) As IntegerReturn myParamEnd FunctionC. Function myFunction(myParam As Integer = 10) As IntegerReturn myParamEnd FunctionD. Function myFunction(myParam As Integer, Optional ByVal myParam2 As Integer = 10) As IntegerReturn myParam + myParam2End Function答案：A9. VB中哪个关键字用于创建一个类的实例？A. NewB. InstanceC. CreateD. Class答案：A10. 在VB中，如何使用事件处理程序？A. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click' Code hereEnd SubB. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)' Code hereEnd SubC. Private Sub Button1_Click()' Code hereEnd SubD. Private Sub Button1_Click(ByVal sender As System.EventArgs) Handles Button1.Click' Code hereEnd Sub答案：A。
vb考试题及答案随着计算机技术的发展，程序设计语言在软件开发中扮演着重要的角色。
Visual Basic（简称VB）是一种面向对象的高级编程语言，被广泛应用于Windows平台下的软件开发。
为了帮助大家更好地掌握VB 编程知识，本文将提供一些VB考试题及答案，希望对大家的学习和复习有所帮助。
1. VB中，如何声明一个整型变量？答案：使用关键字Dim来声明变量，例如：Dim num As Integer2. VB中，如何进行条件判断？答案：可以使用关键字If...Then...Else来进行条件判断，例如：If condition Then' 条件为真时执行的代码Else' 条件为假时执行的代码End If3. VB中，如何使用循环结构？答案：可以使用关键字For、While或者Do...Loop来实现循环，例如：For i As Integer = 1 To 10' 循环体，执行10次Next4. VB中，如何定义一个函数？答案：使用关键字Function来定义函数，例如：Function AddNumbers(ByVal num1 As Integer, ByVal num2 As Integer) As IntegerReturn num1 + num2End Function5. VB中，如何处理异常？答案：可以使用关键字Try...Catch...Finally来处理异常，例如：Try' 可能会引发异常的代码块Catch ex As Exception' 处理异常的代码块Finally' 无论是否发生异常，都会执行的代码块End Try6. VB中，如何创建一个类？答案：使用关键字Class来创建一个类，例如：Public Class MyClass' 类的成员和方法End Class7. VB中，如何使用MessageBox显示消息框？答案：可以使用MessageBox.Show方法来显示消息框，例如：MessageBox.Show("Hello World!")8. VB中，如何读取和写入文件？答案：可以使用System.IO命名空间下的File类来读取和写入文件，例如：Dim content As String = File.ReadAllText("C:\example.txt")File.WriteAllText("C:\example.txt", "Hello World!")9. VB中，如何使用数据库连接？答案：可以使用System.Data命名空间下的SqlConnection和SqlCommand等类来进行数据库连接和操作，例如：Dim connectionString As String = "DataSource=myServerAddress;Initial Catalog=myDataBase;UserId=myUsername;Password=myPassword;"Using connection As New SqlConnection(connectionString)connection.Open()' 执行数据库操作End Using10. VB中，如何创建和使用数组？答案：可以使用Dim语句来创建数组，例如：Dim numbers(9) As Integer' 对数组进行赋值numbers(0) = 1...numbers(9) = 10以上是一些VB考试题及答案的示例，希望能够帮助大家更好地理解和掌握VB编程知识。
vb经典考试题及答案VB经典考试题及答案1. 题目：以下哪个选项是中声明变量的正确方式？A. Dim myVarB. Dim myVar As IntegerC. Dim myVar = 10D. Dim myVar As Integer = 10答案：B2. 题目：在中，如何将字符串转换为小写？A. str.ToLower()B. str.ToLowercase()C. str.ToLowerCase()D. str.tolower()答案：A3. 题目：中，下列哪个关键字用于定义一个类？A. ClassB. StructureC. InterfaceD. Module答案：A4. 题目：在中，下列哪个方法用于获取字符串的长度？A. LengthB. SizeC. CountD. Length()答案：A5. 题目：如何声明一个的事件？A. Event MyEvent As EventHandlerB. Declare Event MyEventC. Event MyEvent()D. Declare MyEvent As EventHandler答案：A6. 题目：在中，下列哪个选项是正确的继承语法？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass As MyBaseClassD. Inherits MyBaseClass MyBaseClass答案：A7. 题目：在中，下列哪个关键字用于捕获所有未处理的异常？A. TryB. CatchC. FinallyD. Throw答案：B8. 题目：在中，如何声明一个只读属性？A. ReadOnly Property MyPropertyB. Property MyProperty As TypeC. ReadOnly Property MyProperty As TypeD. Property MyProperty As Type ReadOnly答案：C9. 题目：在中，下列哪个选项是正确的方法重载声明？A. Sub MyMethod()B. Sub MyMethod(ByVal x As Integer)C. Sub MyMethod(ByVal x As Integer, ByVal y As Integer)D. All of the above答案：D10. 题目：在中，下列哪个关键字用于定义一个结构体？A. StructureB. ClassC. InterfaceD. Module答案：A11. 题目：在中，如何声明一个枚举类型？A. Enum MyEnumB. Type MyEnumC. Const MyEnumD. Define MyEnum答案：A12. 题目：在中，如何声明一个委托？A. Delegate MyDelegate As ActionB. Delegate MyDelegateC. Function MyDelegate()D. Sub MyDelegate()答案：B13. 题目：在中，下列哪个关键字用于定义一个接口？A. InterfaceB. ClassC. StructureD. Module答案：A14. 题目：在中，如何声明一个数组？A. Dim myArray() As IntegerB. Dim myArray As Integer()C. Dim myArray As IntegerD. Dim myArray As Integer[10]答案：A15. 题目：在中，如何使用LINQ查询一个数组？A. From item In myArray Select itemB. For Each item In myArrayC. For item In myArrayD. All of the above答案：A。
第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在21-30答题号内）21. Visual Basic 是一种面向__D_的程序设计语言。
A.过程B.用户C.方法D.对象22. 一只白色的足球被踢进球门，则白色、足球、踢、进球门是B。
A.属性、对象、方法、事件B.属性、对象、事件、方法C.对象、属性、方法、事件D.对象、属性、事件、方法23. 如果在窗体上有命令按纽OK，在代码编辑窗口有与之对应的CmdOK_Click()事件，则命令按纽控件的名称属性和Captin属性分别为__C___。
A.OK、CmdB. Cmd、OKC. CmdOK、OKD. OK、CmdOK24. 窗体Form1的名称属性是frm,它的Load事件过程名是___A___。
A. Form_LoadB. Form1_LoadC. frm_LoadD. Me_Load25. 在语句Public Sub Sort(i As Integer)中的 i 是一个按__A___传递的参数。
A. 地址B. 值C. 变量D. 常量26. x+y小于10且x-y大于0的逻辑表达式是___C__。
A. x+y<10 or x-y>0B. (x+y<10):(x-y)>0C. x+y<10 And x-y>0D. x+y<10.And.x-y>027. 在Form_Click事件中执行如下语句的正确结果是___B___。
Print Format(1236.54,"+ ##,##0.0%")A. 123456B. +123,654.0%C. +123,6.54%D. +123,65428. 代数表达式，对应Visual Basi c 表达式是__C__。
A. E^(x+y)+|x+y|^1/2/2π+1B. Exp(x+y)+Sqr(Abs(x+y))/2*3.14159+1C. (Exp(x+y)+Sqr(Abs(x+y)))/(2*3.14159+1)D.( Exp(x+y)+Sqr(Abs(x+y)))/2*π+129. 要对顺序文件进行写操作，下列打开文件语句中正确的是___A___。
vb考试试题及答案VB考试试题及答案VB（Visual Basic）是一种面向对象的编程语言，广泛应用于Windows平台的应用程序开发中。
对于学习VB的人来说，参加考试是一种检验自己掌握程度的方式。
下面将为大家提供一些VB考试试题及答案，希望对大家的学习有所帮助。
一、选择题1. VB是以下哪种类型的编程语言？A. 面向过程编程语言B. 面向对象编程语言C. 函数式编程语言D. 混合编程语言答案：B. 面向对象编程语言2. VB中的变量声明关键字是？A. DimB. VarC. IntD. Public答案：A. Dim3. VB中的循环结构中，以下哪个关键字用于跳出当前循环？A. ExitB. BreakC. ContinueD. End答案：A. Exit4. VB中的条件语句中，以下哪个关键字用于多个条件的判断？A. IfB. ElseC. ElseIfD. Switch答案：C. ElseIf5. VB中的函数定义关键字是？A. SubB. FunctionC. MethodD. Procedure答案：B. Function二、填空题1. VB中的注释符是（）。
答案：'2. VB中的数组下标是从（）开始的。
答案：03. VB中的字符串连接符是（）。
答案：&4. VB中的逻辑与运算符是（）。
答案：And5. VB中的模块化编程可以通过（）来实现。
答案：函数和子程序三、简答题1. VB中的控件是什么？请举例说明。
答：VB中的控件是用于与用户进行交互的可视化组件。
例如，按钮（Button）、文本框（TextBox）、标签（Label）等都是VB中常见的控件。
通过控件，我们可以实现用户输入、数据展示、按钮点击等功能。
2. VB中的事件是什么？请举例说明。
答：VB中的事件是指在特定条件下发生的操作或响应。
例如，按钮的点击事件（Click Event）是指当用户点击按钮时触发的事件，我们可以在该事件中编写相应的代码来实现按钮的功能。
第二部分 Visual Basic 程序设计一、选择题（用答题卡答题，答案依次填在21-30答题号内）21. Visual Basic 是一种面向___21___的程序设计语言。
A.过程B.用户C.方法D.对象22. 一只白色的足球被踢进球门，则白色、足球、踢、进球门是___22___。
A.属性、对象、方法、事件B.属性、对象、事件、方法C.对象、属性、方法、事件D.对象、属性、事件、方法23. 如果在窗体上有命令按纽OK，在代码编辑窗口有与之对应的CmdOK_Click()事件，则命令按纽控件的名称属性和Captin属性分别为___23___。
A.OK、CmdB. Cmd、OKC. CmdOK、OKD. OK、CmdOK24. 窗体Form1的名称属性是frm,它的Load事件过程名是___24___。
A. Form_LoadB. Form1_LoadC. frm_LoadD. Me_Load25. 在语句Public Sub Sort(i As Integer)中的 i 是一个按___25___传递的参数。
A. 地址B. 值C. 变量D. 常量26. x+y小于10且x-y大于0的逻辑表达式是___26___。
A. x+y<10 or x-y>0B. (x+y<10):(x-y)>0C. x+y<10 And x-y>0D. x+y<10.And.x-y>027. 在Form_Click事件中执行如下语句的正确结果是___27___。
Print Format(1236.54,"+ ##,##0.0%")A. 123456B. +123,654.0%C. +123,6.54%D. +123,65428. 代数表达式，对应Visual Basi c 表达式是___28___。
A. E^(x+y)+|x+y|^1/2/2π+1B. Exp(x+y)+Sqr(Abs(x+y))/2*3.14159+1C. (Exp(x+y)+Sqr(Abs(x+y)))/(2*3.14159+1)D.( Exp(x+y)+Sqr(Abs(x+y)))/2*π+129. 要对顺序文件进行写操作，下列打开文件语句中正确的是___29___。
A. Open "file1.txt" For Output As #1B. Open "file1.txt" For Input As #1C. Open "file1.txt" For Random As #1D. Open "file1.txt" For Binary As #130. 有变量定义语句Dim a,a As Integer，变量 a 的类型和初值是___30___。
A. Integer,0B. Variant,空值C. String,""D. Long,0.0二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）1. 运行下面的程序，单击窗体后在窗体上显示的第一行结果是___（15）___；第二行结果是___（13）__；第三行结果是___（17）_。
Private Sub Form_click()Dim i As Integer, s as IntegerFor i=1 To 10s=s+iIf s>10 ThenPrint ss=0End IfNext iEnd Sub2. 运行下面的程序，单击窗体后在窗体上显示的内容是___（10 220）___；若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是___（10 120）___。
Private Sub Form_Click()Dim a As Integer,b As Integera=0: b=0Do While a<=8a=a+2 'A语句b=b+a*a 'B语句LoopPrint a,bEnd Sub3.运行下面的程序，单击窗体后在窗体上显示的第一行结果是___（3）___；第二行结果是___（2）_.Private Function Digit(n As Integer,k As Integer)As Integerdigit=0Do While k>0Digit=n Mod 10n=n\10k=k-1LoopEnd FunctionPrivate Sub Form_Click()Print Digit(1234,2)Print Digit(1234,3)End Sub4.运行下面的程序，单击窗体后在窗体上显示的第一行结果是___（Aa）___；第三行结果是___（AaBbCe）_.Private Sub Form_Click()Dim mst As String,mst1 As String,mst2 As StringDim i As Integermst1="CeBbAa"For i=Len(mst1) to 1 Step -2mst2=Mid(mst1,i-1,2)mst=mst & mst2Print mstNext iEnd Sub5. 运行下面的程序，单击窗体后在窗体上显示的第一行结果是___（1）___；第三行结果是___（3 3 3）_.Private Sub Test(x As Integer)Dim i As IntegerIf x<>0 ThenCall Test(x-1)For i=1 To xPrint x;Next iPrintEnd IfEnd SubPrivate Sub Form_Click()Test 3End Sub6. 运行下面的程序，单击窗体后在窗体上显示的第二行结果是___（x2=0 y2=1）___；第四行结果是___（x4=1 y4=3）_.Dim y As IntegerPrivate Sub Form_Click()Dim x As Integerx=1:y=1Print "x1=";x, "y1=";yTestPrint "x4=";x, "y4=";yEnd SubPrivate Sub Test()Dim x As IntegerPrint "x2=";x, "y2=";yx=2:y=3Print "x3=";x, "y3=";yEnd Sub7. 图1是应用程序的窗体，要求用户选中复选框 ChkBold 后，文本框 TxtDisplay 中的文字以粗体显示，选中复选框 ChkItalic 后,文本框 TxtDisplay 中的文字以斜体显示，单击关闭按纽CmdClose结束应用持续运行。
Private Sub ChkBold_Click()If___（ChkBold.Value=1）_ThenTxtDisplay.FontBold=TrueElseTxtDisplay.FontBold=___（False）_End IfEnd SubPrivate Sub ChkItalic_Click()If___（ChkItalic=0）_ThenTxtDisplay.FontItalic=FalseElseTxtDisplay.FontItalic=TrueEnd IfEnd SubPrivate Sub CmdClose_Click()___（Unload）_MeEnd Sub8. 验证下列命题：设n是一个s1是n的各位数字之和，s2是2n的各位数字之和。
若s1=s2,则n是9的倍数。
根据图2和程序填写对象的相关属性，"X"代表该对象无属性。
Private Sub CmdVerify_Click()Dim n As Integer,s1 As Integer,sa As Integer n=Val__（TxtInput_)s1=Sm(n)s2=Sm(2*n)If ___（s1=s2 and n Mod 9=0）___Then MsgBox "该命题成立"ElseMsgBox "该命题不成立"End IfTxtInput.Text=""TxtInput.SetFocusEnd SubPrivate Sub CmdExit_Click()Unload MeEnd SubPrivate Function Sm(___（ByVal n As Integer）___) As IntegerDim sm1 as integersm1=0Do While n<>0sm1=sm1+n Mod 10___（n=n\10）___LoopSm=sm1End Function9. 本程序从键盘读入n个整数 X1,X2,…,X n,若这些整数满足如下条件之一：(1) X1<X2<…<X n;(2) X1<X2<…<X j且 X j>X j+1>X j+2>…>X n,其中 1<j<n;(3) X1>X2>…>X n.则输出“符合条件！”，否则，输出“不符合条件！”。
Private Sub Form_Click()Dim a() As IntegerDim i As Integer, j As Integer, n As Integern=InputBox("输入数据个数")___（ReDim a(n)）___For i=1 To na(i) = InputBox("输入数据")Next iFor i=1 To n-1If a(i) >a(i+1)Then Exit ForNext iFor j=i To n-1If ___（a(j)<a(j+1)）___Then Exit ForNext jIf ___（j=n）__ThenPrint "符合条件！"ElsePrint "不符合条件！"End IfEnd Sub10. 在C盘根目录下有一数据文件（cj.dat），内容如下：9901，56，789902，97，899903，67，759904，78，769905，100，90第一列数据表示学号，第二列数据表示数学成绩，第三列数据表示语文成绩，要求根据学号计算学生的总分，并按总分从高到低次序在窗体上输出。
