占い処理(2)





VBScriptソース

<SCRIPT LANGUAGE=vbscript>
<!--
Function fU(a0)
  x = Array("小吉", "凶", "大吉","中吉","吉","小吉","末吉","末吉") 
  s = a0 Mod 8 
  fU = x(s)
End Function

Sub Button1_onclick
  Msgbox "本日の運勢は、 " + fu(Int(100*(Rnd()))) + "  です。",,"本日の運勢"
End Sub
-->
</SCRIPT>
 

注)VBScriptで処理しています。VB対応ブラウウザでご使用下さい。



00/04/25更新

戻る