如何使用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.顯示輸入結果的和位置。