计算机二级

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

第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 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正确。

第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


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

第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 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。

第6题：

下列程序运行后,单击窗体,输出结果为( )。 Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 <> 0 Andi Mod 3 = 0 Then sum = sum ＋ i End If Next i Print sum End Sub

A. 12

B. 18

C. 24

D. 30


参考答案：A 

第7题：

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

B．30

C．24

D．18


正确答案：A

第8题：

设有如下程序：

Private Sub Form_Click()

Dim i As Integer，x As String,Y As String

x=”ABCDEFG”

For i=4 To 1 Step-1

y=Mid(x，i，i)+y

Next i

Print y

End Sub

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

A．ABCCDEDEFG

B．AABBCDEFG

C．ABCDEFG

D．AABBCCDDEEFFGG


正确答案：A
解析：本题Mid函数的功能是从第i个字符开始取i个，当i=4时，从字母D开始取到G，并加在y的开头，当i=3时，从字母C开始取到E，并加在y的开头，当i=2时，从字母B开始取到C，并加在y的开头，当i=1时，只取字母A，并加在y的开头，因此本题答案为A)。

第9题：

有如下程序：

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

EndIf

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。

相关内容