问答题 在考生文件夹下有一个工程文件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值,进行累加或阶乘运算,然后通过文件编辑实现存盘操作。