Private Sub Command1_C1ick ( )

Dim a(0 to 5) As Integer

a(5)=Val(Text1.text)

For I=4 to 1 step -1

a(I)=a(I+1)/2

Next I

Text2.text=str(a(I))

End sub

在文本框Text1中输入“96”，单击命令按钮Command1后，文本框Text2中显示的内容是（   ）

Private Sub Command1_Click()

Dim x As Integer, m As Integer

m = 3

For x = 1 To 5

   If m > 3 Then m = m + 2 Else m = m - 1

Next x

Text1.Text = Str(m)

End Sub

程序运行界面如下图所示。

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

Next i

Text1.Text=s1

执行该程序段后，在文本框Text1中显示的是（  ）

s=“491053”

For i=1 To 3

n=Len(s)

k=1

For j=2 To n

If Mid(s， k， 1) >=Mid(s， j， 1) Then

K=j

Else

Exit For .Exit For表示退出循环

End If

Next j

s= Mid(s， 1， k-1) + Mid(s， k+ 1，n-k)

Next i

Label1.Caption =s

执行该程序段后，标签Label1中显示的值是（  ）

DIM A(6) AS INTEGER

FOR I= 1 TO 6

  A(I)= I

NEXT I

PRINT A(I)