有过程如下：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则

第1题：

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．以上都不对

第2题：

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; }

第3题：

在平时成绩记录器中，下列代码运行后，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．以上都不对

第4题：

若要实现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; }

第5题：

下列程序的输出结果是 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

第6题：

有如下程序段: 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