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

一. 日常签到📆

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

二. 课程内容🌍

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

🏆实例一

计算两个数的最小公倍数与最大公约数

实例说明

⭐本实例实现了求两个数的最小公倍数与最大公约数的功能。

最小公倍数 = 两个数之积 / 最大公约数

设计过程

  1. 新建一个标准工程
  2. 代码如下:
    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
    Option Explicit

    Private Sub Command1_Click()
    Dim m%, n%, mn%, r%, i%
    m = Val(Text1.Text)
    n = Val(Text2.Text)
    If m > 0 And n > 0 Then
    mn = m * n
    If m < n Then
    m = m + n
    n = m - n
    m = m - n
    End If
    r = m Mod n
    If r = 0 Then
    Label3.Caption = "最大公约数:" & n
    Label4.Caption = "最小公倍数:" & mn / n
    Else
    For i = 1 To 10 Step 0
    m = n
    n = r
    r = m Mod n
    If r = 0 Then Exit For
    Next i
    Label3.Caption = "最大公约数:" & n
    Label4.Caption = "最小公倍数:" & mn / n
    End If
    Else
    Label3.Caption = "请输入正整数!"
    End If
    End Sub

🏆实例二

求二元一次方程的根



实例说明

⭐本实例实现了求二元一次方程的根的功能。

设计过程

  1. 新建一个标准工程
  2. 代码如下:
    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
    Option Explicit

    Private Sub Command1_Click()
    Dim a!, b!, c!, d!, x1!, x2!
    Dim f As Boolean
    f = IsNumeric(Text1) And IsNumeric(Text2) And IsNumeric(Text3)
    If f Then
    a = Val(Text1)
    b = Val(Text2)
    c = Val(Text3)
    d = b ^ 2 - 4 * a * c
    If a = 0 Then
    Label8.Caption = "不是二次方程!"
    Else
    '根据d判断是否有实数根
    If d = 0 Then
    '有两个相等的实数根
    x1 = -b / (a * 2)
    Label8.Caption = "方程有两个相等的实数根:" & x1
    ElseIf d > 0 Then
    '有两个不相等的实数根
    x1 = (-b + Sqr(d)) / (a * 2)
    x2 = (-b - Sqr(d)) / (a * 2)
    Label8.Caption = "方程的两个跟分别是:" & x1 & "," & x2
    Else
    '没有实数根
    Label8.Caption = "次方程没有实数根!"
    End If
    End If
    Else
    Label8.Caption = "系数输入有误,请重新输入!"
    End If
    End Sub

三. 提交作业✅

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

四. 下课休息💨

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


 è¯„论


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