王老师为统计班级里部分学生的身高情况编写了一个VB程序,设计如下:在文本框Text1中输入每个学生数据,数据包括姓名、性别、身高(三位正整数),数据之间用“,”间隔;点击“计算”按钮Command1,分别计算出男女学生平均身高值,并在标签Label1中显示统计后的结果,程序界面如图所示。
(1)
若输入数据时,漏输了最后一个逗号,是否会对计算结果产生影响(是/否)。
(2)
实现上述功能的VB代码如下,请在划线处填入合适的代码。
Private Sub
Command1_Click()
Dim i As Integer, m As Integer, f As
Integer, tmp As String, flag As Boolean
Dim s As String, ch As String, sex As
Integer, cm As Integer, cf As Integer
k = 0: sex = 0: m = 0: f = 0
s = Text1.Text
For i = 1 To Len(s) - 1
ch = Mid(s, i, 1)
If ch = "," And Mid(s, i + 1, 1) =
"男" Then
tmp = Mid(s, i + 3, 3)
sex = 1
flag = True
ElseIf
ch = "," And Mid(s, i + 1, 1) = "女" Then
tmp
= Mid(s, i + 3, 3)
cf
= cf + 1
flag = True
End If
If flag = True Then
m =
m + sex * Val(tmp)
f =
sex
= 0
i =
i + 5
End If
Next i
Label1.Caption = "男生平均身高:"
+ Str(m / cm) + "女生平均身高:" + Str(f / cf)
End Sub
答案: 【1】否
【1】flag = False【2】cm = cm + 1【3】f + (1 - sex) * Val(tmp)