1樓：匿名使用者
private sub form_click()
dim n, j, k as integer, i as long 『宣告四個變數
randomize』更新隨機種子
label1.visible = false『隱藏labei1
for i = 0 to 20 '迴圈21次
n = int(rnd * 26) + 65 』26個大寫字母隨機選擇
label2(i).caption = chr$(n) 『將隨機數付給相應的label控制元件
label2(i).visible = true 』顯示label2
label2(i).top = 0 '將label2弄到最頂
next i『迴圈結束
k = 1』 給k賦值
do while k > 0 『當k>0實行
n = int(rnd * 21)』隨機數0-21
label2(n).top = label2(n).top + 100『label2向下移動100個單位
j = 0』 給j賦值
for i = 0 to 20 『迴圈21次
if label2(i).top >= 5200 then 』如果離頂端距離超過5200
label2(i).visible = false 『label2相應的控制元件隱藏
j = j + 1 " j+1
end if ' 結束if
next i 』迴圈結束
if j = 21 then k = 0 『如果j=21 ，k就=0
x = doevents 』返回一個值給x
for i = 1 to 500000 『迴圈50000次
next i '迴圈結束
loop 』迴圈結束
label1.visible = true 顯示label1
end sub
2樓：
這有什麼好解答的啊。
就是隨機生成21個字母，
然後讓這21個字母隨機的下落100的高度，落到底然後就消失啊。
3樓：巴哥泡泡
private sub form_click() ''事件過程名，窗體的單擊事件
dim n, j, k as integer, i as long 定義變數
randomize 初始化隨機數種子
label1.visible = false 設定標籤不可見
for i = 0 to 20 初始化控制元件陣列的內容
n = int(rnd * 26) + 65 取隨機數在26與91之間（a-z）
label2(i).caption = chr$(n) 為控制元件陣列賦值，就是上面的ascii所代表的字元
label2(i).visible = true 設定可見
label2(i).top = 0 從頂端開始移動
next i
k = 1
do while k > 0
n = int(rnd * 21) 取隨機數0= 5200 then 這個if是表示，任何一個控制元件的top大於等於5200，那麼就停止迴圈，實際上是為了不讓標籤移出窗體之外
label2(i).visible = false
j = j + 1
end if
next i
if j = 21 then k = 0 這就是改變do的條件好退出迴圈
x = doevents 暫停
for i = 1 to 500000 這沒什麼實際意義，只是滯緩程式的執行，讓程式執行過程清晰可見而已！
next i
loop
label1.visible = true
end sub
急求~~一道vb程式的閱讀，哪位高手能幫我讀一下
4樓：
dim i, j, k as integer
rem 單擊「水平移動」按鈕事件
private sub command1_click()
i = 0 '變數i賦初值0
rem 使影象框imagek大小與位置和**框一樣
imagek.width = picture1.width '設定影象框imagek的寬度與**框的寬度一樣
imagek.height = picture1.height '設定影象框imagek的高度與**框的高度一樣
imagek.left = 0 '設定影象框imagek的距**框左間距為0
imagek.top = 0 '設定影象框imagek的距**框頂間距為0
timer1.enabled = true '使時鐘timer1有效
timer2.enabled = false '使時鐘timer2無效
end sub
rem 單擊「逐漸變大」按鈕事件
private sub command2_click()
j = 0 '變數j賦初值0
imagek.width = picture1.width / 10 '設定影象框imagek的寬度為**框picture1的寬度的1/10
imagek.height = picture1.height / 10 '設定影象框imagek的高度為**框picture1的高度的1/10
imagek.left = picture1.width / 2 - imagek.width / 2 '設定影象框imagek與**框picture1左右對中
imagek.top = picture1.height / 2 - imagek.height / 2 '設定影象框imagek與**框picture1上下對中
timer2.enabled = true '使時鐘timer2有效
timer1.enabled = false '使時鐘timer1無效
end sub
private sub timer1_timer()
if i > 5 then
i = 0
end if
if imagek.left > 0 then '如果影象框imagek 沒移到最左邊
imagek.left = imagek.left - 100 '使影象框imagek 一直往左移，每次移100
else
imagek.picture = imgcat(i).picture '設定影象框imagek的**為影象框imgcat(i)的**
if i > 0 then
imagebac.picture = imgcat(i - 1).picture '設定影象框imagebac的**為影象框imgcat(i - 1)的**
end if
i = i + 1 '
imagek.left = picture1.width '設定影象框imagek的左邊座標為**框picture1的寬度
end if
end sub
private sub timer2_timer()
if j > 5 then
j = 0
end if
if imagek.width < picture1.width then '如果影象框imagek的寬度小於**框picture1的寬度，則
imagek.width = imagek.width + 50 '設定影象框imagek的寬度增加50
imagek.height = imagek.height + 70 '設定影象框imagek的高度增加70
imagek.left = picture1.width / 2 - imagek.width / 2 '設定影象框與**框左右對中
imagek.top = picture1.height / 2 - imagek.height / 2 '設定影象框與**框上下對中
else
imagek.picture = imgcat(j).picture '設定影象框imagek的**為影象框imgcat(j)的**
if j > 0 then
imagebac.picture = imgcat(j - 1).picture '設定影象框imagebac的**為影象框imgcat(j - 1)的**
end if
j = j + 1
imagek.width = picture1.width / 100 '設定影象框imagek的寬度為**框picture1的寬度的1/100
imagek.height = picture1.height / 60 '設定影象框imagek的高度為**框picture1的高度的1/60
imagek.left = picture1.width / 2 - imagek.width / 2 '設定影象框imagek與**框picture1左右對中
imagek.top = picture1.height / 2 - imagek.height / 2 '設定影象框imagek與**框picture1上下對中
end if
end sub
private sub command3_click()
end '結束程式
end sub
5樓：匿名使用者
dim i, j, k as integer
'定義區域性變數i,j,k，i,j為變體型，k為整型
rem 單擊「水平移動」按鈕事件
』註釋事件
private sub command1_click() '按鈕1的點選事件過程
i = 0 '變數i賦初值0
rem 使影象框imagek大小與位置和**框一樣
imagek.width = picture1.width '設定影象框imagek的寬度與**框的寬度一樣
imagek.height = picture1.height '設定影象框imagek的高度與**框的高度一樣
imagek.left = 0 '設定影象框imagek的距**框左間距為0
imagek.top = 0 '設定影象框imagek的距**框頂間距為0
timer1.enabled = true '使時鐘timer1有效
timer2.enabled = false '使時鐘timer2無效
end sub '結束過程
rem 單擊「逐漸變大」按鈕事件
private sub command2_click() '按鈕2的點選事件過程
j = 0 '變數j賦初值0
imagek.width = picture1.width / 10 '設定影象框imagek的寬度是**框的寬度的1/10
imagek.height = picture1.height / 10 '設定影象框imagek的高度是**框的高度的1/10
imagek.left = picture1.width / 2 - imagek.
width / 2 '設定影象框imagek的左間距為**框寬度的1/2減去影象框寬度的1/2
imagek.top = picture1.height / 2 - imagek.
height / 2 '設定影象框imagek的距頂部的距離為**框高度的1/2減去影象框高度的1/2
timer2.enabled = true '計時器控制元件timer2的活動屬性enabled為true
timer1.enabled = false '計時器控制元件timer1的活動屬性enabled為false
end sub ' 結束過程
private sub timer1_timer() '計時器timer事件
if i > 5 then
i = 0
end if
'當i大於5時，i=0
if imagek.left > 0 then
imagek.left = imagek.left - 100
else
'當影象框的左間距大於0時，影象框的左間距=原影象框的左間距-100
imagek.picture = imgcat(i).picture
if i > 0 then
imagebac.picture = imgcat(i - 1).picture
end if
i = i + 1 '
imagek.left = picture1.width
end if
end sub
private sub timer2_timer()
if j > 5 then
j = 0
end if
if imagek.width < picture1.width then
imagek.width = imagek.width + 50
imagek.height = imagek.height + 70
imagek.left = picture1.width / 2 - imagek.width / 2
imagek.top = picture1.height / 2 - imagek.height / 2
else
imagek.picture = imgcat(j).picture
if j > 0 then
imagebac.picture = imgcat(j - 1).picture
end if
j = j + 1
imagek.width = picture1.width / 100
imagek.height = picture1.height / 60
imagek.left = picture1.width / 2 - imagek.width / 2
imagek.top = picture1.height / 2 - imagek.height / 2
end if
end sub
private sub command3_click()
endend sub
rem和'後面的是註釋，上半部分解釋過了，下面的以此類推，很簡單的，就是一個計時器事件，單擊事件設定**框和影象框的大小和位置的。
問一道vb題，問一道VB的題，謝謝哪位大神
你要知道if c mod 2 0 then 語句才執行，其他的是每次迴圈都執行 開始s 1 1 2 i 3c 1,c mod 2 0 不成立，後面不執行a 1 b 1 i 4c 2,c mod 2 0成立 s 2 c 2 2 4a 1 b 2 i 5c 3 c mod 2 0 不成立，後面s s c...
一道閱讀題急
爾璐冷英彥 1.事情發展先後順序 2.因為蝸牛讓它的同胞們沿著比賽路線，每隔一百步就藏一隻蝸牛。3.1 4段 蝸牛要和馬兒賽跑。5段 蝸牛召集了夥伴們想對策。6 12段 馬兒和蝸牛跑時，沒運用智力，光憑體力，累暈了蝸牛讓朋友們隔100步站一個，贏了馬兒。 天使不知道嗎 gsdbzgcv dg csd...
一道應用題，求高手解答！急
marry沫，你好 這是倒推問題。第三次前 甲有 24 2 12 只 乙有 24 2 12 只 丙有 24 12 12 48 只 第二次前 甲有 12 2 6 只 丙有 48 2 24 只 乙有 12 6 24 42 只 第一次前 乙有 42 2 21 只 丙有 24 2 12 只 甲有 6 12 ...