则将Text1中修改后的内容存到out5.txt文件中。
窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写\修改内容\按钮的Click事件过程。
注意；考生不得修改已经存在的程序。必须把Text1中修改后的内容用\保存文件\按钮存储结果，否则无成绩。最后，按照文件名将程序存盘。
Private Sub Command1_Click() Dim s As String
CommonDialog1.Filter = \所有文件|*.*|文本文件|*.txt\
' CommonDialog1.FilterIndex = ? ***** 2 ***** On Error GoTo openerr
CommonDialog1.InitDir = App.Path CommonDialog1.ShowOpen
' Open ? For Input As #1 ***** CommonDialog1.FileName ***** Input #1, s Close #1
' Text1.Text = ? ***** s ***** openerr： End Sub
Private Sub Command2_Click()
' ***** 考生需要编写的程序 ***** Dim ch As String Dim s As String Dim n As Long s = Text1.Text Text1.Text = \ For n = 1 To Len(s) ch = Mid(s, n, 1)
If ch = \ ch = LCase(ch)
ElseIf ch = \ ch = UCase(ch) End If
Text1.Text = Text1 & ch Next End Sub
Private Sub Command3_Click()
CommonDialog1.Filter = \文本文件|*.txt|所有文件|*.*\CommonDialog1.FilterIndex = 1 On Error GoTo openerr
CommonDialog1.FileName = \CommonDialog1.InitDir = App.Path
' CommonDialog1.Action = ? ***** 2 ***** Open CommonDialog1.FileName For Output As #1 Print #1, Text1 Close #1 openerr： End Sub
*****第13套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp。程序运行后，单击\读入数据\按钮，
可将考生文件夹下in3.txt文件中的所有英文单词读入，并在Text1文本框中显示；单击\插入列表框\按钮，则按顺序将每个单词作为一项添加到List1列表框中(如图所示)。
在in3.txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
Private Sub Command1_Click() Dim st$, ch$
Open App.Path & \Do While Not EOF(1)
Input #1, ch
' st= ? & ch ***** st ***** Loop Close #1 Text1 = st End Sub
Private Sub Command2_Click() Dim st$, word$, c$ st = Text1 n = Len(st) For k = 1 To n
' ？ = Mid(st, k, 1) ***** c ***** If c <> \ word = word & c Else
List1.AddItem word
' ？ = \ ***** word ***** End If Next
List1.AddItem word End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经添加所有控件，如图所示。在程序运行时，如果单击\开始\按钮，则每0.1秒窗体上的汽车图标向右移动一次(初始状态下不移动)；如果单击\停止\按钮，则停止移动。
请完成以下工作：
①设置适当控件的适当属性，使得每0.1秒汽车图标向右移动一次，而初始状态下不移动。 ②请去掉程序中的注释符，把程序中的?改为正确的内容。
③为两个命令按钮编写适当的事件过程，最后以原文件名存盘。
*注意：不得修改已经给出的程序。编写事件的过程中不能使用变量，每个事件过程中只能有一条语句。 Private Sub Timer1_Timer()
' P1.? P1.Left + 20 ***** Left= ***** End Sub
? ***** 需要考生编写的程序 ***** Private Sub C1_Click() Timer1.Enabled = True End Sub
Private Sub C2_Click()
Timer1.Enabled = False End Sub
*****第13套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp。在窗体文件中已经给出了全部控件及部分程序。程序运行时，在文本框Text1中输入一个大于2的偶数，并单击\分解为\命令按钮，则可以将该偶数分解为两个素数之和，且要求其中一个素数是所能够分解出的最小的素数(一个偶数有时可以分解为多种素数的组合，例如24可以分解为5和19，也可以分解为11和13，要求取含有最小素数的组合，如图所示)。要求编写\分解为\命令按钮事件过程中\考生编写程序开始\和\考生编写程序结束\之间的代码，以实现上述功能。过程IsPrime用来判断一个数是否为素数，如果是，返回值为True，否则返回值为False。
注意：不得修改原有程序和控件的属性。至少正确运行一次程序，且程序运行时在文本框中输入23456，单击\分解为\按钮，将结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名存盘。 ' ***** 需考生编写的程序 *****
For i = 1 To Val(Text1.Text)
If IsPrime(i) And IsPrime(Val(Text1.Text) - i) Then Label1 = i
Label2 = Val(Text1.Text) - i Exit For End If Next i
*****第14套 基本操作题
（1）在名称为Form1的窗体上画一个名称为Picture1的图片框（PictureBox），高、宽均为1000。在图片框内再画一个有边框的名称为Image1的图像框（Image）。并通过属性窗口把考生目录下的图标文件Point11（香蕉图标）装入图像框Image1中，如图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
（2）在名称为Form1的窗体上画一个名称为Command1、标题为“保存文件”的命令按钮，再画一个名称为CommonDialog1的通用对话框。要求：
1）通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件”，且默认文件名为out2； 2）运行时单击“保存文件”命令按钮，则以“保存对话框”方式打开该通用对话框，如图所示。 注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。
保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
*****第14套 简单应用题
（1）在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件（如图1所示）。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置（如图2所示）；若用鼠标右键单击圆的边线，则指针恢复到起始位置（如图1所示）；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容。程序中的oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上（判断结果略有误差），是则返回True，否则返回False。符号常量x0、y0是圆心距窗体左上角的距离；符号常量radius是圆的半径。注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 Const y0& = 1110, x0& = 1100, radius& = 750
Private Function oncircle(X As Single, Y As Single) As Boolean precision = 55000
If Abs((X - x0) * (X - x0) + (y0 - Y) * (y0 - Y) - radius * radius) < precision Then oncircle = True Else
oncircle = False End If End Function
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const LEFT_BUTTON = 1 If oncircle(X, Y) Then Line1.X1 = x0
Line1.Y1 = y0
If Button = LEFT_BUTTON Then Line1.X2 = X
' Line1.Y2 = ? ***** Y ***** Else
' Line1.X2 = Line1.? ***** X1 ***** ' Line1.Y2 = y0 - ? ***** radius ***** End If
Label1.Caption = \ Else
' ? = \鼠标位置不对\ ***** label1.caption ***** End If End Sub
（2）在考生目录下有一个工程文件sjt4.vbp，窗体如图所示。其功能是单击“输入数据”按钮，则可输入一个整数n（要求：8<=n<=12）；单击“计算”按钮，则计算1!+2!+3!+…….+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的out4.dat文件中。
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确的内容，并编写“计算”按钮的Click事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。 Dim n As Integer
Private Sub Command1_Click()
n = Val(InputBox(\请输入整数（8-12）\输入\
' If n > ? Or n < 8 Then ***** 12 ***** MsgBox (\数据错误，请重新输入\ Command2.Enabled = False Command3.Enabled = False Else
Command2.Enabled = True Command3.Enabled = True End If End Sub
Private Sub Command2_Click() Dim s As Long, k As Integer *****'考生应编写的程序***** S=1
For k=2 to n S=s+f(k) Next k
Text1.text=s
*****End Sub*****
Function f(n As Integer) As Long
' s = ? ***** 1 ***** For k = 2 To n s = s * k Next
' f = ? ***** s ***** End Function
Private Sub Command3_Click()
Open App.Path & \ Print #1, n, Text1 Close #1 End Sub
*****第14套 综合应用题
在考生文件夹下有一个工程文件sjt5.vbp，含三个窗体，标题分别为‘启动’、‘注册’、‘登录’，运行时显示‘启动’窗体，单击其上按钮时弹出对应窗体进行注册或登录。注册信息放在全局数组users中，注册用户数（最多10个）放在全局变量n中（均已在标准模块中定义）。注册时用户名不能重复，且‘口令’与‘验证口令’须相同，注册成功则在‘启动’窗体的标签中显示‘注册成功’，否则显示相应错误信息。登录时，检验用户名和口令，若正确，则在‘启动’窗体的标签上显示‘登录成功’，否则显示相应错误信息。 标准模块中函数finduser的功能是：在users数组中搜索用户名（即参数ch），找到则返回该用户名在user中的位置，否则返回0。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把Form2、Form3窗体文件中的？改为正确的内容。 ―――――――――Form2――――――――――――――――――――――――― Private Sub Command1_Click() Text1 = \ Text2 = \ Text3 = \End Sub
Sub writeusers()
' n = n + ? ***** 1 ***** users(n, 1) = Text1 users(n, 2) = Text2 End Sub
Private Sub Command2_Click()
If Text1 = \
MsgBox (\必须输入用户名！\ Text1.SetFocus
' ElseIf finduser(Trim$(Text1)) > ? Then ***** 0 ***** MsgBox (\此用户名已经存在!\ ElseIf Text2 <> Text3 Then
MsgBox (\口令验证错误!\ Else
writeusers
' ? = \注册成功！\ ***** form1.label1.caption ***** Form2.Hide End If End Sub
―――――――――Form3――――――――――――――――――――――――― Private Sub Command1_Click() k = finduser(Trim$(Text1))
' If k = ? Then ***** 0 ***** MsgBox (\没有注册！\
' ElseIf Trim$(Text2) <> users( ? ) Then ***** n,2 ***** MsgBox (\口令错误！\ Else
Form1.Label1.Caption = \登录成功！\ Form3.Hide End If End Sub
*****第15套 简单应用题
（1）在考生文件夹下有一个工程文件sjt3.vbp。其窗体文件上有一个标题为\得分\的框架，在框架中有一个名称为Text1的文件框数组，含六个文本框控件；文本框Text2用来输入难度系数。程序运行时，在左边的六个文本框中输入6个得分，输入难度系数后，单击\计算分数\按钮，则可计算出最后得分并显示在文本框Text3中(如图所示)。
计算方法：
去掉1个最高得分和1个最低得分，求剩下得分的平均分，再乘以3，再乘以难度系数。最后结果保留到第2位小数，不四舍五入。
注意：文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释
符，把程序中的?改为正确的内容，考生不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。
Private Sub Command1_Click()
Dim k As Integer, s As Single, a As Single, b As Single a = Val(Text1(0)．Text) s = a b = a
' For k = 1 To ? ***** 5 ***** s = s + Val(Text1(k)．Text)
' If ? < Val(Text1(k)．Text) Then ***** a ***** a = Val(Text1(k)．Text) End If
If b > Val(Text1(k)．Text) Then b = Val(Text1(k)．Text) End If Next k
' s = (s - a - b) / ? ***** 4 ***** ' s = ? * 3 * Val(Text2.Text) ***** s *****
' ？ = Int(s * 100) / 100 ***** Text3.Text ***** End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时，若选中\累加\单选按钮，则\、\菜单项不可用，若选中\阶乘\单选按钮，则\、