【正文】 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) 在窗體上畫兩個名稱分別為 Text Texte2 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim X As Integer,N As Integer X=1 N=0 Do While X20 X=X*3 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 29 頁 共 81 頁 N=N+1 Loop =Str(X) =Str(N) End Sub 程序運(yùn)行后， 單擊命令按鈕，在兩個文本框中顯示的值分別是 A) 15 和 1 B) 27 和 3 C) 195 和 3 D) 600 和 4 (18) 在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程： 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 月二級 VB （ 11）在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程： 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）以下能夠正確計算 N!的程序是 A） Private Sub Command1_Click() N = 5: X = 1 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 30 頁 共 81 頁 Do X = X * I I = I + 1 Loop While I N Print X End Sub B。 2022 年 4 月二級 VB (6)以下語句的輸出結(jié)果是 : 【 6】 Print Int(*100+)/100 四、 分支、循環(huán) 2022 年 9 月二級 VB (15) 在窗體上畫一個命令按鈕，名稱為 Command1。ABC39。確定第二個字符串在第一個字符串中起始位置的函數(shù)是 A) Left B) Mid C) String D) Instr (10) 設(shè) A=“Visual Basic”，下面使 B=“Basic”的語句是 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 月二級 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 個字符組成的字符串 C）從字符串中取出 N 個字符 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 24 頁 共 81 頁 D）從字符串中第 N 個字符的位置開始取子字符串 （ 6）將數(shù)學(xué)表達(dá)式 Cos2(A+B)+5e2寫成 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）在窗體上畫一 個命令按鈕，名稱為 Command1。 (6) 在窗體上畫一個名稱為 Text1 的文本框，然后畫三個單選按鈕，并用這三個單選按鈕建立一個控件數(shù)組，名稱為 Option1，程序運(yùn)行后，如果單擊某個單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換，如圖所示，請?zhí)羁铡? (4) 與數(shù)學(xué)表達(dá)式 對應(yīng)的 Visual Basic 表達(dá)式是【 6】 。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡? Private Sub Command1_Click() If = 【 9】 Then 【 10】 = 【 11】 Else Msgbox 請選擇要刪除的項目 End If End Sub 2022 年 4 月二級 VB (1) Visual Basic 應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是【 1】 。程序運(yùn)行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項目數(shù)， 運(yùn)行情況如圖所示 (選擇 第三個項目 的情況 )。 （ 4）在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為 Text Label1和 Command1，然后編寫如下兩個事件過程： Private Sub Command1_Click() S$ = Inputbox(請輸入一個字符串 ) = S$ End Sub Private Sub Text1_Change() = Ucase(Mid(, 7)) End Sub 程序運(yùn)行后，單擊命令按鈕，將顯示一個輸入對話框，如果在該對話框中輸入字符串 Visualbasic，則在標(biāo)簽中顯示的內(nèi)容是 【 8】 。 （ 3）在窗體上畫一個標(biāo)簽（名稱為 Label1）和一個計時器（名稱為 Timer1），然后編寫如下幾個事件過程： 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 21 頁 共 81 頁 Private Sub Form_Load() = False = 【 5】 End Sub Private Sub Form_Click() = 【 6】 End Sub Private Sub Timer1_Timer() = 【 7】 End Sub 程序運(yùn)行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔 1秒鐘變換一次。請在 【 12】、【 13】 和【 14】處將程序補(bǔ)充完整。 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 20 頁 共 81 頁 填空題 （ 9）在窗體上畫一個名稱為 Combo1 的組合框，畫兩個名稱分別 Label1 和 Label2 及 Caption 屬性分別為城市名稱 和空白的標(biāo)簽 。 Private Sub Form_Load() ”北京 ” ”上海 ” ”湖北 ” End Sub Private Sub [14] () = [15] End Sub 2022 年 4 月二級 VB （ 4）為了在運(yùn)行時把 D:\Pic 文件夾下的圖形文件 裝入圖片框 Picture1，所使用的語句為 【 4】 。當(dāng)雙擊列表框中的某個項目時，在標(biāo)簽 Label1 中顯示所選中的項目，如圖所示。 (9) 在窗體上畫一個名稱為 Lable1 的標(biāo)簽和一個名稱為 List1 的列表框。 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 19 頁 共 81 頁 Private Sub Form_Load() =False End Sub Private Sub Text1_ [6] () =True End Sub (4) 在菜單編輯器中建立了一個菜單，名為 Pmenu，用下面的語句可以把它作為彈出式菜單彈出，請?zhí)羁?。?dāng)向文框中輸入任何字符時，命令按鈕 Command1變?yōu)榭捎谩? Private Sub Command1_Click() For I=0 To 3 If [3] =True Then Opt=Option1(I).Caption End If Next Select Case [4] Case ”+” Result=Val()+Val() Case ” ” Result=Val()Val() Case ”*” Result=Val()*Val() Case ”/” Result=Val()/Val() End Select [5] =Result End Sub (3) 在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱 為 Text1的文本框。程序運(yùn)行后，在 Text Text2中輸入兩個數(shù)值，選中一個單選按鈕后單擊命令按鈕，相應(yīng)的計算結(jié)果顯示在 Label4，程序運(yùn)行情況如圖所示。請在 [1] 和 [2] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。以下 正確的事件過程是 A） Private Sub Bigicon_Click() = False End Sub B） Private Sub Bigicon_Click() Me. = True 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 17 頁 共 81 頁 End Sub C） Private Sub Bigicon_Click() = True End Sub D） Private Sub Bigicon_Click() = True End Sub （ 32）假定通用對話框的名稱為 Commondialog1，命令按鈕的名稱為 Command1，則單擊命令按鈕后，能使打開的對話框的標(biāo)題為 “New Title”的事件過程是 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 月二級 VB (1) 在窗體上畫兩個標(biāo)簽，其名稱分別為 Label1和 Label2,Caption屬性分別為 “ 數(shù)值 ” 及空白；然后畫一個名稱為 Hscoll1的水平滾動條，其 Min的值為 0， Max 的值為 100。 End Sub “A”，然后單擊窗體，則在窗體上顯示的內(nèi)容是 A） Visual Basic B）程序設(shè)計 C） Visual Basic 程序設(shè)計 D） A 程序設(shè)計 （ 31）假定有下表所列的菜單結(jié)構(gòu)： ━━━━━━━━━━━━━━━━━━━━ 名稱 層次 Appear 1（主菜單） Bigicon 2（子菜單） Smallicon 2（子菜單） “大圖標(biāo) ”，則在該菜單項前添加一個 “214。以下能實現(xiàn)上述操作的事件過程是： A)Private Sub Text1_Change() =”計算機(jī)等級考試 ” End Sub B) Private Sub Command1_Click() Caption=”計算機(jī)等級考試 ” End Sub C) Private Sub Form1_Click() =”計算機(jī)等級考試 ” 全國計算機(jī)等級考試