问答题X 纠错
Private Sub Command1_Click()
Dim a As String,c As String,i As Integer
a=InputBox("输入字符串","ABCDEFG")
n=Len(A)
For i=1 To Int(n/2)
c=Mid(a,i,1)
Mid(a,i,1)=(Mid(a,n-i+1,1))
(Mid(a,n-i+1,1)=c)
Next i
Print a
End Sub
你可能喜欢
问答题
下面程序段要输出结果如图所示,试将程序段填写完整。
问答题
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming,然后编写如下事件过程。程序运行后,单击命令按狃,文件ff.txt中的内容是?
MVBP