VB 6.0 作業不會打請求程式碼

問題：

輸入四個任意數並且求其最大和最小值，請求給予程式碼。
另外應該要用什麼樣的屬性視窗，希望越詳細越好。

謝謝~~


回答：

Dim i
Dim Result As String
Dim Num, Max, Min As Variant

' 輸入四個任意數並儲存最大和最小值
i = 1
Do While i <= 4
　Num = InputBox("請輸入第 " & Cstr(i) & " 個數")

　If IsNumeric(Num) Then
　　If i = 1 Then
　　　Max = Num
　　　Min = Num
　　ElseIf Num > Max
　　　Max = Num
　　ElseIf Num <>
　　　Min = Num
　　End If

　　If Result <> "" Then Result = Result & ", "
　　Result = Result & Cstr(Num)
　　i = i + 1
　End If
Loop

' 輸出結果
Result = Result & " 四個數之最大值為 " & Cstr (Max) & ", 最小值為 " & Cstr(Min)
MsgBox Result


P.S.使用一般的視窗就可以，在視窗中加一個命令鍵，並把上面的程式複製到這個命令鍵的 Click 事件程序中。