在考生文件夹下有一个工程文件sjt5.vbp，其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3，以及部分程序代码。请完成以下工作：
①在属性窗口中修改Text3的适当属性，使其在运行时不显示，作为模拟的剪贴板使用。窗体如图所示； ②建立下拉式菜单，如下表所示:
标题 名称
Edit 编辑
Cut 剪切
Copy 复制
Paste 粘贴
③窗体文件中给出了所有事件过程，但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。以便实现如下功能：当光标所在的文件框中无内容时，\剪切\、\复制\不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则\粘贴\不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。
注意：不能修改程序中的其他部分。各菜单项的标题名称必须正确。最后将修改后的文件按原文件名存盘。 Dim which As Integer Private Sub copy_Click() If which = 1 Then
Text3.Text = Text1.Text ElseIf which = 2 Then
Text3.Text = Text2.Text End If End Sub
Private Sub cut_Click() If which = 1 Then
Text3.Text = Text1.Text Text1.Text = \ElseIf which = 2 Then
Text3.Text = Text2.Text Text2.Text = \End If End Sub
Private Sub edit_Click()
' If which = ? Then ***** 1 ***** If Text1.Text = \
cut.Enabled = False Copy.Enabled = False Else
cut.Enabled = True Copy.Enabled = True End If
' ElseIf which = ? Then ***** 2 ***** If Text2.Text =\
cut.Enabled = False Copy.Enabled = False Else
cut.Enabled = True Copy.Enabled = True End If End If
If Text3.Text = \Paste.Enabled = False
Else
Paste.Enabled = True End If End Sub
Private Sub paste_Click() If which = 1 Then
' Text1.Text = ? ***** Text1.Text+Text3.Text ***** ElseIf which = 2 Then
' Text2.Text = ? ***** Text2.Text+Text3.Text ***** End If End Sub
Private Sub Text1_GotFocus() '本过程的作用是：当焦点在Text1中时，which = 1 which = 1 End Sub
Private Sub Text2_GotFocus() '本过程的作用是：当焦点在Text2中时，which = 2 which = 2 End Sub
*****第04套 简单应用题
（1）在名称为Form1的窗体上添加一个名称为Label1、标题为\添加项目：\的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为\添加\、\统计\。在程序运行时，向Text1中输入字符，单击\添加\按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击\统计\按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。
注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sjt3.vbp，窗体文件名保存为sjt3.frm。
'***** 需考生编写的程序 ***** Private Sub Command1_Click() Combo1.AddItem Text1 End Sub
Private Sub Command2_Click() Print Combo1.ListCount End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为\明文\加密，加密结果(称为\密文\显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击\加密\按钮后，根据选中的单选按钮后面的数字n，将\明文\中的每个字母改为它后面的第n个字母(\后面的字母认为是\，\后面的字母认为是\)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
Private Sub Command1_Click()
Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k = 0 To 2
If Op1(k)．Value Then
' n = Val(Op1(k). ? ) ***** Caption ***** End If Next k
m = Len(Text1.Text) a = \
' For k = 1 To ? ***** m ***** ' c = Mid$(Text1.Text, ? , 1) ***** k ***** c = String(1, Asc(c) + n)
If c > \ c = String(1, Asc(c) - 26) End If
' ？ = a + c ***** a ***** Next k
Text2.Text = a End Sub
*****第04套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个文本框，名称分别为Text1、Text2，都可以多行显示。还有三个命令按钮，名称分别为C1、C2、C3，标题分别为\取数\、\排序\、\存盘\。\取数\按钮的功能是将考生文件夹下的in5.dat文件中的50个整数读到数组中，并在Text1中显示出来；\排序\按钮的功能是对这50个数按升序排序，并显示在Text2中；\存盘\按钮的功能是把排好序的50个数存到考生目录下的out5.dat文件中。如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的?改为正确的内容，并编写\排序\按钮的Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。
Dim a(50) As Integer Private Sub C1_Click()
Dim k As Integer, ch As String Open \ch = \
For k = 1 To 50
' Input #1, ? ***** a(k) ***** ch = ch + Str(a(k)) + \ \Next k Close #1
' Text1.Text = ? ***** ch ***** End Sub
Private Sub C2_Click()
' ***** 需考生编写的程序 *****
Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = \
For i = 50 To 2 Step -1 For j = 1 To 49
If a(j) > a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i
For j = 1 To 50
ch = ch + Str(a(j)) + \ Next j
Text2.Text = ch End Sub
Private Sub C3_Click()
Open \Print #1, Text2.Text Close #1 End Sub
*****第05套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm)，在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框，如图1所示。编写窗体的MouseDown事件过程。程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于三个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。这个程序不完整，请把它补充完整，并能正确运行。
要求：去掉程序中的注释符，把程序中的?改为适当的内容，使其正确运行，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then
Text1.Text = InputBox(\请输入要添加的项目\
'List1.AddItem ? ***** Text1.Text ***** End If
If Button = 2 Then
Text1.Text = InputBox(\请输入要删除的项目\
'For i = 0 To ? ***** List1.ListCount-1 ***** 'If List1.List(i) = ? Then ***** Text1.Text ***** 'List1.RemoveItem ? ***** i ***** End If Next i End If End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程FindMin求数组的最小值。程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的最小值，并在窗体上显示出来(如图所示)。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Option Base 1
Private Function FindMin(a() As Integer) Dim Start As Integer
Dim Finish As Integer, i As Integer
'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