python输入一行字符串、剔除其中所有小写字母后输出_1． 输入一行字符串，将其中的非字母字符剔除，然后将字母全部转换为大写字母，并...

DimstrAsString,str2AsString,nAsInteger'定义str,str2为字符串变量,n为整型变量str=InputBox("","输入一行字符串!")'将输入框内容付给strn=Len(str)'取str长度Dimar(n)AsString,iAsI...

Dim str As String, str2 As String, n As Integer

'定义str,str2 为字符串变量,n为整型变量

str = InputBox("", "输入一行字符串!")

'将输入框内容付给str

n = Len(str)

'取str长度

Dim ar(n) As String, i As Integer

'定义一数组和一整型变量

For i = 0 To n - 1

ar(i) = Mid(str, i + 1, 1)

'将字符串中的每一个字符付给数组每一个元素

If Asc(ar(i)) < 65 Or Asc(ar(i)) > 122 Or (90 < Asc(ar(i)) And Asc(ar(i)) < 97) Then

ar(i) = ""

'不为字母则为空

ElseIf 90 < Asc(ar(i)) Then

ar(i) = Chr(Asc(ar(i)) - 32)

'小写转大写

End If

Next

For i = 0 To n

str2 = str2 + ar(i)

Next

MsgBox(str2)

'弹出窗体输出

是错的！！！ 请问 应该怎么改？

展开