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 = aa = 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模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除29VB的数据控件（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 = A And s = Z Then n = _21_ alpha(n) = alpha(n) + 1 End If Loop For i = 1 To 26 If alpha(i) 0 Then List1.AddItem Chr(i + 64) & : & CStr(alpha(i) End If Next i CloseEnd Sub9下面程序的功能是依次将给定字符串A中的字符逐个插入到字符串B中，插入位置是字符串B中第1个与其相同的字符之后（不区别大小写），若B中无相同字符，则依次插入到B的末尾。Private Sub Command1_Click() Dim st1 As String, st2 As String st1 = Text1.Text: st2 = Text2.Text Call inst(st1, st2) Text3 = st2End SubPrivate Sub inst(s1 As String, s2 As String) Dim i As Integer, p As String, n As Integer, n1 As Integer For i = 1 To Len(s1) p = Mid(s1, i, 1) If p = A And p = a And p = z Then _23_ n1 = InStr(s2, p) _24_ Else MsgBox 字符串A中含有非字母字符!, vbOKOnly, 合并字符串 Exit Sub End If Next iEnd SubPrivate Sub ins(s As String, p As String, n As Integer, k As Integer) If n 0 And k = 0 Or n 0 And k 0 And n k Then s = Left(s, n) & p & Right(s, Len(s) - n) ElseIf _25_ Then s = Left(s, k) & p & Right(s, Len(s) - k) Else s = s & p End IfEnd Sub10下面是一个采用拉锯式排序法对数组元素按升序进行排序的程序，所谓“拉锯排序法”是这一遍把最小的元素从下到上送到最上的位置，下一遍则是从上到下把最大的元素送到最下的位置。Option Base 1Private Sub Command1_Click() Dim a(10) As Integer, i As Integer For i = 1 To 10 a(i) = Int(Rnd * 10) + 1 Text1 = Text1 & Str(a(i) Next i Call shaker_sort(a) For i = 1 To 10 Text2 = Text2 & Str(a(i) Next iEnd SubPrivate Sub shaker_sort(k() As Integer) Dim i As Integer, c As Integer, d As Integer Dim t As Integer c = 1 d = _26_ Do For _27_ Step -1 If k(i - 1) k(i) Then t = k(i - 1): k(i - 1) = k(i): k(i) = t End If Next i _28_ For i = c + 1 To d If _29_ Then t = k(i - 1): k(i - 1) = k(i): k(i) = t End If Next i d = d - 1 Loop While _30_End Sub参考答案：1 Picture1.Picture = LoadPicture(c:PicFishing.bmp)2 VISUAL 3 2003.10.114 27 3 5 18 06 Lcm= 27 7 38 7 9 2310 10 4 6 11 56 28 2812 K= 66 13 4 5 614 1 6 7 15 8 5 216 3 4 9 17 s( & CStr(x) & , & CStr(n) & )=18 Dim i As Integer, p As Sin