《Visual Basic程序设计》期末考试试卷与参考答案
最新2020年VisualBasic程序设计期末考试题库288题(含答案)
2020年Visual Basic 程序设计期末测试复习题288题[含答案]一、选择题1．要在C盘当前文件夹下建立一个名为Sd.dat的顺序文件，应先使用_____语句。
a) Open "Sd.dat" For Output As #1b) Open "C：Sd.dat" For Input As #1c) Open "C：Sd.dat" For Output As #1d) Open "Sd.dat" For Input As #1 答案：C2．执行语句Print format(5459.478,"##,#0.00")，正确的输出是______。
a) 5459.48b) 5，459.48c) 5，459，478d) 5，459。
47 答案：B3．下列控件不能改变大小的有_______。
a) TextBoxb) Labelc) Timerd) PictureBox 答案：C4．若要以代码方式设置在文本框中显示文本的字体大小，则可用文本框的______属性来实现。
a) FontNameb) Fontc) FontSized) FontBold 答案：C5．若要使标签透明，则可使用的属性是_______。
a) BackColorb) BackStylec) BorderStyled) ForeColor 答案：B6．若要使标签的大小自动适应所显示的文本，可通过设置______属性的值来实现。
a) AutoSizeb) Alignmentc) Enabledd) Visble 答案：A7．下列_______属性用于设置或返回文本框中的文本。
a) Captionb) Textc) Named) DragIcon 答案：B8．若要在列表框中显示多列数据，可用列表框的______属性来实现。
a) MultiSelectb) Indexc) Columnsd) List 答案：C9．复选框控件其Value属性的可取值是_______。
《Visual BASIC程序设计》期末考试选择题复习(180题)
1. Visual Basic集成开发环境中不包括下列哪些窗口( )。
A、工具箱窗口B、工程资源管理器窗口C、属性窗口D、命令窗口参考答案是：D2. 在设计应用程序时，通过( )窗口可以查看到应用程序工程中的所有组成部分。
A、代码窗口B、窗体设计窗口C、属性窗口D、工程资源管理器窗口参考答案是：D3. 在正常安装Visual Basic6.0后，可以通过多种方式启动Visual Basic。
以下方式中不能启动Visual Basic的是：( )。
A、通过“开始”菜单中的“程序”命令B、通过“我的电脑”找到vb6.exe，双击该文件名C、通过“开始”菜单中的“运行”命令D、进入DOS方式，执行vb6.exe文件参考答案是：D4. Visual Basic 6.0工程文件的扩展名是( )。
A、.vbpB、.frmC、.basD、.cls参考答案是：A5. Visual Basic6.0是面向( )的程序设计语言。
A、过程B、工程C、事件D、对象参考答案是：D6. 下列关于Visual Basic编程特点的叙述中，错误的是( )。
A、Visual Basic 是采用事件驱动编程机制的语言B、构成Visual Basic 程序的多个过程没有固定的执行顺序C、Visual Basic 程序既可以编译运行，也可以解释运行D、Visual Basic 程序不是结构化程序，不具备结构化程序的3 种基本结构参考答案是：D7. Visual Basic 6.0集成开发环境有三种工作状态，不属于三种工作状态之一的是( )。
A、设计状态B、编写代码状态C、运行状态D、中断状态参考答案是：B8. 在Visual Basic 6.0中要获取上下文相关帮助，只需将光标定位在相应位置，再按( )A、F1B、F2C、F3D、F4参考答案是：A9. Visual Basic 6.0集成开发环境的主窗口中不包括( )。
A、标题栏B、菜单栏C、状态栏D、工具栏参考答案是：C10. 下列可以激活属性窗口的操作是( )。
精选最新2020VisualBasic程序设计期末考试题库288题(含答案)
2020年Visual Basic 程序设计期末测试复习题288题[含答案]一、选择题1．若要取消窗体的最大化功能，则可设置______属性为False来实现。
a) ControlBoxb) MinButtonc) MaxButtond) Enabeld 答案：C2．在Visual Basic中通过______属性设置字体颜色。
a) Fontcolorb) Forecolorc) Backcolord) Showcolor 答案：B3．在拖动滚动条的滚动块的时候，在没有松开鼠标前会触发滚动条的______事件。
a) Changeb) keyDownc) Scrolld) DragOver 答案：C4．要想改变一个窗体的标题内容，则应该设置______属性的值。
a) Nameb) Fontnamec) Captiond) Text 答案：C5．以下控件中没有Caption属性的控件是______。
a) 标签框b) 文本框c) 框架d) 命令按钮答案：B6．在Visual Basic设计界面中不能隐藏的窗口是______。
a) 工程窗口b) 属性窗口c) 立即窗口d) 窗体窗口答案：A7．整型变量占用的字节数为______。
a) 2个字节b) 3个字节c) 4个字节d) 5个字节答案：A8．下列选项中，为字符串常量的是______。
a) 6/12/2001b) "6/12/2001"c) #6,12,2001#d) 6,12,2001# 答案：B9．下列选项中，哪一项是所有控件共有的属性_______。
a) Captionb) Valuec) Textd) Name 答案：D10．下列数据中哪一个是布尔常量_______。
a) 123b) notc) TRUEd) xyz 答案：C11．下列程序段的执行结果为_____。
Dim M(10),N(10)I=3for T=1 To 5M(T)=TN(I)=2*I+TNext Tprint N(I);M(I)a) 3 11b) 3 15c) 11 3d) 15 3 答案：C12．如果有声明Dim a(5) As Integer，则该数组共占用______个字节内存。
《Visual_Basic程序设计》试题及其答案
页脚内容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)。
《Visual BASIC程序设计》期末考试编程题复习及答案
第2章1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。
“改变颜色”按钮代码：Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体”。
“改变字体”按钮代码：Label1.FontName = "黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。
2.设计一个留言薄。
新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。
要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text = ""Text2.Text = ""图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:\EX文件夹下。
3.设计一个程序，程序界面如图2-7所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
“显示”按钮代码：Text1.Text = "欢迎使用VB!"“清除”按钮代码：Text1.Text = ""“退出”按钮代码：End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹下。
Visual Basic程序设计期末复习试题(C)含答案
Print“10+10=”;
Print10+10
Print“10+20=”,
Print10+20
End Sub
14.下列程序运行的输出结果是________________。
fori= 1 to 3
for j =1toi+1
x = x+1
nexti
next j
x=0
fori= 1 to 10 step3
x = x +i
nexti
(A) 22(B) 23(C)13(D)10
7.用复制、粘贴的方法建立一个命令按钮数组Command1，以下对该数组的说法错误的是（）。
(A)命令按钮的大小都相同
(B)命令按钮共享相同的事件过程
(C)命令按钮的所有Caption属性都是Command1
VB课程试卷（C）卷第1页共2页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
一.填空题(每空1分,共16分)
1.在VB中，用来描述对象外部特征的量称之为对象的__________。
2.把 写成VB表达式________________。
（3）其它情况，一律优惠20％。
3.计算100-500之间可以被3整除的数或能被5整除的数的和。
4.计算 的近似值。
5.编写程序，当单击窗体时，窗体变宽，每单击一次窗体宽度增加20。
6.有50个整数存放在一维数组中，编程序，求出最大数及其位置
Visual Basic程序设计期末综合练习题一_百度文库解析
Visual Basic程序设计期末综合练习题一一、单项选择题1.Visual Basic是一种面向对象的可视化编程语言,采取了(的编程机制。
A.从主程序开始执行B.按过程顺序执行C.事件驱动D.按模块顺序执行2.在Visual Basic中,窗体文件的扩展名为(。
A..vbpB..frmC..clsD..bas3.Visual Basic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是(。
A.设计模式B.编写代码模式C.中断模式D.执行模式4.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是(。
A.Text.MytextB.Mytext*TextC.Mytext.(TextD.Mytext.Text5.下列关于变量的说法不正确的是(。
A.局部变量在声明它的过程执行完毕后就被释放了B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量6.关于对象的属性不正确的是(。
A.对象的属性一般有属性名和属性值B.可通过属性窗口设置属性的值C.可通过程序代码设置属性的值D.对象的所有属性值均可在设计时设计7.在设计阶段,双击窗体上的某个控件时,打开的窗体是(。
A.工程资源管理器窗口B.工具箱窗口C.代码编辑器窗口D.属性窗口8.要在窗体的标题内显示“myfrm”,使用的语句是(。
A.Form.caption="myfrm"B.Form1.caption="myfrm"C.Form1.Print"myfrm"D.Form.Print"myfrm"9.在VB中,下列变量名不合法的是(。
A.file_1B.fileC.file-1D.file_1_210.在设计动画时,用时钟控件来控制动画速度的属性是(。
精选新版2019年VisualBasic程序设计期末完整考题库200题(含标准答案)
2019年Visual Basic 程序设计期末测试复习题200题[含答案]一、选择题1．以下控件中没有Caption属性的控件是______。
a) 标签框b) 文本框c) 框架d) 命令按钮答案：B2．若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（)属性a) BACKCOLORb) BORDERSTYLEc) FORECOLORd) BACKSTYLE 答案：D3．以下过程不属于Sub过程的是_____。
a) 编译过程b) Sub通用过程c) proper属性过程d) Event事件过程答案：A4．表达式25.26 MOD 6.98的值是_____。
a) 1b) 5c) 4d) 提示错误信息答案：C5．在使用菜单编辑器设计菜单时，必须输入的项是____。
a) 标题b) 名称c) 索引d) 快捷键答案：B6．命令按钮Command1 的Caption属性为“退出（x)”，要将命令按钮的快捷键设为Alt+x,应修改Caption属性为_________。
a) 在x前插入&b) 在x后插入&c) 在x前插入 #d) 在x后插入# 答案：A7．下列控件中可自动设置滚动条的是________。
a) 复选框b) 框架c) 列表框d) 标签框答案：C8．下列结构中不属于循环结构的是______。
a) for/nextb) while/wendc) With/end withd) do/loop 答案：C9．下列是一个循环结构的程序，循环体内的语句将执行_____次。
K=0For I=1 to 10For j=1 to 100K=K+1Next jNext Ia) 0b) 10c) 100d) 1000 答案：D10．在Visual Basic环境下，当写一个新的Visual Basic 程序时，所做的第一件事是________。
a) 编写代码b) 新建一个工程c) 打开属性窗口d) 进入VB环境答案：B11．所有控件都有的属性是_______，在程序中作为对象的标识引用。
精编新版2020VisualBasic程序设计期末考核题库完整版288题(含参考答案)
2020年Visual Basic 程序设计期末测试复习题288题
[含答案]
一、选择题
1．若要取消窗体的最大化功能，则可设置______属性为False来实现。
a) ControlBox
b) MinButton
c) MaxButton
d) Enabeld 答案：C
2．可以通过_____来删除列表框中的选择项。
a) Enable属性
b) RemoveItem方法
c) AddItem方法
d) Text属性答案：B
3．要想改变一个窗体的标题内容，则应该设置______属性的值。
a) Name
b) Fontname
c) Caption
d) Text 答案：C
4．以下控件中没有Caption属性的控件是______。
a) 标签框
b) 文本框
c) 框架
d) 命令按钮答案：B
5．在VB中，过程共有三种，他们是______。
a) 事件过程，子过程和函数过程。
b) sub过程，Function过程和Property过程。
c) 事件过程，函数过程和属性过程。
d) Sub过程，函数过程和通用过程。
答案：A
6．在Visual Basic设计界面中不能隐藏的窗口是______。
a) 工程窗口
b) 属性窗口。
《Visual_Basic程序设计》试题及其答案
《Visual_Basic程序设计》试题及其答案Visual_Basic程序设计试题及其答案Visual_Basic程序设计是一门与Windows操作系统密切相关的编程语言，广泛应用于图形用户界面(GUI)的开发。
下面是一套Visual_Basic程序设计的试题，以及详细的答案解析。
一、概念题（共10题，每题2分，共20分）1. 什么是Visual_Basic程序设计？答案：Visual_Basic程序设计是一种基于BASIC语言的集成开发环境(IDE)，用于Windows平台的程序开发和编程。
2. Visual_Basic程序设计的特点是什么？答案：Visual_Basic具有简单易学、图形化编程界面、可视化设计、事件驱动等特点。
3. 什么是控件？答案：控件是Visual_Basic程序设计中用于构建用户界面的基本元素，如按钮、文本框、标签等。
4. Visual_Basic程序中的数据类型有哪些？答案：Visual_Basic支持多种数据类型，包括整数、浮点数、字符串、布尔值等。
5. 什么是条件结构？答案：条件结构是一种根据不同条件执行不同操作的程序结构，如If语句和Select Case语句。
6. 什么是循环结构？答案：循环结构是一种重复执行特定操作的程序结构，如For循环和While循环。
7. 什么是函数？答案：函数是一段可重复调用的代码，通常用于实现特定功能，并可以返回结果。
8. 如何定义和调用函数？答案：在Visual_Basic中，可以使用Function关键字定义函数，并使用函数名调用函数。
9. 什么是异常处理？答案：异常处理是一种处理程序运行过程中可能出现的错误或异常情况的机制，以保证程序的稳定性。
10. Visual_Basic程序如何进行调试？答案：Visual_Basic提供了丰富的调试工具，包括断点调试、单步调试等，以帮助程序员发现和解决问题。
二、编程题（共2题，每题40分，共80分）题目一：设计一个Visual_Basic程序，实现计算器的基本功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《VB程序设计》期末考试试卷_____级_________专业______班学号_____姓名______________一、判断题（每小题2分，共20分）在以下提供的若干陈述中，逐一判断其正确与否，用A表示正确，用B表示错误。
(1) 事件过程可以由某个用户事件触发执行，它不能被其他过程调用。
(2) Visual Basic的Double类型数据可以精确表示其数值范围内的所有实数。
(3) For/Next循环正常（未执行Exit For）结束后，控制变量的当前值等于终值。
(4) Sub过程名在过程中必须被赋值。
(5) SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。
(6) 移动框架时框架内控件也随之移动，所以框架内控件的Left和Top属性值也随之改变。
(7) 单选钮控件和复选框控件都具有Value属性，它们的作用完全一样。
(8) 当组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。
(9) 若Visual Basic中容器取缺省坐标系，则坐标原点在容器左上角、单位长度为像素。
(10) 用Output模式打开文件，如果指定文件和路径不存在，则会自动创建指定文件及路径。
二、单选题（每小题2分，共20分）(11) 将VB新建的“标准EXE”工程保存在磁盘上，至少会产生（）文件。
[A] .frx和.frm [B] .exe和.vbp [C] .vbp和.frm [D] .frm和.bas(12) 窗体Form1的Name属性是Frm1，它的单击事件过程名是（）。
[A] Form1_Click [B] Form_Click [C] Frm1_Click [D] Me_Click(13) 已知字符串变量x存放"1234"，表达式V al("&H"+Left(x,2))的值是（）。
[A] 0 [B] &H12 [C] 12 [D] 18(14) 假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是（）。
[A] 数组中每个命令按钮的名称（Name属性）均为Command1[B] 若未做修改，数组中每个命令按钮的大小都一样[C] 数组中各个命令按钮使用同一个Click事件过程[D] 数组中每个命令按钮的Index属性值都相同(15) 要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置（）属性。
[A]AutoSize [B]MultiLine [C]Alignment [D]Visible(16) 当Stretch属性为False时（）。
[A] 图片大小随影像框的大小进行调整[B] 影像框的大小随图片大小进行调整[C] 图片框的大小随图片大小进行调整[D] 图片大小随图片框的大小进行调整(17) 在设计菜单时，为了创建分隔栏，要在（）中输入连字符（-）。
[A] 名称栏[B] 标题栏[C] 索引栏[D] 显示区(18) 将通用对话框控件以“打开文件”对话框方式打开，可选（）方法。
[A] ShowOpen [B] Action [C] Open [D] FileName(19) 下面子过程语句说明合法的是_________A．Sub f1(ByVal n%( )) B．Sub f1(n%) As IntegerC．Function f1%(f1%) D．Function f1(ByVal n%)(20) 执行语句“Write #1, 234; -34.56, "Hi"; Date”后，相应的文件内被写入（）。
[A] 234,-34.56,"Hi",#2004-06-11# [B] 234;-34.56,"Hi";#2004-06-11#[C] 234,-34.56,Hi,2004-06-11 [D] 234 -34.56 "Hi" #2004-06-11#三、程序填空题（每空2分，共20分，）阅读下列程序说明和相应程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序1【程序说明】以下程序随机产生100个两位正整数，先对这些数按从大到小的顺序排序并按每行10个显示在窗体上。
再找出所有的个位数字与十位数字之和等于10的数。
【程序】Private Sub Form_Click()Dim a(100) As Integer, i As Integer, j As Integer, t As Integer, x As Integer, y As IntegerFor i = 1 To 100a(i) = (21)Next iFor i = 1 To 99For j = i + 1 To 100If a(i) < a(j) Then(22)End IfNext jNext iFor i = 1 To 100Print a(i);(23)Next iFor i = 1 To 100x = (24) '取十位数字y = a(i) Mod 10 '取个位数字If x + y = 10 Then Print a(i)Next iEnd SubPrivate Sub Swap( (25) )Dim Temp As IntegerTemp = X : X = Y : Y = TempEnd Sub【选项】(21) [A] Int(Rnd * 90) + 10 [B] Int(Rnd * 100)[C] Int(Rnd * 99) [D] 10 To 99(22) [A] Call Swap a(i), a(j) [B] Call Swap(a(i), a(j))[C] Temp = Swap(a(j), a(i)) [D] Swap(a(j), a(i))(23) [A] If i = 10 Then Print [B] If i = 10 *n Then Print[C] If i \ 10 = 0 Then Print [D] If i Mod 10 = 0 Then Print(24) [A] a(i) / 10 [B] a(i) \ 10 [C] Int(a(i))/10 [D] Fix(a(i))(25) [A] ByVal X As Integer, ByVal Y As Integer [B] ByVal X As Single, ByVal Y As Single[C] ByRef X As Integer, ByRef Y As Integer [D] ByRef X As Single, ByRef Y As Single程序2【程序说明】统计鼠标单击图片框控件P1中两个同心圆所围成黑色区域（如右图所示）的次数：首次单击Command1将统计结果清零、P1可用，再次单击则以消息框显示统计结果、P1不可用。
【程序】Dim n As IntegerPrivate Sub Command1_Click()If Command1.Caption = "开始" ThenCommand1.Caption = "显示"P1.Enabled = True: n = 0ElseCommand1.Caption = (26)P1.Enabled = False: MsgBox "单击该区域" + (27) + "次"End IfEnd SubPrivate Sub Form_Activate()P1.Width = P1.HeightP1.Scale (-3, 3)-(3, -3)P1.FillStyle = (28)P1.FillColor = (29) : P1.Circle (0, 0), 2P1.FillColor = vbWhite: P1.Circle (0, 0), 1End SubPrivate Sub Form_Load()Command1.Caption = "开始": P1.Enabled = FalseEnd SubPrivate Sub P1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If x * x + y * y >= 1 And (30) Then n = n + 1 End Sub【选项】(26) [A] "退出" [B] "开始" [C] "显示" [D]"开始"(27) [A] n [B] Val(n) [C] Str(n) [D] Trim(n)(28) [A] 1 [B] 0 [C] 2 [D] 3(29) [A] vbBlack [B] RGB(255,0,0) [C] vbWhite [D] RGB(255,255,0)(30) [A] x * x + y * y <= 4 [B] x > 2 And y > 2[C] x * x + y * y <= 2 [D] x * x + y * y > 4四、程序改错题（每小题2分，共10分）Transfer 过程用于将一个十六进制整数转换为十进制整数，number函数过程用于将一个十六进制符号转换为数值。
Public Sub Transfer()Dim Hex As String '十六进制数Dim Dec As Double '十进制数Dim temp As StringDim i As IntegerDim n As IntegerHex = InputBox("输入一个十六进制整数")n = Val(Hex) '--------(1)--------i = 0Dotemp = Mid(Hex, i, 1) '--------(2)--------Dec = Dec + number * 16 ^ i '--------(3)--------i = i + 1Loop While i < nForm1.Print str(Hex) & "转换为十进制数为" & str(Dec) '--------(4)--------End SubPublic Function number(str As String) As IntegerSelect Case strCase "a", "A"number = 10Case "b", "B"number = 11Case "c", "C"number = 12Case "d", "D"number = 13Case "e", "E"number = 14Case "f", "F"number = 15Case Elsenumber = str '--------(5)-------- End SelectEnd Function五、程序阅读题（每小题5分，共20分）程序1、阅读下列程序，写出当Text1获得输入焦点后，依次按1、2、a、5键，Label1中显示的内容。