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的标签，标题为\口令\；添加两个文本框，名称分别为Text1、Text2，初始内容为空；再添加三个命令按钮，名称分别为C1、C2、C3，标题分别为\显示口令\、\隐藏口令\、\复制口令\，在程序开始运行时，向Text1中输入的所有字符，都显示为\，单击\显示口令\按钮后，在Text1中显示所有字符，再单击\隐藏口令\后，Text1中的字符不变，但显示的都是\，单击\复制口令\后，把Text1中的实际内容复制到Text2中，如图所示。
要求：
①在属性窗口中，将窗体的标题改为\口令窗口\。
②建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。
存盘时，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。 ' ***** 需考生编写的程序 ***** Private Sub C1_Click()
Text1.PasswordChar = \
End Sub
Private Sub C2_Click()
Text1.PasswordChar = \End Sub
Private Sub C3_Click()
Text2.Text = Text1.Text End Sub
（2）在名称为Form1的窗体上添加一个名称为P1的图片框，并利用属性窗口把考生文件夹中的图标文件Open.ico放到图片框中；再添加一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即打开对话框时：标题为\打开文件\，文件类型为\文档\，初始文件夹为C盘根文件夹。再编写适当的事件过程，使得程序在运行时，单击P1图片框，可以打开上述对话框。程序运行后的窗体如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt4.vbp，窗体文件名保存为sjt4.frm。程序中不得使用任何变量。 ' ***** 需考生编写的程序 *****
Private Sub P1_Click() CD1.ShowOpen End Sub
*****第07套 综合应用题
（1）在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个命令按钮，标题分别是\读数据\和\统计\，请添加一个名称为Label1、标题为\回文的个数为\的标签和一个名称为Text1，初始内容为空的文本框，如图所示。
程序功能如下：
①单击\读数据\按钮，则将考生文件夹下in5.dat文件的内容读到变量s中； ②单击\统计\按钮，则统计in5.dat文件(该文件中仅含由空格间隔开的字母串)中回文的个数，并将统计的回文个数显示在Text1文本框内。(所谓回文是指顺读与倒读都一样的字符串，如\读数据\和\统计\按钮的Click事件过程已经给出，请完善foundhuiwen过程的功能，实现上述程序功能。
注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
Function foundhuiwen(p As String) ' ***** 需考生编写的程序 *****
If StrReverse(p) = p Then foundhuiwen = True End Function
*****第08套 基本操作题
（1）在名称为Form1标题为“选题”的窗体上画一个复选框数组，名称为CH1，共有四个复选框，按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”，其中“语文”、“计算机”复选框在选中状态下，运行时的窗体如图所示。请画控件并设置相应属性。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个名称为HS1的水平滚动条，其刻度值范围为1~100；画一个命令按钮，名称为C1，标题为“移动滚动框”。请编写适当的事件过程，使得在运行时，每单击命令按钮一次（假定单击次数少于10次），滚动框向右移动10个刻度。运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 *****第08套 简单应用题
（1）在名称为Form1的窗体上画一个名称为Text1的文本框，再建立一个名称为Format的弹出式菜单，含三个菜单项，标题分别为‘加粗’、‘斜体’、‘下划线’，名称分别为
M1、M2、M3。请编写适当的事件过程，在运行时当用鼠标右键单击文本框时，弹出此菜单，选中一个菜单项后，则进行菜单标题所描述的操作，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。 M1_click( )
Text1.fontBold=true M2_click( )
Text1.fontItalic=true M3_click( )
Text1.fontUnderline=true Text1_MouseDown( )
If button=2 then Popupmenu format
（2）在考生文件夹下有一个工程文件sjt4.vbp，含有Form1和Form2两个窗体，Form1为启动窗体。两个窗体上的控件如图1所示。程序运行后，在Form1窗体的文本框中输入有关信息（‘密码’框中显示‘*’字符），然后单击‘提交’按钮则弹出‘确认’对话框（即Form2窗体），并在对话框中显示输入的信息，如图2所示。单击‘确认’按钮则程序结束，单击‘重输’按钮，则对话框消失，回到Form1窗体。在给出的窗体文件中已经给出了程序，但不完整。 要求：1）把Form1的标题改为‘注册’，把Form2的标题改为‘确认’； 2）设置适当的属性，使Form2标题栏上的所有按钮消失（如图2所示）； 3）去掉程序中的注释符，把程序中的？改为正确的内容。
注意：不能修改程序中的其他部分，标题等属性的修改只能在属性窗口中的进行。最后把修改后的文件按原文件名存盘。 Private Sub C1_Click() Dim k As Integer
' Form2. ? ***** show ***** Form2.Print Form1.L1.Caption; Form1.Text1 Form2.Print Form1.L2.Caption; Form1.Text2 Form2.Print Form1.L3.Caption; Form1.Text3
' Form2.Print Form1.Frame1. ? ; \：\ *****caption***** For k = 0 To 1
' If Form1.Op1( ? ).Value Then ***** k ***** Form2.Print Form1.Op1(k).Caption End If Next k End Sub
Private Sub Form_Load()
' Text2. ? = \ ***** passwordchar ***** End Sub
*****第08套 综合应用题
在考生目录下有一个工程文件sjt5.vbp，其窗体上有两个标签L1和L2，标题分别为‘口令’和‘允许次数’；一个命令按钮C1，标题为‘确定’；两个文本框名称分别为Text1和Text2。其中Text1用来输入口令（输入时，显示‘*’），无初始内容；Text2的初始内容为3。并给出了C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容，使得在运行时，在Text1中输入口令后，单击‘确定’，如果输入的是‘123456’则在Text1中显示‘口令正确’；如果输入其他内容，单击‘确定’后，弹出如图所示的错误提示对话框，并且Text2中的数字减1.最多可输入3次口令，若3次都输入错误，则禁止再次输入。
Private Sub C1_Click()
' If ? = \ ***** text1.text ***** Text1.Text = \口令正确\
' Text1.? = \ ***** passwordchar ***** Else
Text2.Text = Text2.Text - 1
' If Text2.Text > ? Then ***** 0 *****
MsgBox \第\次口令错误，请重新输入\ Else
MsgBox \次输入错误，请退出\
' Text1.Enabled = ? ***** false ***** End If End If End Sub
*****第09套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 Private Sub Command1_Click( ) Dim n As Integer Cls
‘ ? =InputBox（“请输入一个整数”） ***** n ***** Print “因子数＝”； fun(n) End Sub
Function fun(m As Integer)
Dim s As Integer S=0
For k=1 to Abs(m) / 2
‘If m Mod k=? Then ***** 0 ***** s=s+1 Print k End If Next k
‘ ？ ***** fun=s ***** End Function
（2）在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时，选中List1中若干个列表项（如图1所示），单击“选中”按钮则把选中的项目移到List2中，单击“显示”，则在Text1文本框中显示这些城市的城市（如图2所示）。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 Private Sub Command1_Click( ) Dim k%
‘For k=List1.ListCount -1 to 0 ***** step -1 ***** If List1.Selecte(k)=True Then
‘ List2.AddItem ? ***** List1.List(k) ***** ‘ List1.RemoveItem ? ***** k ***** End If
Next k End Sub
Private Sub Command2_Click( )
Dim k%
Text1=“已经选中的城市有：“ For k=0 to List2.ListCount -1 Step 1
‘ Text1=? & “ “ & List2.List(k) ***** Text1.Text ***** Next k End Sub
*****第09套 综合应用题