请编写一个程序将ss所指字符串中所有下标为奇数位置上的字母转换为大写(若该位置上不是字母，则不转换)。

Question

如题所述

Answer 1

'请编写一个程序将ss所指字符串中所有下标为奇数位置上的字母转换为大写(若该位置上不是字母，则不转换)。
编写函数如下
Private Function s(ss As String) As String
Dim temp As String
For i = 1 To Len(ss)
temp = Mid(ss, i, 1)
If i Mod 2 = 1 And Asc(temp) >= 97 And Asc(temp) <= 122 Then
s = s + Chr(Asc(temp) - 32)
Else
s = s + temp
End If
Next
End Function
调用方法
Private Sub Command1_Click()
MsgBox s("assds jdf134ASNDFNF")
End Sub
记得给分哦

Answer 2

将ss装入数组
设置一个指针指向ss
用循环读取ss中的每个字符
判断字符是否在a和z之间
如果在则转换为大写（根编程语言定）

Answer 3

我用的是VB6.0

看******处，就知道了
Private Sub Command1_Click()
Dim ss As String
ss = "vlkdfvnfldnvdfnvd"
Print ss

Dim i As Integer, l As Integer
l = Len(ss) '******
For i = 1 To l Step 2 '******
Mid(ss, i, 1) = UCase(Mid(ss, i, 1)) '******
Next i
Print ss
End Sub

Answer 4

就5分？？懒得写。你多给点分好吧？？