VB6.0 下载地址:http://img.isundae.cn/Visual Basic6.0.zip

一. 日常签到📆

https://docs.qq.com/form/fill/DZWRFem12dUJFTUZS 链接或扫码都可以。

二. 课程内容🌍

1. 准备好笔记本,练习纸。
2. 手边有电脑的同学可以使用电脑。
3. 坐好!坐好!坐好!

🏆实例一

局部变量制作计数器

实例说明

在过程中定义一个静态变量,利用这个静态变量充当计数器,当计数器大于某数值时出现提示并退出过程。例如,本实例当输入数字超过3次时,将弹出提示对话框,提示程序只能运行三次。

设计过程

  1. 新建一个标准工程。

  2. 在工程中添加一个窗体,窗体的名称使用其默认名称,将Caption属性设置为局部变量制作计数器,StartUpPositon属性设置为2-屏幕中心。

  3. 在窗体上添加一个CommandButton控件,使用其默认名称,将Caption属性设置为“计数”。

  4. 程序的运行代码如下:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    Option Explicit

    Private Sub Command1_Click()
    '计数
    Static j As Integer
    j = j + 1
    If j > 3 Then
    MsgBox "只能运行3次"
    Exit Sub
    End If

    Dim num As Integer
    num = Val(InputBox("请输入数字"))
    Select Case num
    Case 1
    MsgBox "一"
    Case 2
    MsgBox "二"
    Case 3
    MsgBox "三"
    Case Else
    MsgBox "我只会数到三"
    End Select
    End Sub

重点知识

⭐使用Static语句声明的变量称为静态变量,当一个过程结束时,过程中所用到的静态变量的值会保留,下次再调用该过程时,变量的初值是上次调用结果时被保留的值。
⭐对于使用Dim语句声明的局部动态变量,随过程的调用而分配存储单元,并进行变量的初始化。一旦过程结束,变量的内容自动消失,占用的存储单元也被释放。因此,每次调用过程时,变量都将重新初始化。

🏆实例二

使用全局变量记录当前登陆用户

实例说明

全局变量在Visual Basic应用程序中经常被使用。例如,在一个登陆程序当中可以用全局变量来临时存储当前登陆的用户名,实现判断登陆的用户名是否正确的功能。
本实例将实现通过使用全局变量记录当前登陆的用户,并在其他模块中访问这个变量的功能。在窗体中输入用户名和密码后,单击“确定”按钮,如果输入正确,显示“登陆成功”窗体,并显示“欢迎XXX用户登陆”的提示信息。

设计过程

  1. 新建一个标准工程。
  2. 在工程中添加两个窗体,窗体的名称使用其默认名称,将Caption属性设置为“使用全局变量记录当前登陆用户”和“登陆成功”,将StartUpPosition属性设置为2-屏幕中心。
  3. 在Form1窗体上添加两个Label控件、两个TextBox控件和两个CommandButton控件。
  4. 在Form2窗体上添加两个Label控件和一个CommandButton控件。
  5. 主要程序代码如下。
    单击“确定”按钮判断输入的用户名是否为sun、密码是否为777777,当全部正确时显示Form2窗体代码如下:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Option Explicit
    Public temp As String

    Private Sub Command1_Click()
    Dim userName As String
    Dim userPwd As String

    userName = Text1.Text
    userPwd = Text2.Text

    '虚拟一个用户
    Const a1 = "sun"
    Const p1 = "7777777"

    If userName = a1 And userPwd = p1 Then
    temp = userName
    Form2.Show
    Else
    MsgBox "用户名或密码错误", , "错误提示"
    End If

    End Sub
    在Form2窗体中访问Form1窗体中声明的全局变量c,并卸载Form1窗体,代码如下:
    1
    2
    3
    4
    5
    6
    Option Explicit

    Private Sub Form_Load()
    Label1.Caption = "欢迎" & Form1.temp & "登陆"
    Unload Form1
    End Sub

重点知识

👀变量可被调用或访问的范围称为变量的作用域。在过程中用Dim或Static定义变量(过程级变量),在各模块的通用部分可用关键字Dim或Private定义变量(模块级变量),也可以用Public或Global定义变量(全局级变量),在不同地方或用不同关键字定义的变量能被访问的范围是不同的,这个范围就是作用域。
👀变量的作用范围如下:

  1. 在过程的内部技能用Dim或Static来声明变量,其访问范围永远是私有的。
  2. 在模块内用Private或Dim声明变量,在该模块内部,这些变量均可被任何代码访问,但其他模块则无法使用它们。
  3. 如果以Public或Global声明的全局变量,则所有的代码均可对其进行访问。

三. 提交作业✅

提交链接:https://docs.qq.com/form/fill/DZUZEWk9iSkR1bFJR

四. 下课休息💨

本节课相关问题课在下方留言👇👇👇


 è¯„论


载入天数...载入时分秒...