【正文】 填空。ABC39。 Next J Print Next I End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A) BB B) A C) B D) AA CCC BB CC BBB DDDD CCC DDD CCCC EEEEE DDDD EEEE DDDDD (17) 在窗體上畫(huà)兩個(gè)名稱分別為 Text Texte2 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() Dim X As Integer,N As Integer X=1 N=0 Do While X20 X=X*3 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 29 頁(yè) 共 81 頁(yè) N=N+1 Loop =Str(X) =Str(N) End Sub 程序運(yùn)行后， 單擊命令按鈕，在兩個(gè)文本框中顯示的值分別是 A) 15 和 1 B) 27 和 3 C) 195 和 3 D) 600 和 4 (18) 在窗體上畫(huà)一個(gè)名稱為 Text1 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() Dim I As Integer,N As Integer For I=0 To 50 I=I+3 N=N+1 If I10 Then Exit For Next =Str(N) End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是 A) 2 B) 3 D) 4 D) 5 2022 年 4 月二級(jí) VB （ 11）在窗體上畫(huà)一個(gè)名稱為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() X = 0 N = Inputbox() For I = 1 To N For J = 1 To I X = X + 1 Next J Next I Print X End Sub 程序運(yùn)行后，單擊命令按鈕，如果輸入 3，則在窗體上顯示的內(nèi)容是 A） 3 B） 4 C） 5 D） 6 （ 22）以下能夠正確計(jì)算 N!的程序是 A） Private Sub Command1_Click() N = 5: X = 1 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 30 頁(yè) 共 81 頁(yè) Do X = X * I I = I + 1 Loop While I N Print X End Sub B。 2022 年 4 月二級(jí) VB (6)以下語(yǔ)句的輸出結(jié)果是 : 【 6】 Print Int(*100+)/100 四、 分支、循環(huán) 2022 年 9 月二級(jí) VB (15) 在窗體上畫(huà)一個(gè)命令按鈕，名稱為 Command1。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是 A) Left B) Mid C) String D) Instr (10) 設(shè) A=“Visual Basic”，下面使 B=“Basic”的語(yǔ)句是 A) B=Left(A,8,12) B) B=Mid(A,8,5) C) B=Rigth(A,5,5) D) B=Left(A,8,5) 2022 年 4 月二級(jí) VB （ 3）下列可作為 Visual Basic 變量名的是 A） AA B） 4A C） ?Xy D） Consta （ 4）設(shè)有如下的記錄類型 Type Student Number As String Name As String Age As Integer End Type 則正確引用該記錄類型變量的代碼是 A） = 張紅 B） Dim S As Student = 張紅 C） Dim S As Type Student D） Dim S As Type = 張紅 = 張紅 （ 5）函數(shù) String（ N, Str）的功能是 A）把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串 B）返回由 N 個(gè)字符組成的字符串 C）從字符串中取出 N 個(gè)字符 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 24 頁(yè) 共 81 頁(yè) D）從字符串中第 N 個(gè)字符的位置開(kāi)始取子字符串 （ 6）將數(shù)學(xué)表達(dá)式 Cos2(A+B)+5e2寫(xiě)成 Visual Basic 的表達(dá)式，其正確的形式是 A） Cos (A+B) ^2+5*Exp(2) B） Cos^2(A+B)+ 5*Exp(2) C） Cos (A+B) ^2+5*Ln(2) D） Cos^2(A+B)+ 5*Ln(2) （ 7）在窗體上畫(huà)一 個(gè)命令按鈕，名稱為 Command1。 (4) 與數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的 Visual Basic 表達(dá)式是【 6】 。 Private Sub Command1_Click() If = 【 9】 Then 【 10】 = 【 11】 Else Msgbox 請(qǐng)選擇要?jiǎng)h除的項(xiàng)目 End If End Sub 2022 年 4 月二級(jí) VB (1) Visual Basic 應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是【 1】 。 （ 4）在窗體上畫(huà)一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為 Text Label1和 Command1，然后編寫(xiě)如下兩個(gè)事件過(guò)程： Private Sub Command1_Click() S$ = Inputbox(請(qǐng)輸入一個(gè)字符串 ) = S$ End Sub Private Sub Text1_Change() = Ucase(Mid(, 7)) End Sub 程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)輸入對(duì)話框，如果在該對(duì)話框中輸入字符串 Visualbasic，則在標(biāo)簽中顯示的內(nèi)容是 【 8】 。請(qǐng)?jiān)? 【 12】、【 13】 和【 14】處將程序補(bǔ)充完整。 Private Sub Form_Load() ”北京 ” ”上海 ” ”湖北 ” End Sub Private Sub [14] () = [15] End Sub 2022 年 4 月二級(jí) VB （ 4）為了在運(yùn)行時(shí)把 D:\Pic 文件夾下的圖形文件 裝入圖片框 Picture1，所使用的語(yǔ)句為 【 4】 。 (9) 在窗體上畫(huà)一個(gè)名稱為 Lable1 的標(biāo)簽和一個(gè)名稱為 List1 的列表框。當(dāng)向文框中輸入任何字符時(shí)，命令按鈕 Command1變?yōu)榭捎?。程序運(yùn)行后，在 Text Text2中輸入兩個(gè)數(shù)值，選中一個(gè)單選按鈕后單擊命令按鈕，相應(yīng)的計(jì)算結(jié)果顯示在 Label4，程序運(yùn)行情況如圖所示。以下 正確的事件過(guò)程是 A） Private Sub Bigicon_Click() = False End Sub B） Private Sub Bigicon_Click() Me. = True 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 17 頁(yè) 共 81 頁(yè) End Sub C） Private Sub Bigicon_Click() = True End Sub D） Private Sub Bigicon_Click() = True End Sub （ 32）假定通用對(duì)話框的名稱為 Commondialog1，命令按鈕的名稱為 Command1，則單擊命令按鈕后，能使打開(kāi)的對(duì)話框的標(biāo)題為 “New Title”的事件過(guò)程是 A） Private Sub Command1_Click() = New Title End Sub B） Private Sub Command1_Click() = New Title End Sub C） Private Sub Command1_Click() = New Title End Sub D） Private Sub Command1_Click() = New Title End Sub 填空題 2022 年 9 月二級(jí) VB (1) 在窗體上畫(huà)兩個(gè)標(biāo)簽，其名稱分別為 Label1和 Label2,Caption屬性分別為 “ 數(shù)值 ” 及空白；然后畫(huà)一個(gè)名稱為 Hscoll1的水平滾動(dòng)條，其 Min的值為 0， Max 的值為 100。以下能實(shí)現(xiàn)上述操作的事件過(guò)程是： A)Private Sub Text1_Change() =”計(jì)算機(jī)等級(jí)考試 ” End Sub B) Private Sub Command1_Click() Caption=”計(jì)算機(jī)等級(jí)考試 ” End Sub C) Private Sub Form1_Click() =”計(jì)算機(jī)等級(jí)考試 ” 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 14 頁(yè) 共 81 頁(yè) End Sub D) Private Sub Command1_Click() =”計(jì)算機(jī)等級(jí)考試 ” End Sub (16)為了使命令按鈕 (名稱為 Command1)右移 200，應(yīng)使用的語(yǔ)句是 A) 200 B) 200 C) = +200 D) = （ 18）在窗體上畫(huà)一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分別為 Text1 和 Timer1,在屬性窗口中把計(jì)時(shí)器的Interval 屬性設(shè)置為 1000， Enabled 屬性設(shè)置為 False,程序運(yùn)行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() = =All File|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt =2 =Vbtest =1 End Sub 對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是 A） 該對(duì)話框被設(shè)置為 “ 打開(kāi) ” 對(duì)話框 B） 在該對(duì)話框中指定的默認(rèn)文件名為空 C） 該對(duì)話框的標(biāo)題為 Vbtest D） 在該對(duì)話框中指定的默認(rèn)文件類型為文本文件 (*.Txt) (27) 在窗體上畫(huà)一個(gè)名稱為 Label標(biāo)題為 “Visual Basic考試 ” 的標(biāo)簽，兩個(gè)名稱分別為 Command1和 Command標(biāo)題分別為 “ 開(kāi)始 ” 和 “ 停止 ” 的命令按鈕，然后畫(huà)一個(gè)名稱為 Timer1的計(jì)時(shí)器控件，并把其 Interval屬性設(shè)置為 500,如圖所示。Open B) 把 Caption屬性設(shè)置為 Oamp。影響 Text1 的 Tab 順序的屬性是 A) Tabstop B)Enabled C) Visible D)Tabindex (4) 在窗體上畫(huà)一個(gè)名稱為 List1 的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)使用的循環(huán)語(yǔ)句為 A) For I=0 To …… Next B) For I=0 To Listcount1 Next C) For I=1 To 全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 9 頁(yè) 共 81 頁(yè) Next D) For I=1 To Listcount Next (6) 以下關(guān)于圖片框控件的說(shuō)法中，錯(cuò)誤的是 A) 可以通過(guò) Print 方法在圖片框中輸出文本 B) 清空?qǐng)D片框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形 C) 圖片框控 件可以作為容器使用 D) 用 Stretch 屬性可以自動(dòng)調(diào)整圖片框中圖形的大小 (8) 以下敘述中錯(cuò)誤的是 A) 下拉式菜單和彈出式菜單都用菜單編輯器建立 B) 在多窗體程序中，每個(gè)窗體都可以建立自己的菜單系統(tǒng) C) 除分隔線外，所有菜單項(xiàng)都能接收 Click 事件 D) 如果把一個(gè)菜單項(xiàng)的 Enabled 屬性設(shè)置為 False，則該菜單項(xiàng)不可見(jiàn) (10) 以下敘述中錯(cuò)誤的是 A) 一個(gè)工程可以包括多種類型的文件 B) Visual Basic 應(yīng)用程序 既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行 C) 程序運(yùn)行后，在內(nèi)存中只能駐留一個(gè)窗體 D) 對(duì)于事件驅(qū)動(dòng)型應(yīng)用程序，每次運(yùn)行時(shí)的執(zhí)行順序可以不一樣 (13) 確定一個(gè)控件在