（1）在考生文件夹下有一个工程文件sjt3.vbp，窗体上有1个标题为"计算"的命令按钮，1个标题为"1!+2!+…+10!="的标签。请画1个名称为Text1，初始内容为空的文本框。如图所示。程序功...
程序功能：单击"计算"命令按钮，则计算"1!+2!+…+10!"的值，并将结果显示在Text1文本框中。请将"计算"命令按钮的Click事件过程中的注释符去掉，把 ？改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
（2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有1个名称为Command1，标题为"运行"的命令按钮。请画2个名称分别为Text1和Text2，初始内容都为空的文本框，再画2个名称分别为Label1、Label2，标题分别是"最大数"和"最大数位置"的标签。
程序功能：单击"运行"按钮，则产生50个不重复的介于0--100之间（含0和100）的随机数，且以每行10个数的形式显示在窗体上；最后将这些随机数中的最大数和最大数所处的位置显示在Text1和Text2中。如图所示为某一次的运行效果。请将"运行"命令按钮的Click事件过程中的注释符去掉，把 ？改为正确内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
参考解析: （1）【解题思路】此题目主要是对While循环和For循环的考查，循环结构是指在满足循环条件时反复执行循环代码块，直到循环条件不能满足为止。一个循环语句一般应包含4个部分的内容：
初始化部分：设置循环控制的一些初始条件
循环体部分：反复执行的代码
迭代部分：修改循环控制条件
判断部分：判断是否继续执行循环体
【操作步骤】
步骤1：打开本题工程文件，在窗体视图中添加一个TextBox控件，并按表在属性窗口中设置相应属性。
控件 TextBox控件
属性 Text
设置值 空值
步骤２：打开代码编辑窗口，去掉程序中的注释符"＇",将问号改为正确的内容。
参考答案（阴影部分是需考生填入的内容）
Private Sub Command1_Click()
Dim s As Long
Dim i As Integer
i = 0: s = 0
While i < 10
i = i + 1
s = s + jc(i)
Wend
Text1.Text = s
End Sub
Function jc(n As Integer) As Long
Dim i As Integer
Dim t As Long
t = 1
For i = 1 To n
t = t * i
Next
jc = t
End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【解题思路】随机生成50个0-100之间的数据，再对这50个数据进行比较，获取最大值和最大的值的位置。将50个数据先保存在数组中，并打印在窗体上，打印函数为Print。
【操作步骤】
步骤1：打开本题工程文件，在窗体视图中添加两个TextBox控件和两个Label控件，并按表在属性窗口中设置相应属性。
控件 Label1 Label2 Text1 Text2
属性 Caption Caption Text Text
设置值 最大数 最大数的位置 空值 空值
步骤2：打开代码编辑窗口，去掉程序中的注释符"'",将问号改为正确的内容。
参考答案（阴影部分是需考生填入的内容）
Private Sub Command1_Click()
Dim arr(50) As Integer
Dim i As Integer, j As Integer
Dim x As Integer, max As Integer, pos As Integer
Randomize
max = 0: pos = 1
i = 1
Do
x = Int(Rnd * 101)
j = 1
Do While j < i
If x <> arr(j) Then
j = j + 1
Else
Exit Do
End If
Loop
If j = i Then
arr(j) = x
Print arr(j);
i = i + 1
If (i - 1) Mod 10 = 0 Then Print
If max < x Then
max = x
pos = j
End If
End If
Loo
百度扫一扫练题
关注千题库公众号
