二级VB上机题库17

Private Sub C1_Click()
    Image1.Width = Image1.Width + 100  '或    Image1.Width = 100 + Image1.Width
    Image1.Height = Image1.Height + 100 '或    Image1.Height = 100 + Image1.Height
End Sub
Private Sub C2_Click()
    Image1.Width = Image1.Width - 100  '或    Image1.Width = -100 + Image1.Width
    Image1.Height = Image1.Height - 100 '或    Image1.Height = -100 + Image1.Height
End Sub

Max = a(1)
    Min = a(1)
    For i = 2 To 100
        If isnarc(a(i)) = True Then
          If a(i) > Max Then Max = a(i)
          If a(i) < Min Then Min = a(i)
        End If
    Next
    Text1.Text = Max
    Text2.Text = Min
End Sub
'以下Function 过程用于判断某数是否为水仙花数
Function isnarc(p As Integer)
  x = Fix(p / 100)
  y = Fix((p - x * 100) / 10)
  z = p - x * 100 - y * 10
  If p = x ^ 3 + y ^ 3 + z ^ 3 Then
      isnarc = True
  Else
      isnarc = False
  End If
End Function
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out3.dat" For Output As #1
    Print #1, Val(Text1.Text)
    Print #1, Val(Text2.Text)
    Close #1
End Sub

Private Sub C1_Click()
    Dim n As Integer, k As Integer, s As Long
    n = Val(Cb1.Text)
    s = 0
    For k = n To 5000
        If k / n = Int(k / n) Then
            s = s + k
        End If
    Next k
    Text1.Text = s
End Sub
Private Sub Form_Unload(Cancel As Integer)
    unload_sub
End Sub

Dim which As Integer
Private Sub copy_Click()
    If which = 1 Then
        Text3.Text = Text1.Text
    ElseIf which = 2 Then
        Text3.Text = Text2.Text
    End If
End Sub
Private Sub cut_Click()
    If which = 1 Then
        Text3.Text = Text1.Text
        Text1.Text = ""
    ElseIf which = 2 Then
        Text3.Text = Text2.Text
        Text2.Text = ""
    End If
End Sub
Private Sub edit_Click()
    If which = 1 Then
        If Text1.Text = "" Then
            cut.Enabled = False
            copy.Enabled = False
        Else
            cut.Enabled = True
            copy.Enabled = True
        End If
    ElseIf which = 2 Then
        If Text2.Text = "" Then
            cut.Enabled = False
            copy.Enabled = False
        Else
            cut.Enabled = True
            copy.Enabled = True
        End If
    End If
    If Text3.Text = "" Then
        paste.Enabled = False
    Else
        paste.Enabled = True
    End If
End Sub
Private Sub paste_Click()
    If which = 1 Then
        Text1.Text = Text1 + Text3.Text
    ElseIf which = 2 Then
        Text2.Text = Text2 + Text3.Text
    End If
End Sub
Private Sub Text1_GotFocus()  '本过程的作用是：当焦点在Text1中时，which = 1
    which = 1
End Sub
Private Sub Text2_GotFocus()  '本过程的作用是：当焦点在Text2中时，which = 2
    which = 2
End Sub

  按要求解答即可

Private Sub Text1_Change()
    Text2.Text = Text1.Text
'或    Text2.Text = Text1
'或    Text2 = Text1.Text
'或    Text2 = Text1
End Sub

Private Sub Command1_Click()
    If Op1.Value Then
        Text1.FontName = Op1.Caption
    ElseIf Op2.Value Then
        Text1.FontName = Op2.Caption
    End If
    If Ch1.Value = 1 Then
        Text1.FontUnderline = True
    Else
        Text1.FontUnderline = False
    End If
    If Ch2.Value = 1 Then
        Text1.FontItalic = True
    Else
        Text1.FontItalic = False
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    unload_sub
End Sub

Private Sub Command1_Click()
    Dim n As Long
    CD1.FileName = ""
    CD1.Filter = "所有文件|*.*|文本文件|*.txt|Word文档|*.doc"
    CD1.FilterIndex = 2
'    CD1.ShowOpen
    CD1.Action = 1
    If CD1.FileName <> "" Then
        Open CD1.FileName For Input As #1
        n = LOF(1)
        Text1 = Input$(n, #1)
'      Close #1
      Close 1
    End If
End Sub

Dim a(15) As String
Private Sub C1_Click()
    Dim k As Integer
    Open "in5.txt" For Input As #1
    Form1.Cls
    For k = 1 To 15
        Input #1, a(k)
        Print a(k)
    Next k
    Close #1
End Sub
Private Sub C2_Click()
    Dim k As Integer, n As Integer, c As String
    n = Len(Text1.Text)  'Text1
    c = ""
    If n > 0 Then
        For k = 1 To 15
            If Left(a(k), n) = Text1.Text Then
'            If Left(a(k), Len(Text1)) = Text1.Text Then
'            If Left(a(k), Len(Text1.Text)) = Text1.Text Then
                c = c + "  " + a(k)
            End If
        Next k
        If c = "" Then
            Text2.Text = "未找到！"
        Else
            Text2.Text = c
        End If
    Else
        Text2.Text = "未输入查找内容！"
    End If
End Sub