作者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