欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

　?。?）人平分 ：選擇“人平分”按鈕，在“控件工具箱”上單擊“查看代碼”工具。
Private Sub CommandButton1_Click()
’I25單元格的值等于全班總分除以參考人數
Worksheets("Sheet1").Cells(25, 9).Value = "=(SUM(C3:C28)+SUM(F3:F28)+sum(i3:i22))/I24"
End Sub
　?。?）及格人數：
Private Sub CommandButton2_Click()
’聲明統計及格人數的變量js
Dim js As Integer
     Js變量賦初值
js = 0
’聲明統計范圍的變量 counter
     Dim counter As Integer
     ’判斷學(xué)號為1-26號同學(xué)是否及格。
     For counter = 4 To 29
         If Worksheets("Sheet1").Cells(counter, 3).Value >= 60 Then
             每發(fā)現一個(gè)及格的同學(xué)，js變量自動(dòng)加1
             js = js + 1
         End If
         Next counter
     ’判斷學(xué)號為27-52號同學(xué)是否及格。
     For counter = 4 To 29
         If   Worksheets("Sheet1").Cells(counter, 6).Value >= 60 Then
每發(fā)現一個(gè)及格的同學(xué)，js變量自動(dòng)加1
            js = js + 1
         End If
     Next counter
     ’判斷學(xué)號為53-72號同學(xué)是否及格。
     For counter = 4 To 23
          If Worksheets("Sheet1").Cells(counter, 9).Value >= 60 Then
每發(fā)現一個(gè)及格的同學(xué)，js變量自動(dòng)加1
            js = js + 1
         End If
        Next counter
’將最后js變量的值,即統計出來(lái)的及格人數的值寫(xiě)入到I26
Worksheets("Sheet1").Cells(26, 9).Value = js
End Sub
　　(3)及格率：
Private Sub CommandButton3_Click()
’單元格I27的值等于及格人數除以參考人數
Worksheets("Sheet1").Cells(27, 9).Value = "=I26/I24%"
End Sub
　　(4)優(yōu)秀人數：
Private Sub CommandButton4_Click()
’聲明統計及格人數的變量js
Dim js As Integer
Js變量賦初值
js = 0
’聲明統計范圍的變量 counter
     Dim counter As Integer
     ‘判斷學(xué)號為1-26號同學(xué)是否優(yōu)秀。
     For counter = 4 To 29
         If Worksheets("Sheet1").Cells(counter, 3).Value >= 80 Then
’每發(fā)現一個(gè)優(yōu)秀的同學(xué)，js變量自動(dòng)加1
js = js + 1
         End If
         Next counter
     ’判斷學(xué)號為27-52號同學(xué)是否優(yōu)秀。
     For counter = 4 To 29
         If Worksheets("Sheet1").Cells(counter, 6).Value >= 80 Then
‘每發(fā)現一個(gè)優(yōu)秀的同學(xué)，js變量自動(dòng)加1
               Js = js + 1
         End If
     Next counter
     ’判斷學(xué)號為53-72號同學(xué)是否優(yōu)秀。
     For counter = 4 To 23
          If Worksheets("Sheet1").Cells(counter, 9).Value >= 80 Then
’每發(fā)現一個(gè)優(yōu)秀的同學(xué)，js變量自動(dòng)加1
               js = js + 1
          End If
     Next counter
’將最后js變量的值,即統計出來(lái)的優(yōu)秀人數的值寫(xiě)入到I28
Worksheets("Sheet1").Cells(28, 9).Value = js
End Sub
　　(5)優(yōu)秀率：
Private Sub CommandButton5_Click()
’單元格I27的值等于優(yōu)秀人數除以參考人數
Worksheets("Sheet1").Cells(29, 9).Value = "=I28/I24%"
End Sub