Private Sub Command1Click(   )

Dim n As Integer

Dim a(1 To 10) As Integer

n = Val(Text1.Text)

s = 1

For i = 1 To n

s = s * i

a(i) = s

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command1_Click()

Dim a(1 To 4) As Integer

Dim i As Integer

   a(1) = 1

 For i = 2 To 4

   a(i) = 2 * a(i - 1) + 1

 Next i

List1.AddItem Str(a(i))

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中显示的是（  ）

x=10

y=3

print(x%y，x**y)