第一題

Private Sub Command1_Click()

Dim S_name(1 To 10)
For i = 1 To 10
n = InputBox("請輸入姓名!")
S_name(i) = "第" & i & "位同學的姓名是" & n
Print S_name(i)
Next i

End Sub

第二題

Function big(a, b)
If a > b Then
big = a
Else
big = b
End If

End Function

Private Sub Command2_Click()
m = Val(InputBox("請輸入a之值!"))
n = Val(InputBox("請輸入b之值!"))
y = big(m, n)
Print y

End Sub

第三題

Private Sub Command3_Click()
x = InputBox("請輸入")
L = Len(x)
Dim n As String

For i = L To 1 Step -1
n = n + Mid(x, i, 1)
Next i
Print n

End Sub