1樓：匿名使用者
這裡最關鍵的就是：「val 函式，在它不能識別為數字的第一個字元上，停止讀入字串。」
val(".123ab")，到「a」才是「第一個不能識別為數字」，所以 結果是 .123
而 val("a123ab") ，第一個字元「a」就是「不能識別為數字」的，所以結果是 0 。
下面詳細瞭解一下val 函式。
val 函式：返回包含於字串內的數字，字串中是一個適當型別的數值。
語法：val(string)
必要的 string 引數可以是任何有效的字串表示式。
說明：val 函式，在它不能識別為數字的第一個字元上，停止讀入字串。那些被認為是數值的一部分的符號和字元，例如美圓號與逗號，都不能被識別。
但是函式可以識別進位制符號 &o（八進位制）和 &h（十六進位制）。空白、製表符和換行符都從引數中被去掉。
注意：val 函式只會將句點（.）當成一個可用的小數點分隔符。當使用不同的小數點分隔符時，如在國際版應用程式中，代之以 cdbl 來把字串轉換為數字。
2樓：
val(".123ab")=val("0.123ab") 是數字開頭的，所以得到 .123，也就是0.123
val("a123ab") 則是字元，所以為0
理解了，請採納一下
3樓：匿名使用者
val（string）將數字字串換成數值
第一個為數值的（包括0-9，副號，小數點）一直讀到非數值為止，後面的忽略不計
如果第一個為非數值的。返回0
4樓：權群
樓上兩位都答得非常好。
一個vb的問題
5樓：匿名使用者
原因:你的排序有問題.你這題用的是氣泡排序法,其基本思想是:
相鄰之間的兩個數進行比較,大的上浮(當然也可以小的上浮). 這種演算法有兩重迴圈,外層用來控制排序陣列的元素的個數,內層用來每個數進行比較的次數.
解決:這個最簡單的改法是將
for j=1 to 9改為 for j=i+1 to 9這樣改的原因是,每一次外迴圈都會使一個數一個數排到要求的位置.這樣的話,每次外迴圈都會減少一次進行比較的次數,因此內迴圈的迴圈次數就要減少
說的比較亂,希望能給你點幫助.有什麼不明白的,可以hi我
6樓：匿名使用者
排序的過程改為：
for i=1 to 9 do
for j=i+1 to 10 do
if s(i)>s(j) then
temp=s(i)
s(i)=s(j)
s(j)=temp
end if
next j
print s(i)
next i
7樓：鬆鬆一號
for i = 1 to 10
for j = 1 to 9
把這一部分改成：
for i=1 to 10
for j=i+1 to 10
if s(i)>s(j) then
temp=s(i)
s(i)=s(j)
s(j)=temp
end if
next j
print s(i);
next i
你的排序寫錯了，其他都對的。 一樓的也有小錯誤。
8樓：磊犇
private sub form_click()dim j as integer, temp as integer, i as integer
for i = 1 to 10
for j = i + 1 to 10
if s(i) >= s(j) then
temp = s(i)
s(i) = s(j)
s(j) = temp
end if
next j
print s(i);
next i
end sub
一個vb問題
9樓：匿名使用者
private sub form_load()label1.caption = 0
timer1.enabled = truetimer1.interval = 1000end sub
private sub timer1_timer()select case val(label1.caption)case is < 19
label1.caption = 1 + val(label1.caption)
case else
label1.caption = "20秒限定時間已到！"
timer1.enabled = falseend select
end sub
vb的問題，vb的一個問題
private sub form queryunload cancel as integer,unloadmode as integer 點選右上角的關閉 dim a as integer a msgbox 確認關閉嗎？vbokcancel vbquestion,系統提示 if a vbok the...
請教VB問題，請教一個VB問題
結果是4了。是按鈕過程變呼叫fun過程！是012345 分析如下 1 呼叫fun 5 此時k 5，在判斷中k 0 則呼叫了fun 4 2 同樣fun 4 執行時k 4，在判斷中k 0 則呼叫了fun 3 3 同樣fun 3 執行時k 3，在判斷中k 0 則呼叫了fun 2 4 同樣fun 2 執行時...
VB問題很急，一個VB問題 很急
vb我不懂怎麼寫，但可以肯定的告訴你，adodc1.recordsource select from member where no 00300002 這一句下面的操作需要你的資料庫不為空才可以操作，你試著在member里加入一條no 00300002 的記錄試試 要徹底的解決問題，需要在 adod...