UC知道关于VB二级一道计算题
来源：百度知道 编辑：UC知道 时间：2024/07/01 04:11:37
Private Sub Command1_Click()
s = "ABCDEF": k = Len(s)
For i = 1 To k / 2
Mid(s, i, k - 2 * (i - 1)) = Mid(s, i + 1, k - 2 * i) & Mid(s, i, 1)
print s
Next i
End Sub
求三行输出内容
有步骤的说明，求各位帮帮忙了
s = "ABCDEF": k = Len(s)
For i = 1 To k / 2
Mid(s, i, k - 2 * (i - 1)) = Mid(s, i + 1, k - 2 * i) & Mid(s, i, 1)
print s
Next i
End Sub
求三行输出内容
有步骤的说明，求各位帮帮忙了
k=6
Mid(s, i, k - 2 * (i - 1)) = Mid(s, i + 1, k - 2 * i) & Mid(s, i, 1)
这个语句用来替换的，
i=1 ABCDEF=BCDEA 把这个BCDEA换到ABCDEF，由于位数不同，所以s就变成BCDEAF
i=2 CDEA=DEC 把这个DEC换到BCDEAF的CDEA中，位数不够，s变为BDECAF
i=3 EC=E 把E换到BDECAF的EC中，由于位数不够，s变成BDECAF
所以结果是：
BCDEAF
BDECAF
BDECAF
这是一个按钮激活的模块,k=6
i=1 to 3
i=1 ABCDEF=BCDEA
i=2 BCDE=CDB
i=3 CD=C