机动车驾驶人一个记分周期内记分达到12分的，不得驾驶机动车。A：正确B：错误

运行下面的程序后，输出的结果为 Cls Dim t(5，5) as Integer For i=1 To 5：t(i，i)=1：Next For i=1 To 5 For j=1 To 5 Print t(i，j)， Next j Print Next I

A．1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l 1 1 1 1 1 1

B．1 1 l 1 1

C．1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1

D．1 1 1 1 1

运行下面的程序后，输出的结果为 Cls Dim t(5, 5) as Integer For i=1 To 5: t(i,i) =1: Next For i = 1 To 5 For j = 1 To 5 Print t(i, j), Next Print Next

A．1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

B．1 1 1 1 1

C．1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1

D．1 1 1 1 1

运行下面的程序后，输出的结果为 Cls Dim t(5,5)as Integer For i=1 To 5:t(i,i)=1:Next For i=1 To 5 For j=1 To 5 Print t(i,j)， Next Print Next

A． 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

B．1 1 1 1 1

C．1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1

D．1 1 1 1 1

下面运行程序后,单击命令按钮,输出的结果是 【 】 。

Private Sub Command1_Click()

Dim a%(1 To 5),i%, s#

For i=1 To 5

a(i)=i

Next

s=Fun(a)

Print "s="; s;

End Sub

Function Fun(a() As Integer)

Dim t#, i%

t=1

For i=LBound(a) To UBound(a)

t=t  a(i)

Next

Fun=t

End Function

执行下面的程序，消息框的输出结果是()。

Dim a(1 To 10),b(1 To 5)As Integer

sum=0

For i=1 To 10

Next i

For i=1 To 5

Next i

For i=1 To 5

Next i

MsgBox sum

下面程序运行后，单击命令按钮，输出的结果是______。

Private Sub Command1_Click()

Dim a%(1 To 5)，i%，s

For i=1 To 5

a(i) =i

Next

s=Fun(A)Print "s="；s；

End Sub

Function Fun(a() As Integer)

Dim t，i%

t=1

For i=LBound(A)To UBound(A)t=t*a(i)

Next

Fun=t

End Function

A．0 0

B．-5 0

C．-5 6

D．0 6

下列程序段的输出结果为______。

Dim S1(5)As Integer,S2(5)As Integer,S3(5)As Integer

N=4

ForI=1 To N

S1(I)=I

L=N+i-I

S2(I)=L

NextI

S3(5)=0

ForK=1 To N

S3(K)=S1(K)*S2(K)

S3(5)=S3(5)+S3(K)

NextK

PrintS1(3)=S1(5)；S1(2)

PrintS2(4)=S3(

阅读下面的程序：

Private Sub Form_Click（）

Dim Check As Boolean, Counter As Integer

Check = True

Counter = 5

Do

Do While Counter < 20

Counter = Counter + 1

If Counter = 10 Then

Check = False

Exit Do

End If

Loop

Loop Until Check = False

Print Counter

End Sub

程序运行后，单击窗体，输出结果为______。

运行下列程序，单击窗体后输出的结果是()。

Private Sub Form_Click()

Dim a

Dim s As Integer, i As Integer

a = Array(1, 2, 3, 4, 5, 6)

s = 1

For i = 5 To 1 Step -2

s = s * a(i)

Next i

Print s

End Sub

A、 15

B、 48

C、 120

D、 720