Question

求高手指教一道简单的vb题目~~万分感激啊！！

运行下面程序，当单击命令按钮时，文本框text1，text2中的内容分别是什么
Option explicit
Private sub command1_click()
Dim St as string, st1 as string, st2 as string
Dim tem as string, i as integer
St=”visual basic”
For i= 1 to len(st)
tem=mid(st,i,1)
if tem=”s” then
st2=st2 & “of”
else if tem =”1” then
st1=st1 & ”i”
exit for
else
st1=st1 & tem
st2=st2 & tem
end if
next i
text1.text=st1
text1.text=st2
拜托高手指教一下，过程~~顺便回答我几个疑问哈！
1.st=”visual basic” 中间的空格在len（st）里面算不算啊？就是len（st）是11还是12啊？
2.题目中不是只提到了st是什么嘛，那我肿么知道st1，st2 是什么啊？
3.& 这个符号是什么用途啊？
4.有时候“”里面什么都没有，是什么意思啊？
求高手指教啊！感谢万分啊~~~

Answer 1

1,算 12
2，st2将”visual basic”从左到右每个字符连接。只是见到s的时候，将s替换成了of，得到“viofual baofic”。
st1也是一样。只是在读取s字符的时候，没有进行连接，得到“viual baic”。
3，连接字符的作用。一个字符串和一个字符串连接的连接符。
4.空的时候 什麽都截取不到当然看不到啥了。

Answer 2

1算,12
2 st1，st2 是字符变量,暂时存储相应的字符
3连接符号,起相加作用
4没有就是变量赋空

Answer 3

代码有错，稍作修改：
Option Explicit
Private Sub command1_click()
Dim St As String, st1 As String, st2 As String
Dim tem As String, i As Integer
St = "visual basic"
For i = 1 To Len(St)
tem = Mid(St, i, 1)
If tem = "s" Then
st2 = st2 & "of"
ElseIf tem = "1" Then
st1 = st1 & "i"
Exit For
Else
st1 = st1 & tem
st2 = st2 & tem
End If
Next i
Text1.Text = st1
Text2.Text = st2
End Sub

结果是viual baic和viofual baofic
回答你的疑问：
1.空格算长度，len(st)=12
2.st1，st2是通过运算语句计算出来的
3. &是字符串连接，"a" & "bc"="abc"
4. ""表示空字符串，也就是什么都不显示，长度=0

追问

请问st1，st2是怎么计算出来的啊？这题的过程能讲解下么？谢谢啊！

追答

St = "visual basic"
For i = 1 To Len(St) '1到12循环，你每个循环都要计算一下，下面只写第1个循环
tem = Mid(St, i, 1) 'tem="v"
If tem = "s" Then
st2 = st2 & "of"
ElseIf tem = "1" Then
st1 = st1 & "i"
Exit For
Else
st1 = st1 & tem 'st1="v"
st2 = st2 & tem 'st2="v"
End If
Next i