先遍歷數(shù)組:

創(chuàng)新互聯(lián)主營正安網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,重慶APP開發(fā)公司,正安h5重慶小程序開發(fā)搭建,正安網(wǎng)站營銷推廣歡迎正安等地區(qū)企業(yè)咨詢
for?i?=?0?to?Ubound(數(shù)組)
...
next
再把中間的...替換成:
if?數(shù)組(i)?=?特定的字符?then?msgbox?"找到鳥,當(dāng)前是:數(shù)組"??i
在VB中是這樣的,沒學(xué)過VB.net,你變換一下就可以了
Option
Explicit
Private
Sub
Command1_Click()
Dim
Num(2)
Num(0)
=
Val(Left(Label1.Caption,
2))
Num(1)
=
Val(Mid(Label1.Caption,
3,
1))
Num(2)
=
Val(Right(Label1.Caption,
2))
MsgBox
"Num(0)="
Num(0)
vbCrLf
"Num(1)="
Num(1)
vbCrLf
"Num(2)="
Num(2)
'如果想測試是不是可以計(jì)算,可以用這一句
'MsgBox
"Num(0)+1="
Num(0)
+
1
vbCrLf
"Num(1)+1="
Num(1)
+
1
vbCrLf
"Num(2)+1="
Num(2)
+
1
End
Sub
Private
Sub
Form_Load()
Label1.Caption
=
"12345"
End
Sub
有一個(gè)字符串函數(shù):Instr(n,S1,S2)
該函數(shù)的功能:從字符串S1的左起第N位開始,向右逐位進(jìn)行搜索匹配字符串S2,如果找到匹配,就返回一個(gè)整數(shù)指明匹配的位置,否則就返回0。如果缺省n,就是默認(rèn)從字符串S1的左起第1位開始,進(jìn)行搜索匹配字符串S2。
例如1:Instr(1,"abcde","a"),返回1
例如2:Instr(3,"abcde","a"),返回0
例如3:Instr(1,"abcde","c"),返回3
例如4:Instr(1,"abcde","cde"),返回3
例如5:Instr(4,"ab12cd12e12","12"),返回7,這里從字符串"ab12cd12e12"左起第4位開始向右搜索匹配字符串"12",找到的是中間一個(gè)“12”,這個(gè)“12”是位于字符串"ab12cd12e12"左起的第7個(gè)字符。
而:Instr(1,"ab12cd12e12","12"),返回3
Instr("ab12cd12e12","12"),返回3
網(wǎng)站標(biāo)題:vb.net特定字符串 vb 字符串
轉(zhuǎn)載源于:http://chinadenli.net/article10/dojgpgo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供小程序開發(fā)、靜態(tài)網(wǎng)站、手機(jī)網(wǎng)站建設(shè)、Google、企業(yè)建站、標(biāo)簽優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)