VB程序设计(专)练习一至四答案

《VB程序设计(专)练习一至四答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一阶段练习题(参考答案)一、单项选择题题号12345678910答案CBDDCBBCDC题号11121314151617181920答案ACCABABDDA题号2122232425262728答案DBBABDAD二、填空题1．视图2．工具箱3．工具4．选项5．编辑器6．对象的性质，来描述和反映对象特征的参数7．对象的动作、行为8．Form窗体9．Font10．Multilint11．在运行时设计是无效的12．Style13．Style14．Locked15．TabIndex16．017．VB9818．2

2、19．定义对象属性20．赋值三、程序填空题1．①Load②False③Change④Text2+Text12．①(Form1.ScaleHeight-Text1.Height)②+vbCrLf+四、编程题1．⑴　操作步骤：①　启动VB6.0②　选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。③　单击工具箱的“标签”标准控件，在窗体上建立一个标签。同样操作在窗体上建立三个标签、一个文本框和一个命令按钮。⑵　窗体属性的设置如表1所示。⑶　控件属性的设置

3、如表2所示。　　控件设置后的界面如图1所示表1　窗体属性列表控件名称属　性属性值Form1Caption基本控件示例Form1Font宋体、小四号表2　控件属性列表控件名称属　性属性值Label1CaptionVB程序设计和数据库Label1AutoSizeTrueLabel2Caption请输入您的姓名Label2AutoSizeTrueLabel2Font粗斜Label3AutoSizeTrueLabel3BoardStyle1-FixedSingleText1Text空Command1Caption

4、单击在标签内显示图1　设计界面⑷　代码设计：双击Command1控件，或在“视图”菜单中选择“代码窗口”命令，出现代码窗口，选择Command1控件的Click项，然后Command1_Click()过程代码如下：PrivateSubCommand1_Click()Label3="欢迎"+Text1+"　同学参加VB学习！"EndSub⑸　运行测试：　　在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，在文本框内输入自己的姓名后，单击命令按钮，出现图2所示的运行界面。⑹

5、　保存窗体文件和工程文件。图2　运行界面2．（1）　操作步骤：①　启动VB6.0②　选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。③　在窗体上建立三个标签、三个文本框和三个命令按钮。（2）　控件属性的设置如表1所示。　　控件设置后的界面如图1所示表1　控件属性列表控件名称属　性属性值Label1Caption操作数1Label2Caption操作数2Label3Caption操作数3Text1Alignment2Text2Alignment2Te

6、xt3Alignment2Command1Caption×Command2Caption÷Command3Caption退出图1　设计界面（3）　代码设计：PrivateSubForm_Load()Text1=""Text2=""Text3=""EndSubPrivateSubCommand1_Click()Text3=Val(Text1)*Val(Text2)EndSubPrivateSubCommand2_Click()Text3=Val(Text1)Val(Text2)EndSubPrivateS

7、ubCommand3_Click()EndEndSub（4）　运行测试：　　在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，在文本框内输入操作数1和操作数2后，单击命令按钮，出现图2所示的运行界面。（5）　保存窗体文件和工程文件。图2　运行界面3．（1）　操作步骤：①　启动VB6.0②　选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。③　在窗体上建立三个标签、一个文本框和两个命令按钮。（2）　控件属性的设置如表

8、1所示。　　控件设置后的界面如图1所示表1　控件属性列表控件名称属　性属性值Label1Caption地球人类的家园Label2Caption水更绿，地更青Label3Caption居更佳，人更欢Text1Alignment2Command1Caption单击在文本框内显示Command2Caption退　出图1　设计界面（3）　代码设计：PrivateSubCommand1_Click()Text1=Label2.Capti