试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省高中信息技术 VB基本语句同步练习
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中显示的内容是（ ）
s = ""
For i = 1 To 5
a(i) = 0
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then a(j) = 1 - a(j)
Next j
If a(i) = 1 Then s = s + Str(i)
Text1.Text = s
运行该程序段后，Text1中显示的内容为（ ）
Dim i As Integer, s As String
i = 0
Do While i < 5
s = Str(i) + s
i = i + 1
Loop
Dim As Single, b As Single, c As Single, p As Single, s As Single
a≡Val(Text1. Text)
b=Val(Text2. Text)
c=Val(Text3. Text)
p=(a+b+c)/2
If a＜=p Or b＞=p Or c＞=p Then
Label1. Caption="不能构成三角形"
Else
s=Sqr(p*(p-a)*(p-b)*(p-c))*p
Label1. Caption="面积为"& s
End If
End Sub
试题篮
