1樓：匿名使用者
private sub command1_click()dim i as long
dim r as long
dim a(1 to 20) as longlist1.clear
randomize
for i = 1 to 6
dor = int(rnd * 20 + 1)loop until a(r) <= 2
a(r) = a(r) + 1
list1.additem r
next
list1.additem vbnullstringfor i = 1 to 20
if a(i) > 0 then
list1.additem i & "出現了" & a(i) & "次； "
end if
next
end sub
2樓：況知慧
新增乙個timer控制項 乙個label控制項private sub form_load()timer1.enabled = truetimer1.interval = 50
label1.autosize = truelabel1.caption = "歡迎使用vb"
end sub
private sub timer1_timer()label1.left = label1.left + 50if label1.
left > me.width thenlabel1.left = -label1.
widthend if
end sub
求 機械原理課程設計凸輪設計vb程式
果子的 private sub command1 click 引數初始化 dim r0 r1 h e dim a1 a01 a2 a02 r0 val inputbox 請輸入基圓半徑 r1 val inputbox 請輸入滾子半徑 h val inputbox 請輸入升程 e val inputb...
化工原理課程設計，化工原理課程設計
實踐總週數 2周 總學分 2學分。特別是化學工程與工藝的專業，設計設計步驟。1 性質 目的 化工原理課程設計是化工原理教學的一個重要環節，是綜合應用本門課程和有關先修課程所學知識，完成以單元操作為主的一次設計實踐。通過課程設計使學生掌握化工設計的基本程式和方法，並在查閱技術資料 選用公式和資料 用簡...
C語言課程設計，C語言課程設計題目
程式如下 課題 猜數遊戲。功能要求 計算機產生隨機數，猜中即勝，猜不中，提示是大了還是小了，繼續猜，直至猜到，給出所用時間和評語。include include include void main else if n4 count 6 printf 猜對了！只是次數有點多哈哈。用時 2f毫秒 ela...