单项选择题

设有以下函数过程：
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的商的整数部分
<上一题 目录 下一题>
热门 试题

单项选择题
有如下过程代码： Sub var_dim() static numa As Integer Dim numb As Integer numa=nuna+2 numb=numb+1 print numa;mub End Sub 连续3次调用var_dim过程，第3次调用时的输出是( )
A．2 1
B．2 3
C．6 1
D．6 3
单项选择题
设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是( )
A．程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加
B．程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少
C．由于滚动条的Max属性值小于Min属性值，程序会出错
D．由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动
相关试题