VB实验三.docx

实验报告
年月日第节楼号室
课程名称
计算机程序设计
学生姓名
学号
专业与年级
进入实验室
时间
进入时仪器
设备状况
离开实验室
时间
离开时仪器
设备状况
机器号
实验项目名称
Visual Basic程序设计实验预习报告三
一、实验目的
(IDE),熟悉主要窗口的作用。
Basic 应用程序的建立、编辑、调试、运行和保存。
Basic 窗体的常用属性、方法和件。 Basic 的基本数据类型和运符。
Basic 的常量、变量的定义和使用。
。
二、实验内容
(1)创建用户界面
(2)设置对象属性
(3)编写程序代码
(4)保存工程选择
(5)生成可执行文件
三、实验过程(步骤、命令)及结果(截图、源程序)
1. ,在标题为“整除运算”的窗体Form1上,添加一个标题为“请输入整数n”的标签Label1;然后再添加一个标题为“判断”mand1;接着再添加一个文本内容为空的文本框Text1;最后添加一个标题为空、有边框的标签Label2。程序运行时,在Text1中输入一个整数n,单击“判断”按钮,判断整数n能否既被3 整除也被7 整除。如果能被3和7 整除,则在Label2 中输出“Yes”,否则输出“No”,
运行界面如图3-1 所示。完成上述功能后,以原文件名保存窗体()和工程
()。
Private mand1_Click()
If Not IsNumeric() Then Exit Sub
If Val() Mod 3 = 0 And Val() Mod 7 = 0 Then
= "Yse"
Else
= "No"
End If
End Sub
2. ,在标题为“坐标象限”的窗体Form1上,添加两个标题分别为“坐标x”和“坐标y”的标签Label1和Label2;然后再添加3个文本内容为空的文本框Text1、Text2和Text3;最后添加一个标题为“判断”mand1。程序运行时,在Text1和Text2中分别输入某点的坐标值x 和y(不等于0),单击“判断”按钮,根据x和y的值判断该坐标点在哪个象限,并在Text3中显示判断结果,运行界面如图3-3所示。完成上述功能后,以原文件名保存窗体()和工程()。
Private mand1_Click()
Dim x!, y!
x =
y =
If x > 0 And y > 0 Then
= "第一象限"
ElseIf x < 0 And y > 0 Then
= "第二象限"
ElseIf x < 0 And y < 0 Then
= "第三