1樓：
再次更正
1.dim i as integer
宣告區域性非靜態整型變數i
2.list2.additem list1.list(i)在list2中新增一項，這一項是list1中的第i項3.end if 結束if語句塊
4.next i 將程式控制權轉移至for所在的語句行，以判斷i的值是否超過終值，如果超過則退出for迴圈、如果沒超過則再次執行for迴圈的迴圈體。
2樓：匿名使用者
1.dim i as integer '宣告i為整型2.list2.additem list1.list(i) list2新增list1中的第i項
3.end if 結束if語句
4.next i 退出for迴圈
3樓：匿名使用者
..這麼簡單還來問。建議還是買本來學吧 別腦殘了
4樓：匿名使用者
更正下1.dim i as integer '宣告i為整型2.list2.additem list1.list(i) list2新增list1中的第i項
3.end if 結束if語句
4.next i 下乙個i值，即始迴圈進行
5樓：
dim i as integer 定義整形變數ilist2.additem list1.list(i) 列表框list1中的第i項新增到列表框list2中
end if 結束if語句
next i 轉入下個i繼續執行迴圈，當i超出指定範圍後，退出for迴圈
5.一道簡單的vb題（求輸出結果）能不能解釋下語句呢
6樓：網海1書生
這段程式是用來求三個數的最大公約數的。
在程式中x，y，z被賦值後就沒有被改變過，所以在輸出的時候仍然是 48，32，24
不過這道題目的**有個錯誤：
if m < z then m = z
要改為if m > z then m = z
很簡單的乙個vb if 語句的用法！！！！
7樓：匿名使用者
if n=1 then
msgbox"1"
elseif n=2 then
msgbox "2"
else
msgbox "其它"
end if
或者你的意思是：
if n=1 or n=2 then
msgbox""
end if
是不是這樣，只要n不為空，就出現msgboxif n <> "" then
msgbox""
end if
你要說一下，需要判斷的條件是什麼。n要滿足什麼條件。
8樓：匿名使用者
select case n
case 1，2，3，4，6，7，78，6，4，9，44，5，0，5msgobx ""
end select
不如說一下你到底想實現什麼目的，可能有更好的辦法。
簡單的VB題目，乙個簡單的VB題目
首先 function t i as integer as long if i 0 then t 1 else t i t i 1 end if end function 這是乙個功能函式 原型function t i as integer as long 輸入引數 i 為整形 i as integ...
VB中,簡單的問題 高手幫幫，VB中,一個簡單的問題 高手幫幫
你要的其實就是模擬按鍵 使用keybd event api就能完成。函式vb申明 public declare sub keybd event lib user32 byval bvk as byte,byval bscan as byte,byval dwflags as long,byval d...
vb多年的問題，vb乙個多年的問題。。
private sub form keydown keycode as integer,shift as integer if keycode vbkeya then timer1.enabled true end sub private sub form keyup keycode as inte...