现有以下程序: Private Sub Command1 Click( ) c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1=c1+1 Else If i Mod 7=0 Then c2=c2+1 End If Next i Print c1+c2 End Sub 此程序运行后输出的是在1~100范围内( )。A.同时能被3和7整除的整数个数B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)C.能被3整除,而不能被7整除的整数个数D.能被7整除,而不能被

题目

现有以下程序: Private Sub Command1 Click( ) c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1=c1+1 Else If i Mod 7=0 Then c2=c2+1 End If Next i Print c1+c2 End Sub 此程序运行后输出的是在1~100范围内( )。

A.同时能被3和7整除的整数个数

B.能被3或7整除的整数个数(同时被3和7整除的数只记一次)

C.能被3整除,而不能被7整除的整数个数

D.能被7整除,而不能被3整除的整数个数


相似考题
更多“现有以下程序: Private Sub Command1 Click( ) c1=0 c2=0 For i=1 To 100 If i Mod 3=0 Then c1 ”相关问题
  • 第1题:

    有以下程序: include void swap1 (int c0[],int e1[] ){intt;t = c0[0]; c0[0]: c1 [

    有以下程序: #include <stdio, h>void swap1 (int c0[],int e1[] ){ int t; t = c0[0]; c0[0]: c1 [0] ; c1 [0] = t;}void swap2(int * c0,int * c1){ int t; t= *c0; *c0= *c1; * c1 =t;}main( ){ inta[2]={3.5}.b[2]={3,5}; swapl(a,a+1) ;swap2(&b[0],&b[1]); printf("% d %a %d %d \n" ,a[0] ,a[1] ,b[0] ,b[1] ); }程序运行后的车出结果是( )。

    A.3 5 5 3

    B.5 3 3 5

    C.3 5 3 5

    D.5 3 5 3


    正确答案:D
    解析:函数swap1,swap2的功能均为交换两个数。main函数调用swap1(a,a+1);使得数组a的首地址赋给形参c0[],a[1]的首地址赋给形参c1[],故交换c0[0]与c1[0]后,a[0]与a[1]的值也发生了变化;函数调用swap2(&b[0],&b[1]);的功能也一样,使指针变量c0指向了b[0]存储单元,c1指向了b[1]存储单元,并在swap2函数中进行了交换,所以b[0],b[1]的值也发生变化,故本程序输出的结果是5353。

  • 第2题:

    以下程序段的输出结果是【 】。

    int x, i ;

    for (i=1; i<=100; i++)

    { x=i;

    if (++x%2==0)

    if (++x%3==0)

    if(++x%7==0) cout<<i<<' , ';

    }


    正确答案:25 67
    25, 67

  • 第3题:

    有以下程序 void swapl(int c0[],int c1[] { int t; t=c0[0]; c0[0]=c1[0]; c1[0]=t; } void swap2 (int *c0,int *c1) { int t; t-*c0; *c0=*c1; *c1=t; } main() { int a[2]={3,5}, b[2]={3,5} swapl(a,a+1); swap2(&b[0],&b[1]); printf("%d %d %d %d\n",a[0],a[1],b[0],b[1]); } 程序运行后的输出结果是

    A.3 5 5 3

    B.5 3 3 5

    C.3 5 3 5

    D.5 3 5 3


    正确答案:D
    解析:本题考查的是数组名和指针用作函数的参数。在C语言中,函数参数使用数组形式和指针形式两者毫无差别。因此两个函数swap1()和swap2()的作用是完全一样的,都是交换两个参数所指的内容。主函数中分别使用swap1和swap2交换数组a[2]和b[2]中两个元素的位置。因此最终输出为:5353。故应该选择D。

  • 第4题:

    若有以下程序段: int c1=1,c2=2,c3: c3=c1/c2:

    A.0

    B.1/2

    C.0.5

    D.1


    正确答案:A
    cl和c2都是整数,1/2取整得0,舍弃小数点。因此正确答案为A。

  • 第5题:

    程序代码如下,当单击窗体上的Command1控件时,在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3,3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i,j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i,1) Next i Print s End Sub

    A.32

    B.28

    C.30

    D.36


    正确答案:A
    解析:当发生Command1_click事件时,将定义一个4行4列的数组aa(数组下标从0开始),然后通过一个两层For循环给它的各个元素赋值,赋值规律是给每一个元素赋它的行下标值乘以4,再加上列下标值再加1。然后通过一个For循环把数组元素aa(0,1)、aa(1,1)、aa(2,1)和aa(3,1)的值2、6、10、14加到s中,s的值为32。

  • 第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
    解析:A选项进行10次循环,分别将1至10累加给Sum,故正确。选项B缺少Loop关键词,否则也是正确的。选项C与D由于受条件“Iclo'’限制,Do循环只能进行一次。