单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For i =1 To 4 x=4 For j = 1 To 3 x=3 For k = 1 To 2 x=x+6 Next Next Next Print x End Sub 程序运行后，单击命令按钮，输出的结果是

A．7
B．15
C．157
D．538

单项选择题

下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt = abcdef Print Pat(FirStr) End Sub Private Function Pat( xStr As String) As String Dim tempStr As String, strLen As Integer tempStr = strLen = Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr = tempStr + Mid(xStr, i, 1 ) + Mid(xStr, strLen - i + 1, 1 ) i=i+1 Loop Pat = tempStr End Function

A．abcdef
B．afbecd
C．fedcba
D．defabc

相关试题