13、有如下程序段，该程序段运行后变量a的值为______。 Dim a As Integer, b As Integer a = 5 : b = 3 If a Mod b = 2 Then a = a ^ 2 Else a = b ^ 2A．3B．5C．9D．25
题目
13、有如下程序段，该程序段运行后变量a的值为______。 Dim a As Integer, b As Integer a = 5 : b = 3 If a Mod b = 2 Then a = a ^ 2 Else a = b ^ 2
A．3
B．5
C．9
D．25
相似考题
更多“13、有如下程序段，该程序段运行后变量a的值为______。 Dim a As Integer, b As Integer a = 5 : b = 3 If a Mod b = 2 Then a = a ^ 2 Else a = b ^ 2”相关问题
-
第1题：
执行以下程序段后，x的值为( )。 Dim x As Integer,i As Integer x=0 For i=20 To 0 Step -2 x=x+i\5 Next i
A．16
B．17
C．18
D．19
正确答案：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
-
第3题：
窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Corqmand1_Click（ ） Dim a As Integer，b As Integer a=8 b=12 Print Fun(a，b)；a；b End Sub Private Function Fun(ByVal a As Integer，b AS Integer)As Integer a=a Mod 5 b=b＼5 Fun=a End Function 程序运行时，单击命令按钮，则输出结果是（ ）。
A.3 3 2
B.3 8 2
C.8 8 12
D.3 8 12
正确答案：B
-
第4题：
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command4 Click() Dim a As Integer，b As Integer a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x＞y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A．l
B．2
C．5
D．8
正确答案：B
解析：事件过程N的作用是输出两个数中最大的，它调用了IIF函数，条件部分是(x＞y)，如果满足，那么N的值即为x的值，否则为y的值。在Sub过程中，定义了两个变量a，b，并赋给它们初值1，2，并调用Print函数，输出N(a，B)的值，因为xy，所以输出y=2。 -
第5题：
执行下列程序后，变量a的值为 ( ) Dim i As Integer Dim a As Integer a=0 For i＝l To 100 Step 2 a=a+l Next i
A．1
B．10
C．50
D．100
正确答案：C
解析：本题主要是对For循环语句的考查。其一般格式为：
For循环变量＝初值To终值[Step步长]循环体
[Exit For]
Next循环变量
要计算For循环的循环次数，可用公式：
Int(循环次数＝(终值-初值)/步长+1)
本题中经过运算可知循环次数为50次，即执行了50次语句a=a+l。故最后a的值为50。选项C正确。 -
第6题：
窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Command_Click()
Dim a As Integer，b As Integer
a=8
b=12
Print Fun(a，b)；a；b
End Sub
Private Function Fun(ByVal a As Integer，b As Integer)As Integer
a=a Mod 5
b=b＼5
Fun=a
End Function
程序运行时，单击命令按钮，则输出结果是
A．3 3 2
B．3 8 2
C．8 8 12
D．3 8 1 2
正确答案：B
-
第7题：
执行以下程序段 Dim x As Integer， i As Integer x=0 For i=20 To Step -2 x=x+i\5 Next i 后，x的值为
A．16
B．17
C．18
D．19
正确答案：C
解析：本题考查For循环结构。For循环是最基本的循环语句，一般格式为：For循环变量=初值 To 终值 [Step步长]，步长省略时默认为1。在本题考生应该注意i\5的值，“\”是整除，而不是四舍五入。第1次循环，i=20，i\5=4，第2次循环，i=18，i\5=3而不是4，第3次循环i=16， i\5=3，依次类推，最后结果是18，选项C正确． -
第8题：
23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next i
A．9
B．10
C．11
D．12
正确答案：D
-
第9题：
阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i As Integer ReDim arr(3，2) For i=1 To 3 For j=1 To 2 arr(i，j)=i*2+j Next j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为
A．21
B．13
C．8
D．25
正确答案：A
解析：本题考查数组与多重循环等多个知识点。本题是综合性题目，难度较大。首先考生应该了解在VisualBasic中，有四种语句可以用来定义数组的，即Dim、ReDim、Static和Public。这四种语句的格式相同，但是使用的范围不一样。Dim，建立局部数组、公用数组或模块级数组，在窗体模块或标准模块中定义数组，不能在过程中定义；ReDim，用在过程中；Static，建立局部数组，用在过程中；Public，定义全局数组，用在标准模块中。程序使用多重循环给一个数组赋值，使用一个循环语句给另一个数组赋值，arr(3，2)=8，arr(3，4)=13，所以最终结果是8+13=21，选项A正确。 -
第10题：
阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是
A．3 5 7 9 30
B．1 3 5 7 9
C．2 4 6 8 20
D．11 15 17 19 20
正确答案：A
解析：本题For循环的循环变量初值为2，终值为10，步长为1。在循环体内，判断循环变量的值是否为偶数，如果是，则将该值累加给变量sum，否则输出循环变量的值。不难看出，运行该程序后，在循环体内输出的是奇数，而累加的是偶数。在循环体外，输出偶数的累加之和。 -
第11题：
设有如下程序： Private Sub Form_ Click() Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______。。
A．4 3 2 1
B．5 4 3 2
C．6 5 4 3
D．7 6 5 4
正确答案：C
-
第12题：
若整型变量a值为2、b的值为3，则下列程序段执行后整型变量c的值为______。 If a＞5 then If b＜4 Then c=a-b Else c=b-a Else If b＞3 Then c=a*b Else c=a mod b End If
A． 2
B．-1
C．1
D．6
正确答案：A
-
第13题：
在窗体上有一个命令按钮Commandl，通用过程fun和命令按钮的事件过程如下： Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出A.6 B.7 C.8 D.9
正确答案：B
【解析】本题比较简单，只要根据程序的执行条件和顺序就可以运算出该程序的最后输出结果。程序运算过程为：当i=1时，s=s+fun(i)=1；当i=2时，s=s+fun(i)=3；当i=3时，s=s+fun(i)=4；当i=4时，s=s+fun(i)=6；当i=5时，s=s+fun(i)=7。 -
第14题：
下列程序运行后,单击窗体,输出结果为( )。 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 SubA. 12
B. 18
C. 24
D. 30
参考答案：A
-
第15题：
执行下列程序段后，x的值为______。
Dim x As Integer, i As Integer
x=0
For i=20 To 1 Step -2
x=x +i\5
Next i
正确答案：18
18 解析：本题考查VBA中循环和整除的知识。显然循环会执行10次，所以这个问题主要需要搞清楚每次循环累加的是什么数值。注意到每次累加的是i整除5的结果，i=20时累加一个4，i=18、16时累加两个3,i=14、12、10时累加三个2，i=8、6时累加两个1。 -
第16题：
设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是
A．#2=2 #3=3
B．#2=2 #3=5
C．#；2=2 #；3=3
D．#；2=2 #3；=5
正确答案：B
解析：由于Print方法中的分号表示前后字符之间的连接，并不显示在窗体中，同时由于Function过程以Static定义，在I=3时，Fac(1)的值为5。 -
第17题：
有如下程序： 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。 -
第18题：
执行以下程序段后，x的值为______。
Dim x As Integer,i As Integer
x＝0
For i＝20 To 1 Step -2
x＝x+i\5
Next i
正确答案：18
18 解析：本题考查VBA中循环和整除的知识。显然循环会执行10次，所以这个问题主要需要搞清楚每次循环累加的是什么数值。注意到每次累加的是i整除5的结果，i＝20时累加一个4，i＝18、16时累加两个3，i＝14、12、10时累加三个2，i＝8、6时累加两个1。 -
第19题：
有如下程序:: 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
解析：i Mod2＞0，就是i不能被2整除，而i Mod 3=0，就是i要能被3整除。所以本题就是求2～10之间，能被3整除但不能被2整除的数之和。而2～10之间符合条件的数为3和9，它们的和为12。 -
第20题：
有如下程序段：Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(A)Next iEnd SubFunction G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为
A．1 2 3
B．2 3 4
C．4 5 6
D．1 4 6
正确答案：C
解析：在函数G中定义了一个静态变量c，每次调用完成后，c的值都将保存到下一次调用c；Sub过程中，循环语句For的变量I的初始值和终值分别是1，3，因为步长为1，所以循环3次，循环体为调用G过程；在第一次调用循环时，将a等于2传给形参，因为是第一次调用G，且c没有赋值，所以默认c为0，执行b=b+1，c=c+1，b，c的值为1，所以G的值为4；第三此循环时，c的初值为2，执行G过程后，返回值为6。 -
第21题：
有如下程序:
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)。 -
第22题：
单击命令按钮时，下列程序段的执行结果为( )。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12;y=34 Call Procl(x,y) Print x;y End Sub
A．12 34
B．2 34
C．2 3
D．12 3
正确答案：B
-
第23题：
在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为
A．1
B．2
C．5
D．8
正确答案：B
解析：事件过程N的作用是输出两个数中最大的，它调用了IIF函数，条件部分是(x>y)，如果满足，那么N的值即为x的值，否则为y的值。在Sub过程中，定义了两个变量a，b，并赋给它们初值1，2，并调用Print函数，输出N(a，b)的值，因为xy，所以输出y=2。 -
第24题：
窗体上有一个名为Commandl的命令按钮，并有如下程序：
Private Sub Command 1_Click()
Dim a As Integer, b As Integer
a=8
b=12
Print Fun(a, b);a; b
End Sub
Private Function Fun(ByVal a As Integer, b As Integer)As Integer
a=a Mod 5
b=b、5
Fun＝a
End Function
程序运行时，单击命令按钮，则输出结果是
A）3 3 2
B）3 8 2
C）8 8 12
D）3 8 12
正确答案：B