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
公司圖示設計，拜託了公司圖示設計，拜託了
logo是希臘語 logos 的變化，logogram的簡寫，現在一般有兩種含義。1 在計算機中是一種教學語言 2 公司或企業的商標或標誌 這二者之中，又以後者所代表的含義最為常見。商業標誌logo logo就是標誌 標誌 徽標 商標 logo 是現代經濟的產物，它不同與古代的印記，現代標誌承載著企...
求翻譯,拜託了
1全部這三個繩袋主要有圓彈簧之間的外部面料和粘合襯。我們記得,你不是絕對的信心,這些文章,但我們想看看你能不能找到另一種製造它們。我們看到許多摺疊袋,在超市並把它應用於你的花園或在家裡為儲存玩具 衣服等。看看他們,讓我們知道。你會看到,我們已經包括乙個 基本繩袋 在現有的描述。我們真的應該是指乙個你...
幫忙取名字,拜託了，幫忙取乙個名字,拜託了
徐采薇采薇采薇，薇亦作止。曰歸曰歸，歲亦莫止。靡室靡家，獫狁之故。不遑啟居，獫狁之故。采薇采薇，薇亦柔止。曰歸曰歸，心亦憂止。憂心烈烈，載飢載渴。我戍未定，靡使歸聘。采薇采薇，薇亦剛止。曰歸曰歸，歲亦陽止。王事靡盬，不遑啟處。憂心孔疚，我行不來。彼爾維何，維常之華。彼路斯何，君子之車。戎車既駕，四牡...