有如下Visual Basic程序： 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(...

题型：填空题题类：常考题难易度：普通

浙江省桐乡市2016-2017学年高二下学期信息技术期中考试试卷

有如下Visual Basic程序：

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

举一反三

x=″abcdcba″:ans=0

For i=1 To Len(x)\2

If Mid(x,i,1)=Mid(x,Len(x)-i+1,1) Then

ans=ans+1

end if

Next i

Text1.Text=Str(ans)

请回答以下问题。

Private Sub Command1_Click()

Dim a(1 To 5) As Integer

a(5)=Val(Text1.text)

For i=4 To 1 Step -1

a(i)=a(i+1)\2

Next i

Label1.caption=str(a(1))

End sub

在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（）

相关试卷