第6章子程序与数过程.ppt

例：分别将k定义为不同级别的变量，观察单击命令按钮事件过程中K值的变化情况。 Option explicit Private Sub Command1_Click() k = k + 1 Print k End Sub 注意：引用其它窗体模块中声明的public变量，需要加窗体名。 【实例6-6】 模块级变量与局部变量应用实例 。 Option Explicit Dim x% Private Sub Form_click() x = 33 Print x=; x Call li1 Call li2 print x1 End Sub 或工具||选项，□要求声明变量 Private Sub li1() Dim x1% x1 = 11 Print x1=; x1, Print x=; x End Sub Private Sub li2() Dim x2% x2 = 22 Print x2=; x2, Print x=; x End Sub 声明形式： Static 变量名 [AS 类型] 在文本框内随机产生n个小写英文字母作为范文；当焦点进入打字区时开始计时；用户输入n个字母时计时结束，禁止向打字区再输入内容，并统计打字的速度和正确率。 测试代码 Option Explicit Dim n%,t As Date Private Sub command1_click() Dim i%, str$ Randomize n = Int( Rnd * 31) +10 For i = 1 To n str = Chr$(Int(Rnd * 26) + 97) 随机产生小写字母 Text1.Text = Text1.Text str Next i End Sub 开始时间 Private Sub text2_gotfocus() t = Time Text3.Text = Time End Sub 打字速度 Private Sub text2_keypress(keyascii As Integer) Dim dui%, cuo%, i% If Len(Text2) = n Then 键入满n个字母 Text4.Text = Time Text5.Text = str(Int(n / DateDiff(s, t, Time) * 100 + 0.5) / 100) 字/秒 Text2.Locked = True 四舍五入保留两位小数 dateDiff函数 形式：dateDiff(要间隔日期形式，日期1，日期2） 作用：两个指定日期按日期形式求相差的日期。 日期形式： yyyy(年),q(季),m(月),y(一年的天数),d(日),w(一周的日数),ww(星期),h(时),n(分),s(秒) 准确率 For i = 1 To n If Mid(Text1, i, 1) = Mid(Text2, i, 1) Then dui = dui + 1 Else cuo = cuo + 1 End If Next i Text6.Text = Int(dui / n * 10000 + 0.5) / 100 % 显示准确率 End If End Sub 下列程序代码在单击命令按钮时的输出结果 Sub SS(ByVal X, ByRef Y ,Z) X = X + 1 Y = Y + 1 Z = Z + 1 End Sub Private Sub Command1_Click() a= 1: b = 2: c = 3 Call SS(a,b,c) Print a,b,c End Sub 1 3 4 单击窗体，执行以下程序，窗体第一行的输出结果为______，第二行的输出结果为____。 Option Explicit Private x As Integer: Private y As Integer Private Sub Form_Click() x = 1: y =1 test Print x; y End Sub Sub test() Dim y As Integer Print x; y x = 2: y = 2 End Sub 1 0 2 1 Private Sub Command1_Click() Dim x As Integer, y As Integer Dim n As Integer, z As Integer x = 1: y =1 For n = 1 To 3 z = FirstFunction(x, y) Print n,z Next n E