华南俳烁实业有限公司

　　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

　　當程序運行時，先單擊單選按鈕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

　　當程序運行時，先單擊單選按鈕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

　　當程序運行時，先單擊單選按鈕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

　　當程序運行時，先單擊單選按鈕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.當焦點離開組合框時組合框的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

　　當窗體啟動后，先選中檢查框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

　　當窗體啟動后，先選中檢查框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

　　當窗體啟動后，先選中檢查框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