单项选择题

有如下函数过程： Function gys(ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 reminder = x Mod y x=y y=reminder Loop gys=x End Function以下是调用该函数的事件过程，该程序的运行结果是______。 Private Sub Command7_Click() Dim s As Integer Dim b As Integer a=100 b=25 x=gys(a，b) Print x End Sub

A．0
B．25
C．50
D．100

<上一题目录下一题>

热门试题

单项选择题

单击命令按钮时，下列程序代码的执行结果为______。 Private Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer，y As Integer，z As Integer) SecProc=FirProc(z，x，y)+x End Function Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim C As Integer a=2 b = 3 c = 4 Print SecProc(c，b，a) End Sub

A．21
B．19
C．17
D．34

单项选择题

在窗体上添加一个按纽，名为command1，然后编写如下的事件过程：______。 Private Sub Command1_Click() For i=1 To 4 x= 4 For j=1 To 3 x= 3 For k=1 To 2 x=x + 5 Next k Next j Next i Print x End Sub

A．13
B．26
C．30
D．40

相关试题