当前位置: 高中信息技术 / 综合题
  • 1. (2021高三上·浙江月考) 国际乒联现任主席自从上任以来就立志于推行一系列改革,其中11分制改革引起了很大的争议,有一部分球员因为无法适应新规则只能选择退役。小明就是其中一位,他退役之后走上了乒乓球研究工作,为分析11分制和21分制对选手的不同影响,编写了如下VB程序。在Text1中输入比赛记录(其中w表示小明获得一分,f表示对手获得一-分)最终运行界面如第16题图,发现21分制确实对小明这种慢热型的选手有利:

    1. (1) 如果记录是wwfffffffffwfwwfwwfwfwffffffwwwwfffwf, 请问11分制比赛的第二局小明与对手的比分是(注:当任一方得分大于等于11分,且领先对方2分及以上,领先一方赢一局)
    2. (2) 在程序划线处填入合适代码

      Private Sub Command2_ Click()

          Dim sp As String, s As String

          Dim a(1 To 1000) As Integer

          Dim b(1 To 100) As Integer

          Dim c(1 To 100) As Integer

          Dim i As Integer, j As Integer

          Dim n As Integer, f1 As Integer

          Dim f2 As Integer, h1 As Integer

          Dim k As Integer, x As Integer

          '对数组a赋初值为0,代码略

          s = Text1.Text: j = 1: k=1: x=0

          For i=1 To Len(s)

              If Mid(s,i,1)="w" Then a(i)=1

          Next i

         

          For i=1Ton

              If a(i)=1 Then f1=f1+1 Else f2=f2+1

              H1=h1+a(i)

              

              If heck(f1, f2, 11) Then

                  b(j)=f1:b(j+1)=f2:j=j+2

                  f1 =0:f2= C

              End If

              If check(h1, h2,21) Then

                  c(k) = h1:c(k+1)=h2:k=k+2

                  h1=0:x=i

              End If

          Next i

          '输出各局比分代码略

      End Sub

      Function check (ByVal dl As Integer, ByVal d2 As Integer, fz As Integer) As Boolean

          check = False

          If Then check = True

      End Function

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