QUOTE:

原帖由 wx_10259334 于 2019-12-12 12:44:51 發(fā)表
第二講 例子.xls已知某班級(jí)學(xué)生單科成績(jī)數(shù)據(jù)（如表），成績(jī)?yōu)?00分滿分，其中英文級(jí)別和中文級(jí)別列數(shù)據(jù)未知，請(qǐng)按如下評(píng)判規(guī)則評(píng)級(jí)并輸出，成績(jī)落在[80,100]為A級(jí)對(duì)應(yīng)優(yōu)秀,成績(jī)落在[60,80)為B級(jí)對(duì)應(yīng)良好，成績(jī)落 ...

完整代碼-->

'評(píng)判成績(jī)級(jí)別

Sub JScoreLevel()

'>>>相關(guān)參數(shù)定義>>>

Dim Astr_Score(1 To 20, 1 To 3) As String '成績(jī)數(shù)組，數(shù)組大小20*3，Astr_Score（n,1)存儲(chǔ)成績(jī)，Astr_Score（n,2) 存儲(chǔ)英文級(jí)別,Astr_Score（n,3) 存儲(chǔ)中文級(jí)別

Dim int_N As Integer 'Astr_Score數(shù)組行下標(biāo)

Dim int_R As Integer 'Sheet1表格行號(hào)

Dim str_RowDataEndFlag As String 'Sheet1行數(shù)據(jù)結(jié)束標(biāo)識(shí)

Dim int_ScoreCount As Integer '成績(jī)個(gè)數(shù)

Dim int_Score As Integer '成績(jī)

Dim str_EngLevel As String '英文級(jí)別

Dim str_ChLevel As String '中文級(jí)別

'<<<相關(guān)參數(shù)定義<<<

'>>>從Sheet1讀取成績(jī)數(shù)據(jù),存入Astr_Score數(shù)組第一列>>>

int_R = 2 '從第二行開(kāi)始讀取

str_RowDataEndFlag = Sheet1.Cells(int_R, 1) '讀取第int_r行，第一列數(shù)據(jù)

int_ScoreCount = 0

Do While (str_RowDataEndFlag <> "") 'str_RowDataEndFlag不為空的時(shí)候，一直執(zhí)行

    int_ScoreCount = int_ScoreCount + 1 '統(tǒng)計(jì)成績(jī)個(gè)數(shù),同時(shí)作為Astr_Score的下標(biāo)

    Astr_Score(int_ScoreCount, 1) = Sheet1.Cells(int_R, 2) '讀取第int_r行第2列數(shù)據(jù)（成績(jī))存入Astr_Score第int_ScoreCount行第一列

    int_R = int_R + 1 '行號(hào)加一行，切換下一行

    str_RowDataEndFlag = Sheet1.Cells(int_R, 1) '讀取新一行的第一列數(shù)據(jù)

Loop

'<<<從Sheet1讀取成績(jī)數(shù)據(jù),存入Astr_Score數(shù)組第一列<<<

'>>>通過(guò)For循環(huán)遍歷Astr_Score數(shù)組第一列數(shù)據(jù)，并根據(jù)規(guī)則判斷成績(jī)級(jí)別>>>

For int_N = 1 To int_ScoreCount

    int_Score = Int(Astr_Score(int_N, 1)) '讀取成績(jī)數(shù)據(jù),Astr_Score為字符串類型，用int()函數(shù)轉(zhuǎn)換成整型

    '用if判斷成績(jī)英文級(jí)別

    If int_Score >= 80 And int_Score <= 100 Then

        str_EngLevel = "A"

    ElseIf int_Score >= 60 And int_Score < 80 Then

        str_EngLevel = "B"

    ElseIf int_Score > 0 And int_Score < 60 Then

        str_EngLevel = "C"

    Else

        str_EngLevel = "D"

    End If

    Astr_Score(int_N, 2) = str_EngLevel '英文級(jí)別結(jié)果存入Astr_Score數(shù)組第int_N行第二列

    '用select判斷成績(jī)中文級(jí)別

    Select Case str_EngLevel

    Case "A"

        str_ChLevel = "優(yōu)秀"

    Case Is = "B"

        str_ChLevel = "良好"

    Case "C"

        str_ChLevel = "不及格"

    Case "D"

        str_ChLevel = "異常"

    End Select

    Astr_Score(int_N, 3) = str_ChLevel '中文級(jí)別結(jié)果存入Astr_Score數(shù)組第int_N行第三列

Next int_N

'<<<通過(guò)For循環(huán)遍歷Astr_Score數(shù)組第一列數(shù)據(jù)，并根據(jù)規(guī)則判斷成績(jī)級(jí)別<<<

'>>>通過(guò)For循環(huán)遍歷Astr_Score數(shù)組第二列和第三列數(shù)據(jù)，將英文級(jí)別和中文級(jí)別數(shù)據(jù)填入Sheet1表格對(duì)應(yīng)的列(3,4)>>>

For int_N = 1 To int_ScoreCount

    str_EngLevel = Astr_Score(int_N, 2) '讀取英文級(jí)別

    str_ChLevel = Astr_Score(int_N, 3) '讀取中文級(jí)別

    int_R = int_N + 1 'Astr_Score第一行數(shù)據(jù)寫到Sheet1第二行，以此類推，Astr_Score第int_N行數(shù)據(jù)寫到Sheet1第int_N+1行，以此類推

    Sheet1.Cells(int_R, 3) = str_EngLevel '英文級(jí)別數(shù)據(jù)寫入sheet1第int_r行，第3列

    Sheet1.Cells(int_R, 4) = str_ChLevel '英文級(jí)別數(shù)據(jù)寫入sheet1第int_r行，第4列

Next int_N

'<<<通過(guò)For循環(huán)遍歷Astr_Score數(shù)組第二列和第三列數(shù)據(jù)，將英文級(jí)別和中文級(jí)別數(shù)據(jù)填入Sheet1表格對(duì)應(yīng)的列(3,4)<<<

End Sub