Question

vb利用动态数组输入学生人数n然后输入n个学生的学号与一门课的成绩,进行如下还要计算最高分最低分

显示对应的学号，输出超过平均分的学生的学号与成绩

Answer 1

Private Sub Command1_Click()
    Dim sno() As String
  消消  Dim score() As Integer
    Cls
    n = Val(InputBox("输入学生总人数", "输入人数", 10))
    ReDim sno(1 To n) As String
    ReDim score(1 To n) As Integer
    For i = 1 To n
        sno(i) = InputBox("输入第" & i & "位学生的学号", "学号", 201500 + i)
        score(i) = Val(InputBox("输入第" & i & "位学生的成绩", "成绩", 80))
    Next i
    
    maxid = 1: minid = 1: Sum = 0
    For i = 1 To n
        If score(i) > score(maxid) Then maxid = i
        If score(i) <源察 score(minid) Then minid = i
        Sum = Sum + score(i)
    Next i
    Avg = Sum / 雹桥茄n
    
    Print "最高分  学号=" & sno(maxid) & "   成绩=" & score(maxid)
    Print "最低分  学号=" & sno(minid) & "   成绩=" & score(minid)
    Print "超过平均分学生列表-------------"
    For i = 1 To n
        If score(i) > Avg Then
            Print sno(i), score(i)
        End If
    Next i
End Sub

Answer 2

病情分析：
你好，一般来说感冒的早期都斗氏是病毒感染，你可以先给宝宝用点小儿感冒冲剂，还有利巴韦林颗粒，
指导意见：
多给宝宝喝水,如果出现了咳痰的现象，再给他加用消炎的药物，如再林，头孢克洛颗粒等，注意观察宝宝，祝宝宝健康

病空塌散情分析：
宝宝感冒了，症见，嗜睡，流鼻涕，有时可伴随发热，体温不超过38℃；精神差，食欲不振，出汗退热后，症状消失，咳嗽仍持续3～5日。原因：四季流行，温差变化大时多见，一般都有受凉经历，如晚上睡觉蹬被、穿衣过少、洗澡受凉等；
指导意见：
建议，一般不需特殊治疗，多喂宝宝一些温开水、姜汁水或葱头水。尽量少用感冒药，宝宝烦躁、发热时，可给少许小儿欣口服；切忌使用成人退热药，不宜喂止咳糖浆、止咳片等止咳药，更不要滥用抗生素。

病情分析：
你好，感冒是炎症的表现，是机体感染病菌的结果，与机体的抵抗力有关。
指导意见：
应该在医生的指导下进行合理的治疗恢复，同时喂养适当，避免受凉，适当衫谈的增加衣物减少各种不良刺激和易感人群的接触，逐渐的减轻恢复正常。