VB.NET關(guān)于 len（trim（）） 和 len（）的關(guān)系的問題

Len(String) 返回的是 String 的字符數(shù)。

在上猶等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站設(shè)計制作、成都網(wǎng)站建設(shè) 網(wǎng)站設(shè)計制作按需求定制設(shè)計,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),營銷型網(wǎng)站建設(shè),成都外貿(mào)網(wǎng)站建設(shè)公司,上猶網(wǎng)站建設(shè)費用合理。

Len(Integer（或其他數(shù)值類型）) 返回的是這個數(shù)值類型的字節(jié)長度。

Trim(100)，Trim() 后的結(jié)果已經(jīng)轉(zhuǎn)換成 String 字符串類型了。

而 100 這是一個 Integer 類型的數(shù)，Len 返回的是一個 Integer 所占的字節(jié)數(shù)，也就是4。

你要是想返回 100 這個字符串的字符長度，應(yīng)該用雙引號引上，Len("100")=3。

3.在VB.NET中，表達式Len(Mid("abcdefgh",4))的值是_______

拆開來看：

顯示Mid函數(shù)，Mid(字符串，截取開始位置，字符串長度：若省略則表示從開始位置后面所有字符）

Mid("abcdefgh",4)

因為省略了截取的字符串長度這個數(shù)值，所以：Mid("abcdefgh",4) = "defgh"

那么 : Len("defgh") = 5

所以，答案是：5

vb.net：Len(Str(22) + Str(3) + Str(2))這個怎么算？為什么等于7

str(22)把數(shù)字22轉(zhuǎn)化為字符串后，系統(tǒng)自動在22前增加一個空格，即符號位（因為正號只占位），如果是負數(shù)則用－號占用符號位，所以str(22)的結(jié)果是“ 22”，長度為3。

后面的str(3)=" 3"，str(2)=" 2"，它們的字符串的長度都是2（包括了一個符號位空格）。

所以：Len(Str(22) + Str(3) + Str(2))＝len(" 22"+" 3"+" 2")=len(" 22 3 2")=7

vb.net 四則運算代碼

Dim s1!, s2!, a$ '為小數(shù)點的疊加，s1,s2必須定義為單精度型

Dim flag As Boolean 'flag它是過程及的變量，在通用里必須聲明

'在數(shù)字按鈕控件單擊數(shù)組單擊事件中獲取操作數(shù)（沒有區(qū)分是哪一個操作數(shù)）

Private Sub Command1_Click(Index As Integer)

x = Text1.Text

If flag = True Or x = "0" Then '查看數(shù)字是否輸入完畢或者是否清零了

Text1.Text = CStr(Index) 'CStr將數(shù)值轉(zhuǎn)換字符

Else

Text1.Text = Text1.Text + CStr(Index) '"+"在這里這個是對字符串的操作的疊加，CStr(Index)是接的數(shù)據(jù)

End If

flag = False '時刻準備數(shù)字的輸入

End Sub

'2.單擊運算符，確定s1，并且要選定運算

Private Sub Command2_Click(Index As Integer)

flag = True

s1 = Val(Text1.Text)

Select Case Index

Case 0

a = "+"

Case 1

a = "-"

Case 2

a = "*"

Case 3

a = "/"

End Select

End Sub

'3."="的單擊事件

Private Sub Command3_Click()

flag = True

s2 = Val(Text1.Text)

Select Case a

Case "+"

Text1.Text = s1 + s2

Case "-"

Text1.Text = s1 - s2

Case "*"

Text1.Text = s1 * s2

Case "/"

Text1.Text = s1 / s2 '分母不能為0

End Select

s1 = 0: s2 = 0: a = ""

End Sub

'4.清屏

Private Sub Command4_Click()

Text1.Text = "0"

s1 = 0

s2 = 0

a = ""

flag = False

End Sub

'5.刪除最后輸入的一個字符，換句話說，將本文框中的字符串取字符（從左往右取left(string,length)），將最后一個字符不取就先行

Private Sub Command5_Click()

If Text1.Text = "" Then

Else

Command5.Enabled = True

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

'len求字符串的長度，left(text1.len(text1)-1減1是取字符串從左往右減去一個字符串

End If

End Sub

'小數(shù)點 1）顯示出"."(注意前面輸入過的整數(shù)必須顯示) 2）小數(shù)后能繼續(xù)接受數(shù)字的輸入

Private Sub Command6_Click()

Text1 = Text1 "."

End Sub

'7加入正負號--單擊“+、-”,產(chǎn)生一個"-"，而且處于一種等待數(shù)字輸入的一種狀態(tài)

Private Sub Command7_Click()

Dim temp As Double

temp = -Val(Text1.Text)

Text1.Text = temp

If d = " " Then s1 = temp Else s2 = temp

End Sub

Private Sub Command8_Click() '退出

End

End Sub

Private Sub Form_Load() '窗體初始化

Text1.Text = 0

Text1.Locked = True

End Sub