单项选择题

以下是窗体的Click事件过程：
Private Sub Form_Click( )
Dim a As Integer
a = 1
Do
a = a + 5
Loop Until a ＞ 18
Print a
End Sub
程序运行过程中单击窗体，输出结果是______。

A．1
B．20
C．16
D．21

<上一题目录下一题>

热门试题

单项选择题

设整型数组a有10个元素，其中前9个元素中数已按小到大顺序排列，下面程序段的作用是______。x = InputBox( 请输入一个整数 )k = 8DoIf x ＞ = a(k) Thena(k+1) = xExit DoElsea(k + 1) = a(k)If k = 0 Then a(k) = xk = k - 1End IfLoop Until k ＜ 0

A．把x中的数插入数组a，使数组中的数仍然保持从小到大的顺序
B．在数组a中找到小于或等于x的数，把x中的数放到这个数的后面
C．把x中的数放到下标为0的数组元素中
D．把数组a中的数依次后移，然后把x中的数放到数组的最前面

单项选择题

有下面程序代码：Private Sub Command1_Click( )Dim a%(10)For k = 1 To 9a(k) = InputBox( )Next. kCall proc(a( ), 6, 3, 10)For k = 1 To 10Print a(k); ;Next kEnd SubPrivate Sub proc(a%( ), x%, m%, n%)For k = n To m + 1 Step -1a(k) = a(k - 1)Next ka(k) = xEnd SubCommand1_Click过程运行时，从键盘输入9个数：12 32 65 34 87 56 79 50 52，则输出是______。

A．12 32 65 34 87 56 79 50 52
B．6 12 32 65 34 87 56 79 50 52
C．12 32 65 34 87 56 79 50 52 6
D．12 32 6 65 34 87 56 79 50 52

相关试题