《vb复习试卷》由会员分享，可在线阅读，更多相关《vb复习试卷（9页珍藏版）》请在金锄头文库上搜索。
1、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）代码
2、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、Key
3、Down 等都是窗体对象的事件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 程序段的运行结果是 （
4、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;
5、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
6、的命令按钮，然后编写如下事件过程：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） 。
7、（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、在输入对话框中分别输入 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）26
9、22、假设在当前模块中 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+
10、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
11、】+【End】 57、以下4个控件中，不属于数据绑定控件的是_。）TextBox文本框控件）CheckBox复选框控件）Optionbutton单选按钮控件）Image图像框控件58、数据库有三种基本模型,它们是_。）关系、连接、嵌套）嵌套、层次、关系 ）网络、层次、嵌套）网状、层次、关系59、以下说法错误的是_。）一个表可以构成一个数据库）多个表可以构成一个数据库）一个表中每一条记录中的各项数据具有相同的数据类型）同一个字段的数据具有相同的数据类型60、标准SQL语言本身不提供的功能是_。）数据表定义）查询）修改、删除）绑定到数据库61、有如下程序段，该程序段执行完后，共执行循环的次数是_。
12、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 Fo
13、rm_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)
14、 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 The
15、n （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）
