freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

全國計(jì)算機(jī)等級考試二級vb筆試試卷2004年9月(編輯修改稿)

2025-02-10 01:31 本頁面
 

【文章內(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)簽全部移出窗體后,將從窗體的
點(diǎn)擊復(fù)制文檔內(nèi)容
試題試卷相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1