《程序设计》实验指导书.pdfVIP

《程序设计》实验指导书 《Visual Basic 程序设计》 实 验 指 导 书 信息技术学院 第 1 页第 1 页第 1 页 《程序设计》实验指导书 《Visual Basic 程序设计》 实验指导书 实验 1 Visual Basic 基础 一、实验目的 （1 掌握 VB 的启动方法； （2 熟悉 VB 的开发环境； （3）掌握在属性窗口中设置控件属性的方法； （4 学会建立简单的 VB 应用程序的方法；（5）掌握基本控件的特性及应用； （6）掌握创建下拉菜单和弹出式菜单 二、实验要求 （1）编写程序要规范、正确，上机调试过程和结果要有记录 （2）做完实验后给出本实验的实验报告。 三、实验设备、环境 586 以上的计算机，安装有 Visual Basic 6 软件。 四、实验步骤 1、分析题意，重点是分析并给出与题目相应的数学方程或编程算法。 2、新建工程 3、根据题目要求，设计窗体界面。 4、编写并输入相关事件的程序代码。 5、运行与调试工程。 6、保存工程（请将每个程序的工程与窗体文件存放在一个单独的文件夹中 。 7、生成可执行程序。 五、实验内容 1. 编写一个求两个数相加的程序。界面设计如下图 a 所示。运行时，当按下 “求和 (S)” 按钮时，求数 1 和数 2 的和。运行效果如下图 b 所示。 (a) (b) 第 2 页第 2 页第 2 页 《程序设计》实验指导书 ①单击“求和”按钮求两数和 Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub Private Sub Command2_Click() End End Sub ②当输入数的文本框获得焦点时，选中其中的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text1.Text) End Sub ③当输入数的文本框内容发生变化时，清除和值 Private Sub Text1_Change() Text3.Text = End Sub Private Sub Text2_Change() Text3.Text = End Sub ④单击“退出”按钮结束程序的运行。 Private Sub Command2_Click() End End Sub 2. 在窗体上建立一个文本框，将输入到文本框中的小写字母转换为大写。 Private Sub Text1_KeyPress (KeyAscii As Integer) Char = Chr(KeyAscii) KeyAscii = Asc(UCase(Char)) End Sub 3. 设计如下图所示的界面，用选项按钮设置文本框的文字颜色和背景颜色。