有如下程序：Private Sub Form_Click（）Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd 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

相似考题

1.有如下程序：Private Sub Form_Click()Dim i As Integer，Sum As IntegerSum=0For i=2 To 10If i Mod 2＜＞0 And i Mod 3=0 ThenSum=Sum+iEndIfNextPrint SumEnd Sub程序运行后，单击窗体，输出结果为A．12B．30C．24D．18

2.有如下程序： Private Sub Form_Click() Dimi As Integer,sumASInteger sum=0 For i=2To 10 If i Mod2＜＞0 And i Mod 3=0 Then sum=sum+i End If Nexti Print sum EndSub 程序运行后，单击窗体，输出结果为( )。A．12B．30C．24D．18

3.下列程序运行后,单击窗体,输出结果为( )。 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 A. 12B. 18C. 24D. 30

4.设有如下程序：Private Sub Form_Click()Dim i As Integer，x As String,Y As Stringx=”ABCDEFG”For i=4 To 1 Step-1y=Mid(x，i，i)+yNext iPrint yEnd Sub程序运行后，单击窗体，输出结果为A．ABCCDEDEFGB．AABBCDEFGC．ABCDEFGD．AABBCCDDEEFFGG

更多“有如下程序: PrivateSubForm_Click() DimiAsInteger,sumAsInteger sum=0 Fori=2To10 I ”相关问题

  • 第1题：

    有如下程序： 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 Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：C
    解析：纵观题目可以看出，本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2，4，8，10，所以和是24，故本题的正确答案是选项C。

  • 第2题：

    有如下程序： 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 Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：A
    解析：本题考查额是For循环语句和If条件语句的应用。纵观本题可以看出，本题程序段的作用是将从2到10中不是2的倍数但是3的倍数的数加和然后输出。在2到10中满足条件的数字是3和9所以和是12。

  • 第3题：

    有如下程序:

    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

    Print Sum

    End Sub

    程序运行后,单击窗体,输出结果为

    A．12

    B．30

    C．24

    D．18


    正确答案：C
    解析：考查考生对IF条件语句的掌握程度。纵观题目可以看出,本题程序段的作用是将从2到10中是2的倍数但不是3的倍数的数加求然后输出。在2到10中满足条件的数字是2,4,8,10,所以和是24,故本题的正确答案是选项C)。

  • 第4题：

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


    正确答案：A
    解析：本题程序的功能是：将从2到10中既是奇数(i Mod 2＞0)又是3的倍数(i Mod 3=0)的数求和，在2到10中满足条件的数字是3，9，其和是12。

  • 第5题：

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


    正确答案：A
    解析：本题考查For循环以及表达式运算。考生需要掌握Mod函数的用法“Mod”表示取模。题目程序的功能是将2到10之间的不能被2整除，但能被3整除的数求和。如果掌握了这个就很容易计算，结果为3+9=12，选项A正确。

相关内容