[简答题]在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。
要求：请在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Dim stepy As Integer ’纵向移动增量
Dim stepx As Integer ’横向移动增量
Const LEFT_BUTTON=1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer
radius=Shape1.Width/2 ’圆的半径
If Button=LEFT_BUTTON Then
x0=Shape1.Left+radius ’圆心的x坐标
y0=Shape1.Top+radius ’圆心的y坐标
If x=x0 Then
stepy=Sgn(y-y0)*50
stepx= (1)
Else
a=(y-y0)/(x-x0) ’斜率
stepx=Sgn(x-y0)*50
(2) =a * stepx
If Abs(stepy)＞Abs(stepx) Then
stepy=Sgn(y-y0)*50
stepx=stepy/a
End If
End If
(3) =True
Else
(4) =False
End If
End Sub
Private Sub Timer1_Timer（　）
Shape1.Move Shape1

[简答题]在考生文件夹下有一个工程文件sjt5.vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。
要求：请在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Dim stepy As Integer ’纵向移动增量
Dim stepx As Integer ’横向移动增量
Const LEFT_BUTTON=1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim x0 As Integer, y0 As Integer, a As Single, radius As Integer
radius=Shape1.Width/2 ’圆的半径
If Button=LEFT_BUTTON Then
x0=Shape1.Left+radius ’圆心的x坐标
y0=Shape1.Top+radius ’圆心的y坐标
If x=x0 Then
stepy=Sgn(y-y0)*50
stepx= (1)
Else
a=(y-y0)/(x-x0) ’斜率
stepx=Sgn(x-y0)*50
(2) =a * stepx
If Abs(stepy)＞Abs(stepx) Then
stepy=Sgn(y-y0)*50
stepx=stepy/a
End If
End If
(3) =True
Else
(4) =False
End If
End Sub
Private Sub Timer1_Timer（　）
Shape1.Move Shape1

[多项选择]在考生文件夹下有一个工程文件sjt5.vbp，在其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗体任何空白位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。
要求：请去掉程序中的注释符，把程序中的改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。

[多项选择]在考生文件夹下有一个工程文件sjt5. vbp，其窗体上有一个名称为Text1的文本框；还有两个名称分别为C1、C2的命令按钮，标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。
请编写适当的事件过程，使得程序运行时，单击“计算”按钮，找出小于18000的最大素数，并显示在Text1中；单击“存盘”按钮，则将Text1中的计算结果存入考生文件央下的out5. txt文件中。
注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5. txt文件中，否则将没有成绩。

[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp。其窗体上已有部分控件，请按照图6所示添加框架和单选按钮。请画2个框架，名称分别为Frame1、Frame2，在Frame1中添加一个名为Option1的单选按钮数组，含两个单选按钮，标题分别为“古典音乐”、“流行音乐”；在名称为Frame2中添加2个单选按钮，名称分别为Option2、Option3，标题分别为“篮球”、“羽毛球”。刚运行程序时，“古典音乐”和“篮球”单选按钮为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签Label2中，如图7所示。如果“音乐”或“体育”复选框未被选中，则相应的单选按钮不可选。
[*]
[*]
要求：按照题目要求添加控件，在程序中的横线处填写正确的内容。
注意：不能修改程序的其他部分和控件属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Check2_Click（　）
If Check2.Value=1 Then
Frame2.Enabled=True
Else
Frame2.Enabled=False
End If
End Sub
Private Sub Command1_Click（　）
If Check1.Value=1 Then
If (1) =True Then
s="古典音乐"
Else
s="流行音乐"
End If
End If
If Check2.Value=1 Then
If (2) =True Then
s=s & "篮球"
Else
s=s & "羽毛球"
End If
End If
Label2.Caption= (3)
End Sub
Private Sub Form_Load（　）
Check1.Value=1
Check2.Value=1
End Sub

[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图4所示。该程序用来对在上面的文本框中输入的项字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图4所示。窗体中已经给出了所有控件和程序，但程序不完整，请在程序中的横线处填写正确的内容。
[*]
注意：不能修改程序中的其他部分和控件属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
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). (1)
End If
Next k
m=Len(Text1.Text)
a=""
For k=1 To (2)
c=Mid $ (Text1.Text, (3) ,1)
c=String (1,Asc(c)+n)
If c＞"z" Or c＞"Z" And c＜"a" Then
c=String(1,Asc(c)-26)
End If
(4) =a+c
Next k
Text2.Text=a
End Sub

[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图4是输入53后的结果，图5是输入100的结果。已经给出了全部控件和程序，但程序不完整。
[*]
[*]
要求：请在程序中的横线处填写正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Private Sub Command1_Click（　）
Dim n As Integer
Cls
(1) =InputBox("请输入一个整数")
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= (2) Then
s=s+1
Print k
End If
Next k
(3)
End Function

[简答题]完成下列问题：
考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是：程序运行时，向文本框控件数组Text1(有5个文本框)中任意输入5个数，单击名称为Command1的命令按钮，则找出其中最小数并显示在标签lblResult中。
窗体文件中已经给出了全部控件，但程序不完整，其中函数FindMin返回两个数中的较小数。
要求：在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click（　）
Dim x As Integer, k As Integer
x=Val(Text1(1).Text)
For k=2 To (1)
x=FindMin(Val(Text1(k).Text), (2) )
Next
lblResult Caption= (3)
End Sub
Public Function FindMin(x As Integer, y As Integer)
If x (4) y Then
FindMin=y
Else
FindMin=x
End If
End Function

[简答题]完成下列问题：
在考生文件夹下有工程文件sjt3.vbp。程序运行时的窗体如图3所示。输入商品名称后，选中一种付款方式，则“成交”按钮变为可用，选择一种或多种“服务”后，单击“成交”按钮，则把相应信息显示在下面的图片框中，如图4所示。若不选任何“服务”，则显示如图5所示。单击“放弃”按钮，则恢复到图3状态。
[*]
[*]
[*]
程序已经给出但不完整，请在横线处填写正确的内容，以实现上述功能。
要求：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Command1_Click（　）
Dim flag As Boolean
flag=False
Picture1.Print Label1.Caption, Text1.Text
Picture1.Print Frame1.Caption; ":",
For k=0 To 3
If Optionl(k).Value=True Then
Picture1.Print Optionl(k).Caption
End If
Next k
For k=0 To 2
If Check1(k).Value= (1) Then
If Not flag Then
Picture1.Print Frame2.Caption; ":",
flag=True
End If
Picture1.Print Check1(k).Caption; "";
End If
Next k
Picture1.Print
End Sub
Private Sub Command2_Click（　）
(2) =""
For k=0 To 3
Optionl(k).Value=False
Next k
For k=0 To 2
Checkl(k).Value=0
Next k
Picture1.Cl

[简答题]完成下列问题：
考生文件夹下有一个工程文件sjt3.vbp，其中的窗体上有一个名称为Cmd的命令按钮控件数组；有一个名称为Image1的图像框。请画一个名称为Timer1的计时器，时间间隔为3s，初始状态为不可用，如图3所示。
[*]
程序功能如下：
单击“前进”按钮，则Timer1的状态变为可用，且在图像框中显示3s黄灯(图像文件为考生文件夹下的yellow.ico)后，显示绿灯(图像文件为考生文件夹下的green.ico)直至下次单击某个命令按钮。
单击“停止”按钮，则Timer1的状态变为可用，且在图像框显示3s黄灯后，显示红灯(图像文件为考生文件夹下的red.ico)直至下次单击某个命令按钮。
单击“结束”按钮，则结束程序执行。
在横线处填写正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
[题目提供的源程序]
Dim flag As Integer
Private Sub Cmd_Click(Index As Integer)
If Index= (1) Then
End
Else
’考生文件夹下的图片文件
Image1.Picture=LoadPicture("yellow.ico")
flag=Index
Timer1.Enabled= (2)
End If
End Sub
Private Sub Timer1_Timer（　）
Select Case (3)
Case 0
Image1.Picture=LoadPicture("green.ico")
Timer1.Enabled=False
Case 1
Image1.Picture=LoadPicture("red.ico")
Timer1.Enabled=False
End Select
End Sub

[多项选择]在考生文件夹下有一个工程文件sjt4. vbp，相应的窗体文件为sjt4. fm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出1～1000范围内能被7整除或被5整除的整数的个数，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算能被7整除或能被5整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun（　）和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。

[多项选择]在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～1000范围内不能被7整除的整数的个数，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算不能被7整除的整数的个数的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun（　）和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。

[多项选择]在考生文件夹下有一个工程文件sjr4.vbp，相应的窗体文件为sjr4.frm，在窗体上有一个文本框和一个命令按钮。程序运行后，单击命令按钮，即可计算出0～200范围内能被3整除的所有整数的和，并显示在文本框中。在窗体的代码窗口中，已给出了部分程序，其中计算能被3整除的整数的和的操作在通用过程Fun中实现，请编写该过程的代码。
要求：请勿改动程序中的任何内容，只在Function Fun( )和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。

[简答题]完成下列问题：
在考生目录下有一个工程文件sjt3.vbp。窗体上有个钟表图案，其中代表指针的直线的名称是Line1，还有一个名称为Label1的标签，和其他一些控件(如图3所示)。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置(如图4所示)；若用鼠标右键单击圆的边线，则指针恢复到起始位置(如图3所示)；若鼠标左键和右键单击其他位置，则在标签上显示“鼠标位置不对”。
[*]
[*]
文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，在程序中的横线处填写正确的内容。程序中函数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
Linel.X1=x0
Line1.Y1=y0
If Button=LEFT_BUTTON Then
Line1.X2=X
Line1.Y2= (1)
Else
Line1.X2=L

[简答题]完成下列问题：
在考生文件夹中有一个工程文件sjt3.vbp。程序的功能是输入用户名和密码。程序运行时，当向文本框Text2中输入密码时，若“显示密码”复选框没有被选中，则文本框Text3中同时显示“#”(如图3所示)；若“显示密码”复选框被选中，再重新输入密码时，则在Text3中同时显示的是密码字符本身。
[*]
在给出的窗体文件中已经添加了全部控件，但程序不完整。
要求：去掉程序中的注释符，在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Text2_Change（　）
If (1) =1 Then
Text3.PasswordChar= (2)
Else
Text3.PasswordChar= (3)
End If
Text3.Text= (4)
End Sub

[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp。窗体上有名称为Timer1的定时器，以及名称为Line1和Line2的两条水平直线。
请用名称为Shape1的形状控件，在两条直线之间画一个宽和高都相等的形状，其显示形式为圆，并设置适当属性使其满足以下要求：
①圆的顶端距离窗体Form1顶端的距离为360。
②圆的颜色为红色(红色对应的值为：&H000000FF&或&HFF&)，如图3所示。
[*]
程序运行时，Shape1将在Line1和Lihe2之间运动。当Shape1的顶端到达Line1时，会自动改变方向而向下运行；当Shape1的底部到达Line2时，会改变方向而向上运动。
文件中给出的程序不完整，请在程序中的横线处填写正确的内容，使其实现上述功能。
注意：不能修改程序的其他部分和已给出的控件的属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Dim s As Integer, h As Long
Private Sub Form_Load( )
Timer1.Enabled= (1)
s=-40
End Sub
Private Sub Timer1_Timer（　）
Shape1.Move Shape1.Left, Shape1.Top+s
If Shape1.Top＜= (2) Then
s=-s
End If
If Shapp1.Top+ (3) ＞=Line2.Y1 Then
s=-s
End If
End Sub

[简答题]

完成下列问题：

在考生目录下有一个工程文件sjt4.vbp，窗体如图5所示。其功能是单击“输入数据”按钮，则可输入一个整数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＞ (1) Or n＜8 Then
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
’考生应编写的程序
End Sub
Function f(n As Integer) As Long
s= (2)
For k=2 To n
s=s*k
Next
f= (3)
End Function
Private Sub Command3_Click（　）
Open App.Path & "/out4.dat" For Output As #1
Print #1, n, Text1
Close #1
End

[简答题]完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp。在窗体中“待选城市”下的List1列表框中有若干城市名称。程序运行时，选中List1中若干个列表项(如图6所示)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”按钮，则在Text1文本框中显示这些选中的城市(如图7所示)。已经给出了所有控件和程序，但程序不完整。
[*]
[*]
要求：在程序中的横线处填写正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。
(题目提供的源程序]
Private Sub Command1_Click（　）
Dim k%
For k=List1.ListCount-1 To 0 (1)
If List1.Selected(k)=True Then
List2.AddItem (2)
List1.RemoveItem (3)
End If
Next k
End Sub
Private Sub Command2_Click（　）
Dim k%
Text1="已经选中的城市有:"
For k=0 To List2.ListCount-1 Step 1
Text1= (4) & "" & List2.List(k)
Next k
End Sub

[简答题]在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框，名称为cb1，并输入3个列表项：“3”、“7”、“11”（列表项的顺序不限，但必须是这3个数字）；添加一个名为Text1的文本框；再添加一个标题为“计算”、名称为C1的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘。
提示：由于计算结果较大，应使用长整型变量。
注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。