Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Command1_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer, ByVal y As Integer) Do While v<>0 tmp=x Mod y x=y y=tmp Loop t=x End Function 运行程序,在Text1文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是