淮陰工學(xué)院VB試題庫(共85頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上1、求一個三位正數(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、表達式(-1)*Sgn(-100+Int(Rnd*100)的值是_A_。A、1B、0C、-1D、隨機3、在程序中分別將變量IntA、Bl、st和D定義為整型、布爾型、字符串型和日期型，下列賦值語句在執(zhí)行時會出錯的是_A_。A、Bl=#True# B、st= "" C、D=#10/05/01#D、Inta=4.64、圖像框有一個屬性，可以自動調(diào)

2、整圖形的大小，以適應(yīng)圖像框的尺寸，這個屬性是_B_。A、AppearanceB、StretchC、AutoredrawD、Autosize5、使用_C_方法可將新的列表項添加到一個列表框中。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

3、aPrint a(4)A、出錯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、出錯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=

4、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 FunctionA、18 30B、9 18C、7 18D、4 911、窗體的Name屬性為Frm1，在窗體模塊通用聲明處和過程Sub1中分別用Public K As Integer,Dim K As Integer聲明了兩個同名變量K，則在過程Sub1中要訪問全局變量K，可采用_C_。A、Form1.KB、Form.KC、Frm1.kD、K12、一個工程中含有窗體Form1.Form2和標準

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

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

7、分配的字節(jié)數(shù)D、執(zhí)行打開文件的命令后，自動生成一個文件指針20、執(zhí)行以下語句后，a的值為_C_。 Dim a As Integer a = 1 Do a = a + 2 Loop Until a = 100A、101B、100C、溢出D、9922、在窗體上畫一個命令按鈕和一個文本框，其名稱分別為Command1和Text1，把文本框的Text屬性設(shè)置為空白，然后編寫如下事件過程：Private Sub Command1_Click() A = Inputbox("Enter An Integer") B = Inputbox("Enter An Integer&q

8、uot;) Text1.Text = B + AEnd Sub程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入4和56，則文本框中顯示的內(nèi)容是_C_。A、出錯B、60C、564D、45623、執(zhí)行語句：A = Inputbox("Today", "Tomorrow", "Yesterday")將顯示一個輸入對話框，在對話框的輸入?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

9、Else Y = -1Print Y - X > 0A、False B、TrueC、-1D、127、在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Text1、Text2的文本框，然后編寫如下事件過程： 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程序運行后，如果在文本框Text1中輸

10、入10，然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是D_。A、20B、30C、40D、1028、設(shè)在菜單編輯器中定義了一個菜單項，名為Menu1。為了在運行時隱藏該菜單項，應(yīng)使用的語句是 _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è)有一個命令按鈕，若要實現(xiàn)按回車鍵等同按此鍵，應(yīng)設(shè)置其_D_ 。A、

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

12、輯表達式中，其邏輯值為"真"的是_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=""，則表達式Val(Left(A,4)+Mid(A,4,2)的值為_A_。A、B、C、8D、635、以下能夠觸發(fā)文本框Change事件的操作是_C_。A、文本框獲得焦點B、設(shè)置文本框的焦點C、改變文本框的內(nèi)容D、文本框失去焦點 36、VB中可以使用自己定義的Sub過程和Function過程，_D_ 過程稱為函數(shù)，這種過程可以返回值。A、通用B、屬性C、事件D、Fu

13、nction37、下面程序段的運行結(jié)果為_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)于窗體的描述中，錯誤的是_B_。A、窗體的Height、Width屬性用于設(shè)置窗體的高和寬B、執(zhí)行Unload Form1語句后，窗體Form1消失，但仍在內(nèi)存中C、窗體的Load 事件在加載窗體時發(fā)生D、當窗體的Enabled 屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止39、以下敘述中錯誤的是_

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

15、：21 2743、如果依次輸入75,55,45,70,30,25,40,15,20,5,下列程序段的執(zhí)行結(jié)果為_。 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個元素與第9個元素互換分別輸出數(shù)組原來各元素的值和對換后各元素的值。 Private Sub Command

16、1_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) 第三空：NYa(11-

17、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ù)組聲明語句：Dim A(-1 To 2,-1 To 1) As Long，則數(shù)組A在內(nèi)存中所占的字節(jié)數(shù)為_。答案：4849、順序文件通過PRINT語句或_語句把緩沖區(qū)中的數(shù)據(jù)寫入磁盤。答案：WRITE52、假設(shè)遞歸函數(shù)fact(n)用來求n的階乘，請補充程序。 Pr

18、ivate 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í)行以下程序，單擊命令按鈕后，如果在彈出的對話框中單擊"是"按鈕，則窗體上的輸出內(nèi)容是_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法數(shù)據(jù)！" & Chr(13) & Chr(10) & "請重新輸入

19、", vbYesNo+ vbCritical, "提示信息") Print a End Sub答案：655、運行下列程序，單擊命令按鈕后，在窗體上輸出結(jié)果為_。 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 Sub答案：

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

21、使用可以通過Print方法在圖片框中輸出文本4設(shè)窗體上有一個列表框控件List1，且其中含有若干列表項。則以下能表示當前被選中的列表項內(nèi)容的是DList1.Index List1.Listindex List1.ListList1.Text5以下關(guān)于動態(tài)數(shù)組的語句中，正確的是_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 preserve a(

22、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子過程的形式參數(shù)為一數(shù)組，以下的定義語句中正確的是_A_。Private Sub sort(A() As In

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

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

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

26、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)用來求n的階乘，請補充程序。 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í)行以下程序，單擊命令按鈕后，如果在彈出的對話框中單擊"是&qu

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

28、a*b2FA F2A2 以下敘述中錯誤的是_。程序運行過程中，可以重新設(shè)置菜單的Visible屬性在菜單的標題欄中，"&"所引導(dǎo)的字母指明了訪問該菜單項的訪問鍵在同一窗體的菜單項中，不允許出現(xiàn)標題相同的菜單項彈出式菜單也在菜單編輯器中定義3 下列程序段的執(zhí)行結(jié)果為_。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); b(3)4 6

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

30、vate 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é)果為_35 20_。 Private Sub Form_Click() Dim M As Integer, N As Integer M = 15: N = 20 Call try(M, N) Pr

31、int 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)_。 Private Sub Command1_Click() Dim a() As Integer Dim n As Integer, i As Integer n = InputBox("input n:") ReDim a(n) For i = 1 To n a(i) = i

32、 Print a(i); Next i Print ReDim a(10) For i =0 To 10 Print a(i); Next i End Sub12 執(zhí)行下列程序，單擊命令按鈕在窗體上輸出結(jié)果為_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 = i To n - i a(i, j)

33、 = 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 str1 = "abc&

34、quot; str1 = UCase(str1) For i = 1 To 3 str2 = Chr(Asc(str1) + i) str1 = str1 & str2 Next i Print str115 執(zhí)行下面程序段，如果運行時輸入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 Print y16 執(zhí)行以下程序，單擊

35、命令按鈕后，窗體上的輸出結(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) = InputBox("請輸入數(shù)組元

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

37、過程Sub1中要訪問全局變量K，可采用_。Frm1.k4 運行以下程序，單擊命令按鈕后，如果用戶從鍵盤上輸入6、5、4、3、2、1，則窗體上輸出內(nè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) Print a(10)End S

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

39、quot;所引導(dǎo)的字母指明了訪問該菜單項的訪問鍵彈出式菜單也在菜單編輯器中定義8 下面的程序是找出兩個正整數(shù)a和b，使a<b、a+b=99、a和b的最大公約數(shù)是3的倍數(shù)，并統(tǒng)計滿足條件數(shù)對的個數(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 n = r Loop Until

40、r = 0 If m Mod 3 = 0 Then _k=k+1_ Print a; b End If Next a Print "符合條件的數(shù)對個數(shù)為" & k & "個" 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 運行下面的程序，第二行顯示結(jié)果是_11 22 33_。 Option Base 1 Priva

41、te 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 3 p = b(i, j) Mod

42、 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 4 5 6 7 8 9 10_。 P

43、rivate 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 在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框，在文本框中輸入以下字符串: Microsoft Visual Basic Programming 然后編寫如下事件過程: Private Sub Command1_Click() Open "D:TempOutf.Txt" For Ou

44、tput 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程序運行后,單擊命令按鈕后,文件Outf.Txt中的內(nèi)容是_mvbp_。15 下列程序段的執(zhí)行結(jié)果為_182 2_。 j = 0: n = 5 Do j = (j + 1) * (j + 2) n = n - 1 Loop Until n < 3 Prin

45、t j; n16 設(shè)計一個函數(shù)，求任意數(shù)的階乘。編寫通用函數(shù)過程如下，請補充程序。 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 運行以下程序，單擊命令按鈕后，如果用戶從鍵盤上輸入6、5、4、3、2、1，則窗體上輸出內(nèi)容為_9_。Private Sub Command1_Click() Dim a() As Intege

46、r 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運行后的輸出結(jié)果為_101_。5 執(zhí)行以下程序，單擊命令按鈕后，輸出結(jié)果是_。 Private Sub Com

47、mand1_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í)行以下程序，單擊命令按鈕后，如果在彈出的對話框中單擊"是"按鈕，則窗體上的輸出內(nèi)容是_6_。 Private Sub Command1_Click() Dim a As Integer a = MsgBox("非法數(shù)據(jù)！" & Chr(13) & Chr(10) & &

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

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

50、結(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 以下說法中錯誤的是_C_。數(shù)組b中的偶數(shù)被保存在數(shù)組c中如果輸入的數(shù)據(jù)大于10，則窗體上不顯示任何信息GetArray過程的參

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