在考生文件夹下有一个工程文件sjt4.vbp。窗体上的控件如图所示。程序运行时,若选中“累加”单选按钮,则“10”、“12”菜单项不可用,若选中“阶乘”单选按钮,则“1000”、“2000”菜单项不可用(如图所示)。选中菜单中的一个菜单项后,单击“计算”按钮,则相应的计算结果在文本框中显示(例如,选中“累加”和“2000”,则计算1+2+3+…+2000,选中“阶乘”和“10”,则计算10!)。单击“存盘”按钮则把文本框中的结果保存到考生文件夹下的out4.dat文件中。
【正确答案】[操作步骤]
步骤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=100rn=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值,进行累加或阶乘运算,然后通过文件编辑实现存盘操作。