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

2018年3月全國計算機二級VB強化練習(xí)題及答案(4)

來源:考試吧 2018-03-03 15:53:08 要考試,上考試吧! 萬題庫
“2018年3月全國計算機二級VB強化練習(xí)題及答案(4)”供考生參考。更多計算機等級考試模擬試題等信息請訪問考試吧計算機等級考試網(wǎng)。

  1.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文本框,以及四個單選按鈕:第一個名稱為option1用來設(shè)置文本框的字體為"宋體",

  第二個名稱為option2用來設(shè)置文本框的字體為"黑體",第三個名稱為option3用來設(shè)置文本框的字體大小為8號,第四個名稱為option4用來設(shè)置文本框的字體大小為12號。

  程序如下:(程序運行剛開始時,四個單選按鈕都沒有選中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋體", "黑體")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  當(dāng)程序運行時,先單擊單選按鈕option2,然后單擊命令按鈕command1,則文本框text1的變化效果是(B) (單)

  A.字體設(shè)置為宋體

  B.字體設(shè)置為黑體

  C.字體大小設(shè)置為8號

  D.字體大小設(shè)置為12號

  2.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文本框,以及四個單選按鈕:第一個名稱為option1用來設(shè)置文本框的字體為"宋體",

  第二個名稱為option2用來設(shè)置文本框的字體為"黑體",第三個名稱為option3用來設(shè)置文本框的字體大小為8號,第四個名稱為option4用來設(shè)置文本框的字體大小為12號。

  程序如下:(程序運行剛開始時,四個單選按鈕都沒有選中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋體", "黑體")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  當(dāng)程序運行時,先單擊單選按鈕option3,然后單擊命令按鈕command1,則文本框text1的變化效果是(C) (單)

  A.字體設(shè)置為宋體

  B.字體設(shè)置為黑體

  C.字體大小設(shè)置為8號

  D.字體大小設(shè)置為12號

  3.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文本框,以及四個單選按鈕:第一個名稱為option1用來設(shè)置文本框的字體為"宋體",

  第二個名稱為option2用來設(shè)置文本框的字體為"黑體",第三個名稱為option3用來設(shè)置文本框的字體大小為8號,第四個名稱為option4用來設(shè)置文本框的字體大小為12號。

  程序如下:(程序運行剛開始時,四個單選按鈕都沒有選中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋體", "黑體")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  當(dāng)程序運行時,先單擊單選按鈕option1,然后單擊命令按鈕command1,則文本框text1的變化效果是(A) (單)

  A.字體設(shè)置為宋體

  B.字體設(shè)置為黑體

  C.字體大小設(shè)置為8號

  D.字體大小設(shè)置為12號

  4.在窗體上建立一個名稱為Command1的命令按鈕,一個名稱為Text1的文本框,以及四個單選按鈕:第一個名稱為option1用來設(shè)置文本框的字體為"宋體",

  第二個名稱為option2用來設(shè)置文本框的字體為"黑體",第三個名稱為option3用來設(shè)置文本框的字體大小為8號,第四個名稱為option4用來設(shè)置文本框的字體大小為12號。

  程序如下:(程序運行剛開始時,四個單選按鈕都沒有選中)

  Private Sub Command1_Click( )

  Text1.FontName = Iif(Option1.Value, "宋體", "黑體")

  Text1.FontSize = Iif(Option3.Value, 8, 12)

  End Sub

  當(dāng)程序運行時,先單擊單選按鈕option4,然后單擊命令按鈕command1,則文本框text1的變化效果是(D) (單)

  A.字體設(shè)置為宋體

  B.字體設(shè)置為黑體

  C.字體大小設(shè)置為8號

  D.字體大小設(shè)置為12號

  5.在窗體中建立了一個名稱為lstBooks的列表框,一個名稱為txtItem的文本框,四個名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。

  如下程序:

  Sub Form_Load( )

  lstBooks.AddItem "計算機文化基礎(chǔ)"

  lstBooks.AddItem "VB程序設(shè)計教程"

  lstBooks.AddItem "操作系統(tǒng)"

  End Sub

  Sub cmdAdd_Click( )

  lstBooks.AddItem txtItem

  txtItem = ""

  End Sub

  對該程序說法不正確的是(D) (單)

  A.窗體啟動時,在列表框中有三個列表項目,依次為:計算機文化基礎(chǔ)、VB程序設(shè)計教程、操作系統(tǒng)

  B.單擊cmdAdd命令按鈕后,把文本框中的信息添加到列表框中

  C.在列表框中添加列表項目的方法為additem方法

  D.以上說法都不正確

  6.在窗體中建立了一個名稱為LSTBOOKS的列表框,一個名稱為txtItem的文本框,四個名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。如下程序的功能是將修改后的項目送回列表框,替換原項目,實現(xiàn)修改:

  Sub cmdModify_Ok_Click( )

  LSTBOOKS.List【Lstbooks.lstindex】 = txtItem

  txtItem = ""

  End Sub

  7.對以下程序說法不正確的是(C) (單)

  Private Sub Combo1_LostFocus( )

  flag = False

  For i = 0 To Combo1.ListCount - 1

  If Combo1.List(i) = Combo1.Text Then

  flag = True

  Exit For

  End If

  Next i

  If Not flag Then

  Combo1.AddItem Combo1.Text

  End If

  End Sub

  A.當(dāng)焦點離開組合框時組合框的LostFocus事件被觸發(fā)

  B.添加到組合框的新項目不能永久保存,下次運行該程序中看不到上次保存的項目,利用該事件過程能夠?qū)⑤斎氲男聝?nèi)容添加到組合框中,下次運行該程序中能夠看到上次保存的項目

  C.邏輯變量flag=true時,表示組合框的項目中有該輸入新項目

  D.邏輯變量flag=false時,表示組合框的項目中有該輸入新項目

  8.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "數(shù)量:3臺"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系統(tǒng):Windows 2000"

  Else

  List1.AddItem "操作系統(tǒng):Windows 98"

  End If

  End If

  End Sub

  當(dāng)窗體啟動后,先選中檢查框check1,然后單擊命令按鈕command1,運行效果為(A) (單)

  A.列表框List1中的列表項目分別為:品牌:松下數(shù)量:3臺

  B.列表框List1中的列表項目分別為:操作系統(tǒng):Windows 2000 操作系統(tǒng):Windows 98

  C.沒有任何顯示

  D.以上都不正確

  *9.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "數(shù)量:3臺"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系統(tǒng):Windows 2000"

  Else

  List1.AddItem "操作系統(tǒng):Windows 98"

  End If

  End If

  End Sub

  當(dāng)窗體啟動后,先選中檢查框check2(其中單選按鈕option1被選中),然后單擊命令按鈕command1,運行效果為(B)(單)

  A.列表框List1中的列表項目分別為:品牌:松下數(shù)量:3臺

  B.列表框List1中的列表項目分別為:操作系統(tǒng):Windows 2000 操作系統(tǒng):Windows 98

  C.列表框List1中的列表項目為:操作系統(tǒng):Windows 2000

  D.以上都不正確

  53430.窗體中有兩個檢查框名稱分別為check1和check2,一個命令按鈕名稱為command1,一個列表框名稱為list1,兩個單選按鈕名稱分別為option1和option2。如下程序:

  Private Sub Command1_Click( )

  If Check1.Value = 1 Then

  List1.AddItem "品牌:松下"

  List1.AddItem "數(shù)量:3臺"

  End If

  If Check2.Value = 1 Then

  If Option1.Value = True Then

  List1.AddItem "操作系統(tǒng):Windows 2000"

  Else

  List1.AddItem "操作系統(tǒng):Windows 98"

  End If

  End If

  End Sub

  當(dāng)窗體啟動后,先選中檢查框check2(其中單選按鈕option2被選中),然后單擊命令按鈕command1,運行效果為(B)(單)

  A.列表框List1中的列表項目分別為:品牌:松下數(shù)量:3臺

  B.列表框List1中的列表項目為:操作系統(tǒng):Windows 98

  C.列表框List1中的列表項目為:操作系統(tǒng):Windows 2000

  11 .傳值:形參得到的是實參的值,形參值的改變不會影響實參的值。在定義形參前加關(guān)鍵字Byval�!�

  12.以下利用SUB關(guān)鍵字定義的子過程Rate,其調(diào)用格式不正確的是(B) (單)

  A.call Rate(12,56)

  B.Rate(12,56)

  C.Rate 12,56

  D.以上A和C正確

  13.如下程序運行后顯示結(jié)果為(B) (單)

  Public Temp As integer

  Sub Form_Load( )

  Dim Temp As Integer

  Temp=10

  Form1.Temp=20

  Print Form1.Temp;"和";Temp

  End Sub

  A.10和20

  B.20和10

  C.10和10

  D.20和20

  14.以下對靜態(tài)變量說法不正確的是(D) (單)

  A.定義格式為:Static 變量名 [AS 類型]

  B.在子過程名/函數(shù)名前加Static,表示該過程/函數(shù)體內(nèi)局部變量全部都是靜態(tài)變量

  C.靜態(tài)變量必須在過程體內(nèi)定義

  D.靜態(tài)變量可以在窗體的"通用聲明部"定義

  15 .過程在自身定義的內(nèi)部調(diào)用自己本身的結(jié)構(gòu)稱為遞歸�!�

  16.如下程序功能是求n的階層:

  Function fac(n As Integer) As Integer

  If n = 1 Then

  fac = 1

  Else

  fac = n * fac(n - 1)

  End If

  End Function

  Sub Command1_Click( )

  n=val(inputbox("請輸入數(shù)值"))

  Print "fac(n)=";fac(n)

  End Sub

  以下說法不正確的是(D) (單)

  A.若fac函數(shù)中If n = 1 Then fac = 1沒有,僅有語句:fac = n * fac(n - 1) ,程序運行將會出錯

  B.若輸入的n<=0 ,程序運行將會出錯

  C.若n=4,則輸出結(jié)果為:fac(n)=24

  D.以上說法都不正確

  17.利用遞歸求最大公約數(shù)的程序為:

  Public Function gcd(m As Integer, n As Integer) As Integer

  If (m Mod n) = 0 Then

  gcd =【n】

  Else

  gcd = gcd(n, m Mod n)

  End If

  End Function

  Private Sub Form_Click( )

  Print gcd(10, 4)

  End Sub

  18 .以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進行切換�!�

  Private Sub Check1_Click( )

  Text1.FontBold = Not Text1.FontBold

  End Sub

  *19 .以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進行切換�!�

  Private Sub Check1_Click( )

  Text1.FontItalic = Not Text1.FontItalic

  End Sub

  *20 .以下程序的作用是單擊Check1檢查框?qū)⑹沟肨ext1文本框的字體在"加粗"和"常規(guī)"之間進行切換�!�

  Private Sub Check1_Click( )

  Text1.FontUnderline = Not Text1.FontUnderline

  End Sub

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

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

  相關(guān)推薦:

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

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

  2018計算機等級考試報名時間|各地報名入口|報名條件

  2018年全國計算機等級考試時間|教材目錄(2018年版)

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

  報名方法|考試內(nèi)容|考試大綱|2018計算機等級考試科目

  歷年真題匯總|考試吧策劃: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-2025 考試吧計算機等級考試網(wǎng) 出版物經(jīng)營許可證新出發(fā)京批字第直170033號  
京ICP證060677 京ICP備05005269號 中國科學(xué)院研究生院權(quán)威支持(北京)
在線模擬試題
考證通關(guān)殺器
考試最新資訊
學(xué)
一次通關(guān)技巧