如何使用vb求两个数的最大公约数和最小公倍数？
程序代码如下：最大公约数（zdgys）最小公倍数（zxgbs）
ainputbox(a)
binoutbox(b)
ifagtbthen
tmpab
tmpba
else
tmpaa
tmpbb
endif
最小公倍数
foritmpato1step-1
ifint(a/i)a/iandint(b/i)b/ithen
zdgysi
exitfor
endif
doevents
next
zxgbstmpb
dountilint(zxgbs/a)zxgbs/aandint(zxgbs/b)zxgbs/b
zxgbszxgbs1
doevents
loop
拓展资料：VB（VisualBasic）VisualBasic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。
“Visual”指的是开发图形用户界面(GUI)的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。“Basic”指的是BASIC(BeginnersAll-PurposeSymbolicInstructionCode)语言，是一种在计算技术发展历史上应用得最为广泛的语言。
VisualBasic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Activ
在vb中编写一个程序,输入一个一位数,输出对应的英文单词？
举例来说：
PrivateSubCommand1_Click()
dimarr(1to9)asstring
arr(1)ah
arr(2)boy
arr(3)cow
arr(4)did
arr(5)egg
arr(6)fox
arr(7)gay
arr(8)hello
arr(9)im
dimxasstring
xinputbox(请输入一个数字,提示)
ifisnumeric(x)truethen
如果len(x)1，则msgboxarr(x)elsemsgboxnumber只能输入大于0小于10的整数，，warningendifelsemsgbox请输入一个数字，，warningendifendsub简称:1。你要有字典，比如1对应什么，2对应什么。2.你应该有一个输入并检查它。3.显示输入结果的和位置。