有如下函数:
Function fun(a As Integer,n As Integer) As Integer
Dim m As Integer
While a >=n
a=a-n
m= m+1
Wend
fun=m
End Function
该函数的返回值是
A.a乘以n的乘积 B.a加n的和 C.a减n的差 D.a除以n的商(不含小数部分)
参考答案:
答案解析:
为达到把a、b中的值交换后输出的目的,某人编程如下:Private Sub Command1_Click() a%=10
为达到把a、b中的值交换后输出的目的,某人编程如下:Private Sub Command1_Click() a%=10:b%=20Call swap(a