（2）在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为\放大\、\缩小\，如图所示。
要求：
①请编写适当的事件过程，程序运行后，如果单击\放大\按钮，则将图像框的高度、宽度均增加100；单击\缩小\按钮，则将图像框的高度、宽度均减少100。要求程序中不得使用任何变量。
②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
控件 属性 设置值 控件 属性 设置值 图像框 Name Image1 Width 1700 命令按钮1 Name C1 命令按钮2 Caption 放大 Name C2 Caption 缩小 Height 1900 Picture pic1.bmp Stretch True Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100 End Sub 第03套 简单应用题★★★
Private Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100 End Sub （1）在考生文件夹下有一个工程文件sjt3.vbp，其功能是：
①单击\读数据\按钮，则将考生文件夹下in3.dat文件中的100个0到999之间的整数读入到数组a中；
②单击\计算\按钮，则找出这100个整数中的所有水仙花数，并将它们的最大值与最小值分别显示在文本框Text1、Text2中。(注：当一个数的值等于该数中的各位数字的立
333153?1?5?3?所以153就是一个水仙花数) 方和时，此数被称为水仙花数。如：
在窗体文件中已经给出了全部控件(如图所示)和\读数据\命令按钮的事件过程以及
判断一个数是否为水仙花数的通用过程。要求编写\计算\命令按钮的事件过程。
注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行前，必须进行\计算\，并且必须通过单击窗体右上角的\关闭\按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
Dim a(100) As Integer
Private Sub Command1_Click() Dim k As Integer
Open App.Path & \For k = 1 To 100
Input #1, a(k) Next k
Close #1 End Sub
Private Sub Command2_Click()
'***** 需考生编写的程序 ***** Dim i As Integer
Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100
If isnarc(a(i)) Then
If max <= a(i) Then max = a(i) If min >= a(i) Then min = a(i) End If Next i
Text1 = max Text2 = min End Sub
'以下Function 过程用于判断某数是否为水仙花数 Function isnarc(p As Integer) x = Fix(p / 100)
y = Fix((p - x * 100) / 10) z = p - x * 100 - y * 10
If p = x ^ 3 + y ^ 3 + z ^ 3 Then isnarc = True Else
isnarc = False End If
End Function
Private Sub Form Unload(Cancel As Integer) Open App.Path & \Print #1, Val(Text1.Text) Print #1, Val(Text2.Text) Close #1 End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框，名称为cb1，并输入三个列表项：\、\、\列表项的顺序不限，但必须是这3个数字)；添加一个名为Text1的文本框；再添加一个标题为\计算\、名称为C1的命令按钮。如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击\计算\按钮，则计算5000
以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。 提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。
Private Sub C1_Click()
'***** 需考生编写的程序 ***** Dim sum As Long Dim n As Integer Dim i As Integer
n = Val(Cb1.Text) For i = 1 To 5000
If i Mod n = 0 Then sum = sum + i End If Next i
Text1.Text = sum End Sub
第03套 综合应用题★★★
在考生文件夹下有一个工程文件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的窗体上添加一个名称为Command1的命令按钮，标题为\打开文件\，再添加一个名称为CD1的通用对话框。程序运行后，如果单击命令按钮，则弹出打开文件对话框，请按下列要求设置属性和编写代码：
①设置适当属性，使对话框的标题为\打开文件\；
②设置适当属性，使对话框的\文件类型\下拉式组合框中有两项可供选择：\文本文件\、\所有文件\如图所示)，默认的类型是\所有文件\；
③编写命令按钮的事件过程，使得单击按钮可以弹出打开文件对话框。 要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1.vbp，窗体文件名保存为sjt1.frm。
Private Sub Command1_Click() CD1.ShowOpen End Sub （2）在名称为Form1的窗体上添加一个名称为Command1的命令按钮，其标题为\移动本按钮\，如图所示。 要求编写适当的事件过程，使得程序运行时，每单击按钮一次，按钮向左移动100。 要求：程序中不得使用变量，事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。 Private Sub Command1_Click() Command1.Left = Command1.Left - 100 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 *****