1樓：匿名使用者
您好！！根據您的問題，請看如下**：
dim str, a() as stringstr = "12345a011111111"
a = split(str, "5")
msgbox a(1)
這段**的關鍵部分是使用split函式，該函式用於分割字串，提取出指定字串中包含規定字串後面或者前面的內容。
如果上面的**的最後一句改成 msgbox a(0) 的話則訊息框的內容就是「1234」。
如果您對我的回答滿意的話請採納！
2樓：匿名使用者
這個使用mid函式很方便，無需編**
例如：mid("12345a011111111，",6,10) 返回 a011111111
mid("12345a011111111，",6) 返回 a011111111，
mid("12345a011111111",6,10) 返回 a011111111
mid("12345a011111111",6) 返回 a011111111
被擷取的字串也可以是變數，例如
dim a as string
a="12345a011111111"
msgbox mid(a,6) '擷取第六位開始剩餘的字串
'會彈出訊息框，顯示 a011111111
下圖是mid()函式的聯機幫助說明，供參考
如何在vb中實現取小數點後幾位的數值?
3樓：匿名使用者
1、開啟vb6.0軟體，新建一個標準exe工程；
2、在設計介面上新建一個command控制元件；
private sub command1_click()dim res as double
res = format(1 / 3, "0.000")print res;
end sub
4、執行工程，單擊按鈕，可以看到資料被保留三位小數；
5、總結，想要保留幾位小數，直接設定即可，如想設定保留5位小數，設定如下：
format(1/3,"0.00000")
4樓：秋色烽火
format(運算元,"0.00")取兩位小數
5樓：匿名使用者
round(x,n)
對數值x的第n位小數四捨五入
在vb程式設計中，怎麼取第一個字元？謝謝啦
6樓：
a="abcde"
b=left(a,1)
print b
執行後，列印出b的值，即"a"。
vb中取值（小數點後2位）的函式是什麼？
7樓：匿名使用者
vb中有專門用來四捨五入的函式
round 函式：返回按指定位數進行四捨五入的數值。
語法：round(expression[, numdecimalplaces])
引數：expression（必選項）－被四捨五入的數值表示式 ；numdecimalplaces（可選項）－數字表明小數點右邊有多少位進行四捨五入，如果省略則 round 函式返回整數。
下面的示例利用 round 函式將數值四捨五入到兩位小數:
dim myvar, pi
pi = 3.14159
myvar = round(pi, 2) 'myvar contains 3.14。
8樓：匿名使用者
好象沒有這個函式
不過可以用語句實現
x = int(x * 100) / 100
vb中怎麼加入標籤，VB中怎麼加入一個標籤
1 首先我們 新建一個工程，並新建一個標準exe工程。2 這時候我們找到工具箱中標籤框。3 這時候我們可以直接雙擊控制元件即可成功繪製。4 或者我們可以選中他，然後在頁面上繪製。5 如果對它的外觀不滿意，我們在屬性視窗中修改。6 雙擊控制元件即可進入 視窗。完成效果圖。1 label 控制元件不可以...
vb6中怎麼修改字型顏色,VB中如何改變文字顏色
可以直接在bai 屬性面板裡設定對 象的du zhiforecolor 如果有 屬性。用 設定dao,其內格式 容物件.forecolor 設定值其中設定值可以為四種 1 例如 物件.forecolor vbred 紅色,或vbblue等,vbgreen綠色等 2 rgb 正如樓上 爛掉 蘿蔔 所言...
vb中shell的用法，VB中shell的用法
我們以要貝c temp 下所有檔案到d temp目錄為例。在vb程式中啟動 dos程式 或指令 的方法是 shell dos可執行檔名 vbnormalfocus 例如 shell xcopy c temp d temp vbnormalfocus 但是當以上的 xcopy 程式執行結束時，會殘留有...