(25) 閱讀程序　　
　　Option Base 1　　
　　Private Sub Form_Click()　　
　　Dim arr,Sum
　　　　Sum = 0　　
　　arr = Array(1,3,5,7,9,11,13,15,17,19)　　
　　For i=1 To 10　　
　　If arr(i)/3 = arr(i)\3 Then　　
　　Sum = Sum + arr(i)　　
　　End If　　
　　Next i　　
　　Print Sum　　
　　End Sub　　
　　程序運(yùn)行后，單擊窗體，輸出結(jié)果為　　
　　A) 13 B) 14 C) 27 D) 15　　
　　(26) 在窗體上畫一個(gè)名稱為File1的文件列表框，并編寫如下程序：　　
　　Private Sub File1_DblClick()　　
　　x=Shell(File1.FileName,1)　　
　　End Sub
　　　　以下關(guān)于該程序的敘述中，錯(cuò)誤的是　　
　　A) x沒有實(shí)際作用，因此可以將該語(yǔ)句寫為：Call Shell(File1,FileName,1)　　
　　B) 雙擊文件列表框中的文件，將觸發(fā)該事件過程　　
　　C) 要執(zhí)行的文件的名字通過File1.FileName指定　　
　　D) File1中顯示的是當(dāng)前驅(qū)動(dòng)器、當(dāng)前目錄下的文件　　
　　(27) 在窗體上畫一個(gè)名稱為L(zhǎng)abel1、標(biāo)題為“VisualBasic考試”的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為“開始”和“停止”的命令按鈕，然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500，如圖所示�！　�
　　編寫如下程序：　　
　　Private Sub Form_Load()　　
　　Timer1.Enabled=False　　
　　End Sub　　
　　Private Sub Command1_Click()　　
　　Timer1.Enabled=True　　
　　End Sub　　　Private Sub Command2_Click()　　
　　Timer1.Enabled=False　　
　　End Sub　　
　　Private Sub Timer1_Timer()　　
　　If Label1.Left　　
　　Label1.Left = Label1.Left + 20　　
　　Else　　
　　Label1.Left=0　　
　　End If　　
　　End Sub　　
　　程序運(yùn)行后單擊“開始”按鈕，標(biāo)簽在窗體中移動(dòng)�！　�
　　對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是　　
　　A) 標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃蟆　?BR>　　B) 單擊“停止”按鈕后再單擊“開始”按鈕，標(biāo)簽從停止的位置繼續(xù)移動(dòng)　　
　　C) 當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動(dòng)　　
　　D) 標(biāo)簽按指定的時(shí)間間隔移動(dòng)　　
　　(28) 執(zhí)行以下程序段　　
　　a$="abbacddcba"　　
　　For i=6 To 2 Step -2　　
　　X=Mid(a,i,i)　　
　　Y=Left(a,i)　　
　　z=Right(a,i)　　
　　z=UCase(X & Y & z)　　
　　Next i　　
　　Print z　　
　　輸出結(jié)果為　　
　　A) ABA B) BBABBA C) ABBABA D) AABAAB　　
　　(29) 在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：　　
　　Option Base 1　　　　Private Sub Command1_Click()　　
　　Dim a As Variant　　
　　a=Array(1,2,3,4,5)　
　　Sum=0　　
　　For i=1 To 5　　
　　Sum = sum+a(i)　　
　　Next i　　
　　x=Sum/5　　
　　For i =1 To 5　　
　　If a(i)>x Then Print a(i);　　
　　Next i　　
　　End Sub　　
　　程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是　　
　　A) 1 2 B) 1 2 3 C) 3 4 5 D) 4 5