应用题
2. 在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时，若选中“累加”单选按钮，则“10”、“12”菜单项不可用，若选中“阶乘”单选按钮，则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后，单击“计算”按钮，则相应的计算结果在文本框中显示(例如，选中“累加”和“2000”，则计算1+2+3+…+2000，选中“阶乘”和“10”，则计算10!)。单击“存盘”按钮则把文本框中的结果保存到考生文件夹下的out4.dat文件中。
要求：编写“计算”按钮的Click事件过程。
注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
要求：编写“计算”按钮的Click事件过程。
注意：不得修改已经存在的程序，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。
【正确答案】【操作步骤】
步骤1：打开本题工程文件；
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Long
Dim sum As Long
m=1
If n=10 Or n=12 Then '通过判断n的值，可确定使用什么操作
For i=2 To n
m=i*m
Next i '求n的阶乘
Text1.Text=m
End If
Sum=0
If n=2000 Or n=1000 Then
For j=1 To n
sum=sum+j
Next j '求1到n的和
Text1.Text=Sum
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：打开本题工程文件；
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim m As Long
Dim sum As Long
m=1
If n=10 Or n=12 Then '通过判断n的值，可确定使用什么操作
For i=2 To n
m=i*m
Next i '求n的阶乘
Text1.Text=m
End If
Sum=0
If n=2000 Or n=1000 Then
For j=1 To n
sum=sum+j
Next j '求1到n的和
Text1.Text=Sum
End If
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：单选按钮的Value属性、菜单项的Enabled属性、菜单编辑器的使用、文件编辑、文本框的Text属性、For循环语句、If判断语句以及App.Path相对路径。
本题的语句比较多，先看一下程序实现的过程，通过单选按钮决定是进行阶乘还是累加运算，并确定4个菜单项的Enabled属性，在菜单项的Click事件过程中，设置n的值，运用If判断语句判断n值，进行累加或阶乘运算，然后通过文件编辑实现存盘操作。
本题的语句比较多，先看一下程序实现的过程，通过单选按钮决定是进行阶乘还是累加运算，并确定4个菜单项的Enabled属性，在菜单项的Click事件过程中，设置n的值，运用If判断语句判断n值，进行累加或阶乘运算，然后通过文件编辑实现存盘操作。