The funeral of Azeroth

Herose

 

vb 11.10 "ROLL "元素

Private Sub Command1_Click()
Dim a, b As Double
a = Rnd
b = Rnd
If a > b Then
MsgBox "小弟帅的掉渣"
ElseIf a < b Then
MsgBox "小张帅的一塌糊涂"
Else
MsgBox "他们都不帅"
End If

End Sub

posted on 2010-11-10 15:53 Herose 阅读(85) 评论(0)  编辑  收藏


只有注册用户登录后才能发表评论。
网站导航:
 

导航

统计

常用链接

留言簿(3)

随笔档案

文章档案

相册

http://www.enet.com.cn/eschool/video/vb/

搜索

最新评论

阅读排行榜

评论排行榜