1、选择1、VB 是面向对象的程序设计语言，下面 （31） 不是面向对象包含的三要素。（31）A）变量 B）事件 C）属性 D）方法2、清除运行在 Form1 窗体上显示的文本或图形所使用的代码是 （32） 。（32）A）Form1.Hide B） Form1.Cls C）Form1.Show D）Form1.Print3、下面程序运行后，显示的结果是 （33） Dim x%If x Then Print x+1 Else Print x（33）A）1 B） 0 C）2 D）显示错误信息4、在 VB 6.0 集成开发环境中，不包括 （34） 窗口。（34）A）DOS 界面 B）窗体 C）代码 D）属性5、单选按钮的名称是 （35） 。（35）A）ComboBox B）CommandButtonC）PictureBox D）OptionButton6、工具箱中的 Timer 控件是指 （36） 。（36）A）图像控件 B）文件列表框控件C）形状控件 D）时钟控件7、关于窗体对象的说法不正确的是 （37） 。（37）A）Caption、Enabled、Font、BackColor 等都是窗体对象的属性B）Height 、Width 、Left、Top 等都是窗体对象的方法C）Hide 、Show 、Move 等都是窗体对象的方法D）Activate、GotFocus、Click、KeyDown 等都是窗体对象的事件8、下面程序运行后，显示的结果是 （38） 。Dim xx=Int(Rnd)+5Select Case xCase 5Print优秀Case 4Print良好Case 3Print及格Case ElsePrint不及格End Select（38）A）不及格 B）良好 C）优秀 D）及格9、下面 VB 语句求两个数中较大数， （39） 不正确。（39）A）Max=IIF(xy,x,y) B）If xy Rhen Max=x Else Max=yC）Max=x:If Y=x Max=y D）If Y=x Max=y:Max=x10、下面的 VB 程序段的运行结果是 （40） 。For i=3 To 1Step -1Print Spc(5-i)For j=1 To 2*i-1Print$ Next jPrintNext i（40）A）$ B） $ C）$ D）$ $ $ $ $ $ $11、Visual Basic 窗体文件的类型是 （41） 。（41）A）.frm B） .bat C）.bas D）.cls12、以下能判断是否到达文件尾的函数是 （42） 。（42）A）BOF B） ASC C）New D）EOF13、下列 VB 程序段的执行结果为 （43） 。A=0:B=1A=A+B:B=B+A:Print A;BA=A+B:B=B+A:Print A;B（43）A）1 2 B） 1 1 C）1 3 D）1 23 5 3 5 3 4 3 414、设窗体中存在命令按钮 Command1，其 Click 事件代码如下：Private Sub Command1_Click()x=2y=1If x*y0End Sub程序运行后，单击该命令按钮，输出结果为 （44） 。（44）A）True B） False C）-1 D）115、设 a=5、b=6、c=7、d=8，执行下列语句后，x 的值为 （45） 。X=IIf(ab)And(cd),10,20)（45）A）10 B） 20 C）True D）False16、在窗全上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=Trim(Str(c)For i=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在下划线处应填入的内容为 （46） 。（46）A）Right(c1,i) B） Left(c1,i) C）Mid(c1,i,1) D）Mid(c1,i,i)17、InputBox 函数返回值的类型为 （47） 。（47）A）数值 B）字符串C）变体 D）数值或字符串（视输入的数据而定）18、在 VB 中，以下叙述中错误的是 （48） 。（48）A）一个工程中可以包含多个窗体文件B）窗体和标准模块需要分别保存为不同类型的磁盘文件C）在一个窗体文件中用 Public 定义的通用过程不能被其他窗体调用D）用 Dim 定义的窗体层变量只能在该窗体中使用19、窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a=InputBox(Enter an Integer)b=InputBox(Enter an Integer)Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示的内容是 （49） 。（49）A）108 B） 18 C）810 D）出错20、执行语句 S=Mid(Visual Basic,5,8)后，S 的值是 （50） 。（50）A）Visual B） Basic C）al Basic D）321、在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()A$=初学英语先学 26 个英语字母Print Len(A$)End Sub程序运行后，单击命令按钮，窗体上显示的是 （51） 。（51）A）24 B） 13 C）12 D）2622、假设在当前模块中 Option Base 被设为 0（缺省设置） ，则数组声明语句：Dim a(-2 to 2,5)中，数组 a 包含的元素个数为 （52） 。（52）A）120 B） 30 C）60 D）2023、有一个如下的 Function 过程：Function result(n)t=0For i=1 to nt=t+iNext iresult=tEnd Function此过程的功能是 （53） （53）A）计算 n! B）计算 0*1+1*2+2*3+(n-1)*nC）计算 1+2+3+4+n D）计算 0*1*2*3*n24、有 VB 表达式：Int(198.555*100+0.5)/100，其值为 （54） 。（54）A）198 B） 199.6 C）198.56 D）20055、在窗体画一个命令按钮，编写如下程序：Private Sub Command1_Click() Dim A As Integer,B as IntegerA=10B=4Print AB;A mod BEnd sub程序运行后，单击命令按钮，输出的结果是 （55） 。（55）A）2.5 2 B） 2.5 2.5 C）2 2.5 D）2 256、运行程序产生死循环时，按_键可以终止程序运行。）【Ctrl】+【Enter】）【Ctrl】+【Break】）【Ctrl】+【Home】 ）【Ctrl】+【End】 57、以下4个控件中，不属于数据绑定控件的是_。）TextBox文本框控件）CheckBox复选框控件）Optionbutton单选按钮控件）Image图像框控件58、数据库有三种基本模型,它们是_。）关系、连接、嵌套）嵌套、层次、关系 ）网络、层次、嵌套）网状、层次、关系59、以下说法错误的是_。）一个表可以构成一个数据库）多个表可以构成一个数据库）一个表中每一条记录中的各项数据具有相同的数据类型）同一个字段的数据具有相同的数据类型60、标准SQL语言本身不提供的功能是_。）数据表定义）查询）修改、删除）绑定到数据库61、有如下程序段，该程序段执行完后，共执行循环的次数是_。Private Sub command1_click() t = 0 n = 1 Do t = t + n n = n + 1 If t = 10 Then Exit Do Loop While n Y,X,Y)）IF XY THEN MAX=X ELSE MAX=Y）MAX=X IF Y=X THEN MAX=Y ）IF Y=X THEN MAX=YMAX=X2、程序阅读选择题（每个选项 2 分，共 30 分） 。考生从提供的答案中选择一个正确的，并把所选答案的字母填入答题卡对应栏内。1、下面程序的功能是：采用冒泡法升序排序。请在_处选择正确的答案将程序补充完整。Private Sub Form_Click()Dim a,i%,n%,j%a=Array(1,51,6,4,13,23,26,31,5)n= （ 56） For i=0 To n-1For j=0 To n-1-iIf a(j)a(j+1) Then（57） （58） a(j+1)=tEnd IfNext jNext iFor i=0 To （59） 输出排序后的数Print a(i)Next iEnd Sub（56）A）UBound(a) B） Bound(a) C）Len(a) D）Int(a)（57）A）t=a(j+1) B） t=a(j) C）a(j+1)=t D）a(j)=t（58）A）a(j+1)=a(j) B） t=a(j+1) C）a(j)=a(j+1) D）t=a(j)（59）A）n+1 B） n-1 C）n D）i2、在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下一个 For 循环过程，m 是循环变量， n 是计算程序运行时循环的次数，当 m 值大于 21时跳出循环，最后把计算的循环次数 n 值在文本框中显示出来。请在_处选择正确的答案将程序补充完整。Private Sub command1_Click() Dim m As Integer,n As Integer For m=-21 To 30m=m+4n=n+1If m21 Then （60） （61） Text1.Text=Str( （62） )End Sub（60）A）Loop B） Exit For C）Next D）Again（61）A）Next B） End For C）Next For D）Exit For（62）A）m B） m+1 C）n+1 D）n3、下面子过程 PWord 的功能是：统计输入的文章中单词数，并将出现的定冠词 The 全部去除，同时统计删除定冠词的个数。假定单词以一个空格间隔。请在_处选择正确的答案将程序补充完整。Private Sub Command1_Click()Dim a$,m%,n%a=InputBox(输入一段文章)Call PWord(a,m,n) 调用子过程Print单词数=;m,The 数=;nPrint a 输出去除 The 后的文章字串End SubPublic Sub PWord(s$,CountWord%,CountThe%)Dim i%,st$CountWord=o:CountThe=0st=Trim(s) 去除文章字串首尾空格i= （63）