[其它]二级VB0起点.ppt

* 注意两个问题：八进制和十六进制数的表示和符号常量的定义。 * * * Len(变量名):测试的是变量所占的字节大小 Dim a as integer Print len(a) ‘值为2 * 注意语句Mid(字符串,位置[,L])的使用 a=“B程序设计” Mid(a,1,1)=“C语言程序设计” ‘a变量值为 “C程序设计” False * * * 重点：数值参加逻辑运算结果为数值 Option1.Value Option1 Option1.ValueFalse * * * 在此，老师增加讲程序调试方法，给学生演示循环的执行过程 让学生翻看上机教材，将程序补充完整。 * * * * * 例6.6 * * * area = S1 + S2 + S3 Function area(x!,y!,z!) As Single End Function Dim c! c=1/2*(x+y+z) area=sqr(c*(c-x)*(c-y)*(c-z)) … S1=area(a,b,c):S2=area(c,d,e):S3=area(e,f,g) 定义函数过程 VB中有两种通用过程：Function过程、Sub过程 考点3 Function过程 [Static][Private|Public] Function 过程名 ([参数]) [As 数据类型] 语句块 [过程名=表达式] [Exit Function] [语句块] End Function 编写1个函数求n！ 第一步：确定形式参数。 Function fun(n As Integer) As Long 第二步：编写函数体 Function fun(n As Integer) As Long Dim i As Integer, f As Long f = 1 For i = 2 To n f = f * i Next i End Function 第三步：编写代码“过程名=表达式”，确定返回值 函数过程 fun = f Function过程调用 Private Sub Command1_Click() Dim n As Integer n = Val(Text1) Label2.Caption = Str(n) Text2.Text = fun(n) End Sub 上机真题 【例】捷成36-4 P126 参数传送 一、参数传递 Private Sub Command1_Click() Dim a As Single Dim b As Single a = InputBox(enter a ) b = InputBox(enter b) s = xiebian(a, b) Print s End Sub Private Function xiebian(b1 As Single, b2 As Single) As Single xiebian = (b1 ^ 2 + b2 ^ 2) ^ (1 / 2) End Function 形参 实参 传地址：实参为变量名或数组、形参ByRef声明 传值：实参为常量或表达式、形参ByVal声明 4 d e(传地址) 6 a = 1: b = 2: c = 3: d = 4 Call test1(a, b, c, d) Print a; b; c; d … Private Sub test1(b%, c%, d%, e%) e=b+c+d End Sub ‘ 1 2 3 6 内存单元 传地址ByRef 传地址调用：形参改变，实参发生对应变化 形参和实参类型必须一致 2004年9月22题 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click() Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y) Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 7 P139 26题（2006年4月选择题第25题） 在窗体上画1个命令按钮，其名称为Commandl ，然后编写如下程序： Private Sub Command1 _ C