下列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
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
举一反三
- 下列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
- 以下程序段中，执行结果与其他3个选项不同的是 A: Dim y As Integer B: y = 11 C: Select Case y D: Case 15 To 5 E: Print "Executed" F: End Select G: Dim y As Integer H: y = 10 I: Select Case y J: Case Is > 10, Is < 10 K: Print " Executed " L: End Select M: Dim y As Integer N: y = 10 O: Select Case y P: Case Is > 15, 1, 5 To 8 Q: Print " Executed " R: End Select S: Dim y As Integer T: y = 10 U: Select Case y V: Case 1, 3, Is > 6 W: Print " Executed " X: End Select
- 以下语句正确的是：______。 A: Select Case a B: Case C: b=1 D: Case “B” E: b=2 F: Case Else G: b=3 H: End Select I: Select Case a J: Case “A” K: b=1 L: Case “B” M: b=2 N: Case Default O: b=3 P: End Select Q: Switch a R: Case “A” S: b=1 T: Case “B” U: b=2 V: Case Else W: b=3 X: End Switch Y: Switch a Z: Case “A” [: b=1 \: Case “B” ]: b=2 ^: Case Default _: b=3 `: End Select
- 下列计算最大公约数的递归过程，正确的是___________。 A: Sub gcd(ByVal m%, ByVal n%) Dim r% r = m n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Sub B: Sub gcd(ByVal m%, ByVal n%) Dim r% r = m Mod n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Sub C: Function gcd%(ByVal m%, ByVal n%) Dim r% r = m n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Function D: Function gcd%(ByVal m%, ByVal n%) Dim r% r = m Mod n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Function
- 下列程序运算后，Label1结果显示的是： Dim x As Integer Dim S As String x = 20 S = "2020" x = x Mod 3 Select Case x Case 0 Label1.Text = "A" Case 1 Label1.Text = "B" Case 2 Label1.Text = "C" Case Else Label1.Text = "D" End Select