下列Encode函数的功能是对字符串s里的数字字符进行加密，加密方法是增加序数n（数字字符加n后还是在数字字符范围内），如n=3，"Text123789"-->"Text456012"。
请在_________处填入适当的内容完善程序。
Function Encode(ByVal s$, ByVal n) As String
Dim i%, c$, cvalue%
For i = 1 To Len(s)
c = Mid(s, i, 1)
Select Case c
Case "0" To "9"
cvalue = Val(c) + n
If cvalue > 9 Then _________
c = CStr(cvalue) ' CStr()函数将数值转换成数字字符
End Select
Encode = Encode & c
Next
End Function
请在_________处填入适当的内容完善程序。
Function Encode(ByVal s$, ByVal n) As String
Dim i%, c$, cvalue%
For i = 1 To Len(s)
c = Mid(s, i, 1)
Select Case c
Case "0" To "9"
cvalue = Val(c) + n
If cvalue > 9 Then _________
c = CStr(cvalue) ' CStr()函数将数值转换成数字字符
End Select
Encode = Encode & c
Next
End Function
举一反三
- 下列myDecimal函数的功能是字符串s表示的r进制数转变成十进制数。如s=“3a” , r=16，则结果是58。请在_________处填入适当的内容完善程序。 Function myDecimal(ByVal s$, ByVal r%) As Integer Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z" n = Asc(c) - Asc("a") + 10 Case "A" To "Z" n = Asc(c) - Asc("A") + 10 Case Else n = Val(c) End Select myDecimal = _________ Next End Function
- 判断一个字符是字母字符、数字字符还是其他字符,并做相应的显示。字母字符显示字符串"字母";数字字符显示字符串"数字";其他字符显示字符串"其他"。 Private Sub Form_Click() Dim n As String n = InputBox("请输入一个字符") Select Case n Case "a" To "z", "A" To "Z" Print "字母" Case 【1】 Print "数字" Case Else Print "其他" End Select End Sub
- 中国大学MOOC: 如下程序的功能是删除文本框Text1中的数字字符。请在_________处填入适当的内容，完善程序。Private Sub Command1_Click() Dim i%, s$, c$ s = "" For i = 1 To Len(Text1.Text) c = Mid(Text1.Text, i, 1) If _________ Then s = s + c End If Next Text1.Text = sEnd Sub
- 以下函数的功能是删除字符串 s 中的所有数字字符。请填空。 viod dele(...i]; s[n]= ______ ; }
- 下列Find函数的功能是在数组里查找数字key，返回该key在数组中的下标，如果找不到则返回-1。请在_________处填入适当的内容完善程序。 Function Find(ByRef a%(), ByVal key%) As Integer Dim idx%, i% idx = -1 For i = LBound(a) To UBound(a) If a(i) = key Then _________ Exit Function End If Next Find = idx End Function