作者ohnobaby (MEIJI)
看板Visual_Basic
標題[VB6 ] 請問這個次方的程式
時間Fri Apr 18 21:59:37 2008
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
1F：→ MOONRAKER:if y>6 then msgbox "你太貪心了！":exit sub 04/18 23:17