执行如下Visual Basic程序段后，a的值范围是（） Private Sub Command1_Click() Dim a As Integer a = Int(6 * Rnd + 1) * Int(6 * Rnd - 1) Print a End Sub

题型：单选题题类：常考题难易度：普通

浙江省绍兴市诸暨中学2014-2015学年第高一下学期期中考试信息技术试题

执行如下Visual Basic程序段后，a的值范围是（）

Private Sub Command1_Click()

Dim a As Integer

a = Int(6 * Rnd + 1) * Int(6 * Rnd - 1)

Print a

End Sub

A、[0，35] B、[－1，24] C、[－4，35] D、[－6，24]

举一反三

a = 1

For p=1 to 50

If p Mod 3 = 0 Then a = a + 1

Next p

a(1) = 1

For i = 2 To 6

Randomize

a(i) = a(i - 1) + Int(Rnd * 5 + 1)

If a(i) Mod 2 = 1 Then

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

Else

a(i) = a(i) / 2

End If

Next i

执行程序后，a数组各元素可能是（）

相关试卷