计算机二级
有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则
题目
有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。
A．100
B．120
C．200
D．50
相似问题和答案
第1题：
E.堆排序：
procedure sift(i,m:integer);{调整以i为根的子树成为堆,m为结点总数}
var k:integer;
begin
a[0]:=a[i]; k:=2*i;{在完全二叉树中结点i的左孩子为2*i,右孩子为2*i+1}
while k<=m do begin
if (k<m) and (a[k]<a[k+1]) then inc(k);{找出a[k]与a[k+1]中较大值}
if a[0]<a[k] then begin a[i]:=a[k];i:=k;k:=2*i; end
else k:=m+1;
end;
a[i]:=a[0]; {将根放在合适的位置}
end;
procedure heapsort;
var
j:integer;
begin
for j:=n div 2 downto 1 do sift(j,n);
for j:=n downto 2 do begin
swap(a[1],a[j]);
sift(1,j-1);
end;
end;
第2题：
86、在平时成绩记录器中，下列代码运行后，Total的意义是 ToTal = 0：i = 5：flat = 1 While flat If Cells（i, 1) ＜＞ "" And Cells（i, 2) ＜＞ "" Then ToTal = ToTal + 1 i = i + 1 Else flat = 0 End If Wend
A．学生人数
B．作业次数
C．至少交过一次作业的学生人数
D．以上都不对
第3题：
有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为
A．120
B．60
C．80
D．100
解析：本题的难点是实参与形参数传递的问题。如果将fact((i))改成fact(i)会产生“ByRef参数类型不符”的提示。字符型变量i经(i)计算的结果为5，其作为常数参数按值传递调用子过程fact(5)。子过程的功能是计算n!。
第4题：
在平时成绩记录器中，下列代码运行后，Total的意义是 ToTal = 0：i = 5：flat = 1 While flat If Cells（i, 1) ＜＞ "" And Cells（i, 2) ＜＞ "" Then ToTal = ToTal + 1 i = i + 1 Else flat = 0 End If Wend
A．学生人数
B．作业次数
C．至少交过一次作业的学生人数
D．以上都不对
第5题：
34、若要实现total=1+2+3+4+5求和,以下程序段错误的是（）
A．int i=1,total=1; while(i＜5) { total+=i; i+=1; }
B．int i=1,total=0; while(i＜=5) { total+=i; i+=1; }
C．int i=0,total=0; while(i＜5) { i+=1; total+=i; }
D．int i=0,total=0; while(i＜=5) { total+=i; i+=1; }
第6题：
以下代码的运行结果为：
public class Calc {
public static void main (String args []) {
int total = 0;
for (int i = 0, j = 10; total >30; ++i, --j) {
System.out.println(" i = " + i + " : j = " + j);
total += (i + j);
}
System.out.println("Total " + total);
}
}
A. 产生运行错误
B. 产生编译错误
C. 输出 "Total 0"
D. 产生如下输出:
i = 0 : j = 10
i = 1 : j = 9
i = 2 : j = 8
Total 30
第7题：
若要实现total=1+2+3+4+5求和,以下程序段错误的是（）
A．int i=1,total=1; while(i＜5) { total+=i; i+=1; }
B．int i=1,total=0; while(i＜=5) { total+=i; i+=1; }
C．int i=0,total=0; while(i＜5) { i+=1; total+=i; }
D．int i=0,total=0; while(i＜=5) { total+=i; i+=1; }
第8题：
有以下程序 main() { int m[][3]={1,4,7,2,5,8,3,6,9}； int i,j,k=1 for(i=0；i＜3；i++) { printf("%d"，m[k][i])； } }执行后输出结果是______。
A．4 5 6
B．2 5 8
C．3 6 9
D．7 8 9
第9题：
下列程序的输出结果是 int total = 0; for （int i = 0; i ＜ 4; i++ ){ total += i; if （i == 2) break; } System.out.println（total);
A．1
B．3
C．5
D．6
第10题：
有如下程序段: int total = 0; for （int i = 0; i ＜ 4; i++ ){ if （i == 1) continue; if （i == 2) break; total += i; } 则执行完该程序段后total的值为：（）
A．0
B．1
C．3
D．6