s = 1: t = 1

If a > 0 Then s = s + 1

If a > b Then

t = s + t

ElseIf a = b Then

t = 5

Else

t = 2 * t

End If

Private Sub Command1_Click()

Dim i As Integer, c As Integer, n As Integer

n = Val(Text1.Text)

c = 0

For i = 1 To n

If i Mod 3 = 0 Then c = c + 1

Next i

Label1.Caption = Str(c)

End Sub

运行该程序，在文本框Text1中输入20，单击命令按钮Command1，在标签Label1中显示的是{#blank#}1{#/blank#}。

Dim s As String, i As Integer, n As Integer

Dim ch As String, ans As Integer

s= Text1.Text

n Len(s): ans=0

For i=1 To n

    ch =Mid (s, i, 1)

    ans =ans *2+ Val(ch)

Next i

Text2 Text ans

若程序运行后Tex2中显示的是“38”，则Text中输入的是（  ）

For i=1 To 8

    d(i)= In(Rnd*10)

Next i

For i= 2 To 8

    If i Mod 2=0 And d(i)> d(i-1)Then

        d(i)=d(i-1)+1

    ElseIf i Mod 2= 1 Then

        If d(i)>d(i-2) Then

            t=d(i): d(i)=d(i-2): d(i-2)=t

    End If

Next i（  ）

s=56

s1=s\10

s2=s Mod 10

s=s1+s2*10

Print "s="; s