| 1. 单选题 | 详细信息 |
|
下列表达式的运算结果与其他选项不同的是( )
A . Len("123") + 2 ^ 2
B . Abs(Int(-6.8))
C . Asc(Mid("789", 1, 1))
D . Val("9") - Sqr(4)
|
|
| 2. 单选题 | 详细信息 |
|
某排序算法的VB程序段如下:
For i = 1 To 2 For j = 1 To 6 - 2 * i 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(1)~a(6)的初始值依次为“15,13,44,38,26,7”,执行该程序段后,数组a元素的值分别为( )
A . 44,38,26,13,15,7
B . 44,7,26,13,15,38
C . 15,38,26,13,44,7
D . 44,38,26,15,13,7
|
|
| 3. 单选题 | 详细信息 |
|
有如下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
|
|
| 4. 单选题 | 详细信息 |
|
有如下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. 单选题 | 详细信息 |
|
有如下VB程序段:
For i = 1 To 9 Step 2 b(a(i) Mod 10) = b(a(i) Mod 10) + 1 Next i s = 0 For i = 0 To 9 Step 3 s =s + b(i) Next i 数组b各元素初始值为0, 数组元素a(1)到a(9)的值依次为“29,74,12,38,16,45,21,57,33”,则执行该程序段后,s的值为( )
A . 5
B . 4
C . 3
D . 2
|
|
| 6. 单选题 | 详细信息 |
|
有如下VB程序段:
s = "123456789" g = "" For i = 1 To 3 n = Len(s) x = Int(Rnd * n) + 1 g = g + Mid(s, x, 1) s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x) Next i 在程序执行时,若变量x的值依次为3,3,6,则最终变量g的值为( )
A . "336"
B . "346"
C . "348"
D . 15
|
|
| 7. 单选题 | 详细信息 |
|
某对分查找算法的VB程序段如下:
i = 1: j = 8: s = "" key =Text1.Text Do While i <= j m =(i + j) \ 2 If key = a(m) Then s = s + "M" Exit Do ElseIf key > a(m) Then j = m - 1: s = s + "L" Else i = m + 1: s = s + "R" End If Loop Text1.Text = s 数组元素a(1)到a(8)的值依次为“4,22,27,32,35,44,56,59”,该程序段执行后,文本框Text1中显示的内容不可能是( )
A . M
B . LR
C . RM
D . LM
|
|
| 8. 单选题 | 详细信息 |
|
有如下VB程序段,已知a数组各元素值为“7,5,6,3,1,8”,b数组各元素的初始值为“0”。则经过以下程序段处理后,b数组各元素分别为( )
For i = 1 To 5 k = i For j = i + 1 To 6 If a(k) > a(j) Then k = j Next j t = a(k): a(k) = a(i): a(i) = t b((i + 2) Mod 6 + 1) = a(i) Next i
A . 1 3 5 6 7 8
B . 7 0 1 3 5 6
C . 6 7 8 1 3 5
D . 6 7 0 1 3 5
|
|
| 9. 单选题 | 详细信息 |
|
某VB程序段如下:
s = "Hello World" s1 = "" n = Len(s) For i = 1 To n \ 2 If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then s1 = s1 + Mid(s, i, 1) Else s1 = Mid(s, n - i + 1, 1) + s1 End If Next i Text1.Text = s1 执行该程序段后,在文本框Text1中显示的是( )
A . WlleH
B . oorld
C . dlroo
D . orldo
|
|
| 10. 单选题 | 详细信息 |
|
有VB程序段如下:
s = "2019appreciate": sum = 0 For i = 1 To Len(s) ch = Mid(s, i, 1) If ch >= "a" And ch <= "z" Then m = Asc(ch) - Asc("a") + 1 a(m) = a(m) + 1 End If Next i For i = 1 To 10 If a(i) > 0 Then sum = sum + 1 Next i 数组a各元素的初始值都为0,执行该程序段后,变量sum的值为( )
A . 10
B . 7
C . 4
D . 3
|
|