VB如何定义b使len(text1.text)=len(b)

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/03 05:24:47

VB如何定义b使len(text1.text)=len(b)
比如开始定义变量 a as string*100,函数返回a="da0 1564"(长度不确定100以内)
如何判断出a的真真实长度?
再如何定义变量b,使b=a的有效字符?
要求等同效果：text1.text=a 从而使len(text1.text)=len(b)
不好意思可能是我没说明白
Private Sub Command1_Click()
Dim a As Long,b As String * 100
a = FindWindow("Notepad",vbNullString)
GetWindowText a,b,101
print b
‘b的真实长度是多少?
End Sub

Private Sub Command1_Click()
Dim a As String * 100
a = "da0 1564"
Print a
Print Len(Trim(a)) ' 用Trim消除空格再 Len()
End Sub

再问：不好意思我没说明白
再答： Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Sub Command1_Click() Dim a As Long, b As String * 100 a = FindWindow("Notepad", vbNullString) GetWindowText a, b, 101 Print b '检验 b Print Dim i As Integer For i = 1 To 100 Print Asc(Mid(b, i, 1)); If i Mod 10 = 0 Then Print Next '发现 b 包含空格Chr(32) 和 Chr(0) '因此, 去空格, 去 Chr(0), 再 Len() Print Print "b的真实长度为", Len(RTrim(Replace(b, Chr(0), "")))End Sub

VB如何定义b使len(text1.text)=len(b) VB编程If Len(Text1.Text) = Len(Text1.Text) - 1 Then len(Text2. VB中为什么Len(abcd)=0,Len（"zbcd")=4,Instr("abcd",b)=1 b = Mid(b,1,Len(b) - 1)在VB裏面是什麼意思? 解释函数=IF(LEN($B$5) TextBox1.Text = Mid(TextBox1.Text,1,Len(TextBox1.Text) - a = Left(a,i - 1) + Right(a,Len(a) - (i + Len(b) - 1)) VB b=val(text1.text)-1 dim a(b) as Integer 这样写出现要求常数表达式 len函数的使用a=123b=len(str(a))b=4为什么b=4? =TEXT(--(19*(LEN(N4)=15)&MID(N4,7,6+(LEN(N4)=18)*2)),"####-# vb中定义的d为双精度变量,设d=text1.text,text1.text里输入的是12.3625 为啥运行时d=36 VB如何计算 text1.text等于某个自定义数值