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

一. 日常签到📆

转战钉钉平台

二. 课程内容🌍

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

🏆实例一

百鸡百钱 — 穷举法

实例说明

⭐穷举法是将所有有可能情况一一举出,判断是否满足条件,一般用循环实现,又称枚举法。使用穷举法的典型例子有百鸡百钱,即现在有100元,要求买100只鸡,其中小鸡每只5角,🐓公鸡每只2元,母鸡每只3元。列出所有满足的组合。

设计过程

  1. 新建一个标准工程
  2. 代码如下:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Option Explicit

    '现在有100元,要求买100只鸡,其中小鸡每只5角,??公鸡每只2元,母鸡每只3元
    Private Sub Form_Click()
    Print "公鸡", "母鸡", "小鸡"
    Dim x%, y%, r! 'x:公鸡 2 y:母鸡 3 (100 - x -y):小鸡 0.5
    For x = 0 To Int(100 / 2) Step 1
    For y = 0 To Int(100 / 3) Step 1
    r = x * 2 + y * 3 + (100 - x - y) * 0.5
    If r = 100 Then
    Print x, y, 100 - x - y
    End If
    Next y
    Next x
    End Sub

注意

Print当输出多个表达式或字符串时,各表达式用分隔符(逗号、分号或空格)隔开。如果输出的各表达式之间用逗号分隔,则按标准输出格式(分区输出格式)显示数据项。在这种情况下,以14个字符位置为单位把一个输出行分为若干个区段,逗号后面的表达式在下一个区段输出。如果各输出项之间用分号或空格作分隔符,则按紧凑输出格式输出数据。

🏆实例二

输出100以内的质数

实例说明

⭐使用循环结构语句实现质数算法,程序运行以后,单击窗体将100以内所有质数显示在窗体上。

设计过程

  1. 新建一个标准工程
  2. 代码如下:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Option Explicit
    ' 质数是指在大于1的自然数中,除了1和它本身以外不再有其他因数的自然数。

    Private Sub Form_Click()
    Dim i As Integer, j As Integer, flag As Boolean ' True代表质数,False代表合数

    For j = 2 To 100 Step 1
    flag = True
    For i = 2 To j - 1 Step 1
    If j Mod i = 0 Then
    ' 是合数
    flag = False
    Exit For ' 只要有一个因数,直接退出比较循环
    End If
    Next i
    If flag = True Then Print j; ' 如果是质数,那么就打印出来
    Next j

    End Sub

三. 提交作业✅

转战钉钉

四. 下课休息💨

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


 è¯„论


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