有如下VB 程序段：
Dim i As Integer, c As String, s As String, t As Integer
Dim s2 As String, pwd As String
s = Text1.Text: pwd = "71zhYEAR": s2 = "": t = 0
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
t = t * 10 + Val(c)
Else
s2 = s2 + Mid(pwd, t Mod 8 + 1, 1)
End If
Next i
Text2.Text = s2
运行该程序段，在文本框Text1中输入“20B13A8”，文本框Text2输出的是（ ）
Dim i As Integer, c As String, s As String, t As Integer
Dim s2 As String, pwd As String
s = Text1.Text: pwd = "71zhYEAR": s2 = "": t = 0
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "0" And c <= "9" Then
t = t * 10 + Val(c)
Else
s2 = s2 + Mid(pwd, t Mod 8 + 1, 1)
End If
Next i
Text2.Text = s2
运行该程序段，在文本框Text1中输入“20B13A8”，文本框Text2输出的是（ ）
| A．hY | B．YE | C．YE7 | D．hYA |
更新时间：2020-11-27 23:29:14
|
【知识点】 VB程序的调试
相似题推荐
选择题
|
适中
(0.65)
【推荐1】有如下VB 程序段：
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3
Next i
End Sub .
执行该程序段后，文本框 Textl输出的内容是 （ ）
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3
For j=i＋1 To 6
If d(j)<d(j-1) Then
t=d(j):d(j)=d(j-1):d(j-1)=t
End If
Next j
Textl.Text=Str(d(i))+Text1.TextNext i
End Sub .
执行该程序段后，文本框 Textl输出的内容是 （ ）
| A．47 63 85 | B．35 5 18 | C．85 63 47 | D．18 5 35 |
您最近一年使用：0次
选择题
|
适中
(0.65)
【推荐2】有如下VB程序段：
Private Sub Command1_Click()
End Sub
Function f(s As String)As String
End Function
该程序段运行后，文本框Text2中显示的内容是（ ）
Private Sub Command1_Click()
Text1.Text ="2012 Hero"
Text2.Text = f(Text1.Text)
End Sub
Function f(s As String)As String
Dim i As Integer, c As String, s As String
For i=1 To Len(s)
c= Mid(s, i, 1)
If c>="a" And c<="z" Then f=f + c
Next i
End Function
该程序段运行后，文本框Text2中显示的内容是（ ）
| A．2012 | B．Hero | C．ero | D．2012H |
您最近一年使用：0次
