首頁 - 網(wǎng)校 - 萬題庫 - 美好明天 - 直播 - 導(dǎo)航
您現(xiàn)在的位置: 考試吧 > 計算機等級考試 > 計算機二級考試 > VB > 模擬試題 > 正文

2018年9月計算機二級VB考試鞏固練習(xí)及答案(2)

來源:考試吧 2018-05-04 14:18:57 要考試,上考試吧! 萬題庫
“2018年9月計算機二級VB考試鞏固練習(xí)及答案(2)”供考生參考。更多計算機等級考試模擬試題等信息請訪問考試吧計算機等級考試網(wǎng)。

  點擊查看:2018年9月計算機二級VB考試鞏固練習(xí)及答案匯總

  1.確定一個控件在窗體上的位置的屬性是(C)(單)

  A.Width和Height

  B.Width或Height

  C.Top和Left

  D.Top或Left

  2.在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕,然后編寫如下事件過程:

  Private Sub Command1_Click( )

  Text1.Text = "Visual"

  Me.Text1 = "Basic"

  Text1 = "Program"

  End Sub

  程序運行后,如果單擊命令按鈕,則在文本框中顯示的是(C)(單)

  A.Visual

  B.Basic

  C.Program

  D.出錯

  3.以下關(guān)系表達(dá)式中,其值為False的是(A)(單)

  A."ABC">"AbC"

  B."the"<>"they"

  C."VISUAL"=UCase("Visual")

  D."Integer">"Int"

  4.語句Print int(5/4*6\5) Mod 2的輸出結(jié)果是(B)(單)

  A.0

  B.1

  C.2

  D.3

  5.在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕,其名稱分別為Text1、Label1和Command1,然后編寫如下兩個事件過程:

  Private Sub Command1_Click( )

  strText = InputBox("請輸入")

  Text1.Text = strText

  End Sub

  Private Sub Text1_Change( )

  Label1.Caption = Right(Trim(Text1.Text), 3)

  End Sub

  程序運行后,單擊命令按鈕,如果在輸入對話框中輸入abcdef,則在標(biāo)簽中顯示的內(nèi)容是(D)(單)

  A.空

  B.abcdef

  C.abc

  D.def

  6.在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程:

  Private Sub Command1_Click( )

  x = -5

  If x >0 Then

  y = x ^ 2

  Else

  y = x

  End If

  Print y

  End Sub

  程序運行后,單擊命令按鈕,窗體上顯示的是(A)(單)

  A.-5

  B.25

  C.1

  D.-1

  7.一個工程中含有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1,如果在Form1中有語句Pubilc X As

  Integer,在Model1中有語句Pubilc Y As Integer,則以下敘述中正確的是(A)(單)

  A.變量X、Y的作用域相同

  B.Y的作用域是Model1

  C.在Form1的任何地方中可以直接使用Y

  D.在Form2中可以直接使用X和Y

  8.在窗體上畫一個名稱為Drive1的驅(qū)動器列表框,一個名稱為Dir1的目錄列表框。當(dāng)改變當(dāng)前驅(qū)動器時,目錄列表框應(yīng)該與之同步改變。設(shè)置兩個控件同步的命令放在一個事件過程中,這個事件過程是(A)(單)

  A.Drive1_Change

  B.Drive1_Click

  C.Dir1_Click

  D.Dir1_KeyPress

  9.在窗體上畫一個命令按鈕(其NAME屬性為Command1),然后編寫如下代碼:

  Option Base 1

  Private Sub Command1_Click( )

  Dim a

  s = 0

  a = Array(1, 2, 3, 4)

  For I = 4 To 1 Step -1

  s = s + a(I)

  Next I

  Print s

  End Sub

  運行上面的程序,單擊命令按鈕,其輸出結(jié)果是(D)(單)

  A.4321

  B.1234

  C.34

  D.10

  10.在窗體上畫一個名稱為Text1的文本框,編寫以下代碼:

  Private Sub Text1_KeyPress(KeyAscii As Integer)

  If KeyAscii < 65  Or  KeyAscii> 90 Then

  msgBox "請輸入大寫字母"

  KeyAscii = 0

  End If

  End Sub

  以下能說明該事件過程正確是(A)(單)

  A.要求文本框只能接收大寫字母的輸入

  B.要求文本框只能接收小寫字母的輸入

  C.要求文本框只能接收數(shù)字的輸入

  D.要求文本框只能接收65到90之間的數(shù)值的輸入

  11.在窗體上畫一個名稱為Text1的文本框,一個名稱為Command1的命令按鈕,然后編寫如下事件過程和通用過程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  If n\2 = n/2 Then

  f = f1(n)

  Else

  f = f2(n)

  End If

  Print f; n

  End Sub

  Public Function f1(ByRef x)

  x=x*x

  f1=x+x

  End Function

  Public Function f2(ByVal x)

  x=x*x

  f2=x+x+x

  End Function

  程序運行后,在文本框中輸入3,然后單擊命令按鈕,窗體上顯示的是(D)(單)

  A.72 36

  B.108 36

  C.72 6

  D.27 3

  12.在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下事件過程:

  Private Sub Command1_Click( )

  c = "1234"

  For i = 1 To 4

  c1 = Trim(Str( ))

  Print c1

  Next i

  End Sub

  程序運行后,單擊命令按鈕,要求在窗體上顯示如下內(nèi)容

  1

  12

  123

  1234

  則在下劃線處應(yīng)填入的內(nèi)容為(B)(單)

  A.Right(c1,i)

  B.Left(c1,i)

  C.Mid(c1,i,1)

  D.Mid(c1,i,i)

  13.在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Text1的文本框,然后編寫如下事件過程:

  Private Sub Command1_Click( )

  n = Val(Text1.Text)

  For i = 2 To n

  For j = 2 To sqr(i)

  If i Mod j = 0 Then Exit For

  Next j

  If j >Sqr(i) Then Print i

  Next i

  End Sub

  該事件過程的功能是(C)(單)

  A.輸出n以內(nèi)的奇數(shù)

  B.輸出n以內(nèi)的偶數(shù)

  C.輸出n以內(nèi)的素數(shù)

  D.輸出n以內(nèi)能被j整除的數(shù)

  14.在窗體上畫一個名稱為Command1的命令按鈕,然后編寫如下通用過程和命令按鈕的事件過程:

  Private Function f(m As Integer)

  If m Mod 2 = 0 Then

  f = m

  Else

  f = 1

  End If

  End Function

  Private Sub Command1_Click( )

  Dim i As Integer

  s = 0

  For i = 1 To 5

  s = s + f(i)

  Next

  Print s

  End Sub

  程序運行后,單擊命令按鈕,在窗體上顯示的是(C)(單)

  A.11

  B.10

  C.9

  D.8

  15.在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕,然后編寫如下事件過程:

  Private Sub Command1_Click( )

  Dim array1(10, 10) As Integer

  Dim i As Integer, j As Integer

  For i = 1 To 3

  For j = 2 To 4

  array1(i, j) = i + j

  Next j

  Next i

  Text1.Text = array1(2, 3) + array1(3, 4)

  End Sub

  程序運行后,單擊命令按鈕,在文本框中顯示的值是(D)(單)

  A.15

  B.14

  C.13

  D.12

  16.Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴展名是【BAS或.BAS】(注意不要寫點)。

  17.在菜單編輯器中建立一個菜單,其主菜單項的名稱為mnuEdit,Visible屬性為False,程序運行后,如果用鼠標(biāo)右鍵單擊窗體,則彈出與mnuEdit相應(yīng)的菜單。

  Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  popupmenu mnuEdit

  End If

  End Sub

  18.在菜單編輯器中建立一個菜單,其主菜單項的名稱為mnuEdit,Visible屬性為False,程序運行后,如果用鼠標(biāo)右鍵單擊窗體,則彈出與mnuEdit相應(yīng)的菜單。以下是實現(xiàn)上述功能的程序,請?zhí)羁铡?/P>

  Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button=2 Then

  【popupmenu】 mnuEdit

  End If

  19.為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的【Interval】屬性設(shè)置為500。

  20.為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的Interval屬性設(shè)置為【500】。

掃描/長按二維碼幫助考試通關(guān)
2018年等考報考資訊
2018等考各科通關(guān)技巧
2018各科最新預(yù)測試卷
2018等考各科備考資料

微信搜索"考試吧"了解更多考試資訊、下載備考資料

  相關(guān)推薦:

  2018年全國計算機等級考試必做試題匯總(各科目)

  2018年全國計算機等級考試復(fù)習(xí)知識點匯總(各科目)

  2018全國計算機等級考試備考經(jīng)驗及應(yīng)試技巧匯總

  歷年真題匯總|考試吧策劃:2018年計算機等級考試報考指南

0
收藏該文章
0
收藏該文章
文章搜索
萬題庫小程序
萬題庫小程序
·章節(jié)視頻 ·章節(jié)練習(xí)
·免費真題 ·?荚囶}
微信掃碼,立即獲取!
掃碼免費使用
版權(quán)聲明:如果計算機等級考試網(wǎng)所轉(zhuǎn)載內(nèi)容不慎侵犯了您的權(quán)益,請與我們聯(lián)系800@exam8.com,我們將會及時處理。如轉(zhuǎn)載本計算機等級考試網(wǎng)內(nèi)容,請注明出處。
Copyright © 2004- 考試吧計算機等級考試網(wǎng) 出版物經(jīng)營許可證新出發(fā)京批字第直170033號 
京ICP證060677 京ICP備05005269號 中國科學(xué)院研究生院權(quán)威支持(北京)
在線模擬試題
考證通關(guān)殺器
考試最新資訊
學(xué)
一次通關(guān)技巧