单项选择题

设有以下函数过程： 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 Loop Until c Mod b=0 fun=c End Function 若调用函数fun时的实际参数都是自然数，则函数返回的是（）

A、 a、b的最大公约数
B、 a、b的最小公倍数
C、 a除以b的余数
D、 a除以b的商的整数部分

<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dima(3,3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then a(m,n)=m+n Else a(m,n)=0 End If Print a(m,n)； Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为（）

A.2 0 0   0 4 0   0 0 6
B.2 0 4   0 4 0   4 0 6
C.2 3 0   3 4 0   0 0 6
D.2 0 0   0 4 5   0 5 6
单项选择题
窗体上有名称为Commandl的命令按钮和名称为Text1的文本框 Private Sub Command1_Cliek() Text1.Text= 程序设计 Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text= 等级考试 End Sub 运行以上程序，单击命令按钮后（）

A、 文本框中显示的是“程序设计”，且焦点在文本框中
B、 文本框中显示的是“等级考试”，且焦点在文本框中
C、 文本框中显示的是“程序设计”，且焦点在命令按钮上
D、 文本框中显示的是“等级考试”，且焦点在命令按钮上
相关试题