2. 简单应用（2小题，每题20分，计40分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。

　　由于所提供的窗体程序不完整，需添加事件过程。

　　单击“统计”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command2_Click()

　　Amax = 1

　　For i = 1 To 100

　　If Fix(Sqr(a(i))) = Sqr(a(i)) Then

　　n = n + 1

　　If a(i) > Amax Then

　　Amax = a(i)

　　End If

　　End If

　　Next i

　　Text1.Text = Amax

　　Text2.Text = n

　　End Sub

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt3.vbp、sjt3.frm、sjt3.vbw、out3.dat

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt3.vbp文件并运行。

　　（2）在考生文件夹下有一个工程文件sjt4.vbp，其窗体上有2个标题分别为“添加”和“退出”的命令按钮，1个内容为空的列表框List1。请画1个标签，其名称为Label1，标题为“请输入编号”； 再画1个名称为Text1，初始值为空的文本框，如图所示。程序功能如下：

　　1）系统启动时，自动向列表框添加一个编号信息“a0001”。

　　2）系统运行时，在文本框Text1中输入一个编号，并单击“添加”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List1已有项目之后；否则，将弹出“不允许重复输入，请重新输入！

　　”对话框，单击该对话框中的“确定”按钮，可以重新输入。

　　3）单击“退出”按钮，则结束程序运行。

　　要求：

　　请去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。 最后把修改后的文件按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

　　由于所提供的窗体控件不完整，需在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“请输入编号”。画一个文本框控件，通过其属性窗口将名称设为Text1，文本框的初始内容（Text属性）设为空。

　　由于所提供的窗体程序不完整，在窗体的Private Sub Form_Load()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'? "a0001"

　　改为

　　List1.AddItem "a0001"

　　在窗体的Private Sub Command1_Click()事件过程中，有三处地方需要修改。

　　1) 将语句

　　'For i = 0 To ?

　　改为

　　For i = 0 To List1.ListCount - 1

　　2) 将语句

　　'List1.ListIndex = ?

　　改为

　　List1.ListIndex = i

　　3) 将语句

　　'? Text1.Text

　　改为

　　List1.AddItem Text1.Text

　　在窗体的Private Sub Command2_Click()事件过程中，有一处地方需要修改。

　　1) 将语句

　　'?

　　改为

　　End

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt4.vbp文件并运行。