[VB6 ] 請問這個次方的程式

[ohnobaby (MEIJI)]

Module Module1
Sub Main()
Dim X AS Single, Y As Single
Input "x＝",X
Input "y＝",Y
MsgBox(Str(X) + "的" + Str(Y) + "次方為" + Str(Power(X, Y)))
End Sub

Function Power(ByVal X AS Single, ByVal Y As Single) As Double
Return X^Y
End Function

End Module

這個次方的程式 要加什麼可以變成 如果輸入 y>6
就跑不出來答案???

謝謝各位

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.0.192.33
→ MOONRAKER:if y>6 then msgbox "你太貪心了！":exit sub