预览加载中,请您耐心等待几秒...
1/4
2/4
3/4
4/4

在线预览结束,喜欢就下载吧,查找使用更方便

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

PAGE4 第2章VB可视化编程初步 一、单项选择题 1.在VisualBasic的集成开发环境中创建VisualBasic应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是()。 A.窗体布局窗口B.立即窗口 C.代码窗口D.监视窗口 答案:C 2.应用程序打包后,其包文件的后缀为()。 A.exeB.cab C.tetD.ocx 答案:B 3.当运行程序时,系统自发执行启动窗体的()事件过程。 A.LoadB.Click C.UnLoadD.GotFocus 答案:A 4.MsgBox函数的返回值为()。 A.整型B.字符串 C.逻辑型D.日期型 答案:A 5.在VisualBasic中,变量的默认类型是()。 A.IntegerB.Double C.VariantD.Currency 答案:C 6.文本框的ScrollBars属性设置了非零值,却没有效果,原因是()。 A.文本框中没有内容B.文本框的Locked属性为True C.文本框的MultiLine属性为TrueD.文本框的MultiLine属性为False 答案:D 7.下列赋值语句正确的是()。 A.A=B+CB.B+C=A C.–B=AD.2=A+B 答案:A 8.在VisualBasic中,程序的执行顺序是()。 A.由VisualBasic开发系统决定B.由事件驱动 C.由代码行的顺序决定D.随意执行 答案:B 9.计时器控件响应的事件是()。 A.TimerB.Interval C.ClickD.Enabled 答案:A 10.工程文件的后缀是()。 A..bmpB..vbp C..frmD..bas 答案:B 11.窗体Form1的Name属性为Myfrm,则它的Load事件工程名为()。 A.Form_LoadB.Me_Load C.Myfrm_LoadD.Form1_Load 答案:A 12.用于设置文本框中显示字符的属性是()。 A.AutoSizeB.PasswordChar C.SelLengthD.MaxLength 答案:B 13.下列控件中,不能改变大小的是()。 A.TextBoxB.Label C.TimerD.PictureBox 答案:C 二、问答题 1.简述设计VisualBasic应用程序的步骤。 答:1.设计应用程序界面 2.设计对象属性 3.编写代码 4.保存和运行程序 5.编译和打包 6.安装运行 2.简述建立可执行文件的步骤。 答:单击“文件”菜单中的“生成Timerapp.exe”选项,出现“生成工程”对话框,在其中输入工程名.exe,然后单击“确定”按钮,程序即被编译在磁盘上,这样该应用程序就可以脱离VB环境,在操作系统下单独运行了。 3.VisualBasic应用程序中包括哪些类型的文件? 答:可能包含下列不同类型的文件: 1)跟踪所有部件的工程文件(.vbp) 2)每个窗体的文件(.frm) 3)每个窗体的二进制数据文件(.frx) 4)每个类模块的文件(.cls),可选 5)每个标准类模块的文件(.bas),可选 6)一个或多个包含Activex控件的文件(.ocx),可选。 7)单个资源文件(.res),可选。 4.什么是对象、事件和方法?三者之间的关系是什么? 答:窗体和控件是创建应用程序所使用的对象,方法是对象的动作,事件是对象的响应。 属性可看作对象的性质,方法可看着对象的动作,事件可看着对象的响应。窗体对象由属性定义其外观,由方法定义其行为,由事件定义其与用户的交互。 5.什么是事件驱动程序设计? 答:在事件驱动的应用程序中,程序代码不是按照预定的路径执行,而是在响应不同的事件时执行不同的代码片段。这些事件的顺序决定了代码执行的顺序。所以编程人员只需针对某个事件编写程序代码。这就是事件驱动程序设计。 三、程序设计题 1.时间换算程序。设计一个时间换算程序,要求输入小时数,分钟数和秒数,单击“计算”按钮输出合计秒数。程序界面如图1所示。 程序代码: PrivateSubCommand1_Click() Dimxs,f,m,msAsInteger xs=Val(Text1.Text) f=Val(Text2.Text) m=Val(Text3.Text) ms=xs*3600+f*60+m MsgBox"合计秒数是"+Str(ms)+"秒",0,"计算秒数" EndSub 2.除法计算程序。编写两个数相除的程序,若除数为0,用消息对话框提示重新输入。程序运行界面如图2所示。 程序代码: PrivateSubCommand1_Click() Dimx,yAsDouble x=Val(Text1.Text