VB语言.doc

第二部分 Visual Basic程序设计一、选择题21．无法响应Click事件的控件是__________A. Label B. Timer C. TextBox D. DriveListBox22．在窗体上放置了DriveListBox、DirListBox和FileListBox等三个控件，下面________语句一定不会改变相应控件的Path或Drive属性A. Drive1.ListIndex=2 B. Dir1.ListIndex=-2C. File1.FileName=”a:\\*.*” D. File1.Path=Drive1.Drive23．对于某对象的SetFocus与GotFocus描述正确的是__________A. SetFocus是方法，GotFocus是事件 B. SetFocus是事件，GotFocus是事件C. SetFocus是方法，GotFocus是方法 D. SetFocus是事件，GotFocus是方法24．设a为Integer型变量，s为Single型变量，把3.75赋绘s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a=s: Text1=a的结果相同的有__________个。

①a = Int(s): Text1 = a ②a = Fix(s): Text1 = a③a = Cint(s): Text1 = a ④a = Format(s, “#####”): Text1 = aA. 1 B. 2 C. 3 D. 425．下列语句运行时系统给出错误提示的是____________A. Print –32000 – 769 B. Print “IE2” + 8 C. Print “AB” & 128 D. Print 3 = 2 = 426．描述X、Y中只有一个小于Z的逻辑表达式是___________A. X < Z And Y < Z B. X < Z Or Y < Z C. X < Z Xor Y < Z D. X < Y < Z27．以下有关控件数组的说法中错误的是__________A. 控件数组由一组具有共同名称和相同类型的控件组成B. 控件数组中的每一个控件共享同样的事件过程C. 控件数组中的每个元素的下标由控件的Index属性指定D. 同一控件数组中的元素只能有相同的属性设置值28．下列__________说法是不正确的。

A. 当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭B. 在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁C. 可以用不同的文件号打开同一个随机文件D. 用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除29．VB的数据控件（Data）不能通过Connect属性对数据库________直接访问A. Microsoft Access B. FoxPro C. dBase D. Microsoft SQL Server30．以下有关过程的说法中错误的是____________A. 在Sub或Function过程中不能再定义其他Sub或Function过程B. 在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合C. 递归过程既可以是递归过Function过程，也可以是递归Sub过程D. 在调用过程时，形参为数组的参数对应的实参只能是数组参考答案： 21 B 22 B 23 A 24 A 25 D 26 C 27 D 28 B 29 C 30 B二、填空题1. 在程序运行时，将保存在C盘Pic文件夹中的名为Fishing.bmp的图片加载到图片框Picture1中的语句为_____1____。

2．执行下面的Command1_Click事件过程后，Text1中显示的内容是__2_，Text2中显示的内容是__3___Private Sub Command1_Click() Dim S As String, I As Integer Const Ch As String = "0123456789." S = "2L0A03U.1SI0V.11" For I = 1 To Len(S) If InStr(Ch, Mid(S, I, 1)) = 0 Then Text1 = Mid(S, I, 1) & Text1 Else Text2 = Text2 & Mid(S, I, 1) End If Next IEnd Sub3．执行下面的程序，单击Command1按钮后，窗体上的第一行内容是_____4____，第二行内容是_____5______，最后一行内容是_____6______Private Sub Command1_Click() Dim N As Integer, M As Integer, Lcm As Integer N = 9 M = 27 Lcm = Recursion(N, M) Print "Lcm="; LcmEnd SubPrivate Function Recursion(A As Integer, B As Integer) As Integer Static k As Integer k = k + 1 If A Mod B = 0 Then Recursion = A Else Recursion = Recursion(A + A / k, B) End If Print A, k k = 0End Function4．执行下面的程序，单击Command1按钮时，列表框中显示的第一行是____7_____，第二行是_____8______，第三行是_____9_______。

Private Sub Command1_Click() Dim x As Integer, k As Integer x = 483 k = 2 Do Until x <= 1 If x Mod k = 0 Then x = x \\ k List1.AddItem Str(k) Else k = k + 1 End If LoopEnd Sub5．执行下面的程序，单击命令按钮Command1后，窗体上显示的第一行内容是____10_____，第二行内容是_____11______，最后一行内容是______12______Private Sub Command1_Click() Dim A As Integer, K As Integer A = 2 K = Fun((A), A) + Fun(A, A) Print "K="; KEnd SubPrivate Function Fun(X As Integer, Y As Integer) As Integer Static K As Integer K = K + X + Y X = X + Y Y = Y + K Fun = X + Y Print Fun; X; YEnd Function6．执行下面的程序，窗体上的第二行是____13_____，单击命令按钮Cmd1，则窗体上显示的第四行是____14_____，第五行是_____15______，第六行是_____16_______。

Option ExplicitOption Base 1Private a(3, 3) As IntegerPrivate Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer k = 1 For j = 1 To 3 For i = 1 To 3 a(i, j) = k k = k + 1 Print a(i, j); Next i Print Next jEnd SubPrivate Sub Cmd1_Click() Dim b(4) As Integer, i As Integer, k As Integer, t As Integer For i = 2 To 4 b(i) = i - 1 Next i b(1) = 2 For i = 1 To 2 t = a(b(1), b(4)) a(b(1), b(4)) = a(b(2), b(1)) a(b(2), b(1)) = a(b(3), b(2)) a(b(3), b(2)) = a(b(4), b(3)) a(b(4), b(3)) = t Next i For i = 1 To 3 For k = 1 To 3 Print a(i, k); Next k Print Next iEnd Sub7．本程序的功能是求下页数列前n项之和： x 2!x3 3!x5 n!x2n-1S(x,n) = — + —— + ——— + … + ————— 2 2*4 2*4*6 2*4*6…2nOption ExplicitPrivate Sub Command1_Click() Dim x As Single, s As Single Dim n As Integer, i As Integer x = InputBox("输入X:", "求数列和", 1) n = InputBox("输入N:", "求数列和", 1) For i = 1 To n s = s + fun(x, i) Next i Label1.Caption = _______________17________________ Text1 = sEnd SubPrivate Function fun(x As Single, n As Integer) As Single ____________18________________ p = 1 For i = 1 To n ____________19________________ Next i fun = x ^ (2 * n - 1) * pEnd Function8．下面程序的功能是统计文件中各个英文字母（不区分大小写）出现的个数。

Option Base 1Private Sub Command1_Click() Dim alpha(26) As Integer, n As Integer 。