有如下 VB 程序段：
s1 = "Shui"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "a" And ch <= "z" Then
ch = Chr((Asc(ch) - Asc("a") + 23) Mod 26 + Asc("A"))
End If
s2 = ch + s2
Next i
Label1.Caption = s2
执行该程序段后，标签 Label1 中显示的内容是（ ）
s1 = "Shui"
For i = 1 To Len(s1)
ch = Mid(s1, i, 1)
If ch >= "a" And ch <= "z" Then
ch = Chr((Asc(ch) - Asc("a") + 23) Mod 26 + Asc("A"))
End If
s2 = ch + s2
Next i
Label1.Caption = s2
执行该程序段后，标签 Label1 中显示的内容是（ ）
| A．FRES | B．Serf | C．freS | D．SERF |
更新时间：2020-08-25 23:34:20
|
【知识点】 VB程序的调试
相似题推荐
选择题
|
适中
(0.65)
【推荐1】有如下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 |
您最近一年使用：0次
选择题
|
适中
(0.65)
名校
【推荐2】下面有关属性的说法正确的是（ ）
| A．对象的属性只能在程序运行前设置 |
| B．name属性可以在程序执行时改变 |
| C．文本框控件的text属性可以省略 |
| D．label1.caption="1"和label1="1"作用不一样 |
您最近一年使用：0次
