1、二级 VISUAL+BASIC-12-1 及答案解析(总分：67.00，做题时间：90 分钟)一、选择题(总题数：24，分数：41.00)1.要使文本框能显示多行文字，则需设定它的_属性为 True。（分数：1.00）A.CaptionB.PasswordCharC.MulfiLineD.Value2.窗体上有一个名称为 CD1 的通用对话框控件和由 4 个命令按钮组成的控件数组 Commamd1，其下标从左到右 分别为 0、1、2、3，窗外外观如图所示。 （分数：1.00）A.单击“打开”按钮，显示打开文件的对话框B.单击“保存”按钮，显示保存文件的对话框C.单击“打印”按钮，能够设置打印选
2、项，并执行打印操作D.单击“退出”按钮，结束程序的运行3.关于自定义对话框概念的说法中，错误的是_。（分数：2.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 Visual Basic 的窗体C.在窗体上还要使用其他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件过程4.设有下面的循环： i=1 Do i=i+3 Print i Loop Until i_ 程序运行后要执行 3 次循环体，则条件中 i 的最小值为（分数：2.00）A.6B.7C.8D.95.已知字符串 A 的值为“AdvancedEducation”，现要将它全部转化为大写字母并存放
3、在 A 中，可以使用语句 _。（分数：3.00）A.A=Ucase$(A)B.A=ToUpper$(A)C.A=ToLower$(A)D.A=Lcase$(A)6.在软件开发中，需求分析阶段可以使用的工具是_。（分数：1.00）A.N-S 图B.DFD 图C.PAD 图D.程序流程图7.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num6 Print num； num=num+2.4 Loop End Sub 程序运行后，单击命令按钮，则
4、窗体上显示的内容是（分数：2.00）A.1 3.4 5.8B.1 3 5C.1 4 7D.无数据输出8.在 C 盘当前文件夹下建立一个名为 SDat.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(StuName)和英语成绩(SmEng)。则在下列横线处 合适的语句是 _ 。 Private Sub Form_Click() Open“C：/SDat.txt“For Output AS 1 For i=1 To 5 SmNo=InputBox(“请输入学号“) StuName=InputBox(“请输入姓名“) StuEndg=Val(InputB
5、ox(“请输入英语成绩“) _ Next i Close #1 End Sub（分数：2.00）A.Input #1,StuNo,StuName,StuEndgB.Put #1,StuNo,StuName,StuEndgC.Write #1,StuNo,StuName,StuEndgD.Get #1,StuNo,StuName,StuEndg9.下述关于数据库系统的叙述中正确的是（分数：2.00）A.数据库系统减少了数据冗余B.数据库系统避免了一切冗余C.数据库系统中数据的一致性是指数据类型一致D.数据库系统比文件系统能管理更多的数据10.栈通常采用的两种存储结构是（分数：1.00）A.线性存
6、储结构和链表存储结构B.散列方式和索引方式C.链表存储结构和数组D.线性存储结构和非线性存储结构11.下列程序段的执行结果为 _ 。 ForX=5 To 1 Step-1 For Y=1 To 6-X Print Tab (Y+5)；“*“ Next Y Print Next X（分数：2.00）A.*B.*C.*D.*12.线性表的链式存储结构是一种（分数：1.00）A.随机结构B.顺序结构C.索引结构D.散列结构13.用标准工具栏中的工具按钮不能执行的操作是 _ 。（分数：2.00）A.添加工程B.打印源程序C.运行程序D.打开工程14.数据流图用于抽象描述一个软件的逻辑模型，数据流图由一
7、些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是（分数：1.00）A.控制流B.加工C.数据存储D.源和潭15.如果 Form1 是启动窗体，并且 Form1 的 Load 事件过程中有 Form2.Show，则程序启动后 _ 。（分数：2.00）A.发生一个运行时错误B.发生一个编译时错误C.在所有的初始化代码运行后 Form1 是活动窗体D.在所有的初始化代码运行后 Form2 是活动窗体16.软件中子类部件对父类部件属性的延续性指软件的_。（分数：2.00）A.独立性B.共享性C.多态性D.继承性17.为了使列表框中的项目呈多列显示，需要设置的属性为（分数：2.00）A.
8、ColumnsB.StyleC.ListD.MultiSelect18.以下能够设置控件焦点的方法是_。（分数：2.00）A.SetFocusB.GotFocusC.LostFocusD.TabStop19.在 Visual Basic 中，所谓“文件”指的是_。（分数：1.00）A.内存中的全部程序和数据B.内存中的全部指令C.存放在外部介质上的数据的集合D.用打印机打印出来的程序清单20.下面程序执行时，在窗体上显示的是 _ Private Sub Command1_Click() Dim a(10) For k=1 To 10 a(k)=11 - k Next k Print a(a(3
9、)/a(7)Mod a(5) End Sub（分数：2.00）A.3B.5C.7D.921.在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性设置语句是（分数：1.00）A.Timer1.Interval=0.5B.Timer1.interval=5C.Timer1.Interval=50D.Timer1.Interval=50022.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：private Sub Command1_Click() CommonDialog1.Flags=cd
10、l0FNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files“&_ “(*.txt)|*.txt|Batch Files(*.bat)|*.bat“ CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是_。（分数：2.00）A.All Files(*.*)B.Text Files(*.txt)C.Batch Fil
11、es(*.bat)D.不确定23.窗体的 MouseDown 事件过程 Form MouseDown (Button As Integer，Shift As Integer，X As Single，Y As Single) 有 4 个参数，关于这些参数，正确的描述是（分数：2.00）A.通过 Button 参数判定当前按下的是哪一个鼠标键B.Shift 参数只能用来确定是否按下 Shift 键C.Shift 参数只能用来确定是否按下 Alt 和 Ctrl 键D.参数 X、Y 用来设置鼠标当前位置的坐标24.要清除已经在图片框 Picture1 中打印的字符串而不清除图片框中的图像，应使用语句
12、_ 。（分数：2.00）A.Picture1.ClsB.Picture1.Picture=LoadPicture(“)C.Picture1.Pint“D.Picture1.Picture“二、填空题(总题数：15，分数：26.00)25.为了显示一个窗体，所使用的方法为 _ 1_ ；为了隐藏一个窗体，所使用的方法为 _ 2_ 。 （分数：1.00）26.在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer，y As Integer)As Integer M=IIf(xy，x，y) End Function Private Sub Command1_Cli
13、ck() Dim a As Integer，b As Integer a=1 b=2 Print M(a，B) End Sub 程序运行后，单击命令按钮，输出结果为 1。 （分数：1.00）27.在窗体上画一个命令按钮，然后编写如下程序： Function M(x As Integer, y As Integer)As Integer M=IIf(xy, x, y) End Function Private Sub Command1_Click() Dim a As integer, b As integer a=1 b=2 Print M(a, b) End Sub 程序运行后，单击命令按钮
14、，输出结果为 1。 （分数：2.00）28.Visual Basic 对象可以分为两类，分别为 1 和 2。 （分数：4.00）29.数据流图的类型有 1 和事务型。 （分数：2.00）30.设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8：s=0 Do s=s+n：n=n-1 Loop While n0 Print s End Sub 以上程序的功能是计算 1-8 的和。程序运行后，单击窗体，输出结果为 1。 （分数：2.00）31.建立随机文件 F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。
15、请在 _ 1_ 和 _ 2_ 处将程序补充完整。 Type worker name As String*10 pay As Single End Type Dim workl AS worker Open“F1.dat“For Random As#1 Len=Len(workl) Work1.name=“LiuMin“：work1.pay=400# _ 3_ Close#1 Open“F1.dat“For Random As#1 Len=Len(work1) _ 4_ Print“work1：“，workl.name Print“work1：“，workl.pay C10se#1 （分数：1.
16、00）32.建立随机文件 TEST.DAT，存放学生的姓名和总分，然后把该文件中的数据读出来显示。请在 _ 1_ 和 _ 2_ 处填适当的内容，将程序补充完整， Type Record Student As String*20 Score As Single End Type Dim Class As Record Open“TEXT.DAT“For _ 3_ As #1 Len=Len(Class) Class.Student=“LiuMin”：Class.Score=596 Put #1，1，Class Close #1 Open“TEXT.DAT“For Random As #1 Len
17、(Class) _ 4_ Print“STUDENT：“，Class.Student Print“SCORE：“，Class.Score Close #1 End （分数：1.00）33.把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的 Muhiline 属性设置为True，然后编写如下的事件过程： Private Sub Form_Click( ) Open“d：/test/smtext1txt“For lnput As#1 Text1.Fontsize=14 Text1.FontNa
18、me=“幼圆” Do While Not EOF(1) _ 1_ whole=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text= _ 2_ 。 Close Open“d：/test/smtext2txt“For Output As#1 Print #1 _ 3_ Close End Sub （分数：1.00）34.在窗体中添加一命令按钮，(其 Name 属性为 Commmld1)，然后编写代码。程序的功能是产生 100 个小于 1000(不含 1000)的随机正整数，并统计其中 5 的倍数所占比例。 请在空白处填入适当的内容，将程序补充完整
19、。 Private Sub Command1 Click() Dim a(100) For j=1 To 100 a(j)=Int( 1) If a(j) 25=0 Then 3 Print a (j)； Next i Print Print k/100 End Sub （分数：2.00）35.在面向对象方法中，信息隐蔽是通过对象的 1 性来实现的。 （分数：2.00）36.在深度为 7 的满二叉树中，度为 2 的结点个数为 _ 1_ 。 （分数：2.00）37.在窗体上画个文本框、个标签和个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： P
20、rivate Sub Command1_Crick() S$=InputBox(“请输入个字符串“) Text1.Text=S$ End Sub Private Sub Text1_Change() Label1.Caption=UCase(Mid(Text1.Text,7) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串 “VisualBasic”，则在标签中显示的内容是 _ 1_ 。 （分数：2.00）38.数据模型是数据库系统中用于提供信息表示和操作手段的结构形式。实际数据库系统中斯支持的数据模型主要有层次模型、网状模型和 _ 1_ 3 种。
21、（分数：1.00）39.在链表的运算过程中，能够使空表与非空表的运算统一的结构是 1。 （分数：2.00）二级 VISUAL+BASIC-12-1 答案解析(总分：67.00，做题时间：90 分钟)一、选择题(总题数：24，分数：41.00)1.要使文本框能显示多行文字，则需设定它的_属性为 True。（分数：1.00）A.CaptionB.PasswordCharC.MulfiLine D.Value解析：2.窗体上有一个名称为 CD1 的通用对话框控件和由 4 个命令按钮组成的控件数组 Commamd1，其下标从左到右 分别为 0、1、2、3，窗外外观如图所示。 （分数：1.00）A.单击
22、“打开”按钮，显示打开文件的对话框B.单击“保存”按钮，显示保存文件的对话框C.单击“打印”按钮，能够设置打印选项，并执行打印操作 D.单击“退出”按钮，结束程序的运行解析：解析 通用对话框中 Action=1，或用 ShowOpen 方法都可显示“打开”文件对话框； Action=2，或用 ShowSave 方法都可显示文件“另存为”对话框； Action=3，或用 SbowColor 方法都可显示“颜色”对话框； Action=4，或用 ShowFnnt 方法都可显示“字体”对话框； Action=5，或用 ShowPrinter 方法都可显示“打印”对话框； 本题中，“打开”、“保存”、
23、“打印”、“退出”按钮的下标(即 Index 值)分别是 0、1、2、3，用Index 值区分各命令按钮。 当 Index=0 时，CD1.Action=1，说明单击“打开”按钮，会显示“打开”文件对话框；当 Index=1 时，CD1.ShowSave，说明单击“保存”按钮，会显示文件“另存为”对话框；当 Index=3 时，End，说明单击“退出”按钮，会结束程序运行。故 A、B、D 选项正确。 当 Index=2 时，CD1.Action=5，说明单击“打印”按钮，会显示“打印”对话框，但打开对话框后，只能设置打印选项，不能执行打印操作。故 C 选项错误。3.关于自定义对话框概念的说法中
24、，错误的是_。（分数：2.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 Visual Basic 的窗体C.在窗体上还要使用其他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件过程 解析：4.设有下面的循环： i=1 Do i=i+3 Print i Loop Until i_ 程序运行后要执行 3 次循环体，则条件中 i 的最小值为（分数：2.00）A.6B.7 C.8D.9解析：解析 考查考生对 DoLoop Until 循环语句的应用情况的掌握。 本题考查的是 DOLoop Until 结构的循环语句，不管是否满足条件，都要先执行一次。经分析
25、，当i7(或 8 或 9 时)都满足执行 3 次的条件，但题目要求选最小的，所以应该是 7。 DoLoop Until 循环语句是先执行，然后判断条件，不管条件如何，该语句最少要执行一次循环体中的语句。 循环语句的使用。5.已知字符串 A 的值为“AdvancedEducation”，现要将它全部转化为大写字母并存放在 A 中，可以使用语句 _。（分数：3.00）A.A=Ucase$(A) B.A=ToUpper$(A)C.A=ToLower$(A)D.A=Lcase$(A)解析：解析 在 Visual Basic 中没有 ToUpper 和 ToLower 这两种函数。Ucase 函数的作用
26、是将字符串中的小写字母转换成大写字母，Lcase 函数的作用是将字符串中的大写字母转换成小写字母。6.在软件开发中，需求分析阶段可以使用的工具是_。（分数：1.00）A.N-S 图B.DFD 图 C.PAD 图D.程序流程图解析：解析 在需求分析阶段可以使用的工具有数据流图(DFD)，数据字典(DD)，判定树与判定表，所以选择 B。7.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim num As Integer num=1 Do Until num6 Print num； num=num+2.4 Lo
27、op End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.1 3.4 5.8B.1 3 5 C.1 4 7D.无数据输出解析：解析 本题仍是考查 Do 循环控制语句。本题中 num 的初始值为 1，每执行一次 Do 循环，其值加2.4，但要注意，由于 num 被定义为 Integer 数据类型，故其值的小数部分都将被省去。直到 num 的值大于 6 时，退出循环。由于 Print 语句放在“num=num+2.4”语句前，故先执行 Print 语句。本题第一次循环，x 先输出 1，然后变成 3；第二次循环，x 先输出 3，然后变成 5；第三次循环， x 先输出
28、5，然后变成 7。在进行笫 4 次循环之前，程序判断 x 大于 6，则退出该循环。故本题答案为 B。8.在 C 盘当前文件夹下建立一个名为 SDat.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(StuName)和英语成绩(SmEng)。则在下列横线处 合适的语句是 _ 。 Private Sub Form_Click() Open“C：/SDat.txt“For Output AS 1 For i=1 To 5 SmNo=InputBox(“请输入学号“) StuName=InputBox(“请输入姓名“) StuEndg=Val(InputB
29、ox(“请输入英语成绩“) _ Next i Close #1 End Sub（分数：2.00）A.Input #1,StuNo,StuName,StuEndgB.Put #1,StuNo,StuName,StuEndgC.Write #1,StuNo,StuName,StuEndg D.Get #1,StuNo,StuName,StuEndg解析：解析 顺序文件的读操作使用 Input 语句，写操作使用 Print 或 Write 语句。 Write 语句的正确格式为：Write#文件号，表达式表。各表达式之间用逗号隔开。 随机文件的写操作使用 Put#语句，读操作使用 Get#语句。9.下
30、述关于数据库系统的叙述中正确的是（分数：2.00）A.数据库系统减少了数据冗余 B.数据库系统避免了一切冗余C.数据库系统中数据的一致性是指数据类型一致D.数据库系统比文件系统能管理更多的数据解析：解析 本题考查了数据库系统的基本知识。 数据库系统的数据具有高共享性和低冗余性，但不能完全避免数据冗余；数据的一致性是指在系统中同一数据的不同出现应保持相同的值。 数据库系统的基本特点。10.栈通常采用的两种存储结构是（分数：1.00）A.线性存储结构和链表存储结构 B.散列方式和索引方式C.链表存储结构和数组D.线性存储结构和非线性存储结构解析：11.下列程序段的执行结果为 _ 。 ForX=5
31、To 1 Step-1 For Y=1 To 6-X Print Tab (Y+5)；“*“ Next Y Print Next X（分数：2.00）A.*B.*C.* D.*解析：12.线性表的链式存储结构是一种（分数：1.00）A.随机结构B.顺序结构 C.索引结构D.散列结构解析：解析 线性表的链式存储结构中的每一个存储结点不仅含有一个数据元素，还包括指针，每一个指针指向一个与本结点有逻辑关系的结点。此类存储方式属于顺序存储。13.用标准工具栏中的工具按钮不能执行的操作是 _ 。（分数：2.00）A.添加工程B.打印源程序 C.运行程序D.打开工程解析：14.数据流图用于抽象描述一个软件
32、的逻辑模型，数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是（分数：1.00）A.控制流 B.加工C.数据存储D.源和潭解析：解析 数据流图包括 4 个方面，即加工(输入数据经加工变换产生输出)、数据流 (沿箭头方向传送数据的通道，一般要标注数据流名)、存储文件(处理过程中存放各种数据的文件)、源和潭(系统和环境的接口，届系统之外的实体)。故选项 A 中的控制流不属于数据流图中合法的图符。15.如果 Form1 是启动窗体，并且 Form1 的 Load 事件过程中有 Form2.Show，则程序启动后 _ 。（分数：2.00）A.发生一个运行时错误B.发生一个编译
33、时错误C.在所有的初始化代码运行后 Form1 是活动窗体 D.在所有的初始化代码运行后 Form2 是活动窗体解析：16.软件中子类部件对父类部件属性的延续性指软件的_。（分数：2.00）A.独立性B.共享性C.多态性D.继承性 解析：解析 面向对象软件技术的许多强有力的功能和突出的优点，都来源于把类组成一个层次结构分明的系统：一个类的上层可以有基类，下层可以有派生类。这种层次结构系统的一个重要性质是继承性，一个类直接继承其基类的描述(数据和操作)或特性，派生类自动地共享基类中定义的数据和方法。继承具有传递性，如果类 C 继承类 B，类 B 继承类 A，则类 C 继承类 A。17.为了使列表
34、框中的项目呈多列显示，需要设置的属性为（分数：2.00）A.Columns B.StyleC.ListD.MultiSelect解析：解析 Columns 属性用来确定列表框的列数。当该属性设置为 0(默认值)时，所有的项目呈单列显示。如果该属性设置为 1，则列表框呈多行多列显示；如果大于 1 且小于列表框中的项目数，则列表框呈单行多列。18.以下能够设置控件焦点的方法是_。（分数：2.00）A.SetFocus B.GotFocusC.LostFocusD.TabStop解析：解析 GotFocus 和 LostFocus 是控件获得焦点和失去焦点时触发的两个事件；TabStop 是控件的属
35、性；SetFocus 方法是控件设置、获得焦点的方法。故选 A。19.在 Visual Basic 中，所谓“文件”指的是_。（分数：1.00）A.内存中的全部程序和数据B.内存中的全部指令C.存放在外部介质上的数据的集合 D.用打印机打印出来的程序清单解析：解析 在计算机科学技术中，常用“文件”这一术语来表示输入输出操作的对象。所谓“文件”，是指记录在外部介质上的数据的集合。所以 C 选项叙述正确。20.下面程序执行时，在窗体上显示的是 _ Private Sub Command1_Click() Dim a(10) For k=1 To 10 a(k)=11 - k Next k Prin
36、t a(a(3)/a(7)Mod a(5) End Sub（分数：2.00）A.3B.5C.7D.9 解析：解析 从题中易知 For 循环是为 a(10)赋值的，且 a(1)=10，a(2)=9a(9)=2，a(10)=1，则a(a(3)/a(7)Mod a(5)=a(8/4Mod6)=a(2)=9。21.在窗体上画一个名称为 Timer1 的计时器控件，要求每隔 0.5 秒发生一次计时器事件，则以下正确的属性设置语句是（分数：1.00）A.Timer1.Interval=0.5B.Timer1.interval=5C.Timer1.Interval=50D.Timer1.Interval=5
37、00 解析：解析 Interval 属性用来设置一个时间间隔，每间隔 1 秒，0.5 秒时设为 500。22.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files“&_ “(*.txt)|*.txt|Batch Files(*.bat)|*.bat“ CommonDialog1.Filterlndex=2 C
38、ommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是_。（分数：2.00）A.All Files(*.*)B.Text Files(*.txt) C.Batch Files(*.bat)D.不确定解析：解析 从程序可见 Filterlndex 属性已经设为 2，所以缺省过滤器为*txt。23.窗体的 MouseDown 事件过程 Form MouseDown (Button As Integer，Shift As Integer，X As Sin
39、gle，Y As Single) 有 4 个参数，关于这些参数，正确的描述是（分数：2.00）A.通过 Button 参数判定当前按下的是哪一个鼠标键 B.Shift 参数只能用来确定是否按下 Shift 键C.Shift 参数只能用来确定是否按下 Alt 和 Ctrl 键D.参数 X、Y 用来设置鼠标当前位置的坐标解析：解析 本题考查 MouseDown 事件过程的 4 个参数。Button 参数用来判定当前按下的是哪一个鼠标键。Button 值为 1 时表示按下左键；为 2 时，表示按下右键；为 4 时，表示按下中间键故 A 项是正确的。Shift 参数用来判断 Shift、 Ctrl 和
40、 Alt 键的状态，故 B、C 项说法有误。X、Y 参数用来获取鼠标的位置，而不是设置鼠标当前的位置，两者有根本的区别，考生应予以关注，D 项说法错误。24.要清除已经在图片框 Picture1 中打印的字符串而不清除图片框中的图像，应使用语句 _ 。（分数：2.00）A.Picture1.Cls B.Picture1.Picture=LoadPicture(“)C.Picture1.Pint“D.Picture1.Picture“解析：解析 本题考查常用的方法。Cls 方法的使用形式为：对象.Cls，作用是清除运行时在窗体或图形框中显示的文本或图形，而不能清除图像。要不清除在设计时的文本，同
41、时也不能清除图形，应用LoadPicture 可以清除或者装入图片。二、填空题(总题数：15，分数：26.00)25.为了显示一个窗体，所使用的方法为 _ 1_ ；为了隐藏一个窗体，所使用的方法为 _ 2_ 。 （分数：1.00）解析：Show Hide 解析 Show 方法用来显示窗体对象或 MDI 窗体对象，如果该窗体从未加载则会自动加载。 Hide 方法用来隐藏窗体对象或 MDI 窗体对象，但是不能将其从内存中卸载(从内存中卸载窗体要用 Unload)。26.在窗体上面画一个命令按钮，然后编写如下程序： Function M(x As Integer，y As Integer)As In
42、teger M=IIf(xy，x，y) End Function Private Sub Command1_Click() Dim a As Integer，b As Integer a=1 b=2 Print M(a，B) End Sub 程序运行后，单击命令按钮，输出结果为 1。 （分数：1.00）解析：2解析 IIf 函数的作用是根据表达式的值，来返回两部分中的其中一个。因为 12 为 False，所以返回的是传入的第二个参数 b，所以输出为 2。27.在窗体上画一个命令按钮，然后编写如下程序： Function M(x As Integer, y As Integer)As Integ
43、er M=IIf(xy, x, y) End Function Private Sub Command1_Click() Dim a As integer, b As integer a=1 b=2 Print M(a, b) End Sub 程序运行后，单击命令按钮，输出结果为 1。 （分数：2.00）解析：228.Visual Basic 对象可以分为两类，分别为 1 和 2。 （分数：4.00）解析：预定义对象、用户定义对象 解析 在 Visual Basic 中，对象分为两类：预定义对象和用户定义对象，预定义对象是由系统设计好的，可以直接使用或对其进行操作；而用户定义对象中的对象可由用
44、户自己定义，建立自己的对象。29.数据流图的类型有 1 和事务型。 （分数：2.00）解析：变换型解析 典型的数据流类型有两种：变换型和事务型。30.设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8：s=0 Do s=s+n：n=n-1 Loop While n0 Print s End Sub 以上程序的功能是计算 1-8 的和。程序运行后，单击窗体，输出结果为 1。 （分数：2.00）解析：36解析 DoWhile 语句的循环运算次数为 8 次，当 n 减小到 O 时跳出循环。所以经运算s=1+2+3+4+
45、5+6+7+8，其结果为 36。31.建立随机文件 F1.DAT，存放职工姓名和编号，然后把该文件中数据读出显示。请在 _ 1_ 和 _ 2_ 处将程序补充完整。 Type worker name As String*10 pay As Single End Type Dim workl AS worker Open“F1.dat“For Random As#1 Len=Len(workl) Work1.name=“LiuMin“：work1.pay=400# _ 3_ Close#1 Open“F1.dat“For Random As#1 Len=Len(work1) _ 4_ Print“
46、work1：“，workl.name Print“work1：“，workl.pay C10se#1 （分数：1.00）解析：Put#1，1，work1 Get#1，1，work132.建立随机文件 TEST.DAT，存放学生的姓名和总分，然后把该文件中的数据读出来显示。请在 _ 1_ 和 _ 2_ 处填适当的内容，将程序补充完整， Type Record Student As String*20 Score As Single End Type Dim Class As Record Open“TEXT.DAT“For _ 3_ As #1 Len=Len(Class) Class.Stud
47、ent=“LiuMin”：Class.Score=596 Put #1，1，Class Close #1 Open“TEXT.DAT“For Random As #1 Len(Class) _ 4_ Print“STUDENT：“，Class.Student Print“SCORE：“，Class.Score Close #1 End （分数：1.00）解析：Random Get #1，1，Class33.把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存人另一个磁盘文件，请填空完成程序。在窗体上建立一个文本框，在属性窗口中把该文本框的 Muhiline 属性设置为Tr
48、ue，然后编写如下的事件过程： Private Sub Form_Click( ) Open“d：/test/smtext1txt“For lnput As#1 Text1.Fontsize=14 Text1.FontName=“幼圆” Do While Not EOF(1) _ 1_ whole=whole $ aspect $+Chr$(13)+Chr $(10) Loop Text1.Text= _ 2_ 。 Close Open“d：/test/smtext2txt“For Output As#1 Print #1 _ 3_ Close End Sub （分数：1.00）解析：Line lnput #1，Aspect whole Text1.Fext34.在窗体中添加一命令按钮，(其 Name 属性为 Commmld1)，然后编写代码。程序的功能是产生 100 个小于 1000(不含 1000)的随机正整数，并统计其中 5 的倍数所占比例。 请在空白处填入适当的内容，将程序补充完整。 Private
