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

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

　　程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒有選中)

　　Private Sub Command1_Click( )

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

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

　　End Sub

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

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

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

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

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

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

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

　　程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒有選中)

　　Private Sub Command1_Click( )

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

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

　　End Sub

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

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

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

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

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

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

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

　　程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒有選中)

　　Private Sub Command1_Click( )

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

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

　　End Sub

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

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

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

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

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

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

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

　　程序如下：(程序運(yùn)行剛開始時(shí)，四個(gè)單選按鈕都沒有選中)

　　Private Sub Command1_Click( )

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

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

　　End Sub

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

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

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

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

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

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

　　如下程序：

　　Sub Form_Load( )

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

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

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

　　End Sub

　　Sub cmdAdd_Click( )

　　lstBooks.AddItem txtItem

　　txtItem = ""

　　End Sub

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

　　A.窗體啟動(dòng)時(shí)，在列表框中有三個(gè)列表項(xiàng)目，依次為：計(jì)算機(jī)文化基礎(chǔ)、VB程序設(shè)計(jì)教程、操作系統(tǒng)

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

　　C.在列表框中添加列表項(xiàng)目的方法為additem方法

　　D.以上說法都不正確

　　6.在窗體中建立了一個(gè)名稱為LSTBOOKS的列表框，一個(gè)名稱為txtItem的文本框，四個(gè)名稱分別為cmdAdd、cmdDelete、cmdModify、cmdModify_Ok的命令按鈕。如下程序的功能是將修改后的項(xiàng)目送回列表框，替換原項(xiàng)目，實(shí)現(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)焦點(diǎn)離開組合框時(shí)組合框的LostFocus事件被觸發(fā)

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

　　C.邏輯變量flag=true時(shí)，表示組合框的項(xiàng)目中有該輸入新項(xiàng)目

　　D.邏輯變量flag=false時(shí)，表示組合框的項(xiàng)目中有該輸入新項(xiàng)目

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

　　Private Sub Command1_Click( )

　　If Check1.Value = 1 Then

　　List1.AddItem "品牌：松下"

　　List1.AddItem "數(shù)量：3臺(tái)"

　　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)窗體啟動(dòng)后，先選中檢查框check1，然后單擊命令按鈕command1，運(yùn)行效果為(A) (單)

　　A.列表框List1中的列表項(xiàng)目分別為：品牌：松下數(shù)量：3臺(tái)

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

　　C.沒有任何顯示

　　D.以上都不正確

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

　　Private Sub Command1_Click( )

　　If Check1.Value = 1 Then

　　List1.AddItem "品牌：松下"

　　List1.AddItem "數(shù)量：3臺(tái)"

　　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)窗體啟動(dòng)后，先選中檢查框check2(其中單選按鈕option1被選中)，然后單擊命令按鈕command1，運(yùn)行效果為(B)(單)

　　A.列表框List1中的列表項(xiàng)目分別為：品牌：松下數(shù)量：3臺(tái)

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

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

　　D.以上都不正確

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

　　Private Sub Command1_Click( )

　　If Check1.Value = 1 Then

　　List1.AddItem "品牌：松下"

　　List1.AddItem "數(shù)量：3臺(tái)"

　　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)窗體啟動(dòng)后，先選中檢查框check2(其中單選按鈕option2被選中)，然后單擊命令按鈕command1，運(yùn)行效果為(B)(單)

　　A.列表框List1中的列表項(xiàng)目分別為：品牌：松下數(shù)量：3臺(tái)

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

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

　　11 .傳值：形參得到的是實(shí)參的值，形參值的改變不會(huì)影響實(shí)參的值。在定義形參前加關(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.如下程序運(yùn)行后顯示結(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) ，程序運(yùn)行將會(huì)出錯(cuò)

　　B.若輸入的n<=0 ，程序運(yùn)行將會(huì)出錯(cuò)

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

　　D.以上說法都不正確

　　17.利用遞歸求最大公約數(shù)的程序?yàn)椋?/P>

　　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ī)"之間進(jìn)行切換�！�

　　Private Sub Check1_Click( )

　　Text1.FontBold = Not Text1.FontBold

　　End Sub

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

　　Private Sub Check1_Click( )

　　Text1.FontItalic = Not Text1.FontItalic

　　End Sub

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

　　Private Sub Check1_Click( )

　　Text1.FontUnderline = Not Text1.FontUnderline

　　End Sub

　　相關(guān)推薦：

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

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

　　2018計(jì)算機(jī)等級考試報(bào)名時(shí)間|各地報(bào)名入口|報(bào)名條件

　　2018年全國計(jì)算機(jī)等級考試時(shí)間|教材目錄（2018年版）

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

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

　　歷年真題匯總|考試吧策劃：2018年計(jì)算機(jī)等級考試報(bào)考指南