VB程序设计42425.docVIP

VB程序设计：Ⅰ.对象的程序设计（由事件进行驱动） Ⅱ.过程的程序设计 封装 编程过程运用最多的是赋值法（变量=取值 a=12） 数据类型：Ⅰ.字符型（文本） a=” ”空字符 Ⅱ.数值型（整数、小数、货币数等） ⅰ.整型 ⅱ.实型 例题1：Private Sub Form_Load() a=hello world! Print a 打印a的值 End Sub 例题2：Private Sub Form_DblClick() a = hello world! Print a End Sub 例题3：Private Sub Form_DblClick() End End Sub 常量：VB程序运行中不会改变 Ⅰ.文字常量：字符、数字 Ⅱ.符号常量：const PI=3.1415927 Ⅲ.系统常量：bCrlf 变量：有一个名字（内存位置），用一个名字来表示内存里的位置 % 整型 123 长整型 ！单精度实型（小数点后有效位数比较少的） #双精度实型 @货币型 $字符型 例题4：Private Sub Form_DblClick() Const PI# = 3.1415927 Dim a As Integer, b As Long, c Dim d, e, f, g As Long Print PI End Sub 例题5：Private Sub Form_DblClick() Const PI# = 3.1415927 Dim a As Integer, b As Long, c Dim d, e, f, g As Long f = 18 e = PI * (f / 2) * (f / 2) Print e End Sub 数学符 数学运算 + - * /（除） \（整除） ?（Private Sub Form_DblClick() Dim a As Long, b As Long, c As Long a = 15 b = 3 c = a ^ b Print c End Sub(c=3375) 例题7：Private Sub Form_DblClick() Dim a As Long, b As Long, c As Double a = 15 b = 4 c = a \ b (\表示整除，/表示除以) Print c End Sub（c=3只显示整数部分） 例题8：Private Sub Form_DblClick() Dim a As Long, b As Long, c As Double a = 15 b = 3 c = a Mod b Print c End Sub（c=0） 例题9：Private Sub Form_DblClick() Dim m As Long, n As Long, i m = 3 n = 4 i = 2 c = m = 2 Or Not n 0 And (m - n) / i 0 Print c End Sub（答案 False） 例题10：Private Sub Form_DblClick() Const pi# = 3.1415927 Dim m As Long, n As Long, i Dim a, b a = 3 b = 56 Randomize 初始化 c = Rnd() 随机函数 Print c End Sub VB程序控制 Ⅰ.顺序结构 Ⅱ.选择结构（分支结构） ⅰ.单行结构 格式：If条件 Then语句1 [Else语句2] ⅱ.块结构 格式：If条件 Then 语句组1 [Else 语句组2] End If Ⅲ.循环结构 ⅰ.当型（While））Private Sub Form_Click() dim a,b,c,d,e a = 0 b = 1 c = 2 d = b Mod 2 e = 5 If d 0 Then e = 10 Print d, e End Sub（显示结果 1 10） 例题12：Private Sub Form_Click() 当圆2的面积圆1的面积时，输出两个圆的体积 Dim a, b, c, d, e Const pi# = 3.1415927 a = 5 圆1的半径 b = 10 圆2的半径 If a b Then c = 4 / 3 * pi * a ^ 3 If a b Then d = 4 / 3 * pi * b ^ 3 Print c, d End Sub 拓展：