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

看板Visual_Basic作者 (MEIJI)時間17年前 (2008/04/18 21:59), 編輯推噓0(0推 0噓 1→)
留言1則, 1人參與, 最新討論串1/1
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
→
04/18 23:17, , 1F
if y>6 then msgbox "你太貪心了！":exit sub
04/18 23:17, 1F
‣ 更多 ohnobaby 的文章
文章代碼(AID): #182AbAKr (Visual_Basic)