1樓:閒人—原野孤鴻
option explicit
private a as integer
'畫一個按鈕控制元件,一個文字框控制元件(值為6)
private function aa() as double
dim b(3) as integer
dim i as long, j as long, k as long
k = 10000000'計算次數,算的越多,獲勝率越固定,親測0.271
for i = 0 to k
b(0) = cint(rnd * 10)
b(1) = cint(rnd * 10)
b(2) = cint(rnd * 10)
if (b(0) = a or b(1) = a or b(2) = a) then j = j + 1'三個陣列中有6,則加1
next i
aa = j / k'得到獲勝概率
end function
private sub command1_click()
me.caption = aa'單擊按鈕控制元件,呼叫計算函式,並在窗體標題中顯示獲勝概率
end sub
private sub form_load()
a = cint(text1.text)
end sub
2樓:
dim counttime as integerdim zhong as integer
''有一道vb程式設計題:
''利用全域性變數和函式,設計模擬幸運數字機遊戲,設幸運數字為6,''每次由計算機產生3個0-10的隨機數(包含0和10),當這三個數中有一個數字為6時,
''就算贏了一次,要求利用函式過程計算獲勝率。。。
private sub command1_click()clsdim myvalue(3) as integerdim i as byte
randomize
for i = 0 to 2
myvalue(i) = int((10 * rnd)) ' 生成 0 到 10 之間的隨機數值。
next i
for i = 0 to 2
print myvalue(i)
if myvalue(i) = 6 thenzhong = zhong + 1
end if
next i
counttime = counttime + 1print "**次數:" & str(counttime)print "中獎次數:" & str(zhong)print "中獎率:
" & str(zhong / counttime * 100) & "%"
end sub
求vb程式設計**!拜託了!
3樓:戰神聯盟
事件是用什麼?
private sub command5_click()dim b(10) as integer, irandomize
for i = 1 to 10
b(i) = int(rnd * (99 - 10 + 1) + 10)
next i
call bnim(b())
end sub
private sub bnim(byref a() as integer)
dim i, j as integer
j = a(1)
for i = 1 to 10
if j > a(i) then
j = a(i)
end if
next i
print j
end sub
我用的控制元件是command,事件是click你自己看一下吧
4樓:ж雪人
private b(10) as integer '陣列b'生成隨機數
private sub command1_click()for i = 0 to 9
b(i) = int(rnd * (99 - 10 + 1)) + 10
next i
end sub
'輸出陣列b中所有值
private sub command2_click()if b(0) = 0 then
msgbox ("請先生成隨機數")
exit sub
end if
list1.clear
for i = 0 to 9
list1.additem (b(i))
next i
end sub
'顯示最小值
private sub command3_click()text1.text = getminvalue(b)end sub
'獲取最小值子函式
private function getminvalue(x() as integer) as integer
dim y as integer
y = x(0)
if b(0) = 0 then
msgbox ("請先生成隨機數")
exit function
end if
for i = 0 to ubound(x) - 1y = iif(y < x(i), y, x(i))next i
getminvalue = y
end function
拜託了,拜託了
小剛1又2 5 1 20 1.4 0.05 1.45米 小強1.45 1 50 1.47米 小明身高是一米四 那就是說1.4米 小剛比小明高0.05米 也就是1.4加0.05 1.45米 小強比小剛高0.02米 也就是1.45 0.02 1.47米 小剛身高1.45米,小強身高1.47米 小剛得身高...
求解夢,拜託了拜託了,求解夢,幫我解夢,拜託了!
這個 可能代表有點,希望不是這樣吧 一般情況下 這意味著 病情的 發生 恩 但是 不要讓你母親太累了,儘量遠離病啊 就算感冒了也得認真對待 求解夢,幫我解夢,拜託了!這裡,船象徵別人給你和你的同學朋友提供的交往活動平臺 社會組織 規章制度等等你過去曾經心安理得遵守的社會規則和經歷。你們很多人在船上玩...
怎么辦?拜託了,怎麼辦?拜託了!
這兒有幾點建議,您可以參考下 1 不要頂撞上司 2 不要在背後議論上司 董事長 前總經理 就算多麼懷念也要忍著,這是在為自己保著資本 的私事 以及他們之間的事 3 沉默是金,要說話就不卑不亢 4 做事奉行您的原則,萬不可超越底線 5 要是對您這邊的女孩說曖昧的話,萬一到了您這,您說話時立場就一定要堅...