【文章內(nèi)容簡介】
擊命令按鈕,在窗體上顯示的內(nèi)容是 A.10 5 B.12 5 C.10 7 D.12 7 (23)設(shè)有如下程序 Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox(輸入數(shù)據(jù)) If n%26lt。10 Then Call GetArray(a,n) End If End Sub Private Sub GetArray(b()As Integer,n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)=CInt(Rnd()*100) If b(i)/2=b(i)\2 Then j=j+1 c(j)=b(i) End If Next Print j End Sub 以下敘述中錯(cuò)誤的是 A.?dāng)?shù)組b中的偶數(shù)被保存在數(shù)組c中 B.程序運(yùn)行結(jié)束后,在窗體上顯示的是c數(shù)組中元素的個(gè)數(shù) C.GetArray過程的參數(shù)n是按值傳送的 D.如果輸入的數(shù)據(jù)大于10,則窗體上不顯示任何顯示 (24)在窗體上畫一個(gè)名稱為Command1的命令按鈕,然后編寫如下事件過程: Option Base 1 Private Sub Command1_Click() Dim a a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i)= a(i)+i1 Next Print a(3) End Sub 程序運(yùn)行后,單擊命令按鈕,則在窗體上顯示的內(nèi)容是 A.4 B.5 C.6 D.7 (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(,1) End Sub 以下關(guān)于該程序的敘述中,錯(cuò)誤的是 A.x沒有實(shí)際作用,因此可以將該語句寫為:Call Shell(File1,FileName,1) B.雙擊文件列表框中的文件,將觸發(fā)該事件過程 C. D.File1中顯示的是當(dāng)前 驅(qū)動(dòng) 器、當(dāng)前目錄下的文件 (27)在窗體上畫一個(gè)名稱為Label標(biāo)題為“VisualBasic考試”的標(biāo)簽,兩個(gè)名稱分別為Command1和Command標(biāo)題分別為“開始”和“停止”的命令按鈕,然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件,并把其Interval屬性設(shè)置為500,如圖所示。 編寫如下程序: Private Sub Form_Load() =False End Sub Private Sub Command1_Click() =True End Sub Private Sub Command2_Click() =False End Sub Private Sub Timer1_Timer() If = + 20 Else =0 End If End Sub 程序運(yùn)行后單擊“開始”按鈕,標(biāo)簽在窗體中移動(dòng)。 對于這個(gè)程序,以下敘述中錯(cuò)誤的是 A.標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃? B.單擊“停止”按鈕后再單擊“開始”按鈕,標(biāo)簽從停止的位置繼續(xù)移動(dòng) C.當(dāng)標(biāo)簽全部移出窗體后,將從窗體的