上机实验一 ： VB开发环境.docVIP

上机实验一 ： VB开发环境 一、实验目的 1．了解VB 6.0系统对计算机软、硬件环境的要求 2．掌握启动和退出VB的方法 3．熟悉VB的开发环境 4．了解和掌握建立、编辑和运行一个简单VB应用程序的过程。 了解VB联机帮助的使用方法。 二、实验内容 1．启动和退出VB 2、熟悉VB的开发环境 3、使用联机帮助 4、编写一个简单的加法计算器程序 三、实验步骤： （1）创建窗体 启动VB后，选择“标准.exe”选项，进入VB开发环境，此时已自动创建一个窗体form，在此窗体上添加控件，构建用户界面。 （2）向窗体上添加控件 在form1窗体上添加以下控件： 标签label1:用于显示“+”； 标签label2: 用于显示“=”； 文本框Text1、Text2：分别用于输入二个加数； 文本框Text3：用于显示加法计算和； 命令按钮Command1：用于计算加法； 命令按钮Command 2：结束应用程序 （3）设计对象属性 设置form1的Caption属性为“简单加法计算机器”。设置label1的Caption属性“+”。 设置Lable2的Caption属性为“=”。 设置Text1、Text2的Text属性为空。 设置Command1的Caption属性为“计算”。 设计Command2的Caption属性为“结束”。 将窗体和各控件调整如图所示： （4）编写代码，建立事件过程 双击Command1命令按钮，打开代码窗口，对该按钮编写如下代码： Private Sub Command1_click() Text3.Text = Val(Text1.Text) + Val(Text2.Text) End Sub 编写命令按钮Command2的事件过程代码： Private Sub Command2_click() End End Sub (5)运行程序 ①按F5键开始运行程序，输入5、10两个值，单击“计算”命令按钮进行加法运算。 ②按“结束”命令按钮，结束程序的执行。 ③保存程序 执行“文件”菜单中，执行文件菜单中的“保存”命令，或单击工具栏上的“保存工程”按钮。 上机实验二 简单程序设计 ?一、实验目的 1.掌握VB数据类型的基本概念 2.掌握变量、常量的定义规则和表达式、赋值语句的使用 3.掌握常用函数的使用 4.掌握分支语句的使用 5.掌握循环语句的使用 6.掌握数组、过程的使用 二、实验内容 1、制一个程序，计算某学生奖学金的等级，以数学、外语、语文三门功课平均分为评奖依据，大于95分者可得一等，大于90分者可得二等，大于85分可得3等、符合条件者，就高不就低，只能获得交的一项奖学金。要求显示获奖学金等级。平均分85分以下者显示不获奖学金。 （1）界面设计 在窗体上建立4个文本框，其中三个用于输入数学、外语、语文的成绩，一个用于显示奖学金的等级，或不够获奖学金条件时显示“不获奖学金；建立二个命令按钮分别用于“计算奖学金”和“结束”操作。 （2）过程设计 Private Sub Command1_click() Dim S,S1,S2,S3 AS Single S1=Val(Text1.Text) S2=Val(Text2.Text) S3=Val(Text3.Text) S=(S1+S2+S3)/3 If S95 Then Text3=“一等奖” Else If S90 Then Text3=?“二等奖” ?… End Sub 2、设有以下程序： Private Sub Form_click() For I=1 to 4 For j=1 to 20-3*I Print ″ ″; Next j For k=1 To 2*I-1 Print ″*″; Next k Print Next I For I=3 to 0 Step-1 For j=1 to 20-3*I Print ″ ″; Next j For k=1 to 2*I-1 Print”*”; Next k Print Next I End Sub 请阅读上面程序，并分析它的输入结果，然后上机运行该程序，并验证分析结果。 3、编写一个程序，自动建立一个10X10的矩阵，该矩阵对角对元素为1，其余元素均为0，然后将该矩阵在窗体上显示出来。 [实验说明] 设该矩阵存入一个下界为1，上界为10的二维数组中，其程序如下： Option Base 1 Private Sub Form_click() Dim mat(10,10) For I=1 to 10 For j=1 to 10 If I=J