VB基础练习.docVIP

实验二 常量、变量、运算符和表达式 实验要求： 了解VB6.0中的常量、变量、运算符和表达式的使用 进一步了解VB应用程序的创建及开发 实验准备： 请在启动VB之前，先建立一个“VBwork”文件夹，如：C:\VBwork或A:\VBwork，用来存放VB实验所建立的文件。 设置系统日期 程序界面： 功能： 在文本框中输入自定义的日期值（格式为：2006-2-14），点击“设置计算机日期”按钮，计算机的系统日期修改为新的值。 窗体及各控件的属性设置： 在窗体中添加一个文本框Text1和两个个命令按钮Command1和Command2。 对象名 属性名称 设置值 说明 Form1 Caption 设置系统日期 StartUpPosition 2-屏幕中心 Text1 Caption 设置为空白 Command1 Caption 设置计算机日期 Command2 Caption 退出 准备知识： Date 语句设置当前系统日期。语法Date = date Date 函数返回包含系统日期的 Variant (Date)。语法Date 在窗体顶部的通用声明段中，编写如下代码： Dim dteMyDate As Date 设置窗体级日期型变量dteMyDate 对窗体的Form_Load事件过程（此事件是在一个窗体被装载时发生。当使用 Load 语句启动应用程序，或引用未装载的窗体属性或控件时，此事件发生），编写如下代码： Private Sub Form_Load() dteMyDate = Date 将系统目前的日期值保存在变量dteMyDate中 End Sub 双击Command1按钮(“设置计算机日期”按钮)，编写如下代码： Private Sub Command1_Click() Date = Text1.Text 将输入的日期通过Date语句设置为计算机的日期 End Sub 双击Command2按钮(“退出”按钮)，编写如下代码： Private Sub Command2_Click() Date = dteMyDate 退出程序前，恢复先前保存的系统日期值 Unload Form1 卸载窗体，退出程序 End Sub 保存工程文件和对应的窗体文件。（注意存放路径） 工程文件名为：工程_2_1.vbp 窗体文件名为：Form_2_1.frm 试运行应用程序 注意，在文本框中输入自定义的日期值时，其格式为：2006-2-14。 计算圆的周长 程序界面： 功能： 在文本框中输入直径值，点击“设置”按钮，系统自动计算圆的周长。 窗体及各控件的属性设置： 在窗体中添加一个分组框Frame1和一个命令按钮Command1，在分组框Frame1中再添加五个命令按钮Command2～Command6。 对象名 属性名称 设置值 说明 Form1 Caption 计算圆的周长 StartUpPosition 2-屏幕中心 Text1 Caption 设置为空白 Command1 Caption 计算 Label1 Caption 输入直径： Label2 Caption 计算结果： 准备知识： Val 函数 返回包含于字符串内的数字，字符串中是一个适当类型的数值。 语法： Val(string) 必要的 string 参数可以是任何有效的字符串表达式. 说明： Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 O（八进制）和 H（十六进制）。空白、制表符和换行符都从参数中被去掉。 下面的返回值为 1615198： Val( 1615 198th Street N.E.) 注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。 在窗体顶部的通用声明段中，编写如下代码： Private Const PI As Double = 3.14159265358979 定义窗体级常量PI，用于 存放圆周率值 双击Command1按钮(“计算”按钮)，编写如下代码： Private Sub Command1_Click() Label2.Caption = 计算结果：周长= Val(Text1.Text) * PI End Sub 保存工程文件和对应的窗体文件。（注意存放路径） 工程文件名为：工程_2_2.vbp 窗体文件名为：Form_2_2.frm 试运行应用程序 系统预定义的常量调用 程序界面： 功能： 当点击不同的按钮时，窗体和分组框的背景色同时发