Question

询问vb 程序 s = Left(s, Len(s) - 1)‘为什么要加这句呢’

Option Base 1
Dim s As String
Private Sub Command1_Click()
Open App.Path & "\in5.dat" For Input As #1
s = Input(LOF(1), #1)
Close #1
End Sub

Private Sub Command2_Click()
'需考生编写
For i = 1 To Len(s)
j = Asc(Mid(s, i, 1))
Select Case j
Case 48 To 57, 65 To 90, 97 To 122
Case Else
Mid(s, i, 1) = "-"
End Select
Next i
j = Len(s) - 1
For i = 1 To j
If Mid(s, i, 1) = "-" And Mid(s, i + 1, 1) = "-" Then
s = Left(s, i) + Right(s, j - i)
j = j - 1
i = i - 1
End If
Next i

s = Left(s, Len(s) - 1)‘为什么要加这句呢’如果s末尾没有空格，就不会产生‘－’，这样不是把最后一个英文字符删掉了吗？

r = Split(s, "-")
b = r(0)
For i = 1 To UBound(r)
If Len(b) < Len(r(i)) Then b = r(i)
Next i
Text2.Text = Len(b)
Text1.Text = Int((Len(s) - UBound(r)) / (UBound(r) + 1) + 0.5)

End Sub

Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out5.dat" For Output As #1
Print #1, Text1.Text, Text2.Text
Close #1
End Sub

Answer 1

你们知道吗？1213612839。。615817019这个号的主人叫刘梅仙！就好象名字一样她太厉害了！玩男人是个高手！两个高中生同时被她耍！太厉害了！没有话说我就是其中一个！我们男人太痴情！真的也太弱智！厉害吖！是男人看见就转发！不为别的！只要你还是个人就要发！就有权力和义务转发！也酸我求你们了！为男人们愤怒吧！花你们一点时间！现在在耍第几个我不知道！为了男人发吧求你们了！！！谢谢！

Answer 2

先说说这个程序是干什么的？