有如下函数： 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的商(不含小数部分)

相关问题推荐

• 函数Int(Rnd(0)*100)是下列()范围内的整数。

  A．(0,10)

  B．(1,100)

  C．(0,100)

  D．(1,99)

  查看答案

• 执行下面的程序，消息框的输出结果是【 】。

  Option Base1

  Private Sub Command1_Click( )

  Dim a(10)，P(3)As Integer

  k=5

  For i=1 To 10

  a(i)=i

  Next i

  For i=1 To 3

  P(i)=a(i*i)

  Next i

  For i=1 To 3

  k=k+p(i)*2

  Next i

  MsgBox k

  End sub

  查看答案

• 若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是。
  A．把所有单选按钮的Index属性改为相同值B．把所有单选按钮的Index属性改为连续的不同值C．把所有单选按钮的Caption属性值改为相同D．把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值

  查看答案

• 在下列方法的定义中，正确的是 ( )

  A．public double x(){．．；return false；}

  B．public static int x(double y){．．．}

  C．void x(doubled){．．．；return d}

  D．public static x(double a){．．}

  查看答案

• 设有如下程序：

  Prirate Sub Form_Click()

  Dim a As Integer,b AS Integer

  a=20:b=50

  p1 a,b

  p2 a,b

  p3 a,b

  Print"a="；a,"b=";b

  End Sub

  Sub p1(x As Integeh By Val y As Integer)

  x=x+10

  y=y+20

  End Sub

  Sub p2(ByVal x As Integer,y As Integer)

  x=x+10

  y=y+20

  End Sub

  Sub p3 (ByVal x As Integer,ByVal y As Integer)

  x=x+10

  y=y+20

  End Sub

  该程序运行后，单击窗体，则在窗体上显示的内容是：a= ______ 和b= _____。

  查看答案