运行下面的程序,单击窗体后在窗体上显示的第一行结果是_____,第二行结果是_____

执行下面的程序，单击窗体后窗体消息框内显示结果是()。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STR&CHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUB

A．ABCE

B．ABCD

C．ABDB

D．ABFB

下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub

A．10

B．12

C．37

D．22

下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End Sub

A．3

B．9

C．5

D．6

'下面的程序运行时,单击窗体后,窗体上显示的结果是()。

Private Sub Form_Click(B )

Dim a(1 To 5)As Integer

a(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4

n = 5

For i = 1 To n - 1

Min = i

For j = i + 1 To n

If a(j)< a(min)then min = j

Next j

t = a(i): a(i)= a(Min): a(Min)= t

Next i

For i = 1 To n

Print a(i);

Next i

End Sub

A. 2 3 1 5 4

B. 1 2 3 4 5

C. 9 8 7 6 5

D. 5 5 5 5 5

'下面的程序运行时,单击窗体后,窗体上显示的结果是(B )。

Private Sub Form_Click(B )

Dim a(1 To 5)As Integer

a(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4

n = 5

For i = 1 To n - 1

Min = i

For j = i + 1 To n

If a(j)< a(min)then min = j

Next j

t = a(i): a(i)= a(Min): a(Min)= t

Next i

For i = 1 To n

Print a(i);

Next i

End Sub

A. 2 3 1 5 4

B. 1 2 3 4 5

C. 9 8 7 6 5

D. 5 5 5 5 5

运行下列程序：

Private Sub Form_Click()

a = 32: b = 5

Do

a = a / 2

b = b + 1

Loop While b< 10

Print a

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.1

B.2

C.5

D.11

C．