优秀率代码应该怎么打，能不能帮帮小弟不胜感激

用一个变量（比如yx）分别统计每一行的优秀率，这个变量也可以是一维数组（每行一个元素），以下是用数组形式的参考代码：
If cj(i, j) >= 90 Then yx(i) = yx(i) + 25
注：这里加25有点投机取巧的意思正常来说应该加1（也就是对优秀成绩计数），最后除以4再乘以100，换算成百分数；加25的话最后直接加个百分号输出就行了

谢谢谢谢

太感谢了 谢谢大哥 小弟还有11天考试了

回复4楼：
给你写段代码好了，本来这一段也是连着写的
Text2.Text = "学生姓名是：" & Text1.Text & vbCrLf & "性别是"
If Option1.Value Then
Text2.Text = Text2.Text & Option1.Caption
Else
Text2.Text = Text2.Text & Option2.Caption
End If
Text2.Text = Text2.Text & "，爱好"
If Check1.Value Then Text2.Text = Text2.Text & Check1.Caption
If Check2.Value Then Text2.Text = Text2.Text & Check2.Caption
If Check3.Value Then Text2.Text = Text2.Text & Check3.Caption
Text2.Text = Text2.Text & "，籍贯是" & Combo1.Text & "，院系是" & Combo2.Text & "。"

谢谢大哥

这个顿号要怎么输出啊 大哥