VisualBasic程序设计代码基础.DOC

PAGE PAGE 12第3章 Visual Basic程序设计代码基础【练习3-1】存放结果的文本框Text3、Text4、Text5的Locked属性为True，即运算结果设为只读存放结果的文本框Text3、Text4、Text5的Locked属性为True，即运算结果设为只读图3-5 计算底面积、侧面积、体积Private Sub Command1_Click() Const pi = 3.1415926535898 将π定义成符号常量 声明变量，r为底面半径，h为高，且均为单精度类型 Dim h As Single, r As Single h = Val(Text1.Text) 将文本框Text1中输入的字符串转换为数值赋给变量h r = Val(Text2.Text) 将文本框Text2中输入的字符串转换为数值赋给变量r 计算圆柱体的底面积、侧面积和体积,结果保留3位小数 Text3.Text = Format(pi * r ^ 2, 0.000) 底面积显示于文本框Text3 Text4.Text = Format(2 * pi * r * h, 0.000) 侧面积显示于文本框Text4 Text5.Text = Format(pi * r ^ 2 * h, 0.000) 体积显示于文本框Text5End Sub【练习3-2】图3-6 求100以内的随机整数之和Private Sub Command1_Click() 单击出题按钮 Randomize 初始化随机数发生器，以系统时间作为种子 Text1.Text = Int(Rnd * 100 + 1) 产生[1,100]之间的随机整数，显示于文本框Text1中 Text2.Text = Int(Rnd * 100 + 1) 产生[1,100]之间的随机整数，显示于文本框Text2中 Text3.Text = 清空文本框Text3End SubPrivate Sub Command2_Click() 单击计算按钮 Text3.Text = Val(Text1.Text) + Val(Text2.Text) 求这两个数的和End Sub【练习3-3】Private Sub Timer1_Timer() Dim Radius 声明半径 Randomize 初始化随机数发生器 R = Int(256 * Rnd) 创建随机RGB 颜色。 G = Int(256 * Rnd) B = Int(258 * Rnd) XPos = ScaleWidth / 2 将圆心置在窗体中心。 YPos = ScaleHeight / 2 Radius = Int((YPos + 1) * Rnd) 产生一个值在0与几乎窗体高度一半之间的半径。 Circle (XPos, YPos), Radius, RGB(R, G, B) 在窗体上画一个圆。End Sub【练习3-4】Private Sub Timer1_Timer() y = Year(Date) 求当前日期的年份 mon = Month(Date) 求当前日期的月份 d = Day(Date) 求当前日期是月份中的第几天 Label1.Caption = y 年 mon 月 d 日 将年、月、日串接起来 h = Hour(Time) 求当前时间的小时部分 Min = Minute(Time) 求当前时间的分钟部分 s = Second(Time) 求当前时间的秒部分 Label2.Caption = h 时 Min 分 s 秒 将时、分、秒串接起来End Sub【练习3-5】lblResult标签，设置其属性AutoSize为TrueBorderStyle为1 lblResult标签，设置其属性AutoSize为TrueBorderStyle为1 – Fixed Single图3-12 查找字符Private Sub Text1_Change() 改变文本框Text1的内容时，触发该事件 声明变量，变量ch,字符串型，固定长度最多接收1个字符，用于存放某个指定字符