有以下函数过程： 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

有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y ＜ ＞ 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是 Private Sub Command1 _ Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，B)Print x End Sub

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

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

下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End Sub

下面程序执行的结果是( )。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C100 End Sub

下面过程运行之后，则变量J的值为( )。 Private Sub Fun() Dim J As Integer J=5 Do J=J+2

运行下面程序代码后，变量J的值为______。Private Sub Full () Dim j as Integer J=10 DO J=J+3 Loop While J<19 End Sub

运行下面程序代码后，变量J的值为______。 Private Sub Fun() Dim J as Integer J=10 Do J=J+3 Loop While J＜19 End Sub

下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub

下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub

下面程序段运行后，显示结果是（）。Dim xIf x Then Print x Else Print x+1