Visual Basic程序设计模拟试题一

VisualBasic程序设计模拟试题一一、单项选择题（每小题2分，共30分）VisualBasic是一种面向对象的可视化编程语言，采取了（ ）的编程机制A．按过程顺序执行 从主程序开始执行C．事件驱动 按模块顺序执行要设置命令按钮的背景图形，必须设置的两个属性是（ ）A．Caption和PictureC．StyleIcon3．工程文件的扩展名是（。Style和Picture、ValueIconA．.vbpB．.frmC．.basD．.frx有程序代码如下：Text1.Text="欢迎学习VB程序设计"则Text1，Text，"欢迎学习VB程序设分别代表（ A．对象，值，属性 对象，属性，值C．对象，方法，属性 属性，对象，值VisualBasic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ 。A．设计模式 B．编写代码模式C．执行模式 D．中断模式6．下列控件中，不能改变大小的是（ A．TextBox B．LabelC．Timer D．PictureBox多窗体程序是由多个窗体组成在缺省情况下在应用程序执行时总是（ 指定为启动窗体。A．不包含任何控件的窗体 B．命名为Frm1的窗体C．包含控件最多的窗体 D．设计时的第一个窗体8．DimA(1To4,0To定义的数组包含的元素的个数是（ A．12 C．15 如果创建了命令按纽控件数组，则Cilick事件的参数是（ 。A．Caption B．Index C．Tag D．没有参10．不属于VB数据库引擎的是（ ）A．ODBC B．Jet引擎C．OLEDB D．BDE要向图片框P1中加载“d:\hainan\zhiwu.bmp”图像文件，应使用语句（ A．Picture1.Picture="d:\hainan\zhiwu.bmp"B．Picture1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")C．P1.Picture=LoadPicture("d:\hainan\zhiwu.bmp")D．P1.Picture=LoadPicture(d:\hainan\zhiwu.bmp)12．.以下属性只能用程序代码设置，不能通过属性窗口设置的是（ 。A．Index属性 B．Pattern属性 C．Visible属性 D．Drive属13．以下有关VisualBasic语言描述中错误的是（ 。A．语句是一行一句，以回车键结束B．用“,”分隔一行中的多个语句C．不区分大小写D．一条语句放在多行中，则在前一行结束处使用续行符连接下一13.在下列选项中，不能将图像装入图片框和图像框的是（ ）A．在界面设计时，通过Picture属性装入B．在界面设计时，手工在图像框和图片框中绘制图形C．在界面设计时，利用剪贴板把图像粘贴上D．在程序运行期间，用LoadPicture函数把图形文件装入使用ADO对象模型时，使Recordset和Connection对象建立连接的属性（ 。A．Open B．ExecuteC．CommandType 15．要发送数据，通常使用Winsock控件的（ ）A．Listen B．AcceptC．SendData D．GetData二、填空题（220分）1．每个应用程序必须有一个惟一的文件。2．表达式13\2-2^3*5MOD6的值是。3．如果要每隔3s产生一个Timer事件，则Interval属性应设置4．VB中的程序错误类型主要有实时错误 、三种。。5.控件数组的名字由 属性指定，而数组中的每个元素由属性决定。Winsock控件主要用来编制基于 或 协议的网络应用程序。如果不能事先确定变量的数据类型，则可以把它生命为 类型。以写方式打开DText.dat全局变量是指那些在 中有效的变量一般在模块代码编辑器顶部使用 声明。VB中参数传递的机制有两种，一种是 参数，另一种参数。三、阅读程序题（共25分）阅读下列程序并写出程序运行结果1．(6分)PrivateSubForm_Click()DimxAsIntegerStaticyAsx=x+2y=y+3Form1.Print"x=";x,"y=";yEndSub写出程序运行时连续单击三次窗体后，Form1上的输出结果。2．(6分)PrivateSubCommand1_Click()x=0DoWhilex<60x=(x+3)*(x+4)n=n+1LoopText1.Text=Text2.Text=Text3.Texta(Text1.Text)+Val(Text2.Text)EndSub写出程序运行后，文件框Text3的结果。3.(6分)PrivateSubForm_Click()DimA(1To3)AsStringDimcAsIntegerDimjAsA(1)="4"A(2)="8"A(3)="12"c=1Forj=1To3c=c+Val(A(j))NextjPrintcEndSub写出程序运行时单击窗体后，窗体Form1上的结果。4.(7分)PublicSubchange1(ByValxAsInteger,ByValyAsInteger)DimtAst=xx=y=EndSubPublicSubchange2(xAsInteger,yAsInteger)DimtAst=xx=yy=tEndSubPrivateSubForm_Click()DimaAsInteger,bAsIntegera=22:b=33change1a,bForm1.Print"A1=";a,"B1=";ba=22:b=33change2a,bForm1.Print"A2=";a,"B2=";bEndSub写出程序运行时，单击窗体Form1上的输出结果。四、完善程序题（共10分）1所示。List1

Text1Command1Command2Command3图1程序如下，请补充完整。PrivateSubForm_Load()List1.AddItem"VisualBasic"List1.AddItem"SQLSERVERList1.AddItem"List1.AddItem"ERP"List1.AddItem"List1.AddItem"List1.AddItem"信息系统测试"EndSubPrivateSubCommand1_Click()IfText1.Text<>""Then'将文本框中的内容加到列表框中Text1.Text=""[2]MsgBox"请在文本框中输入信息！"EndIfEndSubPrivateSubCommand2_Click()[3] 删除选定的项目EndSubPrivateSubCommand3_Click()IfCommand3.Caption= [4] Text1.Text= [5]Text1.SetFocusCommand1.Enabled=[6]Command2.Enabled=FalseCommand3.Caption=[7]ElseList1.List(List1.ListIndex)=Text1.TextCommand1.Enabled=TrueCommand2.Enabled=TrueText1.Text=""Command3.Caption=[8]EndIfEndSub五、编写程序题（共15分）编写一工资调整程序。若基本工资大于等于800元，增加工资20%，若小于800元大于6001560010%Text1Label1中输出增加后的工资。程序运行界面4图2VisualBasic程序设计模拟试题一答案一、单项选择题（每小题2分，共30分）1.C 2.B3.A4.B 5.B6.C 7.D8.B 9.B10.D 11.C12．D 13．B 14.D 15.C二、填空题（每空1分，共15分）1．vbp2．23．30004．逻辑错误编译错5．Name Index6.TCP/IP UDPVariant)open"D:\text.dat"ForOutputAs#1整个应用程序 Public10．引用参数传递（或按址传递）按值传三、阅读程序题（每小题5分，共20分1．x=2 y=3x=2 y=6x=2 y=92.2423．254．A1=22 B1=33A2=33 B2=22四、完善程序题（共10分）[1]List1.AddItemText1.Text[2]ElseList1.RemoveItemList1.ListIndex修改"List1.TextFalse修改确认"修改"五、编写程序题（共15分）参考答案：PrivateSubCommand1_Click()Dim