vb上机指导书.doc

《vb上机指导书.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验一VB编程环境和控件（一）【实验目的】1、 了解VB编程环境，掌握VB启动和退出的方法。2、 熟悉建立、编辑、运行和保存简单的VB应用程序的全过程。【实验内容】1.创建第一个应用程序。编写一个简单程序，实现单击命令按钮时在文本框显示“单击命令按钮”，单击窗体空白处时在文本框显示“单击窗体”。保存窗体文件名：SY1_1.frm,保存工程名：SY1_1.vbp。(1)程序界面如图1.1所示。(2)程序代码PrivateSubCommand1_Click()                        PrivateSubForm_Click() Text1.Text

2、="单击命令按钮"                              Text1.Text="单击窗体"EndSub                                              EndSub2.建立一个VB应用程序,保存窗体文件名：SY1_2.frm,保存工程名：SY1_2.vbp。程序功能如下：程序界面如图1.2所示(程序运行界面在相册中)，要求当按“显示内容”按钮时，文本框中出现红色的“Hello,VisualBasic！”的文字，按“清屏”按钮时，文本框中文字消失，按“结束”按钮后，程序结束。程序中有一个窗体，一个文本框和三

3、个按钮，各控件对象属性设置如表1-1所示。表1-1对象属性设置对象名称属性属性值窗体（名称）CaptionForm1VB，你好！文本框（名称）TextAlignmentFontForeColorText1 2粗体、14号红色命令按钮（名称）CaptionCommand1显示内容命令按钮（名称）CaptionCommand2清屏命令按钮（名称）CaptionCommand3结束   程序代码自己编写。（注：程序结束的命令是：End）实验二VB简单控件【实验目的】1、 熟悉VB编程环境。2、 熟悉命令按钮、文本框、标签等控件的属性及使用【实验内容】 1、窗体上有两个名称分

4、别为C1,C2的命令按扭，一个文本框Text1。命令按钮的标题及文本框上显示的字符自定。编程实现当按下C1时，将C2的标题与Text1中的内容交换。2、启动程序时窗体上看不到任何控件，鼠标单击窗体则出现一个标题为“显示”的按钮；单击按钮时窗体上出现“开心快乐”的字样。分析上面过程，设计窗体并实现。3、创建VB工程，运行时可将文本框中的文字字号缩小。窗体中包括下列控件：标签、文本框和两个命令按钮，窗体标题为“字符缩小”，文本框字号为30磅。在文本框输入一串字符；按下“缩小”按钮时字号缩小为原来的一半，界面如下图。                             

5、         请完善以下代码：PrivateSubForm_Load() Text1.FontSize=30   '设置文本框原始字号EndSubPrivateSubCommand1_Click() Text1.FontSize=________________________ '将文本框的字体缩小一半EndSubPrivateSubCommand2_Click() __________________________________     '文本框的字体恢复为30EndSub【提示】关于字体的文本框属性设置设置字体名称：如Text1.FontName="楷体_

6、GB2312"设置字号：如Text1.FontSize=30设置字形：如Text1.FontBold=True   (设置黑体)Text1.FontItalic=True   (设置斜体)Text1.FontUnderline=True   (设置下划线)Text1.FontStrikethru=True   (设置删除线)实验三VisualBasic数据类型及表达式[实验目的]1、掌握VisualBasic的数据类型和变量定义方法，体会其作用域的概念2、掌握VisualBasic的运算符和表达式的书写。3、掌握VisualBasic的变量与常量的使用以及编码规则。4

7、、掌握立即窗口的使用[实验内容]1 设计程序，检测变量的数值范围。DimaAsInteger,bAsIntegerPrivateSubForm_Click() a=32767 b=32768              PrintaPrintbEndSub请事先判断上述代码的执行结果，然后再进行执行，若执行结果有错，请分析产生错误原因，并进行更正。 2  设计程序，输入某学生的英语、数学、无机、生化、计算机五科成绩（输入时应该有相应的提示），在窗体上输出该学生的总分和平均分。①    使用Text控件输入，Label控件输出。②    使用InputB