当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·舟山期末) 王老师为统计班级里部分学生的身高情况编写了一个VB程序,设计如下:在文本框Text1中输入每个学生数据,数据包括姓名、性别、身高(三位正整数),数据之间用“,”间隔;点击“计算”按钮Command1,分别计算出男女学生平均身高值,并在标签Label1中显示统计后的结果,程序界面如图所示。

    1. (1) 若输入数据时,漏输了最后一个逗号,是否会对计算结果产生影响(是/否)。
    2. (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

微信扫码预览、分享更方便