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

一. 日常签到📆

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

二. 课程内容🌍

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

🏆实例一

使用If语句判断成绩优良

实例说明

本实例实现了使用If…Then结构语句判断成绩的优良中差。运行程序,在文本框中输入成绩,单击“判断”按钮,弹出成绩所属的范围对话框。

🍁在Visual Basic 中,If…Then…ElseIf语句中的条件表达式和语句块的个数没有具体限制。另外,书写时应注意,在关键字Elseif中间没有空格。
🍁多分支If…Then…ElseIf语句只有快形式的写法,语句如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
If 条件表达式1 Then
语句块1
ElseIf 条件表达式2 Then
语句块2
ElseIf 条件表达式3 Then
语句块3
...
ElseIf 条件表达式n Then
语句块n
...
[Else
语句块 n + 1]
End If
该语句的作用是根据不同的条件确定执行哪个语句块,其执行顺序为条件表达式1、条件表达式2……一旦条件表达式的值为true,则执行该条件下的语句块。

设计过程

  1. 新建一个标准工程。
  2. 在工程中添加一个窗体,窗体的名称使用其默认的名称,将Caption属性设置为“判断成绩的优良”,StartUpPosition属性设置为“2-屏幕中心”。
  3. 在窗体上添加一个Label控件、一个TextBox控件和一个CommandButton控件,用于输入成绩并判断成绩的优良情况。
  4. 程序的运行代码如下:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Option Explicit

    Private Sub Command1_Click()
    Dim i As Integer
    i = Val(Text1)
    If i = 100 Then
    MsgBox "满分"
    ElseIf i >= 85 Then
    MsgBox "优秀"
    ElseIf i >= 75 Then
    MsgBox "良好"
    ElseIf i >= 60 Then
    MsgBox "及格"
    Else
    MsgBox "不及格,该努力了"
    End If
    End Sub

🏆实例二

使用Select Case 语句判断成绩优良

实例说明

下面制作一个简单的实例判断成绩优良。根据分数使用Select Case 语句,选择改分数属于的范围。

设计过程

  1. 新建一个标准工程。
  2. 在工程中添加一个窗体,窗体的名称使用其默认名称,将Caption属性设置为“判断成绩优良”,StartUpPosition属性设置为“2-屏幕中心”。
  3. 在窗体上添加3个Label控件,用于显示提示信息;添加一个TextBox控件,用于输入成绩;添加一个CommandButton控件,用于执行成绩显示结果。
  4. 程序的运行代码如下:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Option Explicit

    Private Sub Command1_Click()
    If IsNumeric(Text1.Text) Then
    Select Case CInt(Text1.Text)
    Case Is > 85
    Label2.Caption = "成绩:" & "优秀"
    Case 70 To 84
    Label2.Caption = "成绩:" & "良好"
    Case 60 To 69
    Label2.Caption = "成绩:" & "及格"
    Case Is < 60
    Label2.Caption = "成绩:" & "差"
    End Select
    End If
    End Sub

三. 提交作业✅

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

四. 下课休息💨

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


 评论


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