计算机二级
在考生文件夹中有工程文件sjt3．vbp，其中的窗体如图4所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的，最大值(或最小值)，并显示在标签Label2中。 请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。(2)在考生文件夹中有一个工程文件sjt4．vbp。窗体上已有控件，如图5所示。请在属性窗口中将List1设置为可以多项选择(允许使
题目
在考生文件夹中有工程文件sjt3．vbp，其中的窗体如图4所示。程序刚运行时，会生成一个有10个元素的整型数组。若选中“查找最大值”(或“查找最小值”)单选按钮，再单击“查找”按钮，则找出数组中的，最大值(或最小值)，并显示在标签Label2中。 请去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹中有一个工程文件sjt4．vbp。窗体上已有控件，如图5所示。请在属性窗口中将List1设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求：双击List1中的某一项时，该项目被添加到List2中，同时在List1中清除该项目。若单击“>>”按钮，List1 中所有的项目显示在List2中(List2中已有项目不变)，List1中的内容不变。 要求：按照题目要求设置控件属性，去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
相似问题和答案
第1题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，将产生l00个1000以内的随机整数，放入数组aft中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请填空。
1000arr(i)>Maxarr(i)<Min【解析】本题考查VBA中程序设计的知识。对于这个问题，首先要产生l00个1000以内的随机整数，放入数组an"中，由于Rnd函数可以产生0～l之间的随机数，所以将其乘以1000后再取整就可以得到1000以内的随机整数。然后预先设置数组的第一个元素为最大值兼最小值，然后在循环中把数组元素依次与最大值和最小值比较，如果比当前的最大值还大，则让这个数组元素成为新的最大值：如果比当前的最小值还小，则让这个数组元素成为新的最小值，接着继续比较直至数组元素都比较一遍为止。
第2题：
在考生文件夹下有一个工程文件execise39.vbp及窗体文件execise39.frm。在窗体Form1上给出了所有控件和不完整的程序，请去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容。
本程序的功能是：如果单击“读取”按钮，则把考生目录下的in39.txt文件中的15个姓名读到数组a中，并在窗体上显示这些姓名：当在Text1中输入一个姓名，或一个姓氏后，如果单击“查找”按钮，则进行查找，若找到，就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中(如下图所示)：若未找到，则在Text2中显示“不存在!”：若Text1中没有查找内容，则在Text2中显示“未输入查找内容!”。
注意：
考生不得修改程序的其他部分和控件的属性，最后把修改后的文件按原文件名存盘。
第3题：
在考生文件夹中有一个工程文件execise96.vbp及窗体文件execis96.frm。在名为Form1的窗体上有一个命令按钮Cmd1(标题为NEXT)。要求在窗体上建立一个单选按钮数组 Opt1，含4个单选按钮，标题分别为First、Second、Third和Forth，初始状态下，First为选中状态。程序运行情况如下图所示。
窗体文件中已经给出了命令按钮的Click事件过程，但不完整，请去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使得每单击命令按钮‘次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第1个单选按钮。
注意：
不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
第4题：
在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本框，其中Text1可多行显示。请画两个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下： ①单击“产生数组”按钮，则用随机函数生成10个0～100之间(不含0和100)互不相同的数值，并将它们保存到一准数组a中，同时也将这10个数值显示在Text1文本框内； ②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则显示该数在数组中的位置。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
【知识点拔】Rnd函数用于产生个小于1但大于或等于0的随机数值，为了生成某一范围内的随机整数，呵使用以下公式：
Int((upperbound-lowerbound+1)*Rnd+Iowerboundl
这里，upperbound足随机数范围的上限，而lowerbound则是随机数范围的下限。
【审题分析】本题在“生成数组”按钮的单击事件过程中，通过For循环生成10个0～100之间(不含0和100)互不相同的随机数，并存入数组a，其叶生成函数的表达式应为：Fix(Rnd*99+1)。为防止生成相同的随机数值，每新生成一个随机数后，都通过For 循环让其与之前生成的一个随机数逐一比较，若新生成的随机数已存在，则将当前循环变量i的值减1，重新为数组元素a(i)生成随机数。
在“查找”按钮的单击事件过程中，通过For循环让数组a中的元素逐一与用户在输入对话框中输入的数相比较，若条件表达式a(1)=num成立，则表示怠到相同的数，并在文本框Text2中显示相关信息。若没找到相同函数，循环结束后循环变量i>i0，则在Text2 文本框内显示该数“不存在于数组中”。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文什sjt5．vbp， 在窗体上画两个命令按钮，属性及其值如表1-23所示。
步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。
参考代码：
步骤3：按要求将文件保存至考生文件夹中。
第5题：
在考生文件夹中有一个工程文件execise62.vbp(相应的窗体文件名为execise62.frm)。在名为Form1的窗体上有4个文本框，初始内容为空；1个命令按钮，标题为“求Min”。功能是通过调用过程FindMin求数组的最小值，请装入该文件。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来，如下图所示。
本程序不完整，请补充完整，并能正确运行。
要求；
去掉程序中的注释符“'”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
第6题：
在考生文件夹下有一个工程文件sjt4．vbp（相应的窗体文件名为sjt4．frm），其功能是通过调用过程FindMin求数组的最小值。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来（如图所示）。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。
最后把修改后的文件按原文件名存盘。
【考点分析】本题考点有：Array()函数，UBound()函数，LBound()函数，Val()函数，Print方法，CInt()函数，For循环语句以及If判断语句。
【解题思路】文本框里的内容(包括数字)默认都是当做字符串来处理的，如果需要参与数据运算，则需先用Val()函数将其转化为数字(例如Val(Textl．Text))。CInt函数将数值转换为整型。
这里需要指出的是，利用Array对数组各元素赋值，声明数组的类型只能是Variant。
在本题的FindMin过程中，用变量Min记录最小值，最初把数组的第一个元素的值赋给Min，然后通过For循环语句将其后的元素依次与之比较，如果小于Min的值则与之交换，依次类推，最终Min的值就是数组各元素中的最小值。在窗体上打印信息可以通过Print方法来实现，其形式为：
[对象．]Print要显示的内容
【操作步骤】
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，
将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Option Base 1
Private Function FindMin(a() As Integer)
Dim Start As Integer
Dim Finish As Integer，i As Integer
Start=____LBound(a)′求数组下界值
Finish=____UBound(a)______求数组上界值
Min=_____a(Start)′将第一个数赋给最小值进行比较
For i=Start To Finish锯环判断找最小值
If a(i)_<_Min Then Min=_____a(i)_____
Next i
FindMin=Min
End Functioil
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1=Array(Val(Text1．Text)，Val
(Text2．Text)，Val(Text3．Text：)，Val(Text4．Text))′申请arrl数组并初始化
For i=1 To 4
arr2(i)=CInt(arr1(i))′CInt函数将
arrl中的数值转换为整型
Next；i
M=FindMin(_arr2_________)
Print"最小值是："；M
EndSub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】0ptionbase在模块级别中使用，用来声明数组下标的默认下界，optionbase后面只能是0或者1，默认值为0。
第7题：
在Form1的窗体上绘制一个命令按钮，名为Cmd1，标题为“没有单击按钮”。请编写适当的事件过程，使得在运行时，若单击“没有单击按钮”按钮，则按钮的标题改为“已经单击按钮”。程序的运行情况如下图所示。
注意：
程序中不得使用任何变量：文件必须存放在考生文件夹中，工程文件名为82.vbp，窗体文件名为82.frm。
第8题：
（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64-3所示。程序运行后，单击“计算”命令按钮，通过在对话框输人整数12，放入整型变量a中，然后计算a!（提示：运算结果应放入Long型变量中），在文本框中显示结果，如图64-4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程PutData，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
（2）在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图64-5所示。
窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。
(1)在窗体上建好控件后，先设置控件属性，再编写事件过程和调试程序，并使其符合题目要求。当运行程序后，所弹出的对话框是通过调用函数InputBox来实现(通过VisualBasic系统本身提供的)。本题主要是考查循环语句的应用。计算一个数值的阶乘时使用了for循环，最后调用了所给模块中的过程将结果进行保存。
①建立界面并设置控件属性。程序中用到的控件及其属性见下表：
|
控件 |
属性 |
设置值 |
|
文本框 |
Name |
Text1 |
|
命令按钮 |
Name |
Cmd1 |
|
命令按钮 |
Caption |
计算 |
②声明存储运算结果的Long型变量。在编写程序代码时要注意变量范围的设定，题目要求将计算结果存人Long变量中，所以把最后放入文本框内的变量设置为长整型。(例如：DimtempAsLong)
③打开工程资源管理器，在其空白处右键添加模块mode．bas(此文件已在考生文件夹里)，模块代码如下：
④打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下：
⑤调试并运行程序。
⑥按题目要求存盘。
(2)①打开题目所给工程文件。
②打开代码窗口输入以下代码：
③按要求保存文件即完成本题。
第9题：
在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写：程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组C。单击“找最大值”按钮时，凋用find过程分别找出a、C数且中元素的最大值，并将所找到的结果分别显示在Text1、Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程序，实现程序的功能。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调用通过后，各命令按钮的事件过程必须至少各执行一次。
【审题分析】本题中自定义过程find的功能是找出数组参数x
中的最大值，并且将其放入文本框参数t中。其基本思路为：首先利用Ubound函数获得数组的长度，然后假设数组的第一个数为最大值，再由数组的第二个数直到最后一个数进行循环，在循环中对数组元素和最大值进行比较，二者中较大的数存入最大值变量，循环结束后将最大值显示在t中。
在“合并数组”按钮的单击事件中，利用For循环依次将a、b 数组中同下标的元素相加并且放入数组c中。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5．vbp，打开代码编辑窗口，在指定位置编写代码。
参考代码：
步骤2：按要求将文件保存至考生文件夹中。