淮陰工學(xué)院VB試題庫(kù)

1、1、求一個(gè)三位正數(shù)N的十位數(shù)的正確方法是_C_。A、lnt（N/10)-lnt(N /100)B、N-lnt(N-1000)*100C、n 10 Mod 10D、lnt(N/10)-lnt(N/10)*102、表達(dá)式(-1)*Sgn(-100+Int(Rnd*100)的值是_A_。A、1B、0C、-1D、隨機(jī)3、在程序中分別將變量IntA、Bl、st和D定義為整型、布爾型、字符串型和日期型，下列賦值語(yǔ)句在執(zhí)行時(shí)會(huì)出錯(cuò)的是_A_。A、Bl=#True# B、st= "" C、D=#10/05/01#D、Inta=4.64、圖像框有一個(gè)屬性，可以自動(dòng)調(diào)整圖形的大小，以適應(yīng)圖像框

2、的尺寸，這個(gè)屬性是_B_。A、AppearanceB、StretchC、AutoredrawD、Autosize5、使用_C_方法可將新的列表項(xiàng)添加到一個(gè)列表框中。A、Clear B、AddItem C、Print D、RemoveItem6、下列 _B_ 不是列表框的方法。A、Clear B、AddItem C、Print D、RemoveItem7、執(zhí)行下列程序段，輸出結(jié)果為 _B_。Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)A、

3、出錯(cuò)B、7 0C、4 4D、7 7 9、執(zhí)行下列程序段，輸出結(jié)果為 _B_。Dim a() As IntegerDim i As IntegerReDim a(10)For i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)A、7 0B、出錯(cuò)C、7 7D、4 410、執(zhí)行下面的程序，輸出結(jié)果是_A_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F

4、(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End FunctionA、18 30B、9 18C、7 18D、4 911、窗體的Name屬性為Frm1，在窗體模塊通用聲明處和過(guò)程Sub1中分別用Public K As Integer,Dim K As Integer聲明了兩個(gè)同名變量K，則在過(guò)程Sub1中要訪問(wèn)全局變量K，可采用_C_。A、Form1.KB、Form.KC、Frm1.kD、K12、一個(gè)工程中含有窗體Form1.Form2和標(biāo)準(zhǔn)模塊Model1，如果在F

5、orm1中有語(yǔ)句 Public X As Integer 在Model1中有語(yǔ)句 Public Y As Integer 則以下敘述中正確的是BA、變量X.Y的作用域相同 B、在From1中可以直接使用XC、Y的作用域是Model1D、在Form2中可以直接使用X和Y13、VB是一種面向_C_的程序設(shè)計(jì)語(yǔ)言。A、過(guò)程 B、用戶 C、對(duì)象D、方法14、以下敘述中錯(cuò)誤的是_D_。A、事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)B、打開(kāi)一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件C、保存Visual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件D、Visual Basic應(yīng)用程序只能以解

6、釋方式執(zhí)行15、VB是用于開(kāi)發(fā)_A_環(huán)境下的應(yīng)用程序的工具。A、WindowsB、DOSC、DOS和WindowsD、UNIX16、為了建立一個(gè)隨機(jī)文件，其中每一條記錄由多個(gè)不同數(shù)據(jù)類型的數(shù)據(jù)項(xiàng)組成，應(yīng)使用_C_。A、字符串類型B、數(shù)組C、記錄類型D、變體類型17、下面關(guān)于隨機(jī)文件的描述不正確的是_A_。A、一個(gè)文件中記錄號(hào)不必唯一B、每條記錄的長(zhǎng)度必須相同C、可通過(guò)編程對(duì)文件中的某條記錄方便地修改D、文件的組織結(jié)構(gòu)比順序文件復(fù)雜18、以下關(guān)于文件的敘述中，錯(cuò)誤的是_B_。A、順序文件中的記錄一個(gè)接一個(gè)地順序存放B、隨機(jī)文件中記錄的長(zhǎng)度是隨機(jī)的C、LOF函數(shù)返回給文件分配的字節(jié)數(shù)D、執(zhí)行打開(kāi)文

7、件的命令后，自動(dòng)生成一個(gè)文件指針20、執(zhí)行以下語(yǔ)句后，a的值為_(kāi)C_。 Dim a As Integer a = 1 Do a = a + 2 Loop Until a = 100A、101B、100C、溢出D、9922、在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Command1和Text1，把文本框的Text屬性設(shè)置為空白，然后編寫如下事件過(guò)程：Private Sub Command1_Click() A = Inputbox("Enter An Integer") B = Inputbox("Enter An Integer") Text1.T

8、ext = B + AEnd Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入4和56，則文本框中顯示的內(nèi)容是_C_。A、出錯(cuò)B、60C、564D、45623、執(zhí)行語(yǔ)句：A = Inputbox("Today", "Tomorrow", "Yesterday")將顯示一個(gè)輸入對(duì)話框，在對(duì)話框的輸入?yún)^(qū)中顯示的信息是_C_。A、Tomorrow B、Today C、Yesterday 26、下列程序段的執(zhí)行結(jié)果是_A_。X = 2 Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Pr

9、int Y - X > 0A、False B、TrueC、-1D、127、在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕和兩個(gè)名稱分別為Text1、Text2的文本框，然后編寫如下事件過(guò)程： Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is < 10 X = 30 Case 10 X = 40 End Select Text2.Text = X End Sub程序運(yùn)行后，如果在文本框Text1中輸入10，然后單擊命令按鈕，

10、則在Text2中顯示的內(nèi)容是D_。A、20B、30C、40D、1028、設(shè)在菜單編輯器中定義了一個(gè)菜單項(xiàng)，名為Menu1。為了在運(yùn)行時(shí)隱藏該菜單項(xiàng)，應(yīng)使用的語(yǔ)句是 _A_。A、Menu1.Visible=FalseB、Munu1.Enabled=FalseC、Menu1.Visible=TrueD、Menu1.Enabled=True 29、以下使用方法的代碼中，正確的是_D_。A、Form1.ClearB、Combo1.ClsC、Label1.SetFocus D、Text1.SetFocus30、設(shè)有一個(gè)命令按鈕，若要實(shí)現(xiàn)按回車鍵等同按此鍵，應(yīng)設(shè)置其_D_ 。A、Default屬性設(shè)為Fa

11、lseB、Cancel屬性設(shè)為True C、Cancel屬性設(shè)為FalseD、Default屬性設(shè)為True 32、在用通用對(duì)話框控件建立"打開(kāi)"或"保存"文件對(duì)話框時(shí)，如果需要指定文件列表框所列出的文件類型是文本文件（即.txt文件），則正確的描述格式是_A_。A、"文本文件(.txt)|*.txt"B、"text (.txt)"|(*.txt)C、"text(.txt)|(*.txt)"D、"text(.txt)(*.txt)"33、在以下4個(gè)邏輯表達(dá)式中，其邏輯值為&q

12、uot;真"的是_B_。A、not (3+4<4+6) B、not(1>2)C、1>2 or 2>3 D、2>1and 3<2 34、設(shè)A="12345678"，則表達(dá)式Val(Left(A,4)+Mid(A,4,2)的值為_(kāi)A_。A、123445B、123456C、8D、635、以下能夠觸發(fā)文本框Change事件的操作是_C_。A、文本框獲得焦點(diǎn)B、設(shè)置文本框的焦點(diǎn)C、改變文本框的內(nèi)容D、文本框失去焦點(diǎn) 36、VB中可以使用自己定義的Sub過(guò)程和Function過(guò)程，_D_ 過(guò)程稱為函數(shù)，這種過(guò)程可以返回值。A、通用B、屬性C

13、、事件D、Function37、下面程序段的運(yùn)行結(jié)果為_(kāi)C_。 Dim s As Integer, i As Integer i = 1: s = 1 Do i = i + s Loop Until s > 10 Print i, sA、11 1 B、11 10C、溢出 D、10 1 38、以下關(guān)于窗體的描述中，錯(cuò)誤的是_B_。A、窗體的Height、Width屬性用于設(shè)置窗體的高和寬B、執(zhí)行Unload Form1語(yǔ)句后，窗體Form1消失，但仍在內(nèi)存中C、窗體的Load 事件在加載窗體時(shí)發(fā)生D、當(dāng)窗體的Enabled 屬性為False時(shí)，通過(guò)鼠標(biāo)和鍵盤對(duì)窗體的操作都被禁止39、以下敘

14、述中錯(cuò)誤的是_B_。A、下拉式菜單和彈出式菜單都用菜單編輯器建立B、如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False，則該菜單項(xiàng)不可見(jiàn)C、除分隔線外，所有菜單項(xiàng)都能接收Click事件D、在多窗體程序中，每個(gè)窗體都可以建立自己的菜單系統(tǒng)40、在程序中可以通過(guò)復(fù)選框和單選按鈕的_A_屬性值來(lái)判斷它們的當(dāng)前狀態(tài)它。A、Value B、Caption C、Checked D、Selected42、運(yùn)行如下程序后，輸出結(jié)果為_(kāi)。 Dim i As Integer, y As Integer For i = 3 To 15 Step 3 y = y + i i = i + 3 Next i Print

15、 i; y答案：21 2743、如果依次輸入75,55,45,70,30,25,40,15,20,5,下列程序段的執(zhí)行結(jié)果為_(kāi)。 Dim c As Integer, k As Integer, d As Integer c = 70 For k = 11 To 20 x = InputBox("輸入X的數(shù)值:") If x < c Then d = d + x: c = x Else d = d + c End If Next k Print d答案：33046、素互換，第2個(gè)元素與第9個(gè)元素互換分別輸出數(shù)組原來(lái)各元素的值和對(duì)換后各元素的值。 Private Sub

16、Command1_Click() Dim a(10) As Integer Dim i As Integer, j As Integer Print "原序列：" For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print For i = 1 To _ t = a(i) _ _ Next i Print "交換后的序列：" For i = 1 To 10 Print a(i); Next i Print End Sub答案：第一空：5 第二空：NYa(i)=a(11-i) 第三空：

17、NYa(11-i)=t47、執(zhí)行以下程序段，則第一行輸出結(jié)果是_，第二行輸出結(jié)果是_。Dim a(-3 To 5) As SingleDim b(3, 4) As IntegerPrint UBound(a), UBound(b, 1)Print LBound(a), LBound(b, 2)答案：第一空：5 3 第二空：NY-3 048、設(shè)有數(shù)組聲明語(yǔ)句：Dim A(-1 To 2,-1 To 1) As Long，則數(shù)組A在內(nèi)存中所占的字節(jié)數(shù)為_(kāi)。答案：4849、順序文件通過(guò)PRINT語(yǔ)句或_語(yǔ)句把緩沖區(qū)中的數(shù)據(jù)寫入磁盤。答案：WRITE52、假設(shè)遞歸函數(shù)fact(n)用來(lái)求n的階乘，請(qǐng)補(bǔ)

18、充程序。 Private Function fact(n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = _ End If End Function答案：n*fact(n-1)54、執(zhí)行以下程序，單擊命令按鈕后，如果在彈出的對(duì)話框中單擊"是"按鈕，則窗體上的輸出內(nèi)容是_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法數(shù)據(jù)！" & Chr(13) & Chr(10) & &quo

19、t;請(qǐng)重新輸入", vbYesNo+ vbCritical, "提示信息") Print a End Sub答案：655、運(yùn)行下列程序，單擊命令按鈕后，在窗體上輸出結(jié)果為_(kāi)。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3), s(3) Dim x, i% For i = 1 To 3 s(i) = 0 For j = 1 To 3 a(i, j) = i + j s(i) = s(i) + a(i, j) Next j Next i For Each x In s Print x; Next x End

20、 Sub答案：9 12 151下列符號(hào)常量的聲明中，_D_是不合法的。Const a As single =1.1Const a As Integer =12Const a =OKCost a As Double =Sin(1)2在以下有關(guān)對(duì)象屬性的敘述中錯(cuò)誤的是_D_。只能在執(zhí)行時(shí)設(shè)置或改變的屬性為執(zhí)行時(shí)屬性所有對(duì)象都具有Name 屬性 對(duì)象的某些屬性只能在設(shè)計(jì)時(shí)設(shè)定，不能使用代碼改變Enabled屬性值設(shè)為False的控件對(duì)象在窗體上將不可見(jiàn)3以下關(guān)于圖片框控件的說(shuō)法中，錯(cuò)誤的是_A_。用Stretch屬性可以自動(dòng)調(diào)整圖片框中圖形的大小清空?qǐng)D片框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形圖片框控

21、件可以作為容器使用可以通過(guò)Print方法在圖片框中輸出文本4設(shè)窗體上有一個(gè)列表框控件List1，且其中含有若干列表項(xiàng)。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是DList1.Index List1.Listindex List1.ListList1.Text5以下關(guān)于動(dòng)態(tài)數(shù)組的語(yǔ)句中，正確的是_D_。ReDim a(3,4)：ReDim Preserve a(4,7)Dim a() As Integer：ReDim a(5) ：ReDim a(3,4)：a(4)=a(3)+1Dim a() As Integer：ReDim a(5) As SingleReDim a(k+1)：ReDim pres

22、erve a(10)6執(zhí)行下面的程序，輸出結(jié)果是_。 Option Explicit Private Sub Form_Click() Dim M As Integer,N As Integer M=1:N=2 Print M+N+F(M,N) M=2:N=1 Print F(M,N)+F(M,N); End Sub Private Function F(X As Integer,Y As Integer) X=X+Y Y=X+3 F=X+Y End Function18 308名為sort的Sub子過(guò)程的形式參數(shù)為一數(shù)組，以下的定義語(yǔ)句中正確的是_A_。Private Sub sort(A(

23、) As Integer)Private Sub sort(ByVal A() As Integer)Private Sub sort(A(10) As Integer)Private Sub sort(A( ，) As Integer)9以下敘述中錯(cuò)誤的是_D_。Visual Basic應(yīng)用程序不具有明顯的開(kāi)始和結(jié)束語(yǔ)句Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置Visual Basic 是事件驅(qū)動(dòng)型可視化編程工具Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性10 一只白色的足球被踢進(jìn)球門，則白色、足球、踢、進(jìn)球門是_。屬性、對(duì)象、事

24、件、方法11 以下敘述中正確的是_A_。隨機(jī)文件中每個(gè)記錄的長(zhǎng)度是固定的Open命令的作用是打開(kāi)一個(gè)已經(jīng)存在的文件使用Input #語(yǔ)句可以從隨機(jī)文件中讀取數(shù)據(jù)一個(gè)記錄中所包含的各個(gè)元素的數(shù)據(jù)類型必須相同13 假定在窗體上建立了通用對(duì)話框，其名稱為CommonDialog1 ，用下面的語(yǔ)句可以建立一個(gè)對(duì)話框:CommonDialog1.Action = 2與該語(yǔ)句等價(jià)的語(yǔ)句是_A_。CommonDialog1.showsaveCommonDialog1.showopenCommonDialog1.showcolorCommonDialog1.showfont14 執(zhí)行以下語(yǔ)句后，a的值為_(kāi)3

25、_。 Dim a As Integer a = 1 Do a = a + 2 Loop While a = 100窗體Form1的名稱屬性是frm，它的Load事件過(guò)程名是_Form_Load16運(yùn)行如下程序后，輸出結(jié)果為_(kāi)30_。 a = 0 For j = 1 To 30 Step 2 a = a + j mod 5 Next j Print a18 運(yùn)行下列程序，單擊命令按鈕后，在窗體上輸出結(jié)果為_(kāi)9 12 15_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3), s(3) Dim x, i% For i = 1 To 3

26、s(i) = 0 For j = 1 To 3 a(i, j) = i + j s(i) = s(i) + a(i, j) Next j Next i For Each x In s Print x; Next x End Sub20 假設(shè)遞歸函數(shù)fact(n)用來(lái)求n的階乘，請(qǐng)補(bǔ)充程序。 Private Function fact(n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = _n*fact(n-1)_ End If End Function22 執(zhí)行以下程序，單擊命令按鈕后，如果在彈出的對(duì)話框中單擊&qu

27、ot;是"按鈕，則窗體上的輸出內(nèi)容是_6_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法數(shù)據(jù)！" & Chr(13) & Chr(10) & "請(qǐng)重新輸入", vbYesNo+ vbCritical, "提示信息") Print a End Sub23 設(shè)有數(shù)組聲明語(yǔ)句：Dim A(-1 To 2,-1 To 1) As Long，則數(shù)組A在內(nèi)存中所占的字節(jié)數(shù)為_(kāi)48_。1 以下可以作為Visual Basic變量名的是_D

28、_。F1.1 a*b2FA F2A2 以下敘述中錯(cuò)誤的是_。程序運(yùn)行過(guò)程中，可以重新設(shè)置菜單的Visible屬性在菜單的標(biāo)題欄中，"&"所引導(dǎo)的字母指明了訪問(wèn)該菜單項(xiàng)的訪問(wèn)鍵在同一窗體的菜單項(xiàng)中，不允許出現(xiàn)標(biāo)題相同的菜單項(xiàng)彈出式菜單也在菜單編輯器中定義3 下列程序段的執(zhí)行結(jié)果為_(kāi)。Dim a(10) As Integer, b() As IntegerDim i As IntegerReDim b(5)For i = 1 To 10 a(i) = i If i Mod 2 = 0 Then b(i/2) = a(i) End IfNext iPrint a(4);

29、b(3)4 64 在調(diào)用過(guò)程時(shí)，下列說(shuō)法中正確的是_C_。只能使用Call語(yǔ)句調(diào)用Sub過(guò)程調(diào)用Sub過(guò)程時(shí)，實(shí)際參數(shù)必須用括號(hào)括起來(lái)Function過(guò)程也可以使用Call語(yǔ)句調(diào)用Function過(guò)程也可以使用Call語(yǔ)句調(diào)用5 表達(dá)式Abs(-5)+Len("ABCDE")的值是_10_。5ABCDE 10 -5ABCDE 06 單選按鈕（OptionButton）用于一組互斥的選項(xiàng)中。若一個(gè)應(yīng)用程序包含多組互斥條件，可在不同的_中安排適當(dāng)?shù)膯芜x按鈕，即可實(shí)現(xiàn)。框架控件（Frame）或圖片框（PictureBox）7 閱讀下面程序，當(dāng)單擊窗體后，窗體上輸出的是17 13

30、3_。 Private Sub Form_Click() Dim i As Integer, k As Integer Dim a As Integer, b As Integer a = 5: b = 1 For i = 1 To a + b Step b i = i + 1 a = a + i b = b + i k = k + 1 Next i Print a; b; k End Sub9 下列程序的執(zhí)行結(jié)果為_(kāi)35 20_。 Private Sub Form_Click() Dim M As Integer, N As Integer M = 15: N = 20 Call try(M

31、, N) Print M; N End Sub Sub try(x As Integer, Byval y As Integer) x = x + 20 y = x + y End Sub11 執(zhí)行以下程序，單擊命令按鈕后，如果從鍵盤上輸入5，則第一行輸出結(jié)果是_1 2 3 4 5_，第二行輸出結(jié)果是_(NY)00000000000_。 Private Sub Command1_Click() Dim a() As Integer Dim n As Integer, i As Integer n = InputBox("input n:") ReDim a(n) For i

32、 = 1 To n a(i) = i Print a(i); Next i Print ReDim a(10) For i =0 To 10 Print a(i); Next i End Sub12 執(zhí)行下列程序，單擊命令按鈕在窗體上輸出結(jié)果為_(kāi)5 6 3_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer, k As Integer Dim i As Integer, j As Integer, n As Integer n = UBound(a, 1) For i = 1 To n - 2 For j =

33、i To n - i a(i, j) = k + 1 a(j, n + 1 - i) = k + 2 a(n + 1 - i, n + 1 - j) = k + 3 a(n + 1 - j, i) = k + 4 k = k + 4 Next j Next i If n Mod 2 <> 0 Then a(n + 1) / 2, (n + 1) / 2) = k + 1 End If Print a(1, 2); a(2, 3); a(3, 3) End Sub14 執(zhí)行下面的程序段，輸出結(jié)果是_ABCBCD_。 Dim str1 As String, str2 As String

34、 str1 = "abc" str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str115 執(zhí)行下面程序段，如果運(yùn)行時(shí)輸入2，則在窗體上輸出結(jié)果是_4_。 Dim x As Integer x = InputBox("input x") If x > 1 Then y = x + 2 ElseIf x < 5 Then y = x + 3 ElseIf x = 2 Then y = x End If P

35、rint y16 執(zhí)行以下程序，單擊命令按鈕后，窗體上的輸出結(jié)果是_-1_。 Private Sub Command1_Click() Dim a As Integer a = True * 6 + 5 Print a End Sub17 執(zhí)行下面程序，若依次輸入10，20，30，40，50，60，則輸出結(jié)果是_10 30 50 20 40 60_。 Option Base 1 Private Sub Command1_Click() Dim a(3, 2) As Integer Dim i%, j%, t For i = 1 To 3 For j = 1 To 2 a(i, j) = Inp

36、utBox("請(qǐng)輸入數(shù)組元素的值") Next j Next i For Each t In a Print t; Next t End Sub1 如果X是一個(gè)正數(shù)的實(shí)數(shù)，將千分位四舍五入，保留兩位小數(shù)的表達(dá)式是_。0.01*Int(100*(X+0.005) 2 為了建立一個(gè)隨機(jī)文件，其中每一條記錄由多個(gè)不同數(shù)據(jù)類型的數(shù)據(jù)項(xiàng)組成，應(yīng)使用_。記錄類型下面所列四組數(shù)據(jù)中，全部是正確的VB常數(shù)的是_。ABCE，#02-03-2004#，E-23 窗體的Name屬性為Frm1，在窗體模塊通用聲明處和過(guò)程Sub1中分別用Public K As Integer,Dim K As In

37、teger聲明了兩個(gè)同名變量K，則在過(guò)程Sub1中要訪問(wèn)全局變量K，可采用_。Frm1.k4 運(yùn)行以下程序，單擊命令按鈕后，如果用戶從鍵盤上輸入6、5、4、3、2、1，則窗體上輸出內(nèi)容為_(kāi)9_。Private Sub Command1_Click() Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10 - i + 1) = InputBox("input number") Next i ReDim Preserve a(10) a(10) = a(5) + a(4

38、) Print a(10)End Sub 5 以下敘述中錯(cuò)誤的是_D_。一個(gè)工程中只能有一個(gè)Sub Main過(guò)程窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體窗體的Hide方法和Unload方法的作用完全相同 6 以下關(guān)于文件的敘述中，錯(cuò)誤的是_A_。 隨機(jī)文件中記錄的長(zhǎng)度是隨機(jī)的順序文件中的記錄一個(gè)接一個(gè)地順序存放執(zhí)行打開(kāi)文件的命令后，自動(dòng)生成一個(gè)文件指針LOF函數(shù)返回給文件分配的字節(jié)數(shù)7 以下敘述中錯(cuò)誤的是_A_。 在同一窗體的菜單項(xiàng)中，不允許出現(xiàn)標(biāo)題相同的菜單項(xiàng)程序運(yùn)行過(guò)程中，可以重新設(shè)置菜單的Visible屬性在菜單

39、的標(biāo)題欄中，"&"所引導(dǎo)的字母指明了訪問(wèn)該菜單項(xiàng)的訪問(wèn)鍵彈出式菜單也在菜單編輯器中定義8 下面的程序是找出兩個(gè)正整數(shù)a和b，使a<b、a+b=99、a和b的最大公約數(shù)是3的倍數(shù)，并統(tǒng)計(jì)滿足條件數(shù)對(duì)的個(gè)數(shù)。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim m As Integer, n As Integer Dim r As Integer, k As Integer For a = 1 To 49 _b=99-a_ m = a: n = b Do _r=m mod n_ m = n

40、 n = r Loop Until r = 0 If m Mod 3 = 0 Then _k=k+1_ Print a; b End If Next a Print "符合條件的數(shù)對(duì)個(gè)數(shù)為" & k & "個(gè)" End Sub10 閱讀下列程序，輸出結(jié)果是_30 0_。 Private Sub Command1_Click() Dim i As Integer For i = 10 To 1 Step -2 s = s + i Next i Print s,i End Sub11 運(yùn)行下面的程序，第二行顯示結(jié)果是_11 22 33_。 O

41、ption Base 1 Private Sub Form_Click() Dim a, b(), i, j, k a = Array(11, 12, 13, 21, 22, 23, 31, 32, 33) ReDim b(3, 3) Call read(a, b) Call prt(b) End Sub Private Sub read(a, b) For i = 1 To 3 For j = 1 To 3 k = k + 1 b(i, j) = a(k) Next j Next i End Sub Private Sub prt(b) For i = 1 To 3 For j = 1 To

42、 3 p = b(i, j) Mod 3 + 1 q = b(j, i) Mod 3 + 1 Print b(p, q); Next j Print Next i End Sub12 以下程序是求1到1000之間所有能被3整除的數(shù)的和，按要求完善程序。 Private Sub Command1_Click() Dim n As Integer, s As Long n = 1 Do While n <= 1000 If n Mod 3 = 0 Then _s=s+n_ _n=n+1_ Loop Print s End Sub13 執(zhí)行以下程序，單擊命令按鈕后，輸出結(jié)果是_0 1 2 3

43、4 5 6 7 8 9 10_。 Private Sub Command1_Click() Dim a(10) As Integer Dim b For i = 1 To 10 a(i) = i Next i For Each b In a Print b; Next b End Sub14 在窗體上畫(huà)一個(gè)名稱為 Command1 的命令按鈕和一個(gè)名稱為 Text1 的文本框，在文本框中輸入以下字符串: Microsoft Visual Basic Programming 然后編寫如下事件過(guò)程: Private Sub Command1_Click() Open "D:TempOut

44、f.Txt" For Output As #1 For I = 1 To Len(Text1.Text) C = Mid(Text1.Text, I, 1) If C >= "A" And C <= "Z" Then Print #1, Lcase(C); End If Next I Close End Sub程序運(yùn)行后,單擊命令按鈕后,文件Outf.Txt中的內(nèi)容是_mvbp_。15 下列程序段的執(zhí)行結(jié)果為_(kāi)182 2_。 j = 0: n = 5 Do j = (j + 1) * (j + 2) n = n - 1 Loop U

45、ntil n < 3 Print j; n16 設(shè)計(jì)一個(gè)函數(shù)，求任意數(shù)的階乘。編寫通用函數(shù)過(guò)程如下，請(qǐng)補(bǔ)充程序。 Public Function f(n As Double) As Double Dim s As Double Dim i As Integer If n < 0 Then Exit Function s=1 For i = 1 To n _s=s*n_ Next i f = s End Function17 1 運(yùn)行以下程序，單擊命令按鈕后，如果用戶從鍵盤上輸入6、5、4、3、2、1，則窗體上輸出內(nèi)容為_(kāi)9_。Private Sub Command1_Click()

46、 Dim a() As Integer Dim i As Integer, j As Integer ReDim a(6) For i = 5 To 10 a(10 - i + 1) = InputBox("input number") Next i ReDim Preserve a(10) a(10) = a(5) + a(4) Print a(10)End Sub4 有如下程序 a = 100 Do s = s + a a = a + 1 Loop While a > 120 Print a運(yùn)行后的輸出結(jié)果為_(kāi)101_。5 執(zhí)行以下程序，單擊命令按鈕后，輸出結(jié)果是

47、_。 Private Sub Command1_Click() Dim a(10) As Integer Dim b For i = 1 To 10 a(i) = i Next i For Each b In a Print b; Next b End Sub1 2 3 4 5 6 7 8 9 10執(zhí)行以下程序，單擊命令按鈕后，如果在彈出的對(duì)話框中單擊"是"按鈕，則窗體上的輸出內(nèi)容是_6_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法數(shù)據(jù)！" & Chr(13) &am

48、p; Chr(10) & "請(qǐng)重新輸入", vbYesNo+ vbCritical, "提示信息") Print a End Sub7 設(shè)有數(shù)組聲明語(yǔ)句：Dim A(-1 To 2,-1 To 1) As Long，則數(shù)組A在內(nèi)存中所占的字節(jié)數(shù)為_(kāi)48_。1 設(shè)菜單中有一個(gè)菜單項(xiàng)為"Open"。若要為該菜單命令設(shè)計(jì)訪問(wèn)鍵，即按下Alt及字母O時(shí)，能夠執(zhí)行"Open"命令，則在菜單編輯器中設(shè)置"Open"命令的方式是_。把Caption屬性設(shè)置為&Open2 在使用OPEN語(yǔ)句打開(kāi)

49、文件時(shí)，如果省略"for 子句"，則打開(kāi)的文件存取方式為_(kāi)隨機(jī)存取方式_3 為了建立一個(gè)隨機(jī)文件，其中每一條記錄由多個(gè)不同數(shù)據(jù)類型的數(shù)據(jù)項(xiàng)組成，應(yīng)使用_。記錄類型4 VB 中三種文件訪問(wèn)的類型為_(kāi)。順序、隨機(jī)、二進(jìn)制5 如果x是一個(gè)正實(shí)數(shù)，對(duì)x的第3位小數(shù)四舍五入的表達(dá)式是_。0.01*Int(100*(x+0.005)6 Visual Basic 認(rèn)為下面_D_組變量是同一個(gè)變量。Al和A_l Sum和Summary Aver和Average Al和al7 函數(shù)Int(Rnd(0)*100)是下列_范圍內(nèi)的整數(shù)。0,998 如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是_。Ca

50、ption 9 執(zhí)行下列程序段，輸出結(jié)果為 _7 0_。Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 2 * i - 1Next iPrint a(4);Erase aPrint a(4)10 下列程序段的執(zhí)行結(jié)果為 _0 2 2 3_。Dim M(2)For i=1 To 2 M(i)=0Next iK=2For i=1 To k For j=1 TO k M(j)=M(i)+1 Print M(k); Next jEnd Sub 以下說(shuō)法中錯(cuò)誤的是_C_。數(shù)組b中的偶數(shù)被保存在數(shù)組c中如果輸入的數(shù)據(jù)大于10，則窗體上不

51、顯示任何信息GetArray過(guò)程的參數(shù)n 是按值傳送的程序運(yùn)行結(jié)束時(shí)，在窗體上顯示的是c數(shù)組中元素的個(gè)數(shù)15 以下敘述中錯(cuò)誤的是_B_Visual Basic 是事件驅(qū)動(dòng)型可視化編程工具Visual Basic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性Visual Basic應(yīng)用程序不具有明顯的開(kāi)始和結(jié)束語(yǔ)句Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置16 以下有關(guān)對(duì)象屬性的說(shuō)法中錯(cuò)誤的是_B_。所有的對(duì)象都具有 Name（名稱）屬性Enabled屬性值設(shè)為False的控件對(duì)象在窗體上將不可見(jiàn)對(duì)象的某些屬性只能在設(shè)計(jì)時(shí)設(shè)定，不能使用代碼改變只能在執(zhí)行時(shí)設(shè)置或改變的屬性為執(zhí)行時(shí)屬性17 在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開(kāi)的窗口是_C_。工程資源管理器窗口 屬性窗口代碼窗口工具箱窗口 20 有程序段如下： For i = 1 To 3 For j = 5 To i Step -1 Print