2级vb题目,急!!过程要详细!!讲点思路

来源:百度知道 编辑:UC知道 时间:2024/06/14 02:05:25
1.执行Command1_Click实践过程后,显示在窗体上的第一行内容是????,第二行内容是????,第三行内容是 ????。

Private Sub Command1_Click()
Dim i As Integer, s As String, k As Integer
s = "TUPMOC": k = Len(s)
For i = 1 To k / 2
Mid(s, i, k - 2 * (i-1)) = Mid(s, k + 1 - i, 1) & Mid(s, i + 1, k - 2 * i) & Mid(s, i, 1)
Print s
Next i
End Sub

第一行显示CUPMOT
第二行显示COPMUT
第三行显示COMPUT
实际上就是看mid函数的使用。k=Len(s)是把S的长度赋值给K

我觉得自己去运行下不得了

cupmot
copmut
comput
你实际建一个工程把代码放进去运行一下就好了!
都不用想的!