vb程式語言編寫乙個抽火柴程式

2025-03-25 17:10:10 字數 1750 閱讀 6679

1樓:匿名使用者

也就是說,只要保證每輪兩方之陸燃和是5,那麼4輪後取走20根冊悉禪,最後先取的州塵人必定取最後一根。

vb製作1到50**程式

2樓:聽不清啊

只要在窗體中做二個命令按鈕、乙個標籤和乙個定時器物件,複製以下**,就可以執行了:

private sub command1_click()if = "開始" then

暫停" true

else "開始"

falseend if

end sub

private sub command2_click()endend sub

private sub form_load()= ""

false開始" "結束"

end sub

private sub timer1_timer()= int(rnd * 50) +1

end sub

比賽分組抽籤vb程式編寫

3樓:聽不清啊

只需要寫二個命令按鈕的**嗎?

vb設計隨機**程式

4樓:網友

先上個程式你看看 行的話 說個qq給你傳原碼。

c++\vc\vb 三種程式語言各個的優點和缺點。

5樓:網友

c語言比較簡單?憑這句我就敢說你學c最多隻學了一半。

6樓:網友

來問我好了,這些都學過,哈哈。

大師,救命,我需要乙個vb程式設計寫乙個課堂隨機點名的程式**

7樓:一念春風十里不如你

這個需要資料庫!沒問題。

課堂隨機點名。

8樓:網友

什麼時候要呢。

需要資料庫吧 使用什麼型別的資料庫。

vb編寫乙個**小程式,要求每次**的數字不重複

9樓:落葉l無情

dim n as integer

dim a()

private sub command1_click()

if n = 0 then '第一次點選時執行。

m = val(text1)

redim a(1 to m)

for i = 1 to m '生成陣列a,元素為1至m這m個數。

a(i) = i

nextfor i = 1 to m - 1 '隨機打亂陣列a中元素。

r = int(rnd * m + 1)

tmp = a(i)

a(i) = a(r)

a(r) = tmp

nextend if

n = n + 1 '計數點選次數。

if n > val(text1) then '次數超過指定次數,**結束。

msgbox "**結束!"

exit sub

end if

text2 = a(n) '從陣列中抽出第n個數,由於陣列中是隨機排列,所以相當於生成乙個隨機數,並且不會重複。

end sub

10樓:z葉亮

只要將**中的「text1」修改成「即可。

text2 也要修改一下。

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...

C語言編寫程式計算C語言編寫一個程式計算。。。

親,你的程式迴圈copy永遠不會停止 bai此句for i 1 fabs 1 i i 1 1e 6 i i永遠大於0 所以不會停du止 所以沒輸出入 沒錯zhi誤計算機只能計算有限的數值,這dao種無限逼近型的不能用這種方法算的 fabs 1 i i 1 有錯誤,bai 1 i i 1 1 i i ...