1、二级 VISUAL+BASIC-23-2 及答案解析(总分：62.00，做题时间：90 分钟)一、选择题(总题数：25，分数：37.00)1.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub subl(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) z=x*x+y*y End Sub Private Sub Command1_Click() Dim a As Integer a=8 Call subl(1, 2, a) Print a End Sub 程序运行后，单击命令按
2、钮，则窗体下显示的内容是_。（分数：2.00）A.8B.2C.5D.112.下列关于栈的叙述中正确的是_。（分数：2.00）A.在栈中只能插入数据B.在栈中只能删除数据C.栈是先进先出的线性表D.栈是先进后出的线性表3.在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为 Text1、Command1 和 Labell，文本框的 Text1 属性设置为空白，然后编写如下事件过程： Private Sub Command1 Click() x=Int(Val(Text1.Text)+0.5) Labell.Caption=Str(x) End Sub 程序运行后，在文本框中输入 28.65
3、3，单击命令按钮，标签中显示的内容是：_。（分数：1.00）A.27B.28C.29D.304.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框，一个名称为 File1 的文件列表框，两个名称分虽为 Lahel1、Label2，标题分别为空白和 “共有文件“的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Label1 中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是 （分数：1.00）A.Private Sub Dir1_Change( )FiletPath=Dir1PathEnd SubPr
4、ivate Sub Dive1_Change( )Dir1Path=Drive1DriveLabel1，Caption=File1 ListCountEnd SubB.Private Sub Dir1_Change( )FilePath=Dtr1PathEnd Subprivage Sub Dive1_Change( )Dir1path=Drive1DriveLahel1Caption=File1ListEnd SubC.Private Sub Dir1_Change( )File1. Path = DirlPathLabel1CaptionFile1, ListCountEnd SubPri
5、vate Sub Drive1_Change( )Dir1Path = Drive1. DriveLabel1Captiol1 = File1ListCountEnd SubD.Private Sub Dir1_Change( )Filel. Path = DirlPathLabel1Caption = File1ListCountEnd SubPrivate Sub Dive1_Change( )Dir1Path = Drive1DriveLabel1Caption = File1ListEnd Sub5.数据库设计包括两个方面的设计内容，它们是 _。（分数：1.00）A.概念设计和逻辑设计
6、B.模式设计和内模式设计C.内模式设计和物理设计D.结构特隆设计和行为特性设计6.要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性（分数：1.00）A.DirB.PathC.DriveD.Filename7.先在 窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Di
7、m n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是_。（分数：2.00）A.0B.100C.200D.3008.在数据库系统中，用户所见的数据模式为（分数：2.00）A.概念模式B.外模式C.内模式D.物理模式9.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是（分数：2.00）A.ValueB.CancelC.EnabledD.Default10.对于循环队列，下
8、列叙述中正确的是 _（分数：2.00）A.队头指针是固定不变的B.队头指针一定大于队尾指针C.队头指针一定小于队尾指针D.队头指针可以大于队尾指针，也可以小于队尾指针11.若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type rec Code As Integer Caption As String End Type Dim arr(5) As rec 则下面的输出语句中正确的是（分数：2.00）A.Print arr.Code(2), arr.Caption(2)B.Print arr.Code, arr.CaptionC.Print arr(2).Code, arr(
9、2).CaptionD.Print Code(2), Caption(2)12.由计算机、操作系统、DBMS、数据库、应用程序及用户等组成的一个整体称为_。（分数：1.00）A.文件系统B.数据库系统C.软件系统D.数据库管理系统13.有如下程序： Private Sub Commandl_Click( ) a$=“A WORKER IS HERE“ x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$=“WOR“ Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为（分数：1.00）A.1B.2C.3D.514.
10、以下叙述中错误的是（分数：1.00）A.一个工程可以包括多种类型的文件B.Visual Basic 应用程序既能以编译方式执行，也能以解释方式执行C.程序运行后，在内存中只能驻留一个窗体D.对于事件驱动型应用程序，每次运行时的执行顺序可以不一样15.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Diml,Num Randomize Do For I=1 To 1000 Num=lnt(Rnd*100) Print Num; Select Case Num Case 12 Exit For Case 58 Exit Do Case 65
11、,68,92 End End Select Next1 Loop End Sub 上述事件过程执行后，下列描述中正确的是_。（分数：2.00）A.Do 循环执行的次数为 1000 次B.在 For 循环中产生的随机数小于或等于 100C.当所产生的随机数为 12 时结束所有循环D.当所产生的随机数为 65、68 或 92 时窗体关闭、程序结束16.在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是（分数：1.00）A.数据库系统B.文件系统C.人工管理D.数据项管理17.需求分析阶段的任务是确定（分数：2.00）A.软件开发方法B.软件开发
12、工具C.软件开发费用D.软件系统功能18.设有如下一段程序： Private Sub Command1_Click() Static a As Variant a=Array(“one“, “two“, “three“, “four“, “five“) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是（分数：2.00）A.变量声明语句有错，应改为 Static a(5)As VariantB.变量声明语句有错，应改为 Static aC.可以正常运行，在窗体上显示 threeD.可以正常运行，在窗体上显示 four19.决定控件上文字的字体、字形、大小、效果的属性是_
13、。（分数：2.00）A.TextB.CaptionC.NameD.Font20.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(“请输入 A 的值”) a=Val(A) b=InputBox(“请输入 B 的值”) b=Val(B) x=InputBox(“请输入 x 的值”) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为 _。（分数：1.00）A.2B.3C.
14、14D.1521.下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123，456，“#，#%“) End Sub（分数：1.00）A.123.46%B.123.45%C.123.456%D.12345.6%22.关系表中的每一横行称为个 _。（分数：1.00）A.元组B.字段C.属性D码23.可以在常量的后面加上类型说明符以显示常量的类型，用来表示字符串常量的是（分数：1.00）A.%B.#C.!D.$24.文本框的 SerollBars 属性值为 3 一 Both，但在文本框中却看不见水平与垂直滚动条，可能的原因是 _（分数
15、：2.00）A.文本框的 MultiLine 属性值为 FalseB.文本框的 MultiLine 属性值为 TrueC.文本框中尚未输入内容D.文本框的 Locked 属性值为 False25.以下程序段的输出结果为 _。 X=1 Y=4 Do Until Y4 X=X*Y Y=Y+1 Loop Print X（分数：1.00）A.1B.4C.8D.20二、填空题(总题数：15，分数：25.00)26.在程序执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句，这样用户可以在获得系统的控制权后进行其他操作，这个语句是 _ 1_ 。 （分数：1.00）27.在窗体上画一
16、个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中，例如，若在 Tcxt1 中输入的是 abDfdb，则单击 Commandl 按钮后Text1 中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command_Click() DimSring,s As String,s As String,c As String Str=UCase(Text1) S=“ C=“Z“ While
17、C=“A“ If In Ster(str,c)=0 Then s= 1 End If c=Chr$(Asc(c)-1) Wend If S“Then Text1=S End If End Sub （分数：2.00）28.在名称为 Form1 的窗体上绘制一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine属性设置为 True，然后编写如下的事件过程： Private Sub Form Click() Open “d：/test/smtext1.txt“ For Input As #1 Do While Not Line Input #1，aspects whole$=
18、whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Open “d：/test/smtext2.txt“ For Output As #1 Print #1, 1 Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。 （分数：2.00）29.一棵二叉树的结点数为 33，其最大的深度为 _ 1_ ，最小的深度为 _ 2_ 。 （分数：1.00）30.在长度为 n 的顺序储的线性表中
19、删除一个元素，最坏情况下需要移动表中的元素个数为 1。 （分数：2.00）31.在程序的空白行处填写适当的语句，完成以下功能：依次自动将列表框 List2 中所有列表项目移入列表框 List1 中，并将移入 List1 中的项目从 List2 中删除。 DoWhile List2.ListCount 1 List2.RemoveItem 0 Loop （分数：2.00）32.一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管”与实体“项目”的联系属于 _ 1_ 的联系。 （分数：1.00）33.算法的基本特征是可行性、确定性、 _ 1_ 和拥有足够的情报。 （分数：1.00
20、）34.面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个 1。 （分数：1.00）35.有如下 Sub 过程： Sub ind(a As Integer) Static x As Integer x= x + a Print x： End Sub 以下是调用它的事件过程，程序运行后，单击命令按纽 Command1 三次，输出结果为 _ 1_ 。 Private Sub Command1_Click() Ind 2 End Sub （分数：2.00）36.随机文件以 _ 1_ 为单位读写，随机文件的记录是 _ 2_ 记录。 （分数：4.00）37.在窗体上画一个文本框、一个标签和
21、一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() S$=InputBox(“请输入一个字符串“) Text1.Text=S$ End Sub Private Sub Text1_Change() Label1.Caption=UCase(Mid(Text1.Text,7) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic“，则在标签中显示的内容是 1。 （分数：2.00）38.执行以下语句后，输出的结果是 _ 1_
22、、 _ 2_ 。 A$=“Good“ B$=“Morning“ Print A$B$ Print A$ Select Case Num Case 12 Exit For Case 58 Exit Do Case 65,68,92 End End Select Next1 Loop End Sub 上述事件过程执行后，下列描述中正确的是_。（分数：2.00）A.Do 循环执行的次数为 1000 次B.在 For 循环中产生的随机数小于或等于 100C.当所产生的随机数为 12 时结束所有循环D.当所产生的随机数为 65、68 或 92 时窗体关闭、程序结束 解析：解析 程序 Do 循环中嵌套了
23、For 循环，Do 循环没有设置结束条件，而是在 For 循环体中的Select 语句中设置了退出 Do 循环和 For 循环及结束程序的分支，因此 Do 循环的次数无法确定。随机函数 Rnd 产生0，1)之间的一个数，包括 0 但不包含 1，因此 Rnd*100 的范围是大于等于 0 小于 100。随机数为 65、68 或 92 时结束程序关闭窗体，为 58 时退出 Do 循环，为 12 时退出 For 循环进入下一次 Do 循环。16.在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是（分数：1.00）A.数据库系统 B.文件系统C.人
24、工管理D.数据项管理解析：解析 人工管理阶段是在 20 世纪 50 年代中期以前出现的，数据不独立，完全依赖于程序；文件系统是数据库系统发展的初级阶段，数据独立性差；数据库系统具有高度的物理独立性和一定的逻辑独立性。17.需求分析阶段的任务是确定（分数：2.00）A.软件开发方法B.软件开发工具C.软件开发费用D.软件系统功能 解析：解析 需求分析是软件定义时期的最后一个阶段，它的基本任务就是详细调查现实世界要处理的对象(组织、部门、企业等) ，充分了解原系统的工作概况，明确用户的各种需求，然后在此基础上确定新系统的功能。选项 A) 软件开发方法是在总体设计阶段需完成的任务；选项 B)软件开发
25、工具是在实现阶段需完成的任务；选项 C) 软件开发费用是在可行性研究阶段需完成的任务。18.设有如下一段程序： Private Sub Command1_Click() Static a As Variant a=Array(“one“, “two“, “three“, “four“, “five“) Print a(3) End Sub 针对上述事件过程，以下叙述中正确的是（分数：2.00）A.变量声明语句有错，应改为 Static a(5)As VariantB.变量声明语句有错，应改为 Static aC.可以正常运行，在窗体上显示 threeD.可以正常运行，在窗体上显示 four 解
26、析：解析 Array(arglist)函数用于将 arglist 参数中一组用逗号隔开的值列转换成一个数组并赋值给某数组变量，此时要求数组变量在定义时定义成变体型变量或者不声明长度的数组，不能是定长数组。数组的默认下界为 0，所以 a(3)是数组的第四个元素。19.决定控件上文字的字体、字形、大小、效果的属性是_。（分数：2.00）A.TextB.CaptionC.NameD.Font 解析：解析 text 属性：用来设置文本框中显示的内容。 Caption 属性：用来定义对象的标题。 Name 属性：用来定义对象的名称。用 Name 属性定义的名称是在程序代码中使用的对象名，与对象的标题(C
27、aption)是不同的。 Font 属性：字形属性用来设置输出字符的各种特性，包括字体、大小等。20.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(“请输入 A 的值”) a=Val(A) b=InputBox(“请输入 B 的值”) b=Val(B) x=InputBox(“请输入 x 的值”) x=Val(x) a=a+b+x Loop Print a End Sub 程序运行后，单击命令按钮，依次在输入对话框中输入 5、4、3、2、1、-1，则输出结果为 _。（分数：1.
28、00）A.2 B.3C.14D.15解析：解析 本题需要注意的是每次循环开始的时候三个变量都被重新赋了一次值，所以最后的结果仅仅是 2+1+(-1)。所以最终的输出是 2。21.下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Formats(123，456，“#，#%“) End Sub（分数：1.00）A.123.46% B.123.45%C.123.456%D.12345.6%解析：解析 Format$(数值表达式，格式字符串)功能是按“格式字符串”指定的格式输出数值表达式的值多余位数将被舍去。22.关系表中的每一横行称为个 _。（分数：
29、1.00）A.元组 B.字段C.属性D码解析：解析 在关系数据库中，关系模型采用二维表来表示，简称“表”。二维表是由表框架及表元组组成。在表框架中，按行可以存放数据，每行数据称为元组。23.可以在常量的后面加上类型说明符以显示常量的类型，用来表示字符串常量的是（分数：1.00）A.%B.#C.!D.$ 解析：解析 考查考生对类型说明符的掌握程序。 下面是常量类型及其类型说明符： 整型% 长整型& 单精度浮点数! 双精度浮点数# 货币型 字符串型$ 字节型、布尔型、日期型、对象及变体型常量没有类型说明符。 类型说明符用来说明用户定义的常量或变量的类型，在 Visual Basic 中定义了 7
30、中类型说明符。 变量的类型。24.文本框的 SerollBars 属性值为 3 一 Both，但在文本框中却看不见水平与垂直滚动条，可能的原因是 _（分数：2.00）A.文本框的 MultiLine 属性值为 False B.文本框的 MultiLine 属性值为 TrueC.文本框中尚未输入内容D.文本框的 Locked 属性值为 False解析：解析 文本框的 ScrollBars 属性是用来设置滚动条模式的。0 表示无，1 表示有水平滚动条，2表示有垂直滚动条，3 表示有水平和垂直滚动条。只有 MultiLine 为 True 时，该属性才有效，且此时不能自动换行。题中设置了 Scrol
31、lBars 属性，但看不见，说明设置没有生效，故可能的原因是文本框的 MultiLine 属性值为 False。选项 A 正确。25.以下程序段的输出结果为 _。 X=1 Y=4 Do Until Y4 X=X*Y Y=Y+1 Loop Print X（分数：1.00）A.1B.4 C.8D.20解析：解析 Do Until 语句是条件为 False 的时候执行循环体。程序中的循环体只执行了一次，结果是x=4，y=5。最后输出的结果为 4。二、填空题(总题数：15，分数：25.00)26.在程序执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句，这样用户可以在获得系统
32、的控制权后进行其他操作，这个语句是 _ 1_ 。 （分数：1.00）解析：DoEvents解析 Visual Basic 提供了一个 DoEvents 语句。当执行闲置循环时，可以用它将控制权交给周围环境使用，然后回到原来程序继续执行。27.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中，例如，若在 Tcxt1 中输入的是 abDfdb，则单击 Commandl 按钮后Text1 中显示的字符串是 ZYXWVU
33、TSRQPONMLKJIHGEC。请填空。 Private Sub Command_Click() DimSring,s As String,s As String,c As String Str=UCase(Text1) S=“ C=“Z“ WhileC=“A“ If In Ster(str,c)=0 Then s= 1 End If c=Chr$(Asc(c)-1) Wend If S“Then Text1=S End If End Sub （分数：2.00）解析：S+C 或 s&c28.在名称为 Form1 的窗体上绘制一个文本框，其名称为 Text1，在属性窗口中把该文本框的 Mult
34、iLine属性设置为 True，然后编写如下的事件过程： Private Sub Form Click() Open “d：/test/smtext1.txt“ For Input As #1 Do While Not Line Input #1，aspects whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Open “d：/test/smtext2.txt“ For Output As #1 Print #1, 1 Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.
35、txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。 （分数：2.00）解析：EOF(1) Text1.Text 或 Text1 或 Form1.Text1.Text 或 Form1.Text1 或 Me.Text1.Text 或 Me.Text1 解析 本题考查文件操作。文件操作是考试难点，也是众多考生认为困难的内容。首先把磁盘文件 smtext1.txt 的内容读到内存，如何判断文件是否读取完成呢? EOF 函数的功能就是当文件指针到达文件尾部时返回True，否则返回 False，当 EOF(文件号)可以判断是否读取完成。 Lin
36、elnput#语句的功能是从一个打开的顺序文件中，读出一行数据赋给一个 aspect$变量，然后进行相应运算，Chr(13)+Chr(10)的功能是回车换行。最后将 whole$变量的值显示在文本框中，然后关闭#1 文件。接下来就是如何把文本框中的内容存入文件中，这里使用 Open “d：/test/smtext2.txt“ ForOutput As #1，该语句可以打开 d：/test/目录下的名为 smtext2.txt 的文件，如果不存在，该语句将创建一个名为 smtext2.txt 的文件。文件的写入是由 Print #语句实现，考生需要注意区分 Print #语句与 Write #语
37、句的区别。29.一棵二叉树的结点数为 33，其最大的深度为 _ 1_ ，最小的深度为 _ 2_ 。 （分数：1.00）解析：33 6解析 一棵二叉树的结点数固定，当它为单支树时，具有最大深度，当它是一棵满-X 树时，深度最小。30.在长度为 n 的顺序储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为 1。 （分数：2.00）解析：n-1解析 线性表的存储结构有两种：顺序存储(称为线性表) 和链式存储(线性链表)。在长度为n 的顺序存储线性表中删除一个元素，最坏情况下需要移动表中 n-1 个数据。31.在程序的空白行处填写适当的语句，完成以下功能：依次自动将列表框 List2 中所有
38、列表项目移入列表框 List1 中，并将移入 List1 中的项目从 List2 中删除。 DoWhile List2.ListCount 1 List2.RemoveItem 0 Loop （分数：2.00）解析：Listl.AddItem List2.List(0) 解析 AddItem 方法的一般格式为：object.AddItem Item，Index 其中，“Item”用来指定添加到该对象的项目；“Index”用来指定新项目或行在该对象中的位置，第一项为 0。如果所给出的 Index 值有效，则 Item 将放置在 object 中相应的位置。如果省略 Index，当Sorted 属
39、性设置为 True 时，Item 将添加到恰当的排序位置，当 Sorted 属性设置为 False 时，Item 将添加到列表的结尾。 分析程序可知，程序是要通过循环来将 List2 中的项逐个添加到 List1 中，但因为是给 List1 添加一项，同时删除 List2 一项，因此添加项的索引号(ListIndex)始终是第 1 项 0，因此添加项的语句是“List1.AddItemList2.List(0)”。 注意：当列表框中的列表项被删除一项时，剩余的列表项会从 0 开始重新排序；在本题中省略Index，则每次都自动添加到列表框尾部。32.一个项目具有一个项目主管，一个项目主管可管理多
40、个项目，则实体“项目主管”与实体“项目”的联系属于 _ 1_ 的联系。 （分数：1.00）解析：1 对多 或 1：N 解析 两个实体集间的联系实际上是实体集间的函数关系，这种函数关系可以有 3 种，即一对一(1：1)的联系、一对多(1：N)或多对(N：1)的联系和多对多(N：N)的联系。33.算法的基本特征是可行性、确定性、 _ 1_ 和拥有足够的情报。 （分数：1.00）解析：有穷性解析 算法一般具有以下四个特征：可行性、确定性、有穷性和拥有足够情报。其中有穷性是指算法必须能在执行有限个步骤之后终止，否则一个算法可能因为需要运行千万年而失去实际意义。34.面向对象的程序设计方法中涉及的对象是
41、系统中用来描述客观事物的一个 1。 （分数：1.00）解析：实体 解析 面向对象的、程序设计方法中涉及的对象是系统中用来描述客观事物的一个实体，是构成系统的一个基本单位，它由一组表示其静态特征的属性和它可执行的一组操作组成。35.有如下 Sub 过程： Sub ind(a As Integer) Static x As Integer x= x + a Print x： End Sub 以下是调用它的事件过程，程序运行后，单击命令按纽 Command1 三次，输出结果为 _ 1_ 。 Private Sub Command1_Click() Ind 2 End Sub （分数：2.00）解析：
42、636.随机文件以 _ 1_ 为单位读写，随机文件的记录是 _ 2_ 记录。 （分数：4.00）解析：记录 字节解析 随机文件记录的长度是指定的，在存储时，如果该记录没有指定长度长，则自动以空字符补全；如果超过指定长度，则去掉超出部分。37.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Label1 和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() S$=InputBox(“请输入一个字符串“) Text1.Text=S$ End Sub Private Sub Text1_Change() Label1.Ca
43、ption=UCase(Mid(Text1.Text,7) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic“，则在标签中显示的内容是 1。 （分数：2.00）解析：BASIC38.执行以下语句后，输出的结果是 _ 1_ 、 _ 2_ 。 A$=“Good“ B$=“Morning“ Print A$B$ Print A$&B$ （分数：1.00）解析：Good Morning、 Good Morning39.软件测试的主要和重要的测试方法是通过测试数据和 _ 1_ 的设计来实现。 （分数：2.00）解析：测试实例解析 进行软
44、件测试时，应精心设计测试实例和选择测试数据，以对系统进行全面测试。40.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private SubForm_Click() Dim Y As Single Open _ 1_ Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Si
45、nx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) _ 2_ Next i Close #2 End Sub （分数：1.00）解析：“C：/Datal.txt”For Random As #Len_=10 Put #2，i，Ksc 解析 第 1 个空白行已经告诉我们是打开文件的语句，现在要将它填写完整。该语句应确定文件的存取方式是随机存取。在自定义变量中，有 3 成员，其中角度为整型数据，占 2 个字节；弦和余弦函数值为单精度类型，各占 4 个字节，故文件的记录占 10 个字节。若不指定 Len 参数，则隐含一个记录占 128 字节。为了节省存储空间，可在 Open 语句中指写 Len 参数值。程序中没有将数据写入随机文件的语句，第 2 个空白行应是 Put 语句。
