vb等級(jí)考試題目與評(píng)析75(參考版)
2024-09-08 16:50本頁(yè)面
【正文】 。 Chr(10) Next k Close 1 End Sub Private Function getmark(n As Integer) As Single s = a(n, 1) maxnum = s minnum = s For k = 2 To 7 s = s + a(n, k) If maxnum a(n, k) Then maxnum = a(n, k) End If If minnum a(n, k) Then minnum = a(n, k) End If Next k s = (s maxnum minnum) / 5 getmark = s * 3 * a(n, 8) End Function Private Sub Command2_Click() Dim Sorce(5) As Single Dim i As Integer Dim maxSorce As Single Dim maxnum As Integer For i = 1 To 5 Sorce(i) = getmark(i) Next maxSorce = Sorce(1) For i = 2 To 5 If Sorce(i) maxSorce Then maxSorce = Sorce(i)
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1