1樓：悠然見影
sub func(l as label, byval a as integer) '此處i為label控制元件，a為一個byval 傳值變數（傳過來不傳回去的那種變數）
= 1234" '給label控制元件的內容賦值為"1234" 即。
a = a * a '此處計算確實得到變數a的平方，但是並沒有把值傳回去。
end sub
call func(label1, a) '此句呼叫func函式，通過上面的分析我們可以知道，呼叫函式後，label的caption值變為了"1234"，同時因為函式值沒有傳回，所以a的值依然是val(的值（此處為10）
希望對你有幫助。
2樓：
肯定是10啦。
要想是100
就把a定義為全域性變數。
private a as single '這樣就對了。
private sub command1_click()
這是vb的一個問題？
3樓：巫馬英武
就像你在ktv選姑娘，一個一個進來，從1~5你看了5個，每看一個，媽媽桑就喊一聲「next」，也就是迴圈了5次，但第6個姑娘還是得進來，為什麼進來呢，因為5執行以後，下面還有一個next，就是媽媽桑最後又喊了一聲「下一個」，懂了不？
4樓：岔路程式緣
這是執行順序的原因造成的，為敘述方便，先把語句編號：
for n=1 to 5①
next②print n③
執行順序是：
1、第一次執行①：首先建立迴圈：迴圈變數n，初值1，終值5，步長是預設的1。然後n賦值1，比較n=1≤5成立，執行下一句；
2、執行②：n加1變成2，返回①；
4、再執行②：n加1變成3，返回①；
6、執行②：n加1變成4，返回①；
7、第四次執行①：n=4≤5成立；
8、執行②：n+1變成5，返回①；
9、第五次執行①：n=5≤5成立；
10、執行②：n+1變成6，返回①；
11、第六次執行①：n=6≤5不成立，跳出迴圈，程式去執行next後面的那一句。
12、執行③，列印n的值，這時n的值是6，故列印出6。
程式執行時輸出6是正確的。
vb問題 求解
5樓：柳晴桖
解決問題這些，然後qq的話放在開頭看的這麼調壓的方法都是不一樣的，每個人想的都是。
6樓：幸運的蒼老師
被問題求解，肯定要解釋好才行啊，是不是？
7樓：三冥界火麒麟三
未必問題是達到一定的標準才能非常靠譜。
8樓：匿名使用者
一問題求解你可以把他倆互算。
9樓：文化丶兔子
那種變成尾巴，你都可以自己去找到問題。
10樓：單調
問題題目有問題的話，你可知道他可能會更瞭解。
11樓：網友
這個問題應該是要專業的人去解，一般人是解不出的。
12樓：百小度
這個的話可以去進春上班，可以幫你解答的。
13樓：奚連
我覺得你可以去詢問一下你的老師，或者詢問一下你父母吧。
關於vb的小問題
14樓：
setmynum是一個變數。val表示把括號後面的數轉化為10進位制的數值形式。
h是16進位制數字的開頭。寫在" "裡面表示加上&h這兩個字元竄。如加號後面的數值=5的話，setmynum就等於val(&h5)這個意思。
號後面的mid（sur,11+4*1,4）是取值的函式，sur表示從sur這個變數裡面取值，中間的表示從第幾項開值取值，（從第一項開始數，第一個數為第1項，不是從0開始數）最後面的4為取幾個數，上面如果sur=12345678901234567890的話，而且i 等於1的話setmynum就等於取第15個數開始的後4個數字。就是5678，最後前面加上引號裡的字元，完整的就是，setmynum=val(&h5678)最後結果為 setmynum=22136.因為16進位制的&h5678轉化為10進位制的val就是22136
15樓：匿名使用者
val函式將數字字元轉成對應的數值，字元前面加"&h"是將其作為十六進位制處理。mid(sur, 11 + 4 * i, 4)裡面是從sur第11 + 4 * i個字元處開始取四個字元出來。
vb的問題
16樓：
int函式是取整的。
因此表示式的值是：32+23=55
vb中幾個問題
17樓：匿名使用者
除數為0的錯誤是11啊，這些錯誤號都是編譯器定義好的，可以根據錯誤號 來大概的判斷程式出現錯誤的原因。
1、：返回或設定表示錯誤的數值。number 是 err 物件的預設屬性。可讀/可寫。
說明從物件返回使用者自定義的錯誤時，把被選作錯誤**的數與 vbobjecterror 常數相加，並由此設定 。例如，用下列**返回作為錯誤**的數字 1051：
number :=vbobjecterror + 1051, source:= someclass
err 物件。
含有關於執行時錯誤的資訊。
說明err 物件的屬性由錯誤的生成者來設定，這個生成者或者是 visual basic，或者是物件，或者是程式設計員。
err 物件的預設屬性是 number。因為該預設屬性可以用物件名稱 err 表示，所以不必修改以前用 err 函式或 err 語句書寫的**。
當執行時錯誤發生時，err 物件的屬性被填入明確識別錯誤的資訊以及處理這個錯誤所使用的資訊。為了在**中生成執行時錯誤，請用 raise 方法。
在任意形式的 resume 或 on error 語句之後以及在錯誤處理子程式內的 exit sub、exit function、或 exit property 語句之後，將 err 物件的屬性重新設定為零或長度為零的字串 ("可使用 clear 方法重新明確設定 err 。
為了對系統錯誤和類模組生成執行時錯誤，要使用 raise 方法而不使用 error 語句。在其它**中是否使用 raise 方法，這要看想要返回的資訊量有多大。
err 物件是具有全域性範圍的固有物件。在**中沒有必要建立這些物件的例項。
2、chdrive 語句 改變當前的驅動器。
語法chdrive drive
必要的 drive 引數是一個字串表示式，它指定一個存在的驅動器。如果使用零長度的字串 ("則當前的驅動器將不會改變。如果 drive 引數中有多個字元，則 chdrive 只會使用首字母。
chdrive是改變預設驅動器而不是drive1的驅動器，它與drivelistbox控制元件無關，比如，你chdrive "d"
就將d盤作為你的預設驅動器，下次你再執行程式drivelistbox控制元件預設（就是你最先看到的）的是d盤。這樣說你懂不？
關於vb.的一些問題。
18樓：匿名使用者
"21/2/2012" 是字元型常量，所有 「 限界符內的，都被認為是字元表示式。
e-12 不符合vb變數命名規則，會被認為是 e 減 12。
a、100 '100 的十進位制表示。
b、％0100 '錯的，正確應為 100%c、&h100 『256 的十六進位制表示。
d、&o100 』64 的八進位制表示。
由於。a=2
b="abc"
c="acd"
ab=c → flasea
19樓：匿名使用者
e-12是符合要求的變數名。 e-12在vb裡預設表示10的負12次方，第一題不懂。
這兩句話分別錯在**？
下面（ ）是不合法的整型常數
答案是b，求為什麼。 『c和d是用十六進位制表示的整型變數。
如果變數a=2,b="abc",c="acd"則表示式a
關於vb的問題
vb的程式問題
20樓：百用度戶
1、為什麼返回第一個數：題目中已說明「找出一個在1~1000中被7除餘5、被5除餘3、被3除餘2的數」，重點是「一個」，所以上述程式中返回了一個，且是第一個，當然你也可以通過修改程式讓其返回第二個或第n個；
2、為什麼用exit for：因為已經找到了滿足題目的數字，所以沒必要再繼續for迴圈，直接退出就可以了；
3、為什麼要加if i<=1000 ：因為假如1000中沒有滿足題目的數字，在結束for迴圈時，i 的值就等於1001，按上述程式的意思就不需要輸出，所以加判斷語句。
樓主，明白了嗎？
問關於VB的問題，問一個關於VB的問題
執行順序如下 注 帶有 的是被執行的語句，後面的數字是被執行的順序。x 0 1 for i 1 to 10 2if i mod 2 1 then 3x x 1 4 else x x 1 end if 5 exit for 6 問題就出在這裡 你退出掉迴圈幹嘛 next i print x 7 結束所...
VB的菜鳥問題，VB的一個菜鳥問題
我沒太聽明白你的話,你先試一下我的這個操作吧,看看是不是你想要的結果 先把text1的text值取1000 然後在form load事件裡打入text1.text text1.text 10 text1.text str val text1.text 10 text1.text 預設的是字串型。te...
vb的簡單問題，vb的一個簡單問題。
msgbox可以有返回值得 使用者點選 確定 返回值是 1 取消 2 終止 3 重試 4 忽略 5 是 6 否 7 可以根據返回值判斷使用者點選了什麼 我就不寫了 格式是 a msgbox do while 1 這裡是你顯示的那個介面 if 判斷是錯了嗎？then if msgbox 您輸入的不正確...