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

一. 日常签到📆

https://docs.qq.com/form/fill/DZXBkd3lNaUxzV2lS

二. 课程内容🌍

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

🏆实例一

大了小了猜想

实例说明

⭐本实例实现了猜数字直到才对为止的功能。在判断TextBox控件中输入的数值大小时,需要先判断TextBox控件中输入的内容是否是数字,然后再判断大小。本实例主要运用了If语句的嵌套。

设计过程

  1. 新建一个标准工程

  2. 在工程中添加一个窗体,窗体的名称使用其默认名称,将Caption属性设置为“大了小了猜想”,StartUpPosion属性设置为“2-屏幕中心”。

  3. 在窗体上添加两个Label控件,并分别设置各自的Caption属性,用于显示提示信息;添加一个TextBox控件,用于输入猜想的数字。

  4. 在窗体上添加两个CommandButton控件,将Caption属性分别设置为生成比较,分别用于执行生成随机数命令和比较是否相等命令。

  5. 例如猜一个1000以内的随机数,代码如下:

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Option Explicit
    Private r As Long
    Private Sub Command1_Click()
    Randomize
    r = CLng(Rnd * 1000)
    MsgBox "生成了!"
    End Sub

    Private Sub Command2_Click()
    End
    End Sub

    Private Sub Command3_Click()
    Static j As Integer
    j = j + 1
    Label2.Caption = "这是您第" & j & "次猜测。"
    '必须是数值:isNumeric("asdf") ==> false isNumeric(6) ==>true
    If Text1.Text <> "" And IsNumeric(Text1.Text) Then
    If CLng(Text1.Text) > r Then
    MsgBox "大了"
    ElseIf CLng(Text1.Text) < r Then
    MsgBox "小了"
    Else
    MsgBox "对了"
    End If
    Else
    MsgBox "请重新输入!"
    End If
    End Sub

重点知识

本实例主要是通过使用If语句的嵌套和Clng函数来实现的。

  1. if语句的嵌套

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    If <表达式> Then
    If <表达式> Then
    <语句组>
    Else
    <语句组>
    End If
    Else
    If <表达式> Then
    <语句组>
    Else
    <语句组>
    End If
    End If
  2. Clng函数
    每个Clng函数都可以强制将一个表达式转换成长整型,句法如下

    Clng(参数)

    参数为必选项,可以是任何字符串或数值表达式。小数部分四舍五入。函数值的类型是长整形。

🏆实例二

0 到 100 的累加



实例说明

⭐本实例实现了计算任意数1到任意数2的累加功能,可以使用For…Next语句实现。

设计过程

  1. 新建一个标准工程。
  2. 在工程中添加一个窗体,窗体的名称使用其默认名称,将Caption属性设置为“累加”,StartUpPosition属性设置为“2-屏幕中心”。
  3. 在窗体上添加一个CommandButton控件,将Caption属性设置为“累加”。再添加一个TextBox控件,用于输入累加的终值。
  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
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    Option Explicit

    Private Sub Command1_Click()
    Static sum As Long
    Dim i As Long
    Dim a As Long
    Dim b As Long
    Dim c As Long
    'sum = 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10
    Cls
    sum = 0
    'sum = sum + 1
    'sum = sum + 2
    'sum = sum + 3
    'sum = sum + 4
    'sum = sum + 5
    'sum = sum + 6
    'sum = sum + 7
    'sum = sum + 8
    'sum = sum + 9
    'sum = sum + 10
    If IsNumeric(Text1) And IsNumeric(Text2) Then
    a = Val(Text2)
    b = Val(Text1)
    c = 1
    If a > b Then c = -1
    For i = a To b Step c
    sum = sum + i
    Next i
    Print a & "加到" & b & "的结果是:" & sum
    Else
    Print "输入的不是数字"
    End If
    End Sub

练习 🎯

实现任意一个数的阶乘。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
'一个正整数的阶乘是所有小于及等于该数的正整数的积,并且0的阶乘为1
Private Sub Command1_Click()
Cls
Dim num As Integer
num = Val(Text1.Text)
Dim i As Integer
Dim result As Long
result = 1
If num >= 0 Then
For i = num To 2 Step -1 '优化:1 ==》 2
result = result * i
Next i '6 x 5 x 4 x 3 x 2 x 1
Print num & "的阶乘是" & result
Else
Print "输入的数据有误!"
End If
End Sub

三. 提交作业✅

https://docs.qq.com/form/fill/DZW1NeU1JaklVYXBo

四. 下课休息💨

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


 评论


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