亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

　　1.在窗體上建立一個(gè)名稱(chēng)為Command1的命令按鈕，一個(gè)名稱(chēng)為T(mén)ext1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱(chēng)為option1用來(lái)設(shè)置文本框的字體為"宋體"，

　　第二個(gè)名稱(chēng)為option2用來(lái)設(shè)置文本框的字體為"黑體"，第三個(gè)名稱(chēng)為option3用來(lái)設(shè)置文本框的字體大小為8號(hào)，第四個(gè)名稱(chēng)為option4用來(lái)設(shè)置文本框的字體大小為12號(hào)。

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

　　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號(hào)

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

　　2.在窗體上建立一個(gè)名稱(chēng)為Command1的命令按鈕，一個(gè)名稱(chēng)為T(mén)ext1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱(chēng)為option1用來(lái)設(shè)置文本框的字體為"宋體"，

　　第二個(gè)名稱(chēng)為option2用來(lái)設(shè)置文本框的字體為"黑體"，第三個(gè)名稱(chēng)為option3用來(lái)設(shè)置文本框的字體大小為8號(hào)，第四個(gè)名稱(chēng)為option4用來(lái)設(shè)置文本框的字體大小為12號(hào)。

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

　　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號(hào)

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

　　3.在窗體上建立一個(gè)名稱(chēng)為Command1的命令按鈕，一個(gè)名稱(chēng)為T(mén)ext1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱(chēng)為option1用來(lái)設(shè)置文本框的字體為"宋體"，

　　第二個(gè)名稱(chēng)為option2用來(lái)設(shè)置文本框的字體為"黑體"，第三個(gè)名稱(chēng)為option3用來(lái)設(shè)置文本框的字體大小為8號(hào)，第四個(gè)名稱(chēng)為option4用來(lái)設(shè)置文本框的字體大小為12號(hào)。

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

　　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號(hào)

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

　　4.在窗體上建立一個(gè)名稱(chēng)為Command1的命令按鈕，一個(gè)名稱(chēng)為T(mén)ext1的文本框，以及四個(gè)單選按鈕：第一個(gè)名稱(chēng)為option1用來(lái)設(shè)置文本框的字體為"宋體"，

　　第二個(gè)名稱(chēng)為option2用來(lái)設(shè)置文本框的字體為"黑體"，第三個(gè)名稱(chēng)為option3用來(lái)設(shè)置文本框的字體大小為8號(hào)，第四個(gè)名稱(chēng)為option4用來(lái)設(shè)置文本框的字體大小為12號(hào)。

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

　　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號(hào)

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

　　5.在窗體中建立了一個(gè)名稱(chēng)為lstBooks的列表框，一個(gè)名稱(chēng)為txtItem的文本框，四個(gè)名稱(chēng)分別為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

　　對(duì)該程序說(shuō)法不正確的是(D) (單)

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

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

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

　　D.以上說(shuō)法都不正確

　　6.在窗體中建立了一個(gè)名稱(chēng)為L(zhǎng)STBOOKS的列表框，一個(gè)名稱(chēng)為txtItem的文本框，四個(gè)名稱(chēng)分別為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.對(duì)以下程序說(shuō)法不正確的是(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)離開(kāi)組合框時(shí)組合框的LostFocus事件被觸發(fā)

　　B.添加到組合框的新項(xiàng)目不能永久保存，下次運(yùn)行該程序中看不到上次保存的項(xiàng)目，利用該事件過(guò)程能夠?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è)檢查框名稱(chēng)分別為check1和check2，一個(gè)命令按鈕名稱(chēng)為command1，一個(gè)列表框名稱(chēng)為list1，兩個(gè)單選按鈕名稱(chēng)分別為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.沒(méi)有任何顯示

　　D.以上都不正確

　　*9.窗體中有兩個(gè)檢查框名稱(chēng)分別為check1和check2，一個(gè)命令按鈕名稱(chēng)為command1，一個(gè)列表框名稱(chēng)為list1，兩個(gè)單選按鈕名稱(chēng)分別為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è)檢查框名稱(chēng)分別為check1和check2，一個(gè)命令按鈕名稱(chēng)為command1，一個(gè)列表框名稱(chēng)為list1，兩個(gè)單選按鈕名稱(chēng)分別為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)鍵字定義的子過(guò)程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.以下對(duì)靜態(tài)變量說(shuō)法不正確的是(D) (單)

　　A.定義格式為：Static 變量名 [AS 類(lèi)型]

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

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

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

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

　　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("請(qǐng)輸入數(shù)值"))

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

　　End Sub

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

　　A.若fac函數(shù)中If n = 1 Then fac = 1沒(méi)有，僅有語(yǔ)句：fac = n * fac(n - 1) ，程序運(yùn)行將會(huì)出錯(cuò)

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

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

　　D.以上說(shuō)法都不正確

　　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