程式程式碼如下：最大公約數（zdgys）最小公倍數（zxgbs）
a=inputbox("a")
b=inoutbox("b")
if a>b then
tmpa=b
tmpb=a
else
tmpa=a
tmpb=b
end if
"最小公倍數
for i=tmpa to 1 step -1
if int(a/i)=a/i and int(b/i)=b/i then
zdgys=i
exit for
doevents
next
zxgbs=tmpb
do until int(zxgbs/a)=zxgbs/a and int(zxgbs/b)=zxgbs/b
zxgbs=zxgbs+1
loop
Visual Basic（簡稱VB）是Microsoft公司開發的一種通用的基於物件的程式設計語言，為結構化的、模組化的、面向物件的、包含協助開發環境的事件驅動為機制的視覺化程式設計語言。是一種可用於微軟自家產品開發的語言。
“Visual” 指的是開發圖形使用者介面 (GUI) 的方法——不需編寫大量程式碼去描述介面元素的外觀和位置，而只要把預先建立的物件add到螢幕上的一點即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 語言，是一種在計算技術發展歷史上應用得最為廣泛的語言。
Visual Basic源自於BASIC程式語言。VB擁有圖形使用者介面（GUI）和快速應用程式開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連線資料庫，或者輕鬆的建立Active X控制元件，用於高效生成型別安全和麵向物件的應用程式 。程式設計師可以輕鬆的使用VB提供的元件快速建立一個應用程式。
程式程式碼如下：最大公約數（zdgys）最小公倍數（zxgbs）
a=inputbox("a")
b=inoutbox("b")
if a>b then
tmpa=b
tmpb=a
else
tmpa=a
tmpb=b
end if
"最小公倍數
for i=tmpa to 1 step -1
if int(a/i)=a/i and int(b/i)=b/i then
zdgys=i
exit for
end if
doevents
next
zxgbs=tmpb
do until int(zxgbs/a)=zxgbs/a and int(zxgbs/b)=zxgbs/b
zxgbs=zxgbs+1
doevents
loop
拓展資料：VB（Visual Basic）Visual Basic（簡稱VB）是Microsoft公司開發的一種通用的基於物件的程式設計語言，為結構化的、模組化的、面向物件的、包含協助開發環境的事件驅動為機制的視覺化程式設計語言。是一種可用於微軟自家產品開發的語言。
“Visual” 指的是開發圖形使用者介面 (GUI) 的方法——不需編寫大量程式碼去描述介面元素的外觀和位置，而只要把預先建立的物件add到螢幕上的一點即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 語言，是一種在計算技術發展歷史上應用得最為廣泛的語言。
Visual Basic源自於BASIC程式語言。VB擁有圖形使用者介面（GUI）和快速應用程式開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連線資料庫，或者輕鬆的建立Active X控制元件，用於高效生成型別安全和麵向物件的應用程式 。程式設計師可以輕鬆的使用VB提供的元件快速建立一個應用程式。