题库 题库
🏠 天天查询 > 题库 > VB

VB

简答题 查看答案
简答题 查看答案
简答题 '提供给考生的程序
Dim lenth As Integer, q As Integer
Const PI = 3.14159
Private Sub Form_Load()
    lenth = Line1.Y2 - Line1.Y1
    q = 90
End Sub
Private Sub Timer1_Timer()
    q = q - 6
    Line1.Y1 = Line1.Y2 - lenth * Sin(q * PI / 180)
    Line1.X1 = Line1.X2 + lenth * Cos(q * PI / 180)
End Sub		 查看答案
简答题 Private Sub Command1_Click()
    Dim n As Integer, k As Integer, ch As String, a As String
    n = Len(Text1.Text)
    ch = ""
    For k = 1 To n
'        a = Mid$(Text1.Text, ? , 1)
        If Option1.Value = True Then
            If a >= "a" And a <= "z" Then
                ch = ch + UCase(a)
            ElseIf a >= "A" And a <= "Z" Then
'                ch = ch + ?
            Else
                ch = ch + a
            End If
        End If
        If Option2.Value = True Then
            ch = UCase(Text1)
        End If
        If Option3.Value = True Then
            ch = LCase(Text1)
        End If
'        Text2 = ?
    Next k
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题
Private Sub Command1_Click()
    Text1 = Combo1.Text
'    Command2. ?  = True
End Sub
Private Sub Command2_Click()
'    Combo1.List( ? ) = Text1
    Text1 = ""
    Command2.Enabled = False
End Sub
Private Sub Command3_Click()
'    ?  Text1
End Sub		 查看答案
简答题
Private Sub Command1_Click()
'    ? = HScroll1.Value
    green = HScroll2.Value
'    Timer1.Enabled = ?
End Sub
Private Sub Timer1_Timer()
    If Picture1.Visible Then
        red = red - 1
        If red = 0 Then
'            ? .Visible = False
            Form1.Picture3.Visible = True
        End If
    ElseIf Picture3.Visible Then
        Picture3.Visible = False
        If red = 0 Then
            Picture2.Visible = True
            red = HScroll1.Value
        Else
            Picture1.Visible = True
            green = HScroll2.Value
        End If
    ElseIf Picture2.Visible Then
'        green = ?
        If green = 0 Then
            Picture2.Visible = False
            Picture3.Visible = True
        End If
    End If
End Sub		 查看答案
简答题 Private Sub Command1_Click()
    Open App.Path & "\in5.txt" For Input As #1
    'Input #1, ?        '1a%
    Input #1, a%
    Text1.Text = a%
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 Private Sub Command1_Click()
'    Timer1.Enabled = ?
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
Private Sub HScroll1_Change()
'    ? .Interval = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
'    Picture1.Left = ? + 10
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 Private Sub Command1_Click()
'    For k = 0 To ?
        If Option1(k).Value Then
'            n = ?
        End If
    Next k
    Option1(n).Value = False
    n = n + 1
    If n = 4 Then
'        n = ?
    End If
    Option1(n).Value = True
End Sub		 查看答案
简答题 Private Sub Command1_Click()
    Dim tmpStr As String * 50
    'Select Case ?
        Case 0
            tmpStr = Left(Trim(Text1.Text), 3)
        Case 1
            tmpStr = Right(Trim(Text1.Text), 3)
        Case 2
            'tmpStr = Mid(Trim(Text1.Text), ? )
    End Select
    'Text2.Text = ?
End Sub		 查看答案
简答题   查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 Dim num
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'    num = ?
    If num < 60 Then
        If Option1.Value = True Then
            Text2.Text = num
        Else
            If (num / 10 = CInt(Int(num / 10))) Then
'                Text2.Text = Text2.Text + ?
            End If
      End If
    Else
        Text2.Text = 0
        num = 0
'        Text1.Text = Text1.Text + ?
    End If
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 Private Sub Form_Load()
    Command1.Caption = "开始"
    Command2.Caption = "停止"
    Timer1.Interval = 50
    Timer1.Enabled = False
    Label1.Caption = "热烈欢迎"
    Label1.AutoSize = True
    Label1.FontSize = 16
    Label1.FontBold = True
End Sub
Private Sub Command1_Click()
    Command1.Caption = "继续"
    ' Timer1.Enabled = ?
    'Command1.Enabled = ?
    Command2.Enabled = True
End Sub
Private Sub Command2_Click()
    ' Timer1.Enabled = ?
    Command2.Enabled = False
    Command1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    If Label1.Left < Width Then
        ' Label1.Left = ?
    Else
        Label1.Left = 0
    End If
End Sub		 查看答案
简答题 Dim an As Integer
Dim bn As Integer
Dim cn As Integer
Dim dn As Integer
Private Sub Command1_Click()
    Open App.Path & "\in5.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, a$
        s = s & a$
    Loop
    Close 1
    Text1.Text = s
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 Private Sub Command1_Click()
    For i = 0 To 3
        ' If  ? = True Then
            opt = Option1(i).Caption
        End If
    Next
    ' Select Case ?
    Case "+"
        Result = HScroll1.Value + HScroll2.Value
      Case "-"
        Result = HScroll1.Value - HScroll2.Value
      Case "*"
        Result = HScroll1.Value * HScroll2.Value
      Case "/"
        Result = HScroll1.Value / HScroll2.Value
    End Select
    '  ? = Str(HScroll1.Value) & " " & opt & Str(HScroll2.Value) & " =" & Str(Result)
End Sub		 查看答案
简答题 Private Sub Command1_Click()
    Dim m As Integer, n As Integer
    Do
        n = Val(InputBox("请输入月份"))
    '  Loop Until ? And n < 13
    '  Select Case ?
        Case 1, 2, 3
            m = 1
        Case 4, 5, 6
            m = 2
        Case 7, 8, 9
            m = 3
        Case 10, 11, 12
            m = 4
    End Select
    ' Select Case ?
        Case 1
            Text1.Text = Str(n) & " 月份是春季"
        Case 2
            Text1.Text = Str(n) & " 月份是夏季"
        Case 3
            Text1.Text = Str(n) & " 月份是秋季"
        Case Else
            Text1.Text = Str(n) & " 月份是冬季"
      End Select
End Sub		 查看答案
简答题
 
Private Type Tele
    Name As String * 15
    Tel As String * 15
    Pos As Long
End Type
Dim Pers As Tele
Dim RecNum As Integer
Private Sub Command1_Click()
    Open "t5.txt" For Random As #1 Len = Len(Pers)
    RecNum = LOF(1) / Len(Pers)
    Do
        Pers.Name = InputBox("请输入姓名")
        Pers.Tel = InputBox("请输入电话")
        Pers.Pos = InputBox("请输入邮政编码")
'        RecNum = ?
'        Put #1, ?
        asp = InputBox("More(Y/N)?")
'    Loop While UCase(asp) ?
    Close 1
End Sub
Private Sub Command2_Click()
    Open "t5.txt" For Random As #1 Len = Len(Pers)
'    RecNum = ?
    Cls
    For i = 1 To RecNum
'        Get #1, ?
        Print Pers.Name; Pers.Tel; Pers.Pos
    Next i
    Close 1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题
Private Sub Command1_Click()
    Dim i As Integer, j As Integer, iSum As Integer
    Print "连续和为1250的正整数是："
    For i = 1 To 500
        ' iSum = ?
        For j = i To 500
            ' iSum = ?
            If iSum >= 1250 Then Exit For
        Next
        'If  iSum = ? Then
            Print i; " ～ "; j
        End If
    Next
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 Private Sub HScroll1_Change()
'    Text1.FontSize = ?
    If List1.Text <> "" Then
'        Text1.FontName = ?
    Else
        MsgBox "请选择字体", , ""
    End If
End Sub		 查看答案
简答题 Private Type Paltype
    Name As String * 8
    Tel As String * 10
    Post As Long
End Type		 查看答案
简答题 查看答案
简答题 查看答案
简答题 Private Sub C1_Click()
'题目：
'    For i = ? To ?
'        If Op1(i).? = True Then
'            Print "我是" + Op1(i).?
'        End If
'    Next		 查看答案
简答题 Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'    If Val(?) = 0 Then
        Text1.Text = ""
'        Timer1.? = False
'        Text1.?
    Else
        Text1.Text = Str(Val(Text1.Text) - 1)
    End If
End Sub		 查看答案
简答题
Private Type PalInfo
    Name As String * 8
    Tel As String * 10
    Post As Long
End Type
Dim pal As PalInfo
Private Sub Command2_Click()
    ch$ = ""
    For k = 1 To Len(Text1.Text)
        C$ = Mid$(Text1.Text, k, 1)
        If C$ >= "0" And C$ <= "9" Or C$ >= "a" And C$ <= "z" Or C$ >= "A" And C$ <= "Z" Then
            ch$ = ch$ + C$
        End If
    Next k
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, ch$
    Close #1
End Sub		 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639