vb等级考试练习题.docx
- 文档编号:26556532
- 上传时间:2023-06-20
- 格式:DOCX
- 页数:11
- 大小:817.09KB
vb等级考试练习题.docx
《vb等级考试练习题.docx》由会员分享,可在线阅读,更多相关《vb等级考试练习题.docx(11页珍藏版)》请在冰豆网上搜索。
vb等级考试练习题
12.在VisualBasic中,下列优先级最高的运算符是()
A)*B)\C) 13.下列语句用来设置疤錐orm1的属性,其中在运行时不能正确操作的语句是() A)Form1.Caption="FormTest"B)Form1.Name="FormTest"C)Form1.MaxButton=FalseD)Form1.MinButton=False 14.表达式Left("howareyou",3)的值是() A)howB)areC)youD)howareyou 15.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是() A)工程资源管理器窗口B)工具箱窗口C)代码窗口D)属性窗口 16.下列正确的VisualBasic注释语句是() A)Dima(10)AsIntegerRem这是一个VB程序 B)这是一个VB程序 PrivateSubCommand1_Click()… C)a=1: b=2: _Rem这是一个VB程序: c=3 D)IfShift=6AndButton=2Then Print"BBBB"Rem这是一个VB程序 EndIf 17.代数式ab+cd对应的VisualBasic6.0表达式是() A)a/(b+c/D)B)(a/b+c)/dC)a/(b+c)/dD)a/b+c/d 18.使程序立即从一个Function过程中退出的语句是() A)ExitFunctionB)ExitC)ReturnD)Resume 19.要使一个标签透明且具有边框,则应() A)将其BackStyle属性设置为0,BorderStyle属性设置为0 B)将其BackStyle属性设置为0,BorderStyle属性设置为1 C)将其BackStyle属性设置为1,BorderStyle属性设置为0 D)将其BackStyle属性设置为1,BorderStyle属性设置为1 20.在窗体上画一个命令按钮,然后编写如下代码: PrivateSubCommand1_Click() a&=InputBox("请输入第一个数") b&=InputBox("请输入第二个数") Printb&+a& EndSub 程序运行后,单击命令按钮,在两个输入对话框中先后输入12345和54321,程序的输出结果是() A)66666B)5432112345C)1234554321D)出错 答案: 1.D2.D3.C4.A5.A6.D7.A8.A9.A10.B11.C12.A13.B14.A15.C16.B17.A18.A19.B20.A 7.在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程: PrivateSubCommand1_Click() Text1.Text="VBProgramming" Text2.Text=Text1.Text Text1.Text="ABCD" EndSub 程序运行后,单击命令按钮,两个文本框中显示的内容分别为【7】和【8】。 8.下面的程序代码实现将一个一维数组中元素向右循环移动,移动次数由文本框Text1输入。 例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后,各元素的值依次为8,9,10,0,1,2,3,4,5,6,7。 PrivateSubMoveRight(x()AsInteger) DimiAsInteger DimjAsInteger DimkAsInteger i=UBound(x) j=x(i) Fork=iTo【9】Step-1 【10】 Nextk x(LBound(x))=j EndSub PrivateSubCommand1_Click() Dima(10)AsInteger DimiAsInteger DimjAsInteger DimkAsInteger Fori=0To10 a(i)=i Nexti j=Val(Text1.Text) k=0 Do k=k+1 CallMoveRight(a) LoopUntilk=j Fori=0To10 Printa(i); Nexti EndSub 9.下面程序是用来打印九九乘法表的,请填空。 PrivateSubForm_Click() DimflagAsInteger,iAsInteger,jAsInteger,Str1$ Str1=“” Fori=1To9 【11】 Forj=1To9 If【12】Then str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j)) Else str1=str1&Chr(13) ExitFor EndIf Nextj Nexti Printstr1 EndSub 10.把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。 在窗体上建立一个文本框,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程: PrivateSubForm_Click() Open“D: \test1.txt”ForInputAs#1 Text1.FontSize=14 Text1.FontName=“幼圆” DoWhileNotEOF (1) 【13】 whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=【14】 Close Open“D: \test2.txt”ForOutputAs#1 Print#1,【15】 Close EndSub 答案: 1.【1】重复(或循环) 2.【2】0 3.【3】模块 4.【4】消息 5.【5】谓词演算 6.【6】样式 7.【7】ABCD【8】VBProgramming 8.【9】LBound(x)+1【10】x(k)=x(k-1) 9.【11】Flag=i【12】j 10.【13】LineInput#1,aspect$【14】Whole$【15】Text1.text 选择题(下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的)。 (1)以下不能在“工程资源管理器”窗口中列出的文件类型是 A).bas B).res C).frm D).ocx (2)以下关于窗体的描述中,正确的是 A)执行UnloadForm1语句后,窗体Form1消失且也不在内存中 B)窗体的Load事件在卸栽窗体时发生 C)当窗体的Enabled属性为Ture时,通过鼠标和键盘对窗体的操作都被禁止 D)执行UnloadForm1语句后,窗体Form1消失,但仍在内存中 (3)设有如下的记录类型 则正确引用该记录类型变量的代码是 A)Worker.name=”张红” B)DimSAsWorker S.name=”李红梅” C)DimSAsTypeWorker s.name=”李红梅” D)DimSAsType S.name=”李红梅” (4)在立即窗口中,语句PrintString(3,”Basic”)的输出是 A)Bas B)BasicBasieBasic C)S D)BBB (5)存窗体卜画一个命今按钮,名称为Commandl。 单击命令按钮时,执行如下事件过程: 则在弹出的信息框的标题栏中显示的信息是 A)softwareandhardware B)software C)hardware D)1 该文章转载自无忧考网:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 等级 考试 练习题