第50讲-基础练习-作业讲解

最新推荐文章于 2025-02-19 11:29:38 发布

原创

最新推荐文章于 2025-02-19 11:29:38 发布 · 356 阅读

0 ·

CC 4.0 BY-SA版权

本次讲解第50讲的基础编程练习，涵盖了关键概念和技巧，帮助学习者巩固基础知识。

1 在这里插入图片描述

Sub 第一问()
    '在K13 返回男性员工的最低工资的姓名
    Dim i As Long, minSalary As Double, minName As String
    minSalary = 1000000000
    For i = 2 To Range("f1").CurrentRegion.Rows.count
        If Range("h" & i) = "男" And Range("i" & i) < minSalary Then
            minSalary = Range("i" & i)
            minName = Range("f" & i)
        End If
    Next
    [k13] = minName
End Sub

'第二问，张三达的工资是第几名
'思路首先拿到张三达的工资，然后假设张三达最高第1名，再和下面的循环对比，如果有比张三达高的
'就给张三达排名加1 ，这样循环结束时，就得到了他的排名

Sub 第二问()
    Dim i As Long, rank As Long, salary As Double
    For i = 2 To [f1].CurrentRegion.Rows.count
        If Range("f" & i) = "张三达" Then
            salary = Range("i" & i)
            Exit For
        End If
    Next
    rank = 1
    For i = 2 To Range("f1").CurrentRegion.Rows.count
        If salary < Range("i" & i) Then
            rank =