Private Sub swap(a As Integer, b As Integer) 'a±èbD?ê±￡?a?￠b?￥??
Dim c As Integer
c = a
a = b
b = c
End Sub
Private Function gcd(a As Integer, b As Integer) As Integer '函数类型
Dim x As Integer
If a < b Then
Call swap(a, b)
End If
Dim c As Integer
c = 1 '给个初始值，不然不循环
Do While c > 0
c = a Mod b
If b = 0 Then
x = 0
Exit Do
End If
If c = 0 Then
x = b
Exit Do
Else
a = b
b = c
End If
Loop
gcd = x '函数这里给返回值
End Function
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdjs_Click()
Dim a As Integer, b As Integer, x As Integer
a = Val(txta.Text) '这里，下面那个是不是有个txtb.text
b = Val(txta.Text)
x = gcd(a, b)
txtgy.Text = CStr(x)
End Sub
附加模式需要正版。
盗版gmod13戳这里
我这个帖子提供圣安地列斯多款修改器下载，其中包括中文版GGMM，你去看了：
圣安德列斯修改器合集
（注册下载）
以上我的回答和下面我的截图全部谢绝引用，请喜欢抄袭别人答案的自重！------yurenxuan
本人不是纸上谈兵，这是我的游戏截图
侠盗飞车罪恶都市MOD导入工具安装方法：
先运行;GTA Mod Installer；
然后点Continue；
然后选第三个Install a mod (with script file)to gta3 or vice city；
点next后选第一个zip什么的；
点next，选择下载的mod的zip文件，点next；
选install点next；
然后选vc的游戏目录点next,就会自动安装了；
然后会弹出一个选项匡，问你要不要备份，随便选一个；
安装好后按exit；
说一下，安装了山路补丁后可以安装此mod，不会出问题，如果你看了这个还不会安装，那我就无语了。
开潜水艇 要不 .
先下载CLEO主程序，把下载完后滴.CS文件复制到CLEO文件夹即可使用
Ctrl+S召唤出潜水艇
潜水艇下载地址
更多资讯
