相关试卷

若程序运行后，数组元素f(7)的值为。

Dim a(1 To 30) As String

Private Sub Form_Load( )

  ‘读取本月每日气温数据，存储于数组a中并在列表框List1中显示，过程略。

EndSub

  PrivateSubCommand1_Click()

    Dim temp(1 To 60) As Integer

    Dim length As Integer, t As Integer, j As Integer

    Dim ave As Single

    Dim f(30) As Integer

    Dim flag As Boolean

    For i=1 To 30

     length=Len(a(i))

      j=1: t=1

      Do While j<=length

        If Not(Mid(a(i), j, 1)<="9" And Mid(a(i), j, 1)>="0") Then

          temp(2*i-1)=Val(Mid(a(i), t, j-t))

        End If

        j=j+1

      Loop

      temp(2*i)=Val(Mid (a(i), t, j-t))

    Next i

    f(0)=0: low=30: flag=False

    For i=1 To 30

      ave=(temp(i*2-1)+temp(i*2))/2

      If ave<low Then low=ave

      If Not flag Then

        If ave<=10 Then

        Else

          f(i)=0

      End If

      If f(i)=5 Then

        Text1.Text="本月已入冬"

        flag=True

      End If

    End If

  Next i

  If Then Text1.Text="本月尚未入冬"

  Text1.Text=Text1.Text+""+"本月日均气温最低为："+Str(low)

End Sub

Constn=8

Dim a(1 To 500) As String

Private Sub Form_Load()

‘读取数据库中学生学号信息并存储于数组a中，过程略。

EndSub

Private Sub Command1_Click( )

  Dim s(1 To 8) As String

  Dim flag(1 To 500) As Integer

  Dim b(1 To n) As Integer

  Dim w As Integer, t As Integer, i As Integer, j As Integer

  Dim x As String

  For i=1 To 45*n

    flag(i)=0

  Next i

  For i=1 To n

    b(i)=0

  Next i

  w=0

  For i=1 To n

    t=

    If flag(t)=1 Then

      i=i-1

    ElseIf b(i)<2 Then w=w+1

      b(i)=b(i)+1

      flag(t)=1

      If w Mod 2=1 Then i=i-1

    End If

  Next i

  For i=1 To 2*n-1     '排序并输出被抽中学生学号

    If  Then x=s(i+1): s(i+1)=s(i):s(i)=x

    End If

    For j=i To i+1

      List2.AddItem s(j)

    Next j

  Next i

End Sub