要求：请去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
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=? ***** 0 ***** Else
a=(y-y0) / (x-x0) ‘斜率 stepx=sgn(x-x0) * 50
‘ ?=a * stepx ***** stepy ***** If abs(stepy) > abs(stepx) Then Stepy=sgn(y-y0) * 50 Stepx=stepy / a End if End If
‘ ?=True ***** Timer1.Enabled ***** Else
‘ ?=False ***** Timer1.Enabled ***** End if End Sub
Private Sub Timer1_Timer( )
‘ Shape1.Move Shape1.Left + stepx , Shape1.Top + ? ***** stepy ***** End Sub
第10套 基本操作题★
（1）在名称为Form1的窗体上添加一个名称为Shape1的形状控件，通过设置参数使其形状为圆形；添加一个名称为Label1的标签，标题为\形状\，标签的大小能够根据标签内容的字数、大小而定；添加一个名称为Text1的文本框，文本框最多能够显示5个字符，文本框中初使内容为\圆形\，如图所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1.frm，工程文件名为sjt1.vbp。
（2）在名称为Form1的窗休上添加一个名称为Label1的标签，字号大小为四号，标题为\等级考试\，如图1所示。通过设置属性使标签初始为不显示。请编写适当的程序，使得运行程序时，窗体的标题立即变为\标签\，单击窗体时，显示标签，如图2所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名保存为sjt2.frm，工程文件名保存为sjt2.vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。
Private Sub Form_Click() Label1.Visible = True End Sub
*****第10套 简单应用题★
Private Sub Form_Load() Form1.Caption = \标签\End Sub （1）考生文件夹中有工程文件sjt3.vbp。窗体上有名称为Label1、标题为“标签控件”的标签；有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中任一控件，则在标签Label2中显示所单击控件的标题内容（标题内容前有“单击”二字），下图是单击命令按钮后的窗体外观。请去掉程序中的注释符，把程序中的？改为正确的内容。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
Private Sub Command1_Click()
'Call ShowName(？) ***** Command1 ***** End Sub
Private Sub Label1_Click()
'Call ShowName(？) ***** Label1 ***** End Sub
'Private Sub ShowName(c As ？) ***** Control ***** If TypeOf c Is CommandButton Then
Label2.Caption = \单击\End If
If TypeOf c Is Label Then
' ？ = \单击\ ***** Label2.Caption ***** End If End Sub
（2）在考生文件夹下有一个工程文件sjt4.vbp。其窗体上有一个由八个图片框控件组成的控件数组、两个命令按钮及一个计时器控件，如图1所示。程序功能：
将计时器控件设置为每隔0.5秒触发一次。运行程序时，只显示下标为0的图片框控件数组元素，其它图片框均不显示。单击“开始”按钮，数组中的每个图片框自左至右依次显示，时间间隔为0.5秒，产生月亮从左向右移动的效果，如图2所示。月亮移到右端后再从左端重新开始。单击“停止”按钮，月亮停止移动。
要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
Private Sub Form_Load() Picture1(0)．Left = 0 Picture1(0)．Top = 100 For k = 1 To 7
' Picture1(k)．Visible = ？ ***** False ***** Next End Sub
Private Sub Command1_Click()
' Timer1.Enabled = ？ ***** True *****
End Sub
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Timer1_Timer() Static i As Integer
Picture1(i)．Visible = False i = i + 1
' If i = ? Then ***** 8 ***** ' i =？ ***** 0 ***** End If
Picture1(i)．Visible = True End Sub
*****第10套 综合应用题★
考生文件夹下有一个工程文件sjt5.vbp。运行程序后，从文件中读出数据，放入5X5的二维数组a中。请编写程序，找出a数组中每行的最大值及该值在行中的次序（即列下标），并将所找到的结果分别保存到一维数组b、c中（a第一行的最大值保存在b(1)中，最大值的列次序保存在c(1)中）。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。
Dim a(5, 5) As Integer Dim b(5) As Integer Dim c(5) As Integer
Private Sub Command1_Click() N = 5
For i = 1 To N
'＝＝＝＝＝＝＝＝考生编写程序开始＝＝＝＝＝ Max = a(i, 1) For j = 1 To 5
If Max < a(i, j) Then Max = a(i, j) End If b(i) = Max
If Max = a(i, j) Then c(i) = j Next j
'＝＝＝＝＝＝＝＝考生编写程序结束＝＝＝＝＝ Next i Save End Sub
*****第11套 简单应用题
（1）在考生目录下有一个工程文件sjt3.vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Combo1的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：
不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( )
‘Combo1.? *** AddItem Text1.Text *** Text1.text=‖‖ End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
‘If KeyAscii > 57 Or KeyAscii < ? Then *** 48 *** MsgBox ―请输入数字！‖
‘KeyAscii=? *** 0 *** End if End Sub
（2）在考生目录下有一个工程文件sjt4.vbp。该程序的功能是计算M！+（M+1）！+（M+2）！+。。。+N！之和。窗体上有名称分别为Text1、Text2的两个文本框，用于接收输入的M和N（要求M 在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意： 不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( ) Dim m as integer Dim n as integer Dim s as Long Dim i as Integer M=val(Text1.text) N =val(text2.text) S=0 ‘For i=? to n *** m *** ‘t=? *** f(i) *** ‘s=s+? *** t *** Next lblResult.Cation=s End Sub Private Function f(ByRef x as integer) As Long Dim t as Long t=1 For i=1 to x ‘t=? *** t*i *** Next ?f=? *** t *** End Function *****第11套 综合应用题 在考生目录下有一个工程文件sjt5.vbp，用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是：a^2+b^2=c^2。例如，3、4、5就是一个满足条件的整数组合（注意：a，b，c分别为4，3，5与分别为3，4，5被视为同一个组合，不应该重复计算）。编写程序，统计三个数均为60以内满足上述关系的整数组合的个数，并显示在标签Label1中。 注意：不得修改原有程序的控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。 Private Sub Command1_Click( ) ‘***** 考生编写程序开始 ***** Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 60 For j = 1 To 60 For k = 1 To 60 If i ^ 2 = j ^ 2 + k ^ 2 Then m = m + 1 End If Next k Next j Next i Label1.Caption = m / 2 ‘***** 程序结束 ***** Save Label1 End Sub Public Sub Save(l As Control) Open App.Path & ―\\out5.txt‖ For Output As #1 Print #1, l.Caption Close #1 End Sub *****第12套 简单应用题 （1）在考生文件夹下有一个工程文件sjt3.vbp，包含了所有控件和部分程序。程序运行时，在文本框中每输入一个字符，则立即判断：若是小写字母，则将它的大写形式显示在标签Label1中；若是大写字母，则把它的小写形式显示在Label1中，若是其他字符，则将该字符直接显示在Label1中。输入的字母总数则显示在标签Label2中，如图所示。 要求：去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不得修改已经存在的程序，最后将修改后的文件按原文件名存盘。 Dim n As Integer Private Sub Text1_Change() Dim ch As String ' ch = Right$( ? ) ***** Text1,1 ***** If ch >= \ Label1.Caption = LCase(ch) n = n + 1 ElseIf ch >= \= \ Label1.Caption = UCase(ch) n = n + 1 Else ' Label1.Caption = ? ***** ch ***** End If ' Label2.Caption = ? ***** n ***** End Sub （2）在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框，图片框中有一个蓝色圆，名称为Shape1，如图所示。 当程序运行时，单击\开始\按钮，圆半径逐渐变大(圆心位置不变)，当圆充满图片框时则变为红色，并开始逐渐缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大，如此往复。单击\停止\按钮，则停止变化。文件中已经给出了所有控件和程序，但程序不完整，请去掉