单项选择题

设有如下程序：
Private Sub Form_Click()
Dim s As Long, f As Long
Dim n As Integer, i As Integer
f=1
n=4
For i=1 To n
f=f*i
s=s+f
Next i
Print s
End Sub
程序运行后，单击窗体，输出结果是( )。

A．32
B．33
C．34
D．35
<上一题 目录 下一题>
热门 试题

单项选择题
有人编写了如下程序： Private Sub Form_Click() Dim s As Integer, x As Integer s=0 x=0 Do While s=10000 x=x+1 s=s+x^2 Loop Print s End Sub 上述程序的功能是：计算s=1+22+32+…+n2+…，直到s＞10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是( )。
A．把x=0改为x=1
B．把Do While s=10000改为Do While s＜=10000
C．把Do While s=10000改为Do while s＞10000
D．交换x=x+1和s=s+x^2的位置
单项选择题
以下关于顺序文件的叙述中，正确的是( )。
A．可以用不同的文件号以不同的读写方式同时打开同一个文件
B．文件中各记录的写入顺序与读出顺序是一致的
C．可以用Input#或Line Input#语句向文件写记录
D．如果用Append方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录
相关试题