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

一. 日常签到📆

转战钉钉平台

二. 课程内容🌍

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
    32
    33
    34
    35
    Option Explicit

    Private Sub Command1_Click()
    Dim a!, b!, c!, d!, x1!, x2!, 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
    Label4.Caption = "不是二次方程!"
    Else
    '根据d判断是否有实数根
    If d = 0 Then
    '有两个相等的实数根
    x1 = -b / (a * 2)
    Label4.ForeColor = &HC000&
    Label4.Caption = "方程有两个相等的实数根:" & x1
    ElseIf d > 0 Then
    '有两个不相等的实数根
    Label4.ForeColor = &H8000&
    x1 = (-b + Sqr(d)) / (a * 2)
    x2 = (-b - Sqr(d)) / (a * 2)
    Label4.Caption = "方程的两个跟分别是:" & x1 & "," & x2
    Else
    '没有实数根
    Label4.ForeColor = &HFF&
    Label4.Caption = "此方程没有实数根!"
    End If
    End If
    Else
    Label4.Caption = "只能输入数值,请重新输入!"
    End If
    End Sub

三. 提交作业✅

转战钉钉

四. 下课休息💨

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


 è¯„论


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