1、二级 VISUAL+BASIC-7-1及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.下列叙述中正确的是_。（分数：1.00）A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构2.下列关于线性链表的叙述中，正确的是_。（分数：1.00）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素D.以上说法均不正确3.一棵二叉树共有 25个结点，其中
2、 5个是叶子结点，则度为 1的结点数为_。（分数：1.00）A.16B.10C.6D.44.在下列模式中，能够给出数据库物理存储结构与物理存取方法的是_。（分数：1.00）A.外模式B.内模式C.概念模式D.逻辑模式5.在满足实体完整性约束的条件下（分数：1.00）A.一个关系中应该有一个或多个候选关键字B.一个关系中只能有一个候选关键字C.一个关系中必须有多个候选关键字D.一个关系中可以没有候选关键字6.有三个关系 R、S 和 T如下： （分数：1.00）A.自然连接B交C除D并7.下面描述中，不属于软件危机表现的是_。（分数：1.00）A.软件过程不规范B.软件开发生产率低C.软件质量难以
3、控制D.软件成本不断提高8.下面不属于需求分析阶段任务的是_。（分数：1.00）A.确定软件系统的功能需求B.确定软件系统的性能需求C.需求规格说明书评审D.制定软件集成测试计划9.在黑盒测试方法中，设计测试用例的主要根据是_。（分数：1.00）A.程序内部逻辑B.程序外部功能C.程序数据结构D.程序流程图10.在软件设计中不使用的工具是_。（分数：1.00）A.系统结构图B.PAD图C.数据流图(DFD 图)D.程序流程图11.以下变量名中合法的是_。（分数：1.00）A.x-2B.12abcC.sum_totalD.print12.已知 a=6，b=15，c=23，则语句 Print Sg
4、n(a+b Mod 6-c/a) End Sub 运行程序，并在文本框中输入“123”，则在窗体上的输出结果为_。（分数：1.00）A.123B.112C.12123D.11212337.窗体上有 1个名称为 Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x%, y%, z% x=InputBox(“请输入第 1个整数“) y=InputBox(“请输入第 2个整数“) Do Until x=y If xy Then x=x-y Else y=y-x Loop Print x End Sub 运行程序，单击命令按钮，并输入 2个整
5、数 169和 39，则在窗体上显示的内容为_。（分数：1.00）A.11B.13C.23D.3938.窗体上有 1个名称为 Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m=InputBox(“请输入字符串“) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp=“ “ i=1 sLen=Len(s) Do While i=sLen/2 temp=temp+Mid(s, i, 1)+Mid(s
6、, sLen-i+1, 1) i=i+1 Loop pick_str=temp End Funetion 运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为_。（分数：1.00）A.bcaiB.cbiaC.bcaisD.cbias39.窗体上有 1个名称为 Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim p As Integer p=in(1)+m(2)+m(3) Print p End Sub Private Function m(n As Integer)As Integer Stati
7、c s As Integer For i=1 To n s=s+1 Next m=s End Function 运行程序，第 2次单击命令按钮 Command1时的输出结果为_。（分数：1.00）A.6B.10C.16D.2840.在窗体上画一个名称为 Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() x=1 s=0 For i=1 To 5 x=x/i s=s+y Next Print s End Sub 该事件过程的功能是计算_。 AS=1+2+3+4+5 B C D （分数：1.00）A.B.C.D.二、基本操作题(总题数：2，分
8、数：18.00)41.在名称为 Form1的窗体上添加一个文本框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能： 在文本框中，MultiLine 属性设置为 True。 ScrollBars 属性设置为 2； 文本框中显示的初始文本为“程序设计”； 文本框中显示的字体为三号规则黑体； 窗体的标题为“设置文本框属性”。 完成设置后的窗体如图所示。 要求：不编写任何代码。 注意：存盘时必须存放在 下，工程文件名保存为 sjt1.vbp，窗体文件名保存为 sjt1.frm。 （分数：9.00）_42.在名称为 Form1的窗体上添加两个命令按钮(见图 1)，其名称分别为
9、 Cmd1和 Cmd2，编写适当的事件过程。程序运行后，单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2倍。程序的运行情况如图 2所示。 要求：不得使用任何变量。 注意：存盘时必须存放在 下，工程文件名保存为 sjt2.vbp，窗体文件名保存为 sjt2.frm。 图 1（分数：9.00）_三、简单应用题(总题数：2，分数：24.00)43.在 下有一个工程文件 sjt3.vbp，相应的窗体文件为 sjt3.frm。其功能是随机产生 30个 01000 的整数，将其放入一个数组中，然后输出
10、其中的最大值。程序运行后，单击命令按钮(名称为 Command1，标题为“输出最大值”，如图所示)，即可求出其最大值，并显示在窗体上。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：12.00）_44.在 下有一个工程文件 sjt4.vbp，相应的窗体文件为 sit4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出 11000 范围内能被 7整除或被 5整除的整数的个数，并显示在文本框中。在窗体的代码窗口中，已给出了部
11、分程序，其中计算能被 7整除或能被 5整除的整数的个数的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。 （分数：12.00）_四、综合应用题(总题数：1，分数：18.00)45.在 下有一个工程文件 sjt5.vbp，相应的窗体文件为 sjt5.frm，此外还有一个名为 datain.txt的文本文件，其内容如下： 32 43 78 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 6
12、8 79 80 59 37 程序运行后，单击窗体，将把文件 datain.txt中的数据输入到二维数组 Mat中，按 5行、5 列的矩阵形式显示在窗体上，并输出矩阵左上一右下对角线上的数据，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：18.00）_二级 VISUAL+BASIC-7-1答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：40.00)1.下列叙述中正确的是
13、_。（分数：1.00）A.循环队列是队列的一种链式存储结构B.循环队列是队列的一种顺序存储结构 C.循环队列是非线性结构D.循环队列是一种逻辑结构解析：解析 在实际应用中，队列的顺序存储结构一般采用循环队列的形式。2.下列关于线性链表的叙述中，正确的是_。（分数：1.00）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素 D.以上说法均不正确解析：解析 一般来说，在线性表的链式存储结构中，各数据结点的存储序号是不连续的，并且各结点在存储空间中的位置关系与逻辑关系
14、也不一致。线性链表中数据的插入和删除都不需要移动表中的元素，只需改变结点的指针域即可。3.一棵二叉树共有 25个结点，其中 5个是叶子结点，则度为 1的结点数为_。（分数：1.00）A.16 B.10C.6D.4解析：解析 根据二义树的性质 3：在任意一棵二叉树中，度为 0的叶子结点总是比度为 2的结点多一个，所以本题中度为 2的结点是 5-1=4个，所以度为 1的结点的个数是 25-5-4=16个。4.在下列模式中，能够给出数据库物理存储结构与物理存取方法的是_。（分数：1.00）A.外模式B.内模式 C.概念模式D.逻辑模式解析：解析 数据库系统的三级模式是概念模式、外模式和内模式。概念模
15、式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。外模式也称予模式或厢户模式，它是用户的数据视图，给出了每个用户的局部数据描述。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，所以选择 B。5.在满足实体完整性约束的条件下（分数：1.00）A.一个关系中应该有一个或多个候选关键字 B.一个关系中只能有一个候选关键字C.一个关系中必须有多个候选关键字D.一个关系中可以没有候选关键字解析：解析 实体完整性约束要求关系的主键中属性值不能为空值，所以选择 A。6.有三个关系 R、S 和 T如下： （分数：1.00）A.自然连接B交C除 D并解析：解析 如果 S=T/R，则
16、S称为 T除以 R的商。在除运算中 S的域由 T中那些不出现在 R中的域所组成，对于 S中的任一有序组，由它与关系 R中每个有序组所构成的有序组均出现在关系 T中。所以本题选择 C。7.下面描述中，不属于软件危机表现的是_。（分数：1.00）A.软件过程不规范 B.软件开发生产率低C.软件质量难以控制D.软件成本不断提高解析：解析 软件危机主要表现在：软件需求的增长得不到满足；软件开发成本和进度无法控制；软件质量难以保证；软件不可维护或维护程度非常低；软件的成本不断提高；软件开发生产率的提高赶不上硬件的发展和应用需求的增长。所以选择 A。8.下面不属于需求分析阶段任务的是_。（分数：1.00）
17、A.确定软件系统的功能需求B.确定软件系统的性能需求C.需求规格说明书评审D.制定软件集成测试计划 解析：解析 需求分析阶段的工作有：需求获取；需求分析；编写需求规格说明书；需求评审，所以选择 D。9.在黑盒测试方法中，设计测试用例的主要根据是_。（分数：1.00）A.程序内部逻辑B.程序外部功能 C.程序数据结构D.程序流程图解析：解析 黑盒测试是对软件已经实现的功能是否满足需求进行测试和验证，黑盒测试完全不考虑程序内部的逻辑结构和内部特性，只根据程序的需求和功能规格说明，检查程序的功能是否符合它的功能说明，所以本题选择 B。10.在软件设计中不使用的工具是_。（分数：1.00）A.系统结构
18、图B.PAD图C.数据流图(DFD 图) D.程序流程图解析：解析 系统结构图是对软件系统结构的总体设计的图形显示。在需求分析阶段，已经从系统开发的角度出发；把系统按功能逐次分割成层次结构，是在概要设计阶段用到的。PAD 图是在详细设计阶段用到的。程序流程图是对程序流程的图形表示，在详细设计过程中用到。数据流图是结构化分析方法中使用的工具，它以图形的方式描绘数据在系统中流动和处理的过程，由于它只反映系统必须完成的逻辑功能，所以它是一种功能模型，是在可行性研究阶段用到的而非软件设计时用到，所以选择 C。11.以下变量名中合法的是_。（分数：1.00）A.x-2B.12abcC.sum_total
19、 D.print解析：解析 根据 VB中变量名的命名规则，变量 x-2中有-减号，不合法；变量 12abc是以数字开头，不合法；变最 print是 VB的保留字，不能作变量名，电不合法。sum_total 是符合命名规则，是合法的。故选 C。12.已知 a=6，b=15，c=23，则语句 Print Sgn(a+b Mod 6-c/a) 其中对象名称可以是窗体(Form)、图片框(PictureBox)或打印机(Printer)，也可以是立即窗口(Debug)。如果省略对象名称，则在当前窗体上输出。30.设在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name A
20、s String * 10 TelNum As String * 20 End Type 在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程 Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是_。（分数：1.00）A.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Output As #1. Name=InputBox(“输入姓名“). TelNum=InputBox(“输入电话号码“)Write #1, . Name, . TelNu
21、mClose #1End Sub B.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Input As #1. Name=InputBox(“输入姓名“). TelNum=InputBox(“输入电话号码“)Print #1. . Name. . TelNumClose #1End SubC.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Output As #1. Name=InputBox(“输入姓名“). TelNum
22、=InputBox(“输入电话号码“)Write #1, BClose #1End SubD.Private Sub Command1_Click()Open “C:/Person.txt“ For Input As #1Name=InputBox(“输入姓名“)TelNum=InputBox(“输入电话号码“)Print#1, Name, TelNumClose #1End Sub解析：解析 数据文件的写操作分为 3步，即打开文件、写入文件和关闭文件。 首先，在顺序文件中打开文件写入数据的打开方式为：Open 文件名 For Output As #文件号。因此 B、C选项排除，只看 A、D
23、选项。 写入顺序文件 Print #句格式为：Print #文件号，变量名，变量名，Write 语句的的格式与 Print语句一样：Write #文件号，变量名，变量名。而记录类型变量不能整体引用，需要指明记录变量中的成员名，格式为：记录变量名，成员名，Books 类型变量 B成员 Name和 TelNum赋值和引用应该是BName、BTelNum，因此 A选项正确。31.运行如下程序： Private Sub Command1_Click() Dim a(5, 5)As Integer For i=1 To 5 For j=1 To 4 a(i,j)=i*2+j If a(i, j)/7=a
24、(i, j)/7 Then n=n+1 End If Next j Next Print n End Sub n的值是_。（分数：1.00）A.2B.3 C.4D.5解析：解析 VB 中“/”是浮点除法运算符，“/”是整数除法运算符，程序中的条件表达式 a(i,j)/7=a(i,j)/7成立时说明这个数能够被 7整除，程序即是统计这个二维数组中能被 7整除的数的个数。数组元素值在 i=1时为(3,4,5,6)，i=2 时为(5,6,7,8)，i=3 时为(7,8,9,10)，i=4 时为(9,10,11,12)，i=5时为(11,12,13,14)，其中能够被 7整除的数有 7、7、14 共
25、3个。因此答案为 B。32.窗体上有单选钮和列表框控件。单击名称为 Option1、标题为“国家”的单选钮，向列表框中添加国家名称，如下图所示。 （分数：1.00）A.程序有错，没有声明数组的维数及上下界B.只有一维数组才能使用 Array为数组赋初值 C.For循环的终值应为 ListCount-1D.For循环的初值应为 1解析：解析 程序没有错误。数组变量定义时可以不用声明上下界。List 控件列表项的索引从 0开始。Array函数只适用于一组数组，只能对一维数组进行初始化，不能对二维数组或多维数组进行初始化。因此叙述正确的是 B选项。33.现有如下一段程序： Private Sub C
26、ommand1_Click() x=UCase(InputBox(“输入:“) Select Case x Case “A“ To “C“ Print “考核通过!“ Case “D“ Print“考核不通过!“ Case Else Print “输入数据不合法!“ End Select End Sub 执行程序，在输入框中输入字母“B”，则以下叙述中正确的是_。（分数：1.00）A.程序运行错B.在窗体上显示“考核通过!” C.在窗体上显示“考核不通过!”D.在窗体上显示“输入数据不合法!”解析：解析 程序中 Ucase函数将输入的字母转换为大写，然后通过 Select多分支控制语句选择输出
27、不同信息，当输入字母在“A”到“C”之间时，显示“考核通过!“，输入的是“D”时显示“考核不通过!”，如果输入的是“A”到“D”之外的其他字符则显示“输入数据不合法!”。程序中输入字母“B”，因此会显示“考核通过!”。34.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。 （分数：1.00）A.color是窗体级整型数组B.改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变C.3个滚动条 Change事件过程中只设置了一个 color数
28、组元素的值，调用 fill过程失败 D.fill函数定义中的形式参数是数组型参数解析：解析 当用 Dim语句定义数组时，该语句把数值数组中的全部元索都初始化为 0，而把字符串数组中的全部元素都初始化为空串。因此 color数组中的元素初始值都为 0，没有空值，过程调用不会失败。C选项叙述错。35.命令按钮 Command1的单击事件过程如下： Private Sub Command1_Click() x=10 Print f(x) End Sub Private Function f(y As Integer) f=y*y End Function 运行上述程序，如下叙述中正确的是_。（分数：
29、1.00）A.程序运行出错，x 变量的类型与函数参数的类型不符 B.在窗体上显示 100C.函数定义错，函数名 f不能又作为变量名D.在窗体上显示 10解析：解析 变量 x在按钮单击事件过程中没有定义，因此系统自动将它定义为 Variant类型，由于过程中参数类型为 Integer，所以程序运行时会提示“ByRef 参数类型不符”错误。A 选项正确。只在按钮事件中加上 Dim x as Integer就可以解决问题，或者 f过程中的 y asinteger改为 ByVal y as integer也可以解决。36.窗体上有 1个名称为 Text1、内容为空的文本框。编写如下事件过程： Priv
30、ate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Text1. Text; End Sub 运行程序，并在文本框中输入“123”，则在窗体上的输出结果为_。（分数：1.00）A.123B.112C.12123D.112123 解析：解析 KeyUp 事件是在松开按钮时发生。按下松开时，文本框中显示 1，执行 KeyUp事件过程，在窗体上显示文本框内容，即 1。按下 2松开时，文本框中显示 12，执行 KeyUp事件过程，在窗体上 1后面接着现在显示文本框的内容，即窗体上显示为 112。按下 3松开时，文本框中显示 1
31、23，执行 KeyUp事件过程，在窗体上 112后面接着显示文本框的内容，即在窗体上显示为 112123。37.窗体上有 1个名称为 Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim x%, y%, z% x=InputBox(“请输入第 1个整数“) y=InputBox(“请输入第 2个整数“) Do Until x=y If xy Then x=x-y Else y=y-x Loop Print x End Sub 运行程序，单击命令按钮，并输入 2个整数 169和 39，则在窗体上显示的内容为_。（分数：1.00）A.11B.
32、13 C.23D.39解析：解析 程序中 Do循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值栩等。程序中输入 169和 39，则 x=169-39=130，130y 即 13039，因此 x=130-39=91，如此循环 x=91-39=52-39=13，此时 1339 为假，执行 y=y-x=39-13=26，循环 y=26-13=13，此时x、y 都为 13，循环结束，因此窗体上显示为 13。38.窗体上有 1个名称为 Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As S
33、tring m=InputBox(“请输入字符串“) Print pick_str(m) End Sub Private Function pick_str(s As String)As String temp=“ “ i=1 sLen=Len(s) Do While i=sLen/2 temp=temp+Mid(s, i, 1)+Mid(s, sLen-i+1, 1) i=i+1 Loop pick_str=temp End Funetion 运行程序，单击命令按钮，并在输入对话框中输入“basic”，则在窗体上显示的内容为_。（分数：1.00）A.bcai B.cbiaC.bcaisD.c
34、bias解析：解析 过程 pick_str的功能是对输入的字符串的字符重新组合，通过 Do循环从原字符串中头尾开始各取一个字符重新组合，循环次数小于等于原字符串长度整除 2的值。当输入字符串是“basic”时，字符串长度为 5，循环次数为 5/2=2次，因此取出的字符依次是“b”，“c”，“a”，“i”。即“bcai”，因此答案为 A。39.窗体上有 1个名称为 Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim p As Integer p=in(1)+m(2)+m(3) Print p End Sub Private Fu
35、nction m(n As Integer)As Integer Static s As Integer For i=1 To n s=s+1 Next m=s End Function 运行程序，第 2次单击命令按钮 Command1时的输出结果为_。（分数：1.00）A.6B.10C.16D.28 解析：解析 在过程 m中 s被定义为静态变量，因此它的值只在第一次调用过程时初始化，以后再调用都不再初始化，而是保留之前的值。m 过程的功能是根据参数值累加，因此第 1次单击时，m(1)+m(2)+m(3)=l+3+6=10，此时变量 s的值，即过程 m的值为 6，第 2次单击时，m(1)+m(
36、2)+m(3)=7+9+12=28。因此答案为 D。40.在窗体上画一个名称为 Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() x=1 s=0 For i=1 To 5 x=x/i s=s+y Next Print s End Sub 该事件过程的功能是计算_。 AS=1+2+3+4+5 B C D （分数：1.00）A.B.C. D.解析：解析 程序中 5次循环 x的值分别为 1/1，1/1/2=1/(1*2)，1/1/2/3=1/(1*2*3)，1/1/2/3/4=1/(1*2*3*4)，1/1/2/3/4/5=1/(1*2*3*
37、4*5)，可以看出 x值就是 1/i!，因此过程的功能就是计算 1+1/2!+1/3!+1/4!+1/5!。因此选项 C正确。二、基本操作题(总题数：2，分数：18.00)41.在名称为 Form1的窗体上添加一个文本框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能： 在文本框中，MultiLine 属性设置为 True。 ScrollBars 属性设置为 2； 文本框中显示的初始文本为“程序设计”； 文本框中显示的字体为三号规则黑体； 窗体的标题为“设置文本框属性”。 完成设置后的窗体如图所示。 要求：不编写任何代码。 注意：存盘时必须存放在 下，工程文件名保存
38、为 sjt1.vbp，窗体文件名保存为 sjt1.frm。 （分数：9.00）_正确答案：()解析：操作步骤 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 1和表 2。 表 1 控件 窗体 属性 Name Caption 设置值 Form1 设置文本框属性 表 2 控件文本框 属性Name Text MultiliScrollBFont ne ars 设置值Text1 程序设计True 2 三号、常规、黑体步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 答案考生文件夹 解析 文本框控件的 MultiLine属性用于设置文本框是否能以多行显示文本，值为True表示允许，
39、值为 False表示不允许；Font 属性用于设置控件标题中文本的字体、字号和字型等。Text属性用于设置文本框中显示的文本。窗体标题通过其 Caption属性设置。42.在名称为 Form1的窗体上添加两个命令按钮(见图 1)，其名称分别为 Cmd1和 Cmd2，编写适当的事件过程。程序运行后，单击命令按钮 Cmd1，则可使该按钮移到窗体的左上角(只允许通过修改属性的方式实现)；单击命令按钮 Cmd2，则可使该按钮在长度和宽度上各扩大到原来的 2倍。程序的运行情况如图 2所示。 要求：不得使用任何变量。 注意：存盘时必须存放在 下，工程文件名保存为 sjt2.vbp，窗体文件名保存为 sjt
40、2.frm。 图 1（分数：9.00）_正确答案：()解析：操作步骤 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见下表。 控件 命令按钮 命令按钮 2 属性 Caption Name Caption Name 设置值 Cmd1 Cmd1 Cmd2 Cmd2 步骤 2：编写程序代码。 Option Explicit Private Sub Cmd1_Click() Cmd1. Left=0 Cmd1. Top=0 End Sub Private Sub Cmd2_Click() Cmd2. Height=Cmd2. Height*2 Cmd2. Width=Cmd2. Widt
41、h *2 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 答案考生文件夹 解析 在窗体上建立控件后，先设置控件的属性，再编写事件过程。 单击命令按钮触发 Click事件。利用按钮的 Height和 Width属性来改变按钮的大小；利用按钮的 Left和 Top属性来改变按钮的位置。三、简单应用题(总题数：2，分数：24.00)43.在 下有一个工程文件 sjt3.vbp，相应的窗体文件为 sjt3.frm。其功能是随机产生 30个 01000 的整数，将其放入一个数组中，然后输出其中的最大值。程序运行后，单击命令按钮(名称为 Command1，标题为“输出最大值”，如图所
42、示)，即可求出其最大值，并显示在窗体上。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：12.00）_正确答案：()解析：操作步骤 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Command1_Click() Dim arrN(30) As Integer Dim Max As Integer Randomize For i=1 To 30 “arrN(i)=Int(R
43、nd*?) Next i “?=arrN(1) For i=2 To 30 “If ? Then Max=arrN(i) End If Next i Print Max End Sub 程序结束 第 1个?处填入：1000 第 2个?处填入：Max 第 3个?处填入：arrN(i)Max 或 MaxarrN(i) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 答案考生文件夹 解析 Rnd()函数用于产生一个小于 1但大于或等于 0的随机数。 本题程序用变量 Max记录最大数，最初把数组的第一个元素的值赋给 Max，然后通过 For循环语句将其后的元素依次与之比较，如果其值大于 Max则
44、将其赋值给 Max，依次类推，最终 Max的值就是数组各元素中的最大值。44.在 下有一个工程文件 sjt4.vbp，相应的窗体文件为 sit4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出 11000 范围内能被 7整除或被 5整除的整数的个数，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算能被 7整除或能被 5整除的整数的个数的操作在通用过程 Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在 Function Fun()和 End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。 （分
45、数：12.00）_正确答案：()解析：操作步骤 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 Function Fun() Dim s As Integer, i As Integer For i=1 To 1000 If i Mod 5=0 Or i Mod 7=0 Then s=s+1 End If Next i Fun=s End Function 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 答案考生文件夹 解析 本题要求的是 1000以内能被 5或 7整除的数的个数。在 Visual Basic中，使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结
46、果为 0，则表示可以整除，否则不能整除。四、综合应用题(总题数：1，分数：18.00)45.在 下有一个工程文件 sjt5.vbp，相应的窗体文件为 sjt5.frm，此外还有一个名为 datain.txt的文本文件，其内容如下： 32 43 78 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68 79 80 59 37 程序运行后，单击窗体，将把文件 datain.txt中的数据输入到二维数组 Mat中，按 5行、5 列的矩阵形式显示在窗体上，并输出矩阵左上一右下对角线上的数据，如图所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：18.00）_
