Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim i As Integer

n = Val(Text1.Text)

s = 1

For i = 2 To n

  s = s * i

Next i

Label1.Caption = Str(n) + "!=" + Str(s)

End Sub

Private Sub Command1_Click()

Dim s As Integer, j As Integer

s = 0

For j = 1 To 10

  If j Mod 2 <> 0 Then

    s = s + j

  End If

Next j

Label1.Caption = Str(s)

End Sub

Dim x As String, y As String

 Dim ans As Integer

 x=“5”：y=“20”：ans=0

 If x>y Then ans=Val(x)Else ans=Val(y)

ans=ans+Val(x+y)

Text1.Text=Str(ans)

程序运行完后，文本框Text1中显示的是：（  ）