二级VB上机题库35

　　

 　　
Option Base 1
Dim a(30) As Integer
Private Sub Cmd1_Click()
    Open App.Path & "\in3.dat" For Input As #1
    For m = 1 To 30
      Input #1, a(m)
      Text1 = Text1 + Str(a(m)) + Space(2)
    Next m
    Close #1
End Sub
Private Sub Cmd2_Click()
  Dim num As Integer, n As Integer
  num = InputBox("请输入待查找的数")
' If num / 2  ?  Fix(num / 2) Then
      MsgBox "输入数为奇数，请重输！", , "检查"
      Exit Sub
  End If
' If num < a(1)  ?  num > a(30) Then
      Text2.Text = Str(num) + "已超出所给数值范围"
      Exit Sub
  End If
  For n = 1 To 30
    ' If a(n) =  ?  Then
        Text2.Text = Str(num) + "是数组中的第" + Str(n) + "个值"
        Exit For
      End If
  Next n
  'If n  ?  30 Then
      Text2.Text = Str(num) + "不存在于数组中"
  End If
End Sub

 　　
Option Base 1
Dim a(20, 3) As Integer
Private Sub Command1_Click()
    Open App.Path & "\in4.dat" For Input As #1
    For i = 1 To 20
      For j = 1 To 3
          Input #1, a(i, j)
          Text1 = Text1 + Str(a(i, j)) + Space(4)
      Next j
      Text1 = Text1 + Chr(13) + Chr(10)
    Next i
    Close #1
End Sub
Private Sub Command2_Click()
  Dim x(3) As Integer
  For i = 1 To 20
'    ? = (a(i, 2) + a(i, 3)) / 2
      Select Case Avg
'        Case ?
            x(1) = x(1) + 1
'        Case ?
            x(2) = x(2) + 1
        Case Is < 60
            x(3) = x(3) + 1
'    ?
  Next i
  For n = 1 To 3
'    Text2( ? ) = x(n)
  Next n
End Sub

 　　
Option Base 1
Dim a(20, 5) As Integer
Private Sub Command1_Click()
    Open App.Path & "\in5.dat" For Input As #1
    For i = 1 To 20
      For j = 1 To 5
          Input #1, a(i, j)
          Text1 = Text1 + Str(a(i, j)) + Space(2)
      Next j
      Text1 = Text1 + Chr(13) + Chr(10)
    Next i
    Close #1
End Sub
Private Sub Command2_Click()
‘考生编写
=============
???
=============
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out5.dat" For Output As #1
    Print #1, Text2.Text
    Close #1
End Sub

　　

　　

 　　
Dim flag As Integer
Private Sub Form_Load()
  flag = 0
End Sub
Private Sub Command1_Click()
  If Command1.Caption = "移动" Then
'    Timer1.Enabled = ?
    Command1.Caption = "暂停"
  Else
    Timer1.Enabled = False
    Command1.Caption = "移动"
  End If
End Sub
Private Sub Command2_Click()
  End
End Sub
Private Sub Timer1_Timer()
  Select Case flag
      Case Is = 0
'        Label1.Left = Label1.Left  ?  100
        If Label1.Left + Label1.Width > = Form1.Width Then flag = 1
      Case Is = 1
'        Label1.Left = Label1.Left  ?  100
        If Label1.Left < = 0 Then flag = 0
  End Select
End Sub

 　　
Private Sub Command1_Click()
  If Len(Text1) = 0 Then
      MsgBox "选手编号不能为空，请检查！", , "检查"
      Exit Sub
  End If
  For n = 0 To 9
      If Len(Text2(n)) = 0 Then
        MsgBox "评委给分不能为空，请检查！", , "检查"
        Exit Sub
      End If
  Next n
  Max = Val(Text2(0)): Min = Val(Text2(0))
  Sum = Val(Text2(0))
'  For n = ?  To 9
      Select Case Val(Text2(n))
'          Case Is  ?  Max
            Max = Text2(n)
'          Case Is  ?  Min
            Min = Text2(n)
      End Select
'      Sum =  ?  + Val(Text2(n))
  Next n
  score = (Sum - Max - Min) / 8
  Picture1.Print Text1; Space(5); score
  Text1 = ""
  For n = 0 To 9
      Text2(n) = ""
  Next n
End Sub

 　　
Option Base 1
Dim a(20, 5) As Integer
Private Sub Command1_Click()
    Open App.Path & "\in5.dat" For Input As #1
    For i = 1 To 20
      For j = 1 To 5
          Input #1, a(i, j)
          Text1 = Text1 + Str(a(i, j)) + Space(2)
      Next j
      Text1 = Text1 + Chr(13) + Chr(10)
    Next i
    Close #1
End Sub
Private Sub Command2_Click()
'===============考生编写程序开始======================
???
'===============考生编写程序结束======================
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out5.dat" For Output As #1
    Print #1, Text2.Text
    Close #1
End Sub