试题 试卷
题型:填空题 题类:模拟题 难易度:普通
试题来源:浙江省杭州市2015年高考信息技术模拟卷8
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
收藏 纠错
组卷次数:1次 +选题
该同学绘制了该程序的流程图,如下图所示:
If a>b Then
max=a
Else
max=b
.
i = 1
Do While i <= 6
t = Int(Rnd * 10) + 1
If t Mod 2 = i Mod 2 Then a(i) = t : i = i + 1
Loop
For i = 1 To 2
k = 1
For j = 1 To 6 - i * 2
If a(j) * k > a(j + 2) * k Then
t = a(j) : a(j) = a(j + 2) : a(j + 2) = t
k = -k
Next i
执行该程序段后,数组元素a(1)到a(6)的值可能是( )
i=1:n=5
Do while i<=n
x=Int(Rnd*9)+1
If x Mod 2=1 Then
a(i)=x
a(n)=x:n=n+1
i=i+1 Loop
数组元素的初值均为0,执行该程序段后,a(1)至a(5)的值可能是( )
min=100:x=0
Do While x < =16
d1=Sqr(9+(x-4)*(x-4))
d2=Sqr(36+(16-x)*(16-x))
If d1+d2<min Then min=d1+d2
x=x+0.1
Text1.Text=St(min)
该程序段运行后,文本框Text1中显示的内容是( )
试题篮