资源预览内容
第1页 / 共17页
第2页 / 共17页
第3页 / 共17页
第4页 / 共17页
第5页 / 共17页
第6页 / 共17页
第7页 / 共17页
第8页 / 共17页
第9页 / 共17页
第10页 / 共17页
亲,该文档总共17页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
VB语言程序设计(1/44)VB支持自定义数据类型,在某程序中我们定义了如下类型Type Stude ntnu mber As stri ngn ame As Stri ngage As In tegerEnd Type?针对上述定义,如下几项用法正确的是:()正确答案:B?A?Student.name=三BDim sAs Stude nt?s. name =红C?Dim s As Type Stude nts.name=三DDim s As Type s.name=三(2/44)?以下能够触发文本框Change事件的操作是()正确答案:D? A文本框失去焦点? B文本框获得焦点? C设置文本框的焦点? D改变文本框的容(3/44)?下面程序运行后输出的结果是()正确答案:BDIM C1,C23= CHINAC2=STRING$(2, C1)PRINT Left(C1,1) + C2移除错题? ACHI? Bcccc?设窗体上有一个文本框,名称为textl,程序运行后,要求该文本框不能接受键 盘输入,但能输出信息,以下属性设置正确的是:正确答案:B? A?text1.maxle ngth=0B?text1.e nabled=flase C?text1.visible=flaseDtext1.width=0(5/44)?用于返回窗体可用区域宽度的属性是()正确答案:A? AScaleWidth? BScaleLeft? CScaleHeight? DScaleTop(6/44)当发生错误时,使程序转跳到语句标号为0的程序块B当发生错误时,不使用错误处理程序块? C当发生错误时,忽略错误行,继续执行下一语句? D当发生错误时,终止本过程执行,继续执行下一过程(7/44)为了检测到用户按下键盘上的所有键,应该使用的键盘事件为()? A(8/44)?当一个复选框被选中时,它的Value属性的值是()正确答案:C0(9/44)?通用对话框控件和文件列表框控件中,都能根据文件的类型对要显示的文件 进行筛选过滤,后者使用()属性进行该项设置。正确答案:A? A? 语句DIM ARRAY(O to 3,4,1 to 6)中定义的数组有()个元素。正确答案:C? A(13/44)?在窗体上放置一个命令按钮,名称为Command1单击命令按钮时,执行如下事 件过程:Private Sub Comma nd1_C1ick() a$=software and hardware b$=Right(a$,8) c$=Mid(a$,1,8) Msgbox a$,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是() 正确答案:D? AsoftWare and hardware? Bsoftware? Chardwafe? D出现错误(14/44)下列关于窗体上控件的基本操作错误的是:? 正确答案:A? A?下一次DEL键只能删除一个控件B?按下一次DEL键可以同时删除多个控件C?按住SHIFT键,然后单击每个要选择的控件,可以同时选中多个控件D按住ALT键,然后单击每个要选择的控件,可以同时选中多个控件(15/44)?下列关于属性设置的叙述错误的是:正确答案:A?A?一个控件具有什么属性是 VB预先设计好的,用户不能改变B?一个控件具有什么属性是 VB预先设计好的,用户可以改变C?一个控件的属性即可以在属性窗口中设置,也可以用程序代码设置D一个控件的属性在属性窗口中设置,还可以利用程序代码为其设置新值(16/44)对于复选框控件chkBoy,如果在程序中设置它为选中状态,下面语句正确的是()? 移除错题正确答案:D? AchkBoy.Checked = true? BchkBoy.Value = true? CchkBoy.Selected = true? DchkBoy.Value = 1(17/44)? 一个对象所能做的事情称为对象的()正确答案:D? D方法(18/44)?在窗体上画一个名称为Textl的文本框,然后画一个名称为HScrolll的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则 在文本框中显示滚动条的当前值,以下能实现上述操作的程序段是()? 正确答案:A? APrivate Sub HScroll_Cha nge()Text1.Text=HScroll1.ValueEnd Sub? BPrivate Sub HScroll_Click()Text1.Text=HScroll1.ValueEnd Sub? CPrivate Sub HScroll_Cha nge()Text1.Text=HScroll.Capti onEnd Sub? DPrivate Sub HScroll_Click()Text1.Text=HScroll.Capti onEnd Sub(19/44)设 x=4,y=8,z=7, 表达式 xz) Or zx 的值是 /x的值是 正确答案: D? A(20/44)?在程序中,使用InputBox函数可以接受用户的输入,如果要把它的返回值转换 为数值型的数据,应该使用的函数是()正确答案:A? AVal? BLenC动态数组因为在程序运行前无法确定数组的大小 ,所以经常根据程序的运行情况 对数组进行重新定义,以下关于VB中动态数组的叙述中不正确的是()可以用ReDim语句重新定义动态数组,并且可以进行多次重定义? B首次用Dim进行动态数组声明的时候,必须指明它的类型和上下界? CPreserve为ReDim语句的可选参数,用于保留动态数组原来的容? D当对动态数组使用Erase语句进行释放操作时,将释放其存(22/44)?在运行时,按TAB键跳过了一个可以获得焦点的控件(如文本框),则可能是因为()正确答案:D?A该控件的TABSTO瞩性值为TRUE?B该控件的TABINDEX属性值为 FALSE?C该控件的ENABLED!性值为 TRUE?D该控件的ENABLE瞩性值为FALSE(23/44)?变量未赋值时,数值型变量的值为()正确答案:A?A0?B空?C?1D无任何值(24/44)?以下语句的输出结果是()Print Format$(32548.5, 000,000.00)正确答案:C?A?32548.5B?325,485.00C?032, 548, 50D32, 548, 50(25/44)?以下关于MsgBox的叙述中,错误的是()正确答案:D? AMsgBox函数返回一个整数? B通过MsgBox函数可以设置信息框中图标和按钮的类型? CMsgBox语句没有返回值? DMsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数量(26/44)?语句DIM AA(3,4,5)中定义的数组有多少个元素()正确答案:C? A? D345(27/44)在窗体上画一个名称为Comma nd的命令按钮,然后编写如下事件过程Private Sub Comma nd1_Click()x=I nputBox(l nput)Select Case xCase 1,3Print 分支 1Case Is 4Print 分支 2Case ElsePrin t Else 分支End SelectEnd Sub?程序运行后,如果在输入对话框中输入2,则窗体上显示的是()正确答案:C? A?分支1B?分支2C?Else分支D程序出错(28/4VB丿4)应用程序的运行模式是()正确答案:C? A?解释运行模式B?编译运行模式C?两者都有D汇编模式(29/44)设菜单中有一个菜单项为“ Open。若要为该菜单命令设计访问键,即按下Alt 及字母O时,能够执行“ Open命令,则在菜单编辑器中设置“ Open命令的方 式是()? 正确答案:A? A?把Caption属性设置为&OpenB?把Caption属性设置为0&pen C?把Name属性设置为&OpenD把Name属性设置为0&pen(30/44)运行时,当用户向文本框输入新的谷,或在程序代码中对文本框的TEXT属性进行 赋值从而改变了文本框的TEXT属性值时,将触发文本框的()事件。? 正确答案:D1? ACLICKCHANGE(31/44)下列关于控件画法的叙述错误的是()正确答案:D? A单击一次工具箱中的控件图标,只能在窗体上画出一个相应的控件? B按住CTRL键后单击一次工具箱中的控件图标,可以在窗体上画出多个相同类型的控件? C双击工具箱中的控件图标,所画控件的大小和位置是固定的? D不合用工具箱中的控件工具,不可以在窗估上画出图形对象,但可以写入文字字符(32/44)?以下()程序段可以实施X、丫变量值的变换()正确答案:C? A?点击滚动条的箭头,可以改变它的value值,从而引发 Change事件B?拖动滚动框,可以触发Scroll事件C?通常,水平滚动条的值从左向右递增,垂直滚动条的值自上而下递增D拖动滚动框,可以触发Cha nge事件,而且是连续触发的(35/44)?在运行阶段,要在文本框TEXT1获得焦点时选中文本框中所有容,对应的事件过程是()正确答案:A? APrivate Sub Text1_GotFocus()Text1.SelStart=0Text1.Selle ngth=Le n(Text1.Text)End Sub? BPrivate Sub Text1_LostFocus()Text1.SelStart=0Textl.Selle ngth=Le n(Text1.Text)End Sub? CPrivate Sub Text1_Cha nge()Te
收藏 下载该资源
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号