85～89 某科技开发公司李某于1999年5月至6月间，从某经贸公司财务负责人张某手中购买600份增值税专用发票。李某利用购买的增值税专用发票为某实业公司、某电脑公司等企业虚开增值税专用发票500份，虚开销售金额共计人民币近1.1亿元，税额达1800多万元，李某从中获利200多万元。当李某再次购买增值税专用发票时，被抓获。根据以上内容回答85～89题。第 85 题 李某行为应认定为（）。

A、CallFun(a,b,c)

B、CallFun(3,4,c)

C、Funa,b,c

D、Fun(3,4,c)

有以下函数过程： 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 Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a，B)Print x End Sub

A．0

B．10

C．50

D．100

A．5和4

B．4和5

C．1和4

D．1和5

有如下的一个函数过程：通过以下事件过程阔用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为（）。

A.12

B.6

C.3

D.1

有如下的一个函数过程：通过以下事件过程阔用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为（）。

A. 12

B. 6

C. 3

D. 1

有如下函数过程： FunctiOngyS(By Val X As Integer，ByValy As Integer)As Integer DOWhiley＜＞0 reminder=x Mody X=y y=reminder Loop gys=x End FunctiOn 以下是调用函数的事件过程，该程序的运行结果是，()。 PriVate Sub Command7_Click() Dim

A．0

B．25

C．50

D．100

有如下函数过程： Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮，名为Commandl，编写事件过程调用该函数，输出结果为 ()。 Private Sub Commandl_lick()

A．25

B．35

C．45

D．55

有如下函数过程。 Function Fun(By Val x As Integer,By Val y As Integer) As Integer Do While y ＜＞ 0 reminder = x Mod y xmy y = reminder Loop Fun = x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub CommandT_Click() Dim a As Integer,b As Integer a = 100:b =25 x =Fun(a,B)Print x End Sub

A．0

B．25

C．50

D．100

有如下函数过程。

Function Fun(By Val x As Integer,By Val y As Integer)As Integer

Do While y<>0

reminder=x Mod y

x=y

y=reminder

Loop

Fun=x

End Function

以下调用函数的事件过程,该程序的运行结果是

Private Sub Command7_Click()

Dim a As Integer,b As Integer

a=100:b=25

x=Fun(a,B)

Print x

End Sub

A．0

B．25

C．50

D．100