题目

王老师为统计班级里部分学生的身高情况编写了一个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)
信息技术 试题推荐
最近更新