第1个回答 2013-09-24
dim nLen&,sTemp$
sTemp = trim(text1.text)
nLen = len(sTemp)
text2.text = Mid$(sTemp,2,nLen-1)
第2个回答 2013-09-24
Private Sub Command1_Click()
Dim strTemp As String
strTemp = Mid$(Text1.Text, 2)
strTemp = Left$(strTemp, Len(strTemp) - 1)
Text2.Text = strTemp
End Sub本回答被提问者和网友采纳