最新vb电子课件.ppt

上机作业 课后习题p65 编程题1、2题 例题4-3 为文本框中的字符提供字体选择 例题4-5 从键盘输入一个学生的考试成绩，按成绩显示等级。 讲解例题4-4 判断某一年是否为润年。润年的条件是符合以下两者之一： 1）能被4整除，但不能被100整除 2）能被400整除 征兵的条件是：男性18～20岁，1.65米以上；女性16～18岁，1.60米以上。编写程序，从键盘输入一个人的数据时，判断是否符合征兵的条件。 作业 3.判断质数 例： Private sub form_click() dim n as integer N=fact(5) Print n End sub Function fact(n as integer)as integer Fact=n*10 End function 作业 7题 按值传送 a = 1: b = 2: c = 3: d = 4 Call test2(a, b, c, d) Print a; b; c; d … Private Sub test2( b%, c%, d%, ByVal e%) e=b+c+d End Sub 作业 习题6 第8题 VB工程组成 窗体模块与标准模块 窗体模块 扩展名：.frm 内容 窗体及其控件的属性描述 事件过程 用户自定义过程 变量、常数、类型和外部过程的窗体级声明 通过工程|添加窗体命令，新建或添加现存的窗体 标准模块 扩展名：.bas 内容：公共代码过程 通过工程|添加模块命令，新建或添加现存的标准模块 过程的作用域 过程作用域是指过程能够被调用的范围 分类 模块级 定义：Private 调用：本模块 全局级 定义：Public(缺省) 调用：本应用程序 变量的作用域 变量作用域是一个空间概念，即变量在什么范围内有效 分类 局部变量(过程级变量) 窗体/模块级变量(私有的模块级变量) 全局变量(公有的模块级变量) 局部变量(过程级变量) 声明位置：过程内 声明形式：Dim或Static 作用范围：本过程内 对于任何临时计算来说，局部变量是最佳选择。当过程执行结束，变量的值不需要保留，可在过程内用Dim声明，否则用Static声明 窗体/模块级变量(私有的模块级变量) 声明位置：窗体/模块的通用声明中 声明形式：Dim或Private 作用范围：本窗体/模块 建议：尽量少用 当同一模块的不同过程间需要共享数据变量的值时，可用模块级变量 全局变量 (公有的模块级变量) 声明位置：窗体/模块的通用声明中 声明形式：Public 作用范围：整个应用程序 建议：尽量少用 当同一应用程序不同模块的不同过程间需要共享数据变量的值时，可用全局变量 变量同名问题 局部变量同名 不同过程中定义的同名局部变量互不影响 全局或窗体/模块级变量与局部变量同名 在过程内，局部变量优先 在过程内，可通过模块名.变量名的形式访问同名全局或窗体/模块级变量 全局变量同名 通过模块名.变量名的形式来区分 例: Public temp as integer Private Sub Form_Load( ) temp=1 End Sub Private Sub Command1_Click( ) Dim temp as integer temp=2 Print “temp=”;temp Print “temp=”;Form1.temp End Sub Private Sub Form_Click( ) Print “temp=”;temp End Sub EX2.如有以下程序代码： Dim x, y Private Sub Form_click() x = 1 y = 1 z = 1 abc 5 Print x; y; z End Sub Private Sub abc(m) x = m y = m z = m End Sub 运行程序后，在窗体上输出的内容为（） A）1 1 1 B）5 5 1 C）1 1 5 D）5 5 5 EX3依次写出下列程序运行时四次单击命令按钮 Commandl后窗体上的输出结果。 private x As Integer, y As Integer private Sub f1(a As Integer) a= a/2 End Sub private Sub f2(ByVal b As Integer) b=b/2 End Sub Private Sub Command1_Click() Call f1(x) Call f2(y) Print x,y End Sub Private Sub Form_Load() x= 64 :y =64 End Su