舉例來說：

Private Sub Command1_Click()

dim arr(1 to 9) as string

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)="i"m"

dim x as string

x=inputbox("請輸入一個數字","提示")

if isnumeric(x)=true then

if len(x)=1 then

msgbox arr(x)

else

msgbox"數字只能輸入大於0，小於10的整數",,"警告"

end if

else

msgbox"請輸入一個數字",,"警告"

end if

end sub簡言之：

1、你要有一個字典，好比1對應什麼，2對應什麼。

2、你要有一個輸入，並且對輸入進行檢查。

3、輸入的結果怎麼顯示，顯示在哪。