资源预览内容
第1页 / 共9页
第2页 / 共9页
第3页 / 共9页
第4页 / 共9页
第5页 / 共9页
第6页 / 共9页
第7页 / 共9页
第8页 / 共9页
第9页 / 共9页
亲,该文档总共9页全部预览完了,如果喜欢就下载吧!
资源描述
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)
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号