vb點(diǎn)虐 代碼聲明一個一維字符類型的數(shù)組，有20個元素，每個元素最多存放十個字符。字符個數(shù)隨機(jī)，

Dim?a(20)?As?String

創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供秀洲網(wǎng)站建設(shè)、秀洲做網(wǎng)站、秀洲網(wǎng)站設(shè)計(jì)、秀洲網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、秀洲企業(yè)網(wǎng)站模板建站服務(wù)，十多年秀洲做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

Dim?num?As?Integer

Dim?ppp?As?String?=?""

Dim?temp?As?String?=?""

For?i?=?1?To?20

temp?=?""

num?=?Int(Rnd()?*?10?+?1)

For?j?=?1?To?num

temp?=?temp??Chr(Int(Rnd()?*?26?+?97))

Next

a(i)?=?temp

Next

Dim?max?As?Integer?=?0

For?i?=?1?To?20

If?a(i).Length??max?Then

max?=?a(i).Length

End?If

Next

For?i?=?1?To?20

If?a(i).Length?=?max?Then

ppp?=?ppp??"字符最多的元素是第"??i??"個元素"??a(i)??vbCrLf

End?If

Next

For?i?=?1?To?20

TextBox1.Text?=?TextBox1.Text??a(i).PadRight(10)??"??????????"

If?i?Mod?4?=?0?Then

TextBox1.Text?=?TextBox1.Text??vbCrLf

End?If

Next

TextBox1.Text?=?TextBox1.Text??ppp

vb點(diǎn)虐 字符串的操作應(yīng)用

字符串的操作應(yīng)用

[vb]

Module Module

Sub Main()

定義 個字符串變量

Dim str str str As String

給str str 付初值

str = Hello : str = World

Console WriteLine( 方法Concat )

連接一個或多個字符串

Console WriteLine( str ={ } str ={ } String Concat(str str )={ } str str String Concat(str str ))

判斷字符串中是否具有相同的值返回類型為布爾型

Console WriteLine( 方法Equals )

Console WriteLine( str ={ } str ={ } String Equals(str )={ } str str str Equals(str ))

在字符串中指定索引位置插入指定的字符串

Console WriteLine( 方法Insert )

str = : str = aaa

Console WriteLine( str ={ } str ={ } str Insert( str )={ } str str str Insert( str ))

左右對齊字符串中的字符

Console WriteLine( 方法PadLeft/PadRight )

str = World : str = 世界

Console WriteLine( str ={ } str )

Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))

Console WriteLine( str ={ } str )

Console WriteLine( str PadLeft( * )={ } str PadRight( * )={ } str PadLeft( * ) str PadRight( * ))

找出指定字符串或字符轉(zhuǎn)在此字符串中的第一個 最后一個匹配項(xiàng)的索引位置

Console WriteLine( 方法IndexOf/LastIndexOf )

str = Visual Basic NET ASP NET C# NET

Console WriteLine( str ={ } str )

Console WriteLine( str IndexOf( NET )={ } str LastIndexOf( NET )={ } str IndexOf( NET ) str LastIndexOf( NET ))

將字符串中的字符復(fù)制到字符串?dāng)?shù)組

Console WriteLine( 方法ToCharArray )

str = str ToCharArray(str IndexOf( NET ) )

Console WriteLine( str ={ } str )

Console WriteLine( str ToCharArray(str IndexOf( NET ) )={ } str )

在指定字符串?dāng)?shù)組的每個元素之間串聯(lián)指定的分隔符 產(chǎn)生單個串聯(lián)的字符串

Console WriteLine( 方法Join )

Dim myArray( ) As String

myArray( ) = I : myArray( ) = am : myArray( ) = a : myArray( ) = student

For i As Integer = To

Console Write( myArrat({ })={ } i myArray(i))

Next

Console WriteLine()

Console WriteLine( String Join( * myArray)={ } String Join( * myArray))

此字符串中刪除指定個數(shù)字符

Console WriteLine( 方法Remove )

str =

Console WriteLine( str ={ } str Remove( )={ } str str Remove( ))

將此字符串指定字符串字符的所有匹配項(xiàng)代替為其他指定字符串

Console WriteLine( 方法Replace )

str =

str = abc

Console WriteLine( str ={ } str ={ } str ={ } str Replace(str str )={ } str str str str Replace(str str ))

從此字符串檢索字符串

Console WriteLine( 方法SubString )

Console WriteLine( str ={ } str Substring( )={ } str str Substring( ))

Console ReadLine()

End Sub

lishixinzhi/Article/program/net/201311/13956

vb點(diǎn)虐 不定長字符數(shù)組

vb點(diǎn)虐 已經(jīng)去掉了控件數(shù)組這個類，不過有個代替該方式的一個屬性：tag，你可以把這些關(guān)聯(lián)的tag屬性設(shè)置為同一標(biāo)記，如：a。然后遍歷所有的checkbox并且tag為a的則選定：

protected

sub

chkall_click()

for

each

ctl

as

control

in

me.controls

''如果checkbox在一個容器里，比如groupbox，那可以用groupbox.controls

if

ctl.gettype().name.tolower()

=

"checkbox"

then

ctype(ctl,

checkbox).checked

=

checkbox3.checked

end

if

next

end

sub

VB.NET字符串?dāng)?shù)組怎么定義？

1。動態(tài)數(shù)組 dim myStr() as string

2。固定數(shù)組 dim myStr(10) as string

3。net字符串?dāng)?shù)組 dim myStr as string()

都差不多的。