计算机二级
有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。A． 12B．30C．24D．18
题目
有如下程序:: Private Sub Form. Click() Dim i As Integer,sum As Integer sum=0 For i=2 To 10 If i Mod 2 ＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A． 12
B．30
C．24
D．18
参考答案和解析
解析：i Mod2＞0，就是i不能被2整除，而i Mod 3=0，就是i要能被3整除。所以本题就是求2～10之间，能被3整除但不能被2整除的数之和。而2～10之间符合条件的数为3和9，它们的和为12。
相似问题和答案
第1题：
以下能够正确计算1+2+3+…+10的程序是
A．Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End Sub
B．Private Sub Command1_Click() Sum=0，I=1 Do While I＜=10 Sum=Sum+I I=I+1 Print Sum End Sub
C．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop While I＜10 Print Sum End Sub
D．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop Until I＜10 Print Sum End Sub
解析：本题考查For循环与 Do循环控制语句。A选项进行10次循环，分别将1之10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“lclo”限制，Do循环只能进行一次。
第2题：
在窗体上画一个命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1 Click() Dim Arr1(12)As Integer， Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后，单击命令按钮，在窗体上的输出结果为
A．16
B．24
C．32
D．36
解析：本题中定义了两个一维数组，分别为Arr1和Arr2，由于使用了OptionBase1语句，因此其大小分别为10和3，接着执行3个For循环。在第1个循环中，对Arr1数组赋初值，每个元素的值与其下标相同，即Arrl(1)=1，Arrl(2)=2……。在第2个循环中，为Arr2数组的3个元素赋值，这3个值分别为Arrl数组第1、3、9个元素的值，即Art2(1)=1、Arr2(2)=4、Arr2(3)=9。在第3个循环中，计算数组Arr2中各元素的和，并将它赋给变量Sum。各元素的和为1+4+9=14，但由于变量Sum的初值为2，因此最后的输出结果为16。
第3题：
（ 35 ）有如下程序：：
#include
using namespace std:
class Sample
{
friend long fun （ Sample s ） ;
public:
Sample （ long a ） {x=a;}
Private:
long x;
};
long fun （ Sample s ）
{
if （ s.x<2 ） retum 1;
retum s.x*fun （ Sample （ s.x-a ））
}
int main （）
{
int sum=0
for （ int i =0; i <6; i ++ ） { sum+=fun （ Sample （ i ） ; ） }
cout<<SUM;
retum 0;
}
运行时输出的结果是
A ） 120
B ） 16
C ） 154
D ） 34
第4题：
如下程序段执行后sum的值为（） int i,sum; i=1; sum=0; while（i＜=5) { sum+=i; i++; }
A．5
B．10
C．15
D．20
第5题：
若有以下程序段，sum和i都是整型变量，则不能与下面程序段等价的选项是（） sum=0; i=2; while（i＜=10) { sum=sum+i; i++; }
A．for(i=2, sum=0; i＜=10; i++) sum+=i;
B．sum=0; i=2; do{ sum=sum+i; i++; }while(i＜=10);
C．sum=0; i=10; while(i＞1) { sum=sum+i; i--; }
D．sum=0; i=11; do{ sum=sum+i; i--; }while(i＞1);
第6题：
以下能够正确计算1+2+3+…+10的程序是
A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub
B．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End Sub
C．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub
D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub
解析：A选项进行10次循环，分别将1至10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“Iclo'’限制，Do循环只能进行一次。
第7题：
有如下程序 #include＜iostream.h＞ viod main() { int i，sum=0； for(i=1；i＜＝3；sum++) sum+=i； cout＜＜sum＜＜end1； } 该程序的执行结果是 ______。
A．6
B．3
C．死循环
D．0
第8题：
有如下程序 #ginclude＜iostream.h＞ void main() {char ch[2] [5]＝{”6937"，"8254")，*p[2]； int i，j，S=0 for(i=0；i＜2：i++)p[i]=ch[i]； for(i=0；i＜2：i++) for(j=0；p[i] [j]＞'\0'；j+=2) s=10*s+p[i] [j]-'0'： cout＜＜s；} 该程序的输出结果是( )。
A．69825
B．63825
C．6385
D．693825
第9题：
如下程序中实现sum=1+2+3+...+n的程序是
A．int sum=0,i; for(i=0;i＜n;i++)sum+=i;
B．int sum=0,i; for(i=0;i＜n;i++); sum+=i;
C．int sum=0,i; for(i=1;i＜=n;i++); sum+=i;
D．int sum=0,i; for(i=1;i＜=n;i++) sum+=i;
第10题：
已定义整型变量i和sum，与以下程序段功能一样的程序有（）。 sum=0; for（i=1;i＜=100;i++)sum+=i;
A．sum=0;i=1;for(; i＜=100;i++) sum+=i;
B．sum=0;for(i=1;i＜=100;){i++;sum+=i;}
C．sum=0;for(i=1;i＜=100;) sum+=i;i++;
D．sum=0;for(i=1;;i++ )