单项选择题

设有如下函数过程：
Function fun(a As Integer, b As Integer)
Dim c As Integer
If a＜b Then
c=a:a=b:b=c
End If
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End Function
若调用函数fun时的实际参数都是自然数，则函数返回的是

A．a、b的最大公约数
B．a、b的最小公倍数
C．a除以b的余数
D．a除以b的商的整数部分
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有一个名称为Text1的文本框；一个名称为Timer1的计时器控件，其Interval属性为5000，Enabled属性值是True。Timer1的事件过程如下： Private Sub Timer1_Timer() Static flag As Integer If flag=0 Then flag=1 flag=-flag If flag=-1 Then Text1.ForeColor=&HFF& ’&HFF&为红色 Else Text1.ForeColor=&HC000& ’&HC000&为绿色 End If End Sub 下面的叙述中正确的是
A．每次执行此事件过程时，flag的初始值为0
B．flag的值只可能取0或1
C．程序执行后，文本框的文字每5秒改变一次颜色
D．程序有逻辑错误，Else分支总也不能被执行
单项选择题
为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程： Private Sub Command1_Click() Dim a%, s%, k% s=1:a=2 For k=2 To 10 a=a*2:s=s+a Next k Text1.Text=s End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是
A．把s=1改为s=0
B．把For k=2 To 10改为For k=1 To 10
C．交换语句s=s+a和a=a*2的顺序
D．同时进行Ｂ)、Ｃ)两种修改
相关试题