No.327 メモ記事

パソコン

ページ上の"Button1"をクリックした際、メッセージボックスをランダムに表示させるスクリプト(VisualBasic)

Sub Button1_OnClick

Randomize
sngnumber = Int(4 * Rnd)

Select Case sngnumber
Case 0
MsgBox "パターン 1", 64
Case 1
MsgBox "パターン 2", 32
Case 2
MsgBox "パターン 3", 16
Case 3
MsgBox "パターン 4"

End Select
End Sub

表示させる文章の後に数値を追加する事で、警告や注意といったエラーの種類を指定出来ます。何も入力しないと、無音で文章が出るだけです。
はてなダイアリーの方だとJavaとかVB使えないんだよねぇ、これが。