VB諮詢。。拜託了

2021-06-10 15:09:07 字數 2702 閱讀 3494

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 要是對您這邊的女孩說曖昧的話,萬一到了您這,您說話時立場就一定要堅...