【文章內(nèi)容簡(jiǎn)介】 ype Student Number As String Name As String Age As Integer End Type 則正確引用該記錄類(lèi)型變量的代碼是 A) =張紅 B) Dim s As Student =張紅 C) Dim s As Type Student D) Dim s As Type =張紅 =張紅 (5) (5) 函數(shù) String(n, str)的功能是 A) 把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串 B) 返回由 n 個(gè)字符組成的字符串 C) 從字符串中取出 n 個(gè)字符 D) 從字符串中 第 n 個(gè)字符的位置開(kāi)始取子字符串 (6) (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) (7) 在窗體上畫(huà)一個(gè)命令按鈕，名稱(chēng)為 Command1。單擊命令按鈕時(shí)，執(zhí)行如下事件過(guò)程 : Private Sub Command1_Click() a$=software and hardware b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,b$,c$,1 End Sub 則在彈出的信息框的標(biāo)題欄中顯示的信息是 A) software and hardwar B) software C) hardware D) 1 (8) (8) 執(zhí)行如下語(yǔ)句 a=InputBox(Today,Tomorrow,Yesterday,Day before yesterday,5) 將顯示一個(gè)輸入對(duì)話(huà)框，在對(duì)話(huà)框的輸入?yún)^(qū)中顯示的信息是 A) Today B) Tomorrow C) Yesterday D) Day before Yesterday (9) (9) 表示滾動(dòng)條控件取值范圍最大值的屬性是 A) Max B) LargeChange C) Value D) MaxMin (10) (10) 在窗體上畫(huà)一個(gè)名稱(chēng)為 List1 的列表框，一個(gè)名稱(chēng)為 Label1 的標(biāo)簽。列表框中顯示若干城市的名稱(chēng)。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱(chēng)。下列能正確實(shí)現(xiàn)上述功能的程序是 A) Private Sub List1_Click() B) Private Sub List1_Chilk() = = End Sub End Sub C) Private Sub List1_click() D) Private Sub List1_Click() = = End Sub End Sub (11) (11) 在窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕，然后編寫(xiě)如下事件過(guò)程 Private Sub Command1_Click() x=0 n=InputBox() For i=1 To n For j=1 Toi x=x+1 Next j Next i Print x End Sub 程序運(yùn)行后，單擊命令按鈕，如果輸入 3，則在窗體上顯示的內(nèi)容是 A） 3 B） 4 C） 5 D） 6 (12) (12) 以下關(guān)于菜單的敘述中，錯(cuò)誤的是 A) 在程序運(yùn)行過(guò)程中可以增加或減少菜單項(xiàng) B) 如果把一個(gè)菜單項(xiàng)的 Enabled 屬性設(shè)置 為 False，則可刪除該菜單項(xiàng) C）彈出式菜單在菜單編輯器中設(shè)計(jì) D）利用控件數(shù)組可以實(shí)現(xiàn)菜單項(xiàng)的增加或減少 (13) (13) 在窗體上畫(huà)三個(gè)單選按鈕，組成一個(gè)名為 chkOption 的控件數(shù)組。用于標(biāo)識(shí)各個(gè)控件數(shù)組元素的參數(shù)是 A) Tag B) Index C) ListIndex D) Name (14) (14) 在窗體上畫(huà)一個(gè)命令按鈕，名稱(chēng)為 Command1，然后編寫(xiě)如下事件過(guò)程 Option Base 0 Private Sub Command1_Click() Dim city As Variant City=Array(北京 ， 上海 ， 天津 ， 重慶 ) Print city(1) End Sub 程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是 A）空白 B) 錯(cuò)誤提示 C) 北京 D) 上海 (15) (15) 假定有以下函數(shù)過(guò)程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S,i,1))+s1 Next i Fun=s1 End Function 在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)如下事件過(guò)程： Private Sub Command1_Click() Dim Str1 As String,Str2 As String Str1=InputBox(請(qǐng)輸入一個(gè)字符串 ) Str2=Fun(Str1) Print Str2 End Sub 程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話(huà)框中輸入字符串“ abcdefg”，則單擊“確定”按鈕后在窗體上輸出結(jié)果為 A） abcdefg B） ABCDEFG C） gfedcba D） GEFDCBA (16) (16) 設(shè)有語(yǔ)句 Openc:\For Output As1 則以下錯(cuò)誤的敘述是 A）該語(yǔ)句打開(kāi) C 盤(pán)根目錄下一個(gè)已存在的文件 B）該語(yǔ)句在 C 盤(pán)根目錄下建立一個(gè)名為 的文件 C）該語(yǔ)句建立的文件的文件號(hào)為 1 D）執(zhí)行該語(yǔ)句后，就可以通過(guò) Print語(yǔ)句向文件 中寫(xiě)入信息 (17) (17) 以下敘述中錯(cuò)誤的是 A）用 Shell 函數(shù)可以調(diào)用能夠在 Windows 下運(yùn)行的應(yīng)用程序 B）用 Shell 函數(shù)可以調(diào)用可執(zhí)行文件，也可以調(diào)用 Visual Basic 的內(nèi)部函 數(shù) C）調(diào)用 Shell 函數(shù)的格式應(yīng)為： 變量名 =Shell(?? ) D）用 Shell 函數(shù)不能執(zhí)行 DOS 命令 (18) (18) 以下關(guān)于過(guò)程及過(guò)程參數(shù)的描述中，錯(cuò)誤的是 A) 過(guò)程的參數(shù)可以是控件名稱(chēng) B) 用數(shù)組作為過(guò)程的參數(shù)時(shí)，使用的是“傳地址”方式 C) 只有函數(shù)過(guò)程能夠?qū)⑦^(guò)程中處理的信息傳回到調(diào)用的程序中 D) 窗體可以作為過(guò)程的參數(shù) (19) (19) 在窗體上畫(huà)一個(gè)名稱(chēng)為 TxtA 的文本框，然后編寫(xiě)如下的事件過(guò)程： Private Sub TxtA_KeyPress(keyascii as integer) ?? End Sub 若焦點(diǎn)位于文本框中，則能夠觸發(fā) KeyPress 事件的操作是 A) 單擊鼠標(biāo) B) 雙擊文本框 C) 鼠標(biāo)滑過(guò)文本框 D) 按下鍵盤(pán)上的某個(gè)鍵 (20) (20) 目錄列表框的 Path 屬性的作用是 A）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的路徑 B）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名 C）顯示根目錄下的文件名 D）只顯示當(dāng)前路徑下的文件 (21) (21) 假設(shè)有如下事件過(guò)程 Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu popForm End If End Sub 則以下描述中錯(cuò)誤的是 A) 該過(guò)程的功能是彈出一個(gè)菜單 B) popForm 是在菜單編輯器中定義的彈出式菜單的名稱(chēng) C) 參數(shù) X、 Y 指明鼠標(biāo)的當(dāng)前位置 D) Button=2 表示按下的是鼠標(biāo)左鍵 (22) (22) 以下能夠正確計(jì)算 n!的程序是 A) Private Sub Command1_Click() n=5:x=1 Do x=x*i i=i+1 Loop While in Print x End Sub B) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While in Print x End Sub C) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i=n Print x End Sub D) Private Sub Command1_Click() n=5:x=1:i=1 Do x=x*i i=i+1 Loop While in Print x End Sub (23) (23) 在窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕，再畫(huà)兩個(gè)名稱(chēng)分別為 LabelLabel2 的標(biāo)簽，然后編寫(xiě)如下程序代碼： Private X As Integer Private Sub Command1_Click() X=5:Y=3 Call Proc(X,Y) = X =Y End Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序運(yùn)行后，單擊命令按鈕，則兩個(gè)標(biāo)簽中顯示的內(nèi)容分別是 A） 5 和 3 B） 25 和 3 C） 25 和 6 D） 5 和 6 (24) (24) 有窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕，一個(gè)名稱(chēng)為 Label1 的標(biāo)簽，然后編寫(xiě)如下事件過(guò)程 : Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i1 If x Mod 3=0 Then s=s+1 Next i =s End Sub 程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中顯示的內(nèi)容是 A) 1 B) 5 C) 27 D) 45 (25) (25) 在窗體上畫(huà)一個(gè)名稱(chēng)為 Command1 的命令按鈕和三個(gè)名稱(chēng)分別為 LabelLabel Label3 的標(biāo)簽，然后編寫(xiě)如下代碼 Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z =x =y =z End Sub 運(yùn)行程序，連續(xù)三次單擊命令按鈕后，則三個(gè)標(biāo)簽中顯示的內(nèi)容分別是 A) 10 10 10 B) 30 30 30 C) 30 30 10 D) 10 30 30 (26) (26) 設(shè)在窗體上有一個(gè)名稱(chēng)為 Command1 的命令按鈕，并有以下事件過(guò)程 Private Sub Command1_Click() Static b As Variant b=Array(1,3,5,7,9) ?? End Sub 此過(guò)程的功能是把數(shù)組 b 中的 5 個(gè)數(shù)逆序存放（即排列為 9,7,5,3,1）。為實(shí)現(xiàn)此 功能，省略號(hào)處的程序段應(yīng)該是 A) For i=0 to 51\2 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next B) For i=0 to 5 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next C) For i=0 to 5\2 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next D) For i=0 to 5\2 tmp=b(i) b(i)=b(5i1) b(5i1)=tmp Next (27) (27) 在窗體上畫(huà)一個(gè)名稱(chēng)為 Drive1 的驅(qū)動(dòng)器列表框，一個(gè)名稱(chēng)為 Dir1 的目錄列表框，一個(gè)名稱(chēng)為 File1 的文件列表框，兩個(gè)名稱(chēng)分別為 Label Label2，標(biāo)題分別為空白和“共有文件”的標(biāo)簽。編寫(xiě)程序，使得驅(qū)動(dòng)器列表框與目錄列表框、目錄列表框與文件列表框同步變化，并且在標(biāo)簽 Label１中顯示當(dāng)前文件夾中文件的數(shù)量。如圖所示 能夠正確實(shí)現(xiàn)上述功能的程序是 A) Private Sub Dir1_Change() = End Sub Private Sub Drive1_Change() = = End Sub B) Private Sub Dir1_Change() = End Sub Private Sub Drive1_Change() = = End Sub C) Private Sub Dir1_Change() = = End Sub Private Sub Drive1_Change() = = End Sub D) Private Sub Dir1