【正文】 20. 若用戶單擊命令按鈕 Command1,則此時(shí)將被執(zhí)行的事件過程名為 _ 單擊事件 。 18．用于返回列表框中列表項(xiàng)的項(xiàng)目總數(shù)的 屬性是 __ ListCount ___。 16．將名稱為 cmd1 的命令按鈕設(shè)置為不可用，使用語句是 =False _。 Label1的字體設(shè)置成粗體，使用的語句是 = True _。 Len(Chr(65) + Chr(66))的值是 __ 2 __。 10．若要將窗體 Form1 隱藏起來，調(diào)用語句為 = False __。 8．若要求在文本框中輸入密碼時(shí)，在文本框中只顯示 號(hào)，則應(yīng)在此文本框的屬性窗口中設(shè)置 _ PasswordChar __屬性值為 。 6．向列表框中添加一個(gè)項(xiàng)目的方法名為 __ AddItem _。 4．語句 x=inputbox(請(qǐng)輸入數(shù)據(jù) ),輸入 12345，則 x的值 的 類型為 _ 字符類型 _。 2．用語句 Dim A (3 to 3) as Integer，定義的數(shù)組元素個(gè)數(shù)是 __ 7 _。 Enabled 設(shè)置為 True Enabled 設(shè)置為 False Visibled 設(shè)置為 True Visibled 設(shè)置為 False 2０ .對(duì)象的三個(gè)要素是 ( D )。x+y 1５ .假定有如下的命令按鈕 (名稱為 Command1)事件過程： Private Sub Command1_Click() x=InputBox(輸入： ， 輸入整數(shù) ) MsgBox輸入的數(shù)據(jù)是： ” ， ” 輸入數(shù)據(jù)： +x End Sub 程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù) 10，則以下敘述中錯(cuò)誤的是 ( A )。 A. Print A=x+y B. PrintA=。 ab+1 Or cd And b Mod c A. True B. 1 C. 1 D. 0 1３ .以下可以作為 Visual Basic 變量名的是 ( A )。 A．窗體 B．程序 C. 文件 D．工程 （ B ） (視輸入的數(shù)據(jù)而定 ) ，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是（ C ） Commondialog1和一個(gè)命令按鈕 Command1,當(dāng)單擊按鈕時(shí)程序的功能是（ B ） Private Sub Command1 _ Click() End Sub （ B ） +D B. Ctrl+G C. Ctrl+F D. Ctrl+E ，所使用的方法是（ A ） Cos(0)+Abs(1)+Int(Rnd(1))的值是（ D ） A. 1 B. 1 C. 0 D. 2 據(jù)組成的字節(jié)數(shù)是 ( B ) m， x， y，均為 Integer 型變量，則執(zhí)行下面語句后 m值是（ A ） m=1： X=2： Y=3 m=IIf(X＞ Y， X+Y， XY) A. 1 B. 0 C. 1 D. 2 （ B ） A..執(zhí)行 運(yùn)行 菜單中的 啟動(dòng) 命令 啟動(dòng) 命令 D. 按下 F5鍵 Ctrl+F5鍵 11． 以下能從字符串 VisualBasic中直接取出子字符串 Basic的函數(shù)是 ( B )。 n2 amp。 n1 amp。Tab(20)。Tab(20)。 “=”。 ch amp。 Dim Result!,Ntrue%,Nfalse% Private Sub Form_Click( ) ‘產(chǎn)生隨機(jī)數(shù)并生成表達(dá)式 Dim n1%,n2%,n%,ch$ Randomize n1=Int(Rnd*100+1) n2=Int(Rnd*100+1) n=_____ Int(Rnd * 4 + 1)________________ ‘產(chǎn)生 1~4 之間的整數(shù)（運(yùn)算符代碼） Select ____ Case n____________ Case 1 ch=”+”: Result=n1+n2 Case 2 ch=””: Result=n1n2 Case 3 ch=” ”: Result=n1*n2 Case 4 ch=”247。運(yùn)行界面如下圖。每次隨機(jī)產(chǎn)生兩個(gè) 1~100 之間的整數(shù)和隨機(jī)產(chǎn)生一種運(yùn)算符 （ +、 、247。spc(6)。 Private Sub Form_Click( ) For i= 1 To 5 Print Tab(i)。 st Loop Until x = 0 = st End Sub 25．編寫一個(gè)函數(shù)用于實(shí)現(xiàn)二分查找。 c Next k ffff = a End Function 24． 編寫一個(gè)函數(shù)：將一個(gè)十進(jìn)制整數(shù)（ m）轉(zhuǎn)換成二進(jìn)制數(shù)（ N） 。 Public Function ff(ch As String) ‘加密函數(shù) Dim a As String, b As String, c As String Dim n% n = Len(ch) For k = 1 To n b = Mid$(ch, k, 1) c = Chr$(Asc(b) + 3) a = a amp。解密的過程則是加密的逆操作。 s / (i 1) End Sub Private Sub Command3_Click() p = Val(InputBox(輸入追加學(xué)生的學(xué)號(hào) , p)) For k = 1 To UBound(a) If p a(k).Num Then MsgBox 您所要追加的學(xué)生的學(xué)號(hào)有誤 Exit For Else q = Val(InputBox(請(qǐng)輸入追加的成績 , q)) a(k).Score = q End If Next k End Sub Private Sub Form_Load() ReDim a(0) = 插入數(shù)據(jù) = 求平均分 = 追加 End Sub 23. 為輸入的文本加密。此外，要求程序具有插入數(shù)據(jù)和求學(xué)生成績平均分的功能。試編寫一個(gè)程序，用數(shù)組 A 模擬學(xué)生成績庫，建立成績庫的過程就是輸入數(shù)據(jù)成員的過程。 成績是 : amp。 學(xué)號(hào)是 : amp。 a(p).clno。學(xué)號(hào)按順序生產(chǎn) 39。成績隨機(jī) 39。5 個(gè)班級(jí) 39。