VB+Access上机实验题.docVIP

VB部分 实验一 【实验题目】： 了解Vb和VB语言基础 【实验目的】：了解VB系统启动的方法，熟悉VB的集成开发环境，掌握向窗体添加控件的方法，使学生能编写简单的程序，体会对象、对象属性、事件、事件过程的概念。了解VB的书写规则，掌握VB的基本语法规则，使学生能够熟练的应用常用内部函数。 【实验时数】：2学时 【实验内容】： 1、在标题为“首次练习”的窗体中，放入一个标签和一个命令按钮。当单击按钮时，在标签上显示“欢迎进入VB世界！”。 2、单击窗体，显示你的名字，双击窗体清除显示。窗体背景颜色为红色。 3、在立即窗口测试以下表达式的值： （1）10\4.5 （2） “Visual” “Basic” （3）35 and 53 （4）4^ (-1/2) （5）not 85 （6）53 or False （7）25\3 mod 3.2*int(2.5) （8）3*44 and 5=5 4、编写一个华氏温度与摄氏温度转换的程序，运行界面如图1-1所示。 图1-1 实验4的运行效果 【实验指导】： 实验3 利用下列式子测试各种运算符的功能、运算顺序，并求表达式的值。 实验要求 先手工求出题中各式的值，然后在立即窗口中计算和输出题中各式的值。 实验过程 在立即窗口中计算和输出各式值的操作步骤为： （1）启动VB6.0，进入集成开发环境，新建工程。 （2）选择菜单栏上的“视图”菜单中的“立即窗口”命令。 （3）在立即窗口中使用print方法计算和输出题中各式的值，如图1-2所示。 图1-2 测试运算符的功能 实验4 编写一个华氏温度与摄氏温度转换的程序。 实验要求 掌握简单程序的编写、输入数据的方法、不同数据类型的转换。 实验过程 本题的关键是将文本框的内容如何代到转换公式中。程序如下： Private Sub Command1_Click() Dim f, c As Single ‘使用变量 f = Text1.Text c = 5 / 9 * (f - 32) Text2.Text = c End Sub Private Sub Command2_Click() Text1.Text = 9 / 5 * Val(Text2.Text) + 32 ‘不使用变量，直接使用文本框 End Sub 【思考题】： 观察当一个工程生成后，VB系统会产生多少个与之相对应的文件，文件的扩展名分别是什么，代表什么类型的文件，他们之间有什么关系？ 编程在输入框中输入姓名，在输出框显示“**（姓名），你好！！”。 将以上三个程序做在一个工程中，然后分别运行每个窗体和模块。 在资源管理器窗口中是否可以同时管理多个工程，如何运行每一个工程？ 在VB中，能否编写没有窗体的程序？ 5、是否可以在一个关系表达式中给一个变量赋值。 6、在VB中变量能否在声明的同时赋初值。 实验二 【实验题目】： 结构化程序设计 【实验目的】： 使学生理解模块化程序设计的基本思想，掌握结构化程序设计的基本方法，能够熟练的使用基本控制语句进行编程。 【实验时数】：6学时 【实验内容】： 在购买某物品时，若实际的金额x在下述范围内，所付的金额y按对应折扣支付： x x1000 0.9x 1000≤x2000 0.8x 2000≤x3000 0.7x x≥3000 编一模拟计算器的程序，界面如图2-1所示。 图2-1计算器 计算S=1-+-+…-的值。 计算1~100的奇数和、偶数和。 在窗体上输出九九乘法表。 从键盘接收一个数，判断他是不是素数。 求100以内的所有素数。 5个一行显示100以内的所有素数。 【实验指导】： 实验1 购买物品的实付金额按折扣计算。 实验要求 掌握IF语句的一般格式、功能和使用。 实验过程 （1）新建工程，在窗体上添加两个按钮，属性设置如表2-1所示。 表2-1属性设置 控件名称 控件类型 属性名 属性值 说明 Form1 Form Caption 计算器 启动窗体 Command1 CommandButton Caption 开始 Command2 CommandButton Caption 结束 （2）程序代码 Private Sub Command1_Click() Dim x!, y! x = Val(InputBox(输入x的值)) If x 1000 Then y = x ElseIf x 2000 Then y = 0.9 * x ElseIf x 3000 Then y = 0.8 * x Else y = 0.7 * x