'Start = ？(a) ***** LBound ***** 'Finish = ？(a) ***** UBound ***** ''Min = ？(Start) ***** a ***** For i = Start To Finish
'If a(i) ? Min Then Min = ? ***** < ***** ***** a(i) ***** Next i
FindMin = Min End Function
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)) For i = 1 To 4
arr2(i) = CInt(arr1(i)) Next i
'M = FindMin(？) ***** arr2 ***** Print \最小值是： \； M End Sub
第05套 综合应用题
在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为\读入数据\、\计算并输出\和\存盘\，然后再添加一个文本框，名称为Text1，MultiLine属性设置为True，scrollBars属性设置为2(如图所示)。程序运行后，如果执行\读入数据\命令，则读入考生文件夹下datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击\计算并输出\按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击\存盘\按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
在考生文件夹下有一个工程文件sjt5.vbp，窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。
注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sjt5.vbp，窗体文件名仍保存为sjt5.frm。
' ***** 需考生编写的程序 *****
Dim sum As Integer Private Sub Calc_Click() Text1.Text = \
For i = 2 To 100 Step 2
Text1.Text = Text1.Text & Arr(i) & Space(5) sum = sum + Arr(i) Next i Print sum End Sub
Private Sub Read_Click() ReadData End Sub
Private Sub Save_Click()
WriteData \End Sub
*****第06套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。其功能是产生30个0~1000的随机整数，放入一个数组中，然后输出其中的最小值。程序运行后，单击命令按钮（名称为Command1，标题为“输出最小值”），即可求出其最小值，并在窗体上显示出来（如图所示）。这个程序不完整，请把它补充完整，并能正确运行。
要求： 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 Option Base 1
Private Sub Command1_Click( ) Dim arrN(30) as Integer Dim Min as Integer Randomize For i=1 to 30
?arrN(i)=Int(Rnd * ?) *** 1000 *** Next i
??=arrN(1) *** Min *** For i=2 to 30
?If ? Then *** Min>arrN(i) *** Min=arrN(i) End if Next i Print Min End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出0~1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。 要求：
请勿改动程序中的任何内容，只在Function Fun( )和End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。
Sub SaveData( )
Open App.Path & ―\\‖ & ―outtxt.txt‖ For Output As #1 Print #1, Text1.Text Close #1 End sub
?*** Function Fun( ) 请考生编写的程序 ***
Dim s As Integer, i As Integer For i = 0 To 1000
If i Mod 7 <> 0 Then s = s + 1 End If Next i Fun = s
***End Function***
Private Sub Command1_click( ) D=Fun( ) Text1.Text=d SaveData
End Sub
*****第06套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成以下操作：
在名称为Form1的窗体上画二个命令按钮，其名称分别为C1和C2，标题分别为“读入数据”和“计算”（如图所示）。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadData1和ReadData2过程读入datain1.txt 和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中（即：第一个数组的第n个元素减去第二个数组的第n个元素，其结果作为第三个数组的第n个元素。这里的n为1、2、。。。。。、20），最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。
注意：考生不得修改窗体文件中已经存在的程序，且必须执行此程序一次，最后把修改后的文件以原来的文件名存盘。 Option Base 1
Dim Arr1(20) As Integer Dim Arr2(20) As Integer Sub ReadData1( )
Open App.Path & ―\\‖ & ―datain1.txt‖ For Input as #1 For i=1 to 20 Input #1,Arr1(i) Next i Close #1 End Sub Sub ReadData2( )
Open App.Path & ―\\‖ & ―datain2.txt‖ For Input as #1 For i=1 to 20 Input #1,Arr2(i) Next i Close #1 End Sub
Sub WriteData(Filename As string, Num As Integer) Open App.Path & ―\\‖ & Filename For Output As #1 Print #1,Num Close #1 End sub
? ***** 请考生编写的程序 *****
Private Sub C1_Click() Call ReadData1 Call ReadData2 End Sub
Private Sub C2_Click()
Dim Arr3(1 To 20) As Integer Dim sum As Integer sum = 0 For i = 1 To 20
Arr3(i) = Arr1(i) - Arr2(i) sum = sum + Arr3(i) Next i
Print \
WriteData \End Sub
第07套 基本操作题★★
（1）在名称为Form1的窗体上添加一个名称为L1，标题为\业余爱好\的标签，再添加一个名称为Ch1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为\体育\、\音乐\、\美术\，请设置复选框的属性，使其初始状态如下表所示：
体育 选中 可用 音乐 未选中 不可用 美术 未选中 可用
程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名保存为sjt1.frm。 控件 属性 设置值 控件 属性 设置值 标签 Name L1 复选框2 Caption 音乐 Index 1 Enabled False Caption 复选框3 Caption 美术 Index 2 复选框1 Caption Index 0 Value 1 业余爱好 体育 （2）在名称为Form1的窗体上添加一个名称为Text1的文本框；再建立一个下拉菜单，菜单标题为\操作\，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为\显示\、\隐藏\，请编写适当的事件过程，使得在程序运行时，单击\隐藏\菜单项，则文本框消失；单击\显示\菜单项，则文本框重新出现，程序运行后的窗体如图所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 Private Sub Hide_Click() Text1.Visible = False End Sub *****第07套 简单应用题★★
Private Sub Show_Click() Text1.Visible = True End Sub （1）在名称为Form1的窗体上添加一个名称为L1的标签，标题为\口令\；添加两个文本框，名称分别为Text1、Text2，初始内容为空；再添加三个命令按钮，名称分别为C1、C2、C3，标题分别为\显示口令\、\隐藏口令\、\复制口令\，在程序开始运行时，向Text1中输入的所有字符，都显示为\，单击\显示口令\按钮后，在Text1中显示所有字符，再单击\隐藏口令\后，Text1中的字符不变，但显示的都是\，单击\复制口令\后，把Text1中的实际内容复制到Text2中，如图所示。
要求：
①在属性窗口中，将窗体的标题改为\口令窗口\。
②建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。
存盘时，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。 ' ***** 需考生编写的程序 ***** Private Sub C1_Click()
