資源簡介

VB專題 隨機數邏輯判斷類
一、經典題組
1.（2019年4月選考真題）有如下VB程序段：
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1
If flag or x >50 Then
a(i)= x
flag = Not flag
i = i + 1
End if
Loop
執行該程序段后，在下列選項中，a（1）～a（6）各元素值不可能的是（ ）
A.52，95，46，74，77，83 B.50，55，46，70，21，97
C.62，78，57，61，69，50 D.31，54，48，72，50，82


2.（2018年11月選考真題）有如下VB程序段：
For i=1 To 6
a(i)= Int(Rnd * 10)+1
Next i
For i=1 To 5
If i Mod 2 = 1 And a(i) > a(i+1) Then
t=a(i):a(i)=a(i+1):a(i+1)=t
Else
a(i)=a(i)+1
End If
Next i
執行該程序段后，a（1）~ a（6）各元素可能的值是（ ）
A.11，11，7，9，3，9 B.6，2，8，10，5，9
C.6，9，3，7，8，12 D.3，9，0，8，2，7

二、高頻考點
3.（2019年9月名校協作體聯考）某VB程序段如下：
Dim a(1 To 6) As Integer
Randomize
a(1) = Int(Rnd * 2) + 1
For i = 2 To 6
a(i) = Int(Rnd * i) * 2 + 1
If a(i) < a(i - 1) Then
a(i) = a(i) + a(i - 1)
End If
Next i
執行該程序段后，數組元素a(1)到a(6)的值可能是（ ）
A. 2，4，6，8，10，12 B. 1，1，3，7，12，23
C. 2，5，9，11，10，15 D. 1，3，15，16，20，23

4.（2019年3月稽陽聯考卷）有如下VB程序段：
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數組各元素可能是（ ）
A．1 3 4 6 7 9 B．1 2 0 3 5 6 C．1 2 3 4 5 4 D．1 3 4 5 1 1

5.（2019年4月柯橋區方向性試卷）有如下VB 程序段：
For i = 1 To 6
a(i) = Int(Rnd() * 10) + 1
If a(i) Mod 2 <> i Mod 2 Then i = i - 1
Next i
For i = 1 To 5
For j = 6 To i + 2 Step -1
If a(j) < a(j - 2) Then
t = a(j): a(j) = a(j - 2): a(j - 2) = t
End If
Next j
Next i
執行程序后，a 數組各元素可能是（ ）
A.1,2,3,4,5,6 B. 1,0,3,6,5,8 C. 3,2,7,6,11,8 D.2,1,4,3,10,9
6.（2019年2月溫州市適應性試題）有如下VB 程序段：
Dim a(1 to 6) As Integer, i As Integer
Randomize
For i = 1 To 6
a(i) = Int(Rnd * 10) + 1
If a(i) Mod 2 = 1 Then
i = i - 1
ElseIf i Mod 2 = 0 Then
a(i) = a(i) + a(i - 1)
End If
Next i
最終數組a各元素的值可能是（ ）
A. 8,14,3,10,2,12 B. 2,4,6,10,12,24
C.10,16,8,18,8,4 D. 6,12,10,20,4,8
7.（2019年3月紹興適應性考試）有如下VB 程序段：
a(1)= 6: a(2)= 9: a(3)= 3:a(4)= 7: a(5)= 8: a(6)= 1
t = 2 * Int(Rnd * 3) + 1
For i = t To 5
k = i
For j = i + 1 To 6
If a(j) < a(k) Then k = j
Next j
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
執行該程序段后，a(1)~a(6)各元素的值不可能是（ ）
A．6,1,3,7,8,9 B．6,9,1,3,7,8 C．6,9,3,7,1,8 D．1,3,6,7,8,9
三、創新題組
8.有如下程序段：
Dim i As Integer, j As Integer, a(1 To 5) As Integer
For i = 1 To 5
a(i) = Int( Rnd * 5 + 1)
For j = 1 To i-1
If a(i) = a(j) Then
i = i-1 : Exit For ’ Exit For用于強行退出For循環
End If
Next j
Next i
執行程序后，數組中數據可能是（ ）
A．1 4 3 2 5 B．1 1 3 5 4 C．1 4 5 6 3 D．2 3 4 5 5
9.有如下VB程序段：
For i= 1 To 5
a(i)= Int(Rnd * 20) + 1
Next i
For i= 2 To 5
If i Mod 2 = 1 And a(i-1) < a(i)Then
t = a(i):a(i) = a(i-1):a(i-1) = t
Else
a(i) = a(i) - 1
End If
Next i
執行該程序段后，a（1）~ a（5）各元素不可能的值是（ ）
A. 7 3 0 19 0 B. 18 16 1 9 2 C. 20 17 8 19 15 D. 19 0 7 8 4

10.有如下 VB 程序段：
i = 1: n = 5
Do While i <= n
x = Int(Rnd * 9) + 1
If x Mod 2 = 1 Then
a(i) = x
Else
a(n) = x
n = n - 1
End If
i = i + 1
Loop
數組a元素的初值均為0，執行該程序段后,則a(1)至a(5)各元素值不可能的是( )
A. 7 1 3 9 8 B. 3 3 0 8 8 C. 0 1 0 4 2 D. 1 3 5 5 0
11. 有如下VB程序段：
For i = 1 To 7
a(i) = Int(Rnd * 90) + 10
Next i
For i = 7 To 2 Step -1
If a(i) Mod 2 = 1 And a(i) < a(i - 1) Then
t = a(i): a(i) = a(i - 1): a(i - 1) = t
Else
a(i) = a(i) / 2
End If
Next i
執行該程序段后，a（1）~ a（7）各元素不可能是（ ）
A.11，73，58，62，36，37，79 B.37，74，59，63，19，40，6
C.39，76，61，65，20，41，7 D.72，55，57，61，18，39，5

12.有VB程序段如下：
Randomize
For i = 1 To 6
a(i) = Int(Rnd * 20) + 1
If a(i) Mod 2 = i Mod 2 Then
a(i) = a(i) - 1
Else
a(i) = a(i) + 2
End If
Next i
執行該程序段后，a（1）~ a（6）各元素可能的是（ ）
A. 13，2，7，12，5，18 B. 22，7，0，15，4，19
C. 20，9，18，23，4，7 D. 6，0，4，21，18，17

展開更多......

收起↑