I __________ an interesting news item in yesterday’s TimesA.came acrossB.came upC.came toD

A.I do not understand either her meaning or his intention.

B.I do not understand either what she means or what he intends.

C.The fact that I denied what he accused me of impressed the jury.

D.My denial of his accusations impressed the jury.

下列程序执行后，打印结果是（）。

Option Explicit

Private Sub Command1_Click()

Dim i As Integer

Dim sum As Integer

sum = 0

For i = 3 To 100

Ifi Mod 3 = 0 And i Mod 11 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

A.状态字由用户任意指定

B.状态字与C口的外部引脚无关

C.查INTR位不如查IBF或OBF位可靠

D.INTE位由I/O操作过程中自动产生

下列程序用来计算1+2+…n,当和大于100时停止计算,请填空。

Private Sub Form_Click()

Dim n as integer,s as integer,I as integer,k as integer

s=0

k=0

n=inputbox(″请输入n的值)

For i=1 to 100

k=k+1

s=s+I

【 】

Next i

Print s

End Sub

Interrupt Service Routines (ISR) are the )ortions of the program code that handle the interrupt requests. When an Interrupt is triggere i (either a hardware or software interrupt), the processor breaks away from the current task. moves the (72) to the ISR, and then continues operation. When the ISR has comr Leted, the processor retums execution to the previous location.

A.memory

B.function

C.instruction pointer D variable

设有如下程序：

Option Base 1

Private Sub Commandl Click()

Dim arrl

Dim Min As Integer，i As Integer

arrl=Array(12,435,76,-24,78,54,866,43)

Min=【 】

For i=2 To 8

If arrl(i)＜Min Then【 】

Next

Print"最小值是:";Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

在窗体上添加如下命令按纽，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10)As Integer Dim p(3)As Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub该过程的运行结果为______。

A．35

B．33

C．31

D．29

当Form_Click;事件发生时,窗体上显示的第三行是 ______。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Dim x(5, 5) As Integer For i = 1 To 5 k = 1 For j = 1 To 5 If i ＜= j Then x(i, j) = k + 1 k=k+2 Else x(i, j) = k + 1 End If Next j Next i For i = 1 To 5 For j = 1 To 5 Print x(i, j) Next j Print Next i End Sub

A．22135

B．21357

C．22213

D．13579

设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem＞90 Then Exit For Next End Sub 对于该事件过程，以下叙述中错误的是______。

A．a数组中的数据是20个100以内的整数

B．语句For Each arrItem In a有语法错误

C．If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数

D．If arrItem＞90……语句的作用是当数组元素的值大于90时退出For循环

A.terminate

B.consideration

C.prosecute

D.plaintiff