单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
　Print Fun(23,18)
End Sub
Public Function Fun(m As Integer，n As Integer)As Integer
　Do While m＜＞n
　　　Do While m＞n:m=m-n:Loop
　　　Do While m＜n:n=n-m:Loop
Loop
Fun=m
End Function

A．0

B．1

C．3

D．5

语句X++；、++X;、X=X+1;、X=1+X;，执行后都使变量X中的值增1，请写出一条同一功能的赋值语句(不得与列举的相同) 【6】 。