做一个VB的小游戏，难度不用太高，程序十句左右就够了，只要简单的和case语句 就足够了，希望在线的帮下忙
\u6c42\u4e00\u4e2a\u7b80\u5355\u7684VB\u5c0f\u6e38\u620f\u7a0b\u5e8f\u6211\u6709vb\u6e38\u620f\u6e90\u7801:\u626b\u96f7\\u4fc4\u7f57\u65af\u65b9\u5757\\u8d2a\u98df\u86c7
\u8981\u7684\u8bdd\u7ed9\u6211\u53d1\u6d88\u606f
\u6211\u7684\u7a7a\u95f4\u91cc\u6709
\u731c\u6570\u5b57
\u56db\u5b50\u68cb
\u5f00\u7bb1\u5b50\u7b49\u6e38\u620f \u4f60\u53ef\u4ee5\u53bb\u770b\u770b \u90fd\u662f\u6e90\u4ee3\u7801
http://hi.baidu.com/comeonbady/blog
Private Sub Command1_Click()
Iguess = Int(Rnd * 3) + 1
Do
YouGuess = Val(InputBox("我已想好了，你出什么？（1=锤子， 2=剪刀，3=布：", "猜拳"))
Loop Until YouGuess <= 3 And YouGuess >= 1
If Iguess = YouGuess Then
k = 1
ElseIf Iguess < YouGuess Xor Abs(Iguess - YouGuess) = 2 Then
k = 2
Else
k = 0
End If
MsgBox "我出：" + Mid("锤子剪刀布 ", Iguess * 2 - 1, 2) + "，你出：" + _
Mid("锤子剪刀布 ", YouGuess * 2 - 1, 2) + vbCrLf + Mid("你赢了平 局我赢了", k * 3 + 1, 3)
End Sub
Private Sub Form_Load()
Command1.Caption = "开始猜拳"
Randomize Timer
End Sub
把我的双色球选号器发给你好不？
绛旓細Private Sub command6_click()Text6.Text = Text1.Text + 1000 Text5.Text = Text5.Text - 500
绛旓細1銆侀鍏堝弻鍑绘闈㈠浘鏍囧惎鍔 visual basic 6.0銆2銆佺劧鍚庢柊寤哄伐绋嬶紝閫夋嫨鏍囧噯EXE銆3銆侀夋嫨瀹屽伐绋嬪悗锛岀偣鍑绘墦寮锛屽氨鍙互鏂板缓涓涓猠xe宸ョ▼浜嗐4銆佺劧鍚庡弻鍑 FORM1 绐椾綋锛屽湪寮瑰嚭鐨勪唬鐮佺獥浣撲腑澶嶅埗璇ヤ唬鐮佸埌 Form_Click() 浜嬩欢涓5銆佷唬鐮侊細If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^...
绛旓細Private Sub Command1_Click()Iguess = Int(Rnd * 3) + 1 Do YouGuess = Val(InputBox("鎴戝凡鎯冲ソ浜嗭紝浣犲嚭浠涔堬紵锛1=閿ゅ瓙锛 2=鍓垁锛3=甯冿細", "鐚滄嫵"))Loop Until YouGuess <= 3 And YouGuess >= 1 If Iguess = YouGuess Then k = 1 ElseIf Iguess < YouGuess Xor Abs(Igu...
绛旓細MsgBox " BS璐铔:涓涓鍒欐渶绠鍗曠殑瓒ｅ懗娓告垙,鎮ㄥ皢鐢ㄩ敭鐩" & Chr(13) & _"涓婄殑4涓柟鍚戦敭鏉ユ帶鍒惰泧鐨勮繍鍔ㄦ柟鍚戙傚湪杩愬姩杩囩▼涓泧" & Chr(13) & _"涓嶈兘鍚庨,铔囩殑澶撮儴涔熶笉鑳芥帴瑙﹀埌杩愬姩鍖哄煙鐨勮竟绾夸互澶" & Chr(13) & _"鍜岃泧鑷繁鐨勮韩浣,鍚﹀垯灏辨父鎴忓け璐ャ傚湪鍚冩帀闅忔満鍑虹幇鐨" & Chr(13) & _"鏋滃瓙鍚,铔...
绛旓細MsgBox ("涓嶈鏀惧純鍐嶈瘯涓娆!") Case 40 To 80 MsgBox ("澶浜,缁х画鍔姏!") Case 80 To 120 MsgBox ("鍧氭寔涓嬪幓,浣犲皢鎴愪负涓涓墦瀛楅珮鎵!") Case Is > 120 MsgBox ("绁濊春浣!浣犲凡缁忔槸涓涓墦瀛楅珮鎵!") End Select Timer1 = False Timer2 = False HScroll1.Enabled = True Command1.Enabled = True ...
绛旓細鏁板瓧鎺掑簭灏忔父鎴 Option Explicit Dim Label2X As Integer '璁板綍鏍囩鎺т欢鏁扮粍涓绉诲姩鐨勬爣绛炬帶浠跺乏涓婅X鐨勪綅缃 Dim Label2Y As Integer '璁板綍鏍囩鎺т欢鏁扮粍涓绉诲姩鐨勬爣绛炬帶浠跺乏涓婅Y鐨勪綅缃 '璁╂爣绛炬暟缁勪腑鐨勬瘡涓爣绛炬帶浠朵笂鏄剧ず鐨勬暟瀛楁槸闅忔満鐨勶紝鏃犻噸澶嶇殑 Private Sub Init()Randomize Dim a(7) As ...
绛旓細杩欎釜浠ｇ爜涓嶈浠讳綍鎺т欢锛屼綘鍙渶瑕佹妸浠ヤ笅浠ｇ爜澶嶅埗鍒颁綘鐨勭獥浣撲唬鐮佷腑灏辫浜,浠ｇ爜寰堢畝鍗曪紝鐩镐俊浣犺兘鐪嬫噦锛佷粎浠呯敤浜嗕竴涓粨鏋勶紙ShenTi锛変竴涓暟缁勶紙ZhuangTai(23, 23) As Long锛 涓涓彉閲忥紙GFangXiang锛変唬鐮佷腑鑷姩鐢熸垚浜員imer1锛孡abel1鎺т欢銆備互鍙婂嚑涓嚱鏁帮紙Randomize锛孋ircle锛孡ine锛孍rase...锛 鐩镐俊杩欎簺瀵逛簬...
绛旓細绐椾綋鏀句袱涓狶abel鎺т欢锛屼竴涓Timer鎺т欢锛欴im n As Integer Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCode Case vbKeyUp If Label1.Top > 0 Then Label1.Top = Label1.Top - 50 Case vbKeyDown If Label1.Top < ScaleHeight - Label1.Height Then Label...
绛旓細MsgBox " BS璐铔:涓涓鍒欐渶绠鍗曠殑瓒ｅ懗娓告垙,鎮ㄥ皢鐢ㄩ敭鐩" & Chr(13) & _ "涓婄殑4涓柟鍚戦敭鏉ユ帶鍒惰泧鐨勮繍鍔ㄦ柟鍚戙傚湪杩愬姩杩囩▼涓泧" & Chr(13) & _ "涓嶈兘鍚庨,铔囩殑澶撮儴涔熶笉鑳芥帴瑙﹀埌杩愬姩鍖哄煙鐨勮竟绾夸互澶" & Chr(13) & _ "鍜岃泧鑷繁鐨勮韩浣,鍚﹀垯灏辨父鎴忓け璐ャ傚湪鍚冩帀闅忔満鍑虹幇鐨" & Chr(13) & _ "鏋滃瓙...
绛旓細杩欎簺閮戒笉闅撅紝杩愮敤鍒颁竴浜涚壒娈娓告垙绠楁硶锛岃椽鍚冭泧锛氬垱寤簆ictureBox鎺т欢鏁扮粍, 鐒跺悗鍔犺韩瀛愬氨load picture1(picture1.UBound+1)鍦ㄥ０鏄庝竴涓姩鎬佹暟2d鏁扮粍锛屾瘡涓韩瀛愰兘鏈変竴涓X锛孻鍊兼瘡绉诲姩涓娆¤椽鍚冭泧锛屽ご閮ㄥ厛璧颁竴姝ュ悗闈㈢殑韬瓙灏卞悜鍓嶄竴涓韩瀛愮殑浣嶇疆X,Y绉诲姩 flppy bird锛氳繍鐢ㄥ埌鍔犻熷害锛岄噸鍔涚墿鐞嗗锛屼互鍙婃煴瀛愮殑纰版挒妫娴...
