VB实验三.doc

VB实验三.doc实验报告
年/! U 第 节 楼 号室
课程名称
计算机程序设计
学生姓名 学兮 专业与年级
进入实验室时间
进入时仪器设备状况
离开实验室时问
离开时仪器设备状况
机器号
实验项H名称
Visual Basic程序设计实验预习报告三
一、 实验目的
了解VisualBasic的集成开发环境(IDE),熟悉主要窗口的作用。
掌握简单的VisualBasic应用程序的建立、编辑、调试、运行和保存。
掌握VisualBasic窗体的常用属性、方法和件。
掌握Visual Basic的®木数据类型和运符。
掌握VisualBasic的常量、变量的定义和使用。
掌握表达式和常用内部Ml数的使用。
二、 实验内容
创建用P界面
设置对象属性
编写程序代码
保存工程选择
生成可执行文件
三、 实验过程(步骤、命令)及结果(截图、源程序)
,在标题为“整除运算”的窗体Forml上,添加一个标题为
“请输入整数n”的标签Labcll;然后再添加一个标题为“判断”mand 1; 接着再添加一个文本内料为空的文本框Textl;最后添加一个标题为空、备边框的标签 Label2o程序运行时,在Textl巾输入一个整数n,单击“判断”按钮,判断整数n能否既被3整除也被7整除。如果能被3和7整除,则在Label2中输出“Yes”,否则输出“No”, 运行界面如图3-1所示。完成上述功能V;,以原文件名保存窗体(Dsg())和工程()o
Private mand 1 _Click()
If Not IsNumeric(Textl .Text) Then Exit Sub
If Val(Textl .Text) Mod 3 = 0 And Val(Text 1 .Text) Mod 7 = 0 Then
= "Yse”
Else
= HNo"
End If
End Sub
,在标题为“坐标象限”的窗体Foml上,添加两个标题分别为“坐标
x”和“坐标y”的标签Labell和Label2;然后再添加3个文木内客为空的文木框Textl、Text2和Text3:最后添加一个标题为“判断”mand 10程序运行时,在Textl和Text2中分别输入某点的坐标值x和y (不等于0),单* “判断”按钮,根裾x和y的值判断该來标点在哪个象限,并在Text3中显示判断结果,运行界而如图3-3所示。完成上述功能后,以原文件名保存窗体()和工程()。
Private mand l_Click() Dim x!,y! x = Text y =
If x > 0 And y > 0 Then
="第一象限”
Elsclf x < 0 And y > 0 Then
="第二象限"
Elself x < 0 And y < 0 Then
= ••第三象限"
Else
="第四象限"
End