试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省诸暨中学2018-2019学年高二上学期信息技术10月阶段性考试试卷
Private Sub Command1_Click()
Dim a（0 To 7） As Integer
Dim i As Integer ＇①
a（0）=1
For i = 1 To 7 ＇②
a（i）= 2 * a（i-1）+ 1 ＇③
Next i
Text1.Text = Str(a(i)) ＇④
End Sub
图1
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs = Str(sjzs Mod 2) + rjzs
sjzs = Int(sjzs / 2)
Loop
Label1.Caption = rjzs
s=“Hello world”
s1=“”
n=Len(s)
For i=1 To n\2
If Mid(s， i， 1) > Mid(s， n-i+1， 1) Then
s1=s1 + Mid(s， i， 1)
Else
s1=Mid(s， n-i+1， 1)+s1
End If
Text1.Text=s1
执行该程序段后，在文本框Text1中显示的是（ ）
试题篮
