下面的程序运行时，单击窗体后，窗体上显示的结果是（ ）。

A．9 8 7 6 3 2

B．2 3 6 7 8 9

C．9 8 7 6 3

D．2 3 6 7 8

[单选题]'下面的程序运行时,单击窗体后,窗体上显示的结果是( )。Private Sub Form_Click(B )D．im a(1 To 5)As Integera(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4n = 5F．or i = 1 To n - 1Min = iF．or j = i + 1 To nIf a(j)< a(Min)Then Min = jNext jt = a(i): a(i)= a(Min): a(Min)= tNext iF．or

[单选题]'下面的程序运行时,单击窗体后,窗体上显示的结果是(B )。Private Sub Form_Click(B )D．im a(1 To 5)As Integera(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4n = 5F．or i = 1 To n - 1Min = iF．or j = i + 1 To nIf a(j)< a(Min)Then Min = jNext jt = a(i): a(i)= a(Min): a(Min)= tNext iF．or

[单选题]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 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 SubA．3B．9C．5D．6

[单选题]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 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 SubA．10B．12C．37D．22

[单选题]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End SubA．30 50B．30 30C．20 20D．10 20

[单选题]执行下面的程序，单击窗体后在窗体上显示的结果是 ______。Private Sub form_ Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1 = "e" for I = t To 2 Str2 = Ucase (Str1) Str1 = Str2 & Str1 Str3 = Str3 & Str1 str1 = Chr (Asc(Str1) + I) Next

[单选题]下列程序运行时，两次单击窗体后，显示的结果是( )。 Private Sub Form_Click() Dim b As Integer Static c As Integer b=b+2 c=c+2 Print "b="；b;"c=";c End SubA．b=2 c=2 b=2 c=2B．b=2 c=2 b=4 c=4C．b=2 c=2 b=2 c=4D．b=2 c=2 b=4 c=2

[单选题]执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 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 SUBA．ABCEB．ABCDC．ABDBD．ABFB

[单选题]以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 Private Function p1(x As Integer，y As Integel，z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer，y As Integer，z As Integer) p2=p1(2，y，x)+x End Function Private SubCommandl_Click() Dim a As Integer

[单选题]程序运行后，单击窗体，则在窗体上显示的内容是（）.A . 6B . 5C . 4D . 3