当前位置: 高中信息技术 / 综合题
  • 1. (2017·浙江模拟) 2016年10月学考成绩揭晓后,信息技术老师要统计各班学考技术A等级人数,但教务处为了保护学生成绩隐私,只给他提供了各班学生本次学考的等级信息,其中技术学科等级排在每位学生的第一科。若某班学生大部分参加技术、地理、历史三门学考,小部分参加其中的两门,则教务处提供的等级信息为每位学生连续三个字符(如:ABAB-B,表示第一个学生的成绩技术为A,地理为B ,历史为A,第二个学生技术为B,地理没考,历史为B,其他依此类推)。于是他编写了一个VB程序,很快统计出各班技术学科的A等级人数。程序设计界面如图所示,其中各班学考等级信息来自文本框Text1,科目数来自文本框Text2,统计结果输出到文本框Text3中。实现上述功能的VB程序代码如下:

    Private Sub Commandl_Click( )

    Dim s, p As String

    Dim a, n As Integer

    Dim kms As Integer

    s=      ①     

    n = Len ( s ):a = 0 :kms = Val(Text2.Text)

    If n Mod kms = 0 Then

    For i=     ②_______

    p = Mid(s,i,1)

    If p= "A" or p= "a"  Then a = a+l

    Next i

    Text3.Text = Str(a)

    Else

    Text3.Text="学生等级信息不正确"

    End  If

    End  Sub

    请回答下列问题:

    1. (1) 文本框Text3中的文字太小,可以选择图中的(填属性名)属性调整大小。
    2. (2) 将程序中画线处的代码补充完整,使程序能够实现统计功能。

      ① 处应填;② 处应填

    3. (3) 程序运行时,在文本框Text1中输入A-ABBBC-CCAA-AAA,Text2中输入3,单击“统计”按钮,则文本框Text3中显示的内容是

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