Question

求帮助呀 VB成绩排名代码 谢谢啦 这几个空这么填呀 谢谢呀

模拟10名学生的成绩排序、查询成绩和名次的功能。
l 界面如右图所示。
l 程序启动时，已给定一组姓名和对应的成绩；
l 排序：根据成绩降序对成绩和姓名进行排序；
l 查找：用户输入姓名，在已姓名数组中查找。找到则在成绩数组中找出相对应的成绩及排名位置；找不到姓名则给出提示。
请完成下面的代码，并上机调试。
Private Sub Command2_Click() '“提交”按钮，执行查询功能
Dim strInput As String, iAs Integer, index As Integer
_______ = Text1.Text ' 读取用户输入的姓名

' 查找
index = -1
For i = 1 To 10
If Sname(i) = strInputThen index = i
Next i

If ________ Then ' 读上面的“查找”程序段。找不到时，index的值是什么？
MsgBox "无此姓名"
________
MsgBox "排名第" & ________ ' 找到时，名次在哪个变量里？
End If
End Sub

Answer 1

第一处填 strinput
第二处填 index=-1
第三处填 else
第四处填 index

Answer 2

病情分析：
您好，孩子现在的情况考虑是包皮龟头的炎症引起的。
指导意见：
建议您不要自行处理，及时带孩子到医院检查确诊，对阵治疗，以免贻误治疗。

祝您健康！

病情分析：
你好，根据你的描述考虑是包皮感染的可能。
指导意见：
建议你可以使用硫酸镁粉湿热敷，外用百多邦软膏涂抹治疗。一般会很快痊愈的。

病情分析：
现在水肿的比较很，不要刺激它。
指导意见：
淡盐水是你自己配的比例不一定合适，所以会导致肿胀加重，建议让孩子吃三天消炎药，水肿就会消退，另外看看孩子是否有包皮过长或者是包茎。

你好，要考虑包皮龟头炎，口服罗红霉素，同时配合高锰酸钾溶液清洗.建议经常清洗包皮和阴茎头，保持包皮腔内清洁和干燥。如有包皮过长或包茎时应行包皮环切术。