1樓：匿名使用者
我寫了個 你拿去看看 exe+frm 我給你。
用vb語言編寫乙個賽車遊戲,怎麼編呀?謝謝幫忙哦!
2樓：網友
這個 好象得問專業的了 自己拿書看看 簡單的學起吧。
vb建立乙個「猜數程式」。
3樓：網友
dim n as integer, k as integerprivate sub form_click()randomize
n = int(rnd * 90) +10end sub
private sub command1_click()dim x as integer
x =k = k + 1
if x > n then
print x; "大了"
elseif x < n then
print x; "小了"
elseprint x; "恭喜你猜中了！"
msgbox "一共猜了" & k & "次"
end if
end sub
4樓：網友
dim x as integer
private sub command1_click()if x < val(text1) then= "大了"
elseif x > val(text1) then= "小了"
else "恭喜你猜對了"
end if
end sub
private sub command2_click()form_load
end sub
private sub form_load()= ""
x = int(rnd * 91) +10end sub
5樓：網友
dim intr as integer
dim coun as integer
private sub command1_click() 猜數dim cit as integer
cit = val(
coun = coun + 1
if cit > 99 or cit < 10 thenmsgbox "請正確輸入兩位整數"
elseif cit = intr thenmsgbox "您共猜測" & coun & "次，恭喜您猜中了！"
elseif cit < intr thenmsgbox "猜小了"
elseif cit > intr thenmsgbox "猜大了"
end if
end sub
private sub command2_click() 改變數 繼續猜。
form_load
end sub
private sub form_load()randomize timer 『保證每次隨機數不一樣intr = int(rnd * 90) +10 』兩位 10-99隨機數。
coun = 0
msgbox intr 』測試用，檢視隨機數end sub
6樓：網友
dim ii as integer
private sub command1_click()ii = ii + 1
n = int(rnd * 90 + 10)= n
if int(val( >n then
msgbox "大了", ,"提示"
elsemsgbox "小了", ,"提示"
end if
if int(val( = n then
msgbox ii & "次後猜對了", ,"提示"
ii = 0
end if
end sub
vb6.0賽車遊戲
7樓：天外琴音
兩條豎線應該是車的跑道，如果源**是正確的，那你看看是不是timer的interval屬性沒設定？？
vb整人小程式
8樓：濮義歡
沒問題不過騙誰啊shutdown -a 就好了。
9樓：匿名使用者
把 shutdown -s -t 10 的時間改成1秒的話我不相信你有時間輸入命令shutdown -a，除非你事先在桌面上放乙個取消自動關機的批處理檔案。
求乙個簡單的vb小遊戲程式
10樓：影墨者
我有：掃雷\俄羅斯方塊\貪吃蛇\彈球遊戲\三子游戲\打字遊戲 等。
怎麼發給你？？？
11樓：
我有vb遊戲原始碼：掃雷\俄羅斯方塊\貪食蛇。
要的話給我發訊息。
重金求，vb如何判斷兩個移動的控制項是否接觸? 我利用vb做了乙個賽車小遊戲，車是用的picture
12樓：囚籠山人六
寫乙個函式，引數是兩個小車控制項的左上角座標，在函式內，通過這兩個座標，和小車控制項尺寸來計算他們之間距離，如果距離小於尺寸了，就是撞了，返回值true
vb製作賽車遊戲的**怎麼寫呀？網上的什麼drawcar,drawway根本看不懂。。。有木有大神教一下啦
13樓：網友
最簡單的你就畫乙個車，然後地圖往下移動就跑起來了，然後按鍵的時候車左右移動。
VB程式中的問題，VB程式中的一個問題
1 我建議你好好看看書，這是很基礎的 2 a 定義的是一個陣列 3 0 代表的是a 陣列中的第一元素，也可以說是陣列中第一個變數 這樣說不太準確，可以這麼理解吧 4 每一個陣列a x 後面只要是寫等號，就是給這個陣列進行賦值的 例如你提問的 a 0 1 意思就是把1這個數賦值給a 0 因為你前面已經...
vb編寫關於階乘的程式，vb編寫一個關於階乘的程式，
來不及寫，教你怎麼做吧 先把文字框的讀取轉存成整數 對這個整數用if判斷 不滿足條件用msgbox提示 滿足條件的話，呼叫函式，引數就是那個整數，返回值就是結果。剛給你寫的 希望對你有幫助 給個滿意回答吧private sub command1 click dim dat1 as variant d...
用VB編寫自動關機程式，用VB編寫一個自動關機程式
option explicit private declare function getlastinputinfo lib user32 plii as lastinputinfo as boolean private declare function gettickcount lib kernel...