下载文档原格式
V i sua I Bas i c 程序设计_0001试卷总分：100 测试时间：100单项选择题判断题阅读理解一、单项选择题（共10道试题，共40分。
）1. 一个VB 应用程序可以包含几个vbp 文件？（ ）E A. 1 个匚B.可以没有C C. 2 个可以包含多个 下列（）对象在运行时一定是不可见的。
如果Winsockl .LocalPort=0,那么应用程序将使用（A. AlignA. LineE B. TimerC. ShapeD. Frame A. 注册端口B. 公认端口c. 常用端口D. 随机端口4. 如果要在文本框中键入字符时，只显示某个字符，如星号（"），应设置文本框的（）属性。
A. CaptionB. PasswordCharc. TextD. Char5. 要使图片框自动地与窗体右对齐，应该设置它的（ ）属性。
2.3.c B. AutoSizo匚 c. Leftc D. Width6. 要在窗体的标题栏中显示“我的第一个应用程序”，使用的语句是（）。
C A. Forml. Print"我的第一个应用程序"匚B. Form. Print"我的第一个应用程序〃匚C. Form, caption二"我的第一个应用程序" 巨D. Forml. caption=z，我的第一个应用程序"7. 表达式7+10 Mod 3*2+2 （）。
C A. 1C B. 7C C. 6 色 D. 13& 在VB程序的以下几种错误中，最具隐藏性和破坏性的是（）。
匚A.运行时错误匚B.编译错误E C.逻辑错误匚0.实时错误9. 按照变量的作用域可将变量划分为（）。
C A.公有、私有、系统匚B.动态、常数、静态E C.全局变量、模块级变量、过程级变量厂2 D・ Public、 Private、 Protected10. 无论何种控件，共同具有的属性是（）。
Visual Basic本科样卷一、单项选择题（请将答案写到题后的括号内，每小题2分，共30分）。
1. 下面4个选项，不是窗体属性的是（）A. minbuttonB. borderstyleC. loadD. caption2. 下列选项中合法的visual basic标识符是（）A. DoWhileB.ConstC.8aD.a#x3. 表达式2*3^2+2*8/4+3^2的值是（）。
A．64 B．31 C．49 D．424. 要退出For…Next循环，可使用的语句是( )。
A．Exit B．Exit Do C． Exit For D． End Do5. 已知a=3,b=4,c=5,表达式a>b and not c>a or c>b and c<a+b的值是（）。
A．True B．False C．0 D．16. 设a="visual basic",则下面使b="basic" 的语句是（）A.b=left(a,8,12）B.b=mid(a,8,5)C.b=right(a,5,5)D.b=left(a,8,5)7. 下列叙述中正确的是（）A. 窗体的name属性指定窗体的名称，用来标识一个窗体B. 窗体的name属性值是显示在窗体标题栏中的文本C. 可以在运行期间改变窗体的name属性值D. 窗体的name属性值可以为空8. 以下Case语句中错误的是（）A. Case 0 To 10B.Case Is>10C.Case Is>10 and Is<50D. Case3,5,Is>109.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x=InputBox（"请输入整数"）Select Case xCase 1，3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后,如果在输入对话框中输入2,则窗体上显示的是( )A.分支1B.分支2C. Else分支D. 程序出错10. 下述程序的运行结果是( )。
页脚内容1一、填空题（每题1分，共10分）1.把数学式子： 25sin 21π+写成VB 的数值表达式为（ Sqr(1+3.14159/2*Sin(25*3.14159/180)) ）。
2．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D 的值是（ True ）。
3．若Case 子句中的表达式表列具有形式：<表达式1> To <表达式2>，则它的含义是：当测试表达式的值等于（ 指定范围内的值 ）时，执行该Case 子句相应的语句块。
4．执行下面的程序段后，x 的值为（ 12 ）。
x=0For i=1 To 8 Step 3x=x+iNext i5．在图片框上放置的控件称为图片框的（ 子 ）对象，而窗体是图片框的（ 父 ）对象。
6．将命令按钮Command1的Caption 属性值赋给文本框Text1的Text 属性使用的语句为( Text1.Text=Command1.Caption )7．复选框的Value 属性为（ 1 ）时，表示复选框被选中。
8. 使用滚动条可以获取某一范围内的数值输入。
为使垂直滚动条的Value 属性值从下往上递增变化，应设置滚动条Min 属性值大于( Max )属性值。
9．语句：Dim A(-3 to 4) as Integer定义的一维数组A的元素个数是（8）。
10．给定如下子过程：Function fun(ByVal num As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function执行语句Print fun(5) 后在窗体上显示的结果为（0）。
二、单项选择题（每题1.5分，共30分）1.装载窗体是窗体的（ C ）。
A) 对象B) 属性C) 事件D) 方法2.设a="Visual Basic"，下面使b的值为"Basic"的赋值语句正确的是( B)。
第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。
文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项；编辑菜单（命令项略，以下同）、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。
2. 可以自行定义。
标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。
四、编程题（略）第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t；S2. 把y赋值给x；S3. 把t赋值给y。
2. S1. 输入a、b、c；S2. 如果a<b，则交换a与b的数据；S3. 如果a<c，则交换a与c的数据；S4. 如果b<c，则交换b与c的数据；S5. 输出a、b、c。
3. S1. 输入整数N；S2. 给整数K赋值2；S3. 如果K大于N-1，则转S6；S4.如果N除以K 的余数为0，则转S7；S5. K加1再赋值给K，转S3.；S6. 如果K大于N-1，则N为素数；否则N不是素数。
4. S1. 输入整数N；S2. 将N赋值给K；S3. 给整数nx赋值0；S4. 计算nx乘以10加K除以10的余数，再赋值给nx；S5. 计算K除以10的整数商，赋值给K；S6. 如果K>0，则转S4；否则，转S7；S7. 如果N=nx，则N为回文数，否则N不是回文数。
5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label，CommandButton，OptionButton，CheckBox，Frame、TextBox，ListBox，ComboBox7. PictureBox，Frame8. OptionButton，CheckBox，HScrollBar，VScrollBar、OptionButton、CheckBox，HScrollBar，VScrollBar三、问答题1. 答：对象的只读属性的属性值（如名称属性）只能在设计界面时在属性窗口进行设置；非运行属性的属性值则既可在设计界面时在属性窗口进行设置，也可通过程序代码进行设置与修改。
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项是Visual Basic中的单行注释符号？A. //B. /* */C. 'D. ' '答案：C3. 在Visual Basic中，下列哪个函数用于计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Len答案：A4. 如果要创建一个名为“Form1”的窗体，应该使用哪个关键字？A. FormB. SubC. FunctionD. Class5. 在Visual Basic中，下列哪个选项是正确的事件处理程序的声明方式？A. Sub Form1_Click()B. Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Function Form1_Click()D. Function Form1_Click(ByVal sender As Object, ByVal e As EventArgs)答案：B6. 下列哪个选项是Visual Basic中的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D7. 在Visual Basic中，哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A8. 在Visual Basic中，下列哪个选项是正确的条件语句？A. If...ThenB. Do...LoopC. For...NextD. Switch...Case9. 在Visual Basic中，下列哪个选项用于创建一个标签控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A10. 在Visual Basic中，下列哪个选项用于创建一个文本框控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个常量。
大学vb考试题库及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是合法的变量名？A. 2variableB. Variable2C. variable_2D. Variable!答案：B2. Visual Basic中，以下哪个是正确的整型常量？A. 123.45B. 0x1AC. 1.2E3D. 0.1答案：B3. 以下哪个是Visual Basic中的保留关键字？A. MyVarB. DimC. VarD. MyFunction答案：B4. 在Visual Basic中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Sub MySub(x As Integer)D. Function MySub(x As Integer) As Integer答案：C5. Visual Basic中，以下哪个是正确的数组声明？A. Dim MyArray(10)B. Dim MyArray(0 To 10) As IntegerC. Dim MyArray() As Integer = New Integer(10)D. Dim MyArray(10) As Integer答案：B6. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 ThenPrint "Positive"End IfC. If x > 0 ThenPrint "Positive"End IfD. If x > 0 ThenPrint "Positive"End If7. Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iLoopC. While i < 10Print ii = i + 1End WhileD. Do While i < 10Print ii = i + 1Loop8. 在Visual Basic中，以下哪个是正确的函数调用？A. Call MyFunction(5)B. MyFunction 5C. MyFunction(5)D. MyFunction Call 5答案：C9. Visual Basic中，以下哪个是正确的事件处理程序？A. Sub Form_Click()End SubB. Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs)End SubC. Sub Form_Click(ByVal sender As Object)End SubD. Sub Form_Click(ByVal e As EventArgs)End Sub答案：B10. 在Visual Basic中，以下哪个是正确的窗体属性？A. Me.Caption = "My Form"B. Me.Text = "My Form"C. = "My Form"D. Me.Title = "My Form"答案：A二、填空题（每题2分，共20分）1. 在Visual Basic中，声明一个整型变量的正确语法是：Dim ________ As Integer。
大一vb考试题库及答案# 大一VB考试题库及答案一、选择题1. 在Visual Basic中，以下哪个不是基本数据类型？- A. Integer- B. String- C. Object- D. File答案：D2. 如果需要在VB中声明一个变量来存储用户输入的姓名，应该使用哪个关键字？- A. Dim- B. Const- C. Static- D. Public答案：A3. 在VB中，以下哪个是正确的循环结构？- A. For- B. While- C. If- D. Select答案：B4. 在VB中，以下哪个函数用于获取当前日期？- A. Now()- B. Date()- C. Today()- D. GetDate()答案：B5. 在VB中，以下哪个属性用于设置控件的可见性？- A. Visible- B. Enabled- C. Caption- D. Text答案：A二、填空题1. 在VB中，使用______关键字可以定义一个数组。
答案：Dim2. VB中的事件通常与______关键字一起使用。
答案：Sub3. 要实现在VB中弹出一个包含文本的对话框，可以使用______函数。
答案：MsgBox4. VB中的______属性决定了控件在窗体上的位置。
答案：Left5. 在VB中，使用______语句可以结束一个循环。
答案：Exit For（或Exit Do，取决于上下文）三、简答题1. 简述VB中类和模块的区别。
答案：- 类（Class）是一种引用类型，可以包含属性、方法和事件。
类可以被实例化，创建多个对象。
- 模块（Module）是一种标准模块，包含过程（Sub和Function），但不能被实例化。
模块中的所有变量和过程都是全局的。
2. 解释VB中的“事件驱动编程”。
答案：- 事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户点击按钮）触发。
在VB中，事件通常与控件关联，当控件接收到特定的事件（如Click事件）时，会调用相应的事件处理程序。
Visual Basic考试试题带答案1. 应用程序打包后，其包文件的后缀为（ B ）。
A. .exeB. .cabC. .txtD. .ocx2. 在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（ B ）A. HelpB. F1C. F10D. Enter3. 在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ C ）。
A. 立即窗口B. 属性窗口C. 代码窗口D. 工程资源管理器窗口4. 后缀为.frm的文件表示VB 的（ A ）。
A. 窗体文件B. 类模块文件C. 工程文件D. 标准类模块文件5. 要改变控件的高度，应该修改控件的（ D ）属性。
A. TopB. LeftC. WidthD. Height6. 能够改变标签Label控件显示标题的属性是（ A ）。
A. CapionB. NameC. ClickD. Text7. 与传统的程序设计语言相比，Visual Basic最突出的特点是（ C ）A. 结构化程序设计B. 程序开发环境C. 事件驱动编程机制D. 程序调试技术8. 下列赋值语句正确的是（ B ）A. B+C =AB. A=B+CC. -B=AD. 5=A+B9. 应用程序设计完成后，应将程序保存，保存的过程是（ D ）。
A. 只保存窗体文件即可B. 只保存工程文件即可C. 先保存工程文件，之后还要保存工程文件D. 先保存窗体文件（或标准模块文件），之后还要保存工程文件10. 在Visual Basic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是（ B ）。
A. ShowB. HideC. LoadD. UnLoand11. 如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ B ）A. Text.MytextB. Mytext.TextC. Mytext.(Text)D. Mytext*Text12. 要在窗体Form1内显示“myfrm”，使用的语句是（ C ）A. Form.caption="myfrm"B. Form1.caption="myfrm"C. Form1.print "myfrm"D. Form. print "myfrm"13. 每建立一个窗体，工程管理器窗口中就会增加一个（ B ）。
电大本科vb试题及答案一、单项选择题（每题2分，共20分）1. VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All above答案：D2. 在VB中，以下哪个是正确的变量声明方式？A. Dim i As IntegerB. Dim i = 10C. Dim i = "Hello"D. All above答案：A3. VB中，哪个关键字用于定义过程？A. FunctionB. SubC. Both A and BD. None of the above答案：C4. 在VB中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All above答案：D5. VB中，以下哪个选项是正确的条件语句？A. IfB. Select CaseC. Both A and BD. None of the above答案：C6. 在VB中，以下哪个选项是正确的数组声明方式？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C7. VB中，以下哪个选项是正确的文件操作函数？A. OpenB. CloseC. Both A and BD. None of the above答案：C8. 在VB中，以下哪个选项是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. Both A and BD. None of the above答案：C9. VB中，以下哪个选项是正确的窗体属性？A. CaptionB. TextC. Both A and BD. None of the above答案：C10. 在VB中，以下哪个选项是正确的事件处理？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i并赋值为10的语句是：_________。
《Visual Basic程序设计》考试试卷一适用班级：计算机系网络04401班答题时间：100分钟班级学号姓名一、选择题（1分/题，共6分）（1）以下不能在"工程资源管理器"窗口中列出的文件类型是A）.bas B）.res C）.frm D）.ocx（2）下列可作为Visual Basic变量名的是A）A#A B）4A C）?xy D）constA(3) 在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。
列表框中显示若干城市的名称。
当单击列表框中的某个城市名时，在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是A）Private Sub List1_Click() B）Private Sub List1_Click()Label1.Caption = List1.ListIndex Label1. Name = List1. ListIndexEnd Sub End SubC）Private Sub List1_Click() D）Private Sub List1_Click() = List1.Text Label1.Caption = List1.TextEnd Sub End Sub(4) 在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。
用于标识各个控件数组元素的参数是A）Tag B）Index C）ListIndex D）Name(5) 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Option Base 0Private Sub Command1_Click()Dim city As Variantcity = Array("北京", "上海", "天津", "重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是A）空白B）错误提示C）北京D）上海（6）设有语句Open "c:\Test.Dat" For Output As #1则以下错误的叙述是A）该语句打开C盘根目录下一个已存在的文件Test.DatB）该语句在C盘根目录下建立一个名为Test.Dat的文件C）该语句建立的文件的文件号为1D）执行该语句后，就可以通过Print #语句从文件Test.Dat中读出信息二、填空题（每空2分，共28分）请将每空的正确答案写在答题卡【1】～【14】序号的横线上，答在试卷上不得分。
Visual Basic本科样卷一、单项选择题（请将答案写到题后的括号内，每小题2分，共30分）。
1. 下面4个选项，不是窗体属性的是（）A. minbuttonB. borderstyleC. loadD. caption2. 下列选项中合法的visual basic标识符是（）A. DoWhileB.ConstC.8aD.a#x3. 表达式2*3^2+2*8/4+3^2的值是（）。
A．64 B．31 C．49 D．424. 要退出For…Next循环，可使用的语句是( )。
A．Exit B．Exit Do C． Exit For D． End Do5. 已知a=3,b=4,c=5,表达式a>b and not c>a or c>b and c<a+b的值是（）。
A．True B．False C．0 D．16. 设a="visual basic",则下面使b="basic" 的语句是（）A.b=left(a,8,12）B.b=mid(a,8,5)C.b=right(a,5,5)D.b=left(a,8,5)7. 下列叙述中正确的是（）A. 窗体的name属性指定窗体的名称，用来标识一个窗体B. 窗体的name属性值是显示在窗体标题栏中的文本C. 可以在运行期间改变窗体的name属性值D. 窗体的name属性值可以为空8. 以下Case语句中错误的是（）A. Case 0 To 10B.Case Is>10C.Case Is>10 and Is<50D. Case3,5,Is>109.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）x=InputBox（"请输入整数"）Select Case xCase 1，3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后,如果在输入对话框中输入2,则窗体上显示的是( )A.分支1B.分支2C. Else分支D. 程序出错10. 下述程序的运行结果是( )。
j = 0Do While j＜30j = （j+1）*（j+2）k=k+1LoopPrint k; jA.0 1B.3 182C. 30 30D. 4 3011. 以下叙述中正确的是（）A．一个Sub过程至少要一个Exit Sub语句B. 一个Sub过程至少要一个End Sub语句C．可以在Sub过程中定义一个Function过程，但不能定义Sub过程D. 调用一个Function过程可以获得多个返回值12. 当一个单选按钮被选中时，它的value属性的值是( )。
A.1B.0C.TrueD.False13.执行语句Dim X, Y As Integer后（）A. X和Y均被定义为整型变量B. X和Y均被定义为变体类型变量C. X被定义为整型变量，Y被定义为变体类型变量D. X被定义为变体类型变量，Y被定义为整型变量14.若要删除窗体上的文字信息，要采用下列哪个方法（）。
A.clearB.cleanC.clsD.remove15. 以下语句用来定义过程subP其中正确的是（）A．Dim Sub subP(x,y) B. Public subP(x,y)C．Private Sub subP(x,y) As integer D. Sub subP(x,y)二、填空题（请将答案写在题中的横线上，每空2分，共20分）。
1. VB提供了结构化程序设计的三种基本结构，分别是顺序结构、_____________和循环结构。
2.表达式5mod3+5^2\3的值为________________。
3. MsgBox()函数的返回值类型为_______________。
4.Print Spc(20);”Hello”语句表示在窗体的第_______列输出字符串”Hello”。
5.若要将图片框中加载的图片删除，可以使用语句_________________。
6.Dim A(1 To 4)定义的数组包含的元素的个数是________________。
7.定义数组时，若希望下标从1开始，可以在模块的通用部分使用___________语句将其设为1。
8．使用代码向VB6.0列表框添加项目，使用的方法是___ 。
9.为了通过传值方式来传送过程参数，应使用的关键字为_____________。
10．假定程序中有以下语句：answer=InputBox(“hello”,”world”,”good”,30),执行该语句后，将显示一个信息框，此时如果单击确定按钮，则answer的值为____________。
三、简答题（请将答案写在题后的空白处，每题5分，共20分）。
1. 简述创建Visual Basic应用程序的基本步骤。
2. 图片框和图像框有什么区别？3. 简述动态数组的定义步骤。
4. Visual Basic中常用的键盘事件有哪些？分别在何时触发？四、读程序写结果（请将答案写在题中的横线上，第1小题3分，第2小题3分，第3小题4分，共10分）。
1.在窗体上放置一个名称为command1的命令按钮和一个名称为text1的文本框，并编写如下事件代码Private Sub Command1_Click()Dim j As Integerj = 5Call proc(j)End SubPrivate Sub proc(n As Integer)k = 1For i = 1 To n Step 1k = k * iNext iText1.Text = kEnd Sub当单击该命令按钮时，文本框中显示的内容为______________。
2.有如下事件代码：Private Sub Form_Click()Dim A(1 To 3) As StringDim c As IntegerDim j As Integer A(1) = "4" A(2) = "8" A(3) = "12" c = 1For j = 1 To 3c = c + Val(A(j)) Next j Print c End Sub当单击窗体后程序运行时，窗体Form1上显示的结果为_______________。
3. 下面程序运行后的输出结果是___________。
x = “a ” y = “b ” z = “c ”For i = 1 to 2 x = y y = z z = x Next iPrint x + y + z五、编程题（请将代码写在题后的空白处，每题10分，共20分）。
1.在窗体上放置两个文本框，名称分别为txtX 和txtY ，再放置一个按钮（cmdCal ），在第一个文本框txtX 中输入一个数值x ，当单击按钮时，按以下公式计算出y 值，并将计算结果显示在文本框txtY 中。
⎪⎪⎪⎩⎪⎪⎪⎨⎧≥+<≤+<≤+<≤=10,11106,162,120,22x x x x x x x x y 2. 在窗体上放置一个按钮（名称为cmdCnt），单击该按钮时，通过InputBox函数输入若干个字符，以？结束，分别统计其中字母、数字和其他字符的个数，将结果以以下格式输出：“字母个数为：m，数字个数为：n，其他字符个数为：p”（其中m,n,p分别为具体数值）。
本科样卷参考答案及评分标准一、单项选择题1-5 CABCA6-10 DACCC11-15 BCDCD评分标准：每小题2分，共30分，选错或不选均不给分。
二、填空题1．选择结构2．103．整型或（Integer型）4．215．LoadPicture(“”)6．47．Option Base 18．addItem9．ByVal10．good评分标准：每小题2分，共20分，写错或不写均不给分。
三、简答题1.创建VB应用程序可分为以下四个步骤：（1）在窗体上建立对象；（1分）（2）设置对象的属性；（1分）（3）编写对象事件过程；（1分）（4）保存和运行程序。
（2分）2.2．图像框和图片框的区别如下：（1）图片框是容器控件，而图像框不能作为容器；（1分）（2）图片框可以通过Print方法显示文本，图像框则不能；（1分）（3）图像框比图片框占用内存少，显示速度快；（1分）（4）在图片的自适应问题上，图片框用AutoSize 属性控制图片框的尺寸自动适应图片的大小，而图像框用Stretch属性对图片进行大小调整。
（2分）3.动态数组的定义通常分两步完成：（1）在窗体、标准模块和过程中用Dim或Public声明一个没有下标的数组（括号不能省略）；（2分）（2）数组重定义。
在过程中需要使用该数组前，用Redim语句定义数组大小，下标可为常量、变量或表达式，但变量或表达式必须有值。
（3分）4．常用键盘事件过程有三个（1分），分别为：KeyPress事件：用户按下并释放一个能产生ASCⅡ码的键时被触发。
（2分）KeyUp事件：用户释放任一键时被触发。
（1分）KeyDown 事件：用户按下任意键时被触发。
（1分）评分标准：每小题5分，共20分，请按参考答案中给出的要点给分，若回答不准确或不完整，可酌情扣分。
四、读程序写结果1．1202．253．cbc评分标准：第1小题3分，第2小题3分，第3小题4分，共10分，写错或不写均不得分。
五、编程题1．Private Sub cmdCal_click() （1分）Dim x as double,y as doublex=val(txtX.Text) （1分）if x>=0 and x<2 then （1分）y=x （1分）elseif x<6 then （1分）y=x*x+1 （1分）elseif x<10 then （1分）y=sqr(x+1) （1分）elsey=1/(x*x+1) （1分）end iftxtY.text=str(y) （1分）End Sub评分标准：本题共10分，请按照上述代码后标出的步骤给分。
此题若用4 个单分支if语句实现，只要格式和条件及语句书写正确，也可给满分。
若忘记写end if，扣0.5分，若没有用val和str函数进行转换，扣0.5分，最终结果四舍五入取整。
2．Private Sub cmdCnt_click()Dim str as String,zmNum as Integer, szNum as Integer,qtNum as Integer zmNum=0szNum=0qtNum=0str=InputBox(“请输入一个字符”) (1分)do while str<> “?” (1分)if (str>=”A”and str<=”Z”)or (str>=”a”and str<=”z”) then zmNum=zmNum+1 (2分)elseif str>=”0” and str<=”9” thenszNum=szNum+1 (2分)elseqtNum=qtNum+1 (1分)end ifstr=InputBox(“请输入一个字符”)LoopPrint “字母个数为：”& zmNum &”，数字个数为：”& szNum & “，其他字符个数为：” & qtNum (2分)评分标准：本题共10分，请按照上述代码后标出的步骤给分。
