(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　　
　　程序運行后，單擊窗體，輸出結果為　　
　　A) 13 B) 14 C) 27 D) 15　　
　　(26) 在窗體上畫一個名稱為File1的文件列表框，并編寫如下程序：　　
　　Private Sub File1_DblClick()　　
　　x=Shell(File1.FileName,1)　　
　　End Sub
　　　　以下關于該程序的敘述中，錯誤的是　　
　　A) x沒有實際作用，因此可以將該語句寫為：Call Shell(File1,FileName,1)　　
　　B) 雙擊文件列表框中的文件，將觸發該事件過程　　
　　C) 要執行的文件的名字通過File1.FileName指定　　
　　D) File1中顯示的是當前驅動器、當前目錄下的文件　　
　　(27) 在窗體上畫一個名稱為Label1、標題為“VisualBasic考試”的標簽，兩個名稱分別為Command1和Command2、標題分別為“開始”和“停止”的命令按鈕，然后畫一個名稱為Timer1的計時器控件，并把其Interval屬性設置為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　　
　　程序運行后單擊“開始”按鈕，標簽在窗體中移動。　　
　　對于這個程序，以下敘述中錯誤的是　　
　　A) 標簽的移動方向為自右向左　　
　　B) 單擊“停止”按鈕后再單擊“開始”按鈕，標簽從停止的位置繼續移動　　
　　C) 當標簽全部移出窗體后，將從窗體的另一端出現并重新移動　　
　　D) 標簽按指定的時間間隔移動　　
　　(28) 執行以下程序段　　
　　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　　
　　輸出結果為　　
　　A) ABA B) BBABBA C) ABBABA D) AABAAB　　
　　(29) 在窗體上畫一個名稱為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　　
　　程序運行后，單擊命令按鈕，在窗體上顯示的內容是　　
　　A) 1 2 B) 1 2 3 C) 3 4 5 D) 4 5