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

VB

简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private Sub C1_Click()
    Dim k As Integer
    For k = 0 To 2
'        If Op1(k).? = True Then
'            Call draw(?)
        End If
    Next k
End Sub
Sub draw(a As Integer)
    P1.Print "选择了" & Op1(a).Caption
End Sub		 查看答案
简答题  
Private Function IsPrime(ByVal x As Integer) As Boolean
    Dim i As Integer
    For i = 2 To Sqr(x)
        If x Mod i = 0 Then
            IsPrime = False
            Exit Function
        End If
    Next
    IsPrime = True
End Function
Private Sub Command1_Click()
'考生编写程序开始
'======================================
  ？？？？
'=========================================
'考生编写程序结束
    Open App.Path & "\out5.dat" For Output As #1
    Print #1, Text1.Text, Label1(0).Caption, Label1(1).Caption, Label1(2).Caption
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
'提供给考生
'Private Sub C1_Click()
''    For i = ? To ?
''        If Op1(i).? = True Then
''            Print "我的出生地是" + Op1(i).?
'        End If
'    Next
'End Sub		 查看答案
简答题  
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out4.txt" For Output As #1
    Print #1, Cb1.Text, Cb2.Text, CInt(L1.Font.Size), L1.Font
    Close #1
End Sub		 查看答案
简答题  
'提供给考生的程序
Private Function isprime(a As Integer) As Boolean
    Dim flag As Boolean
    flag = True
    b% = 2
    Do While b% <= Int(a / 2) And flag
        If Int(a / b%) = a / b% Then
            flag = False
        Else
            b% = b% + 1
        End If
    Loop
    isprime = flag
End Function		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private Sub Op1_Click(Index As Integer)
''给考生的程序：
'    Dim a As String, b As String, c As String
'    a = "我坐"
'    b = "我开"
''    Select Case ?
'        Case 0
'            Text1.Text = a + Me.Op1(0).Caption + "去"
'        Case 1
''            Text1.Text = ? + Me.Op1(1).Caption + "去"
'        Case 2
'            Text1.Text = b + Me.Op1(2).Caption + "去"
'    End Select		 查看答案
简答题  
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out4.txt" For Output As #1
    Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text
    Close #1
End Sub		 查看答案
简答题  
' 给考生的程序
Private Sub Form_Unload(Cancel As Integer)
    unload_sub
End Sub		 查看答案
简答题 查看答案
简答题   查看答案
简答题  
''给考生的程序
'Private Sub C1_Click()
''    Timer1.Enabled = ?
'End Sub
'Private Sub Timer1_Timer()
'    Static a%
'    a = a + 1
''    If P1.Top > P2.Top + P2.? Then
'        P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height
'    Else
''        Timer1.? = False
'    End If
'End Sub		 查看答案
简答题  
Private Function xn(a As Single, m As Integer)
    Dim i As Integer
    tmp = 1
    For i = 1 To m
    '    tmp = ?
    Next
    'xn = ?
End Function
Private Sub Command1_Click()
    Dim n As Integer
    Dim i As Integer
    Dim t As Single
    Dim s, x As Single
    n = Val(Text1.Text)
    x = Val(Text2.Text)
    z = 0
    For i = 2 To n
        t = x + i
    '    z = z +?
    Next
    'Label1.Caption = ?
    Call SaveResult
End Sub
Private Sub SaveResult()
    Open App.Path & "\out4.dat" For Output As #1
    Print #1, Label1.Caption
    Close #1
End Sub		 查看答案
简答题  
Private arr(100) As Integer
Private Sub Command1_Click()
    Open App.Path & "\in5.txt" For Input As #1
    For i = 1 To 40
        Input #1, arr(i)
    Next
    Close #1
End Sub
Private Sub Command2_Click()
'=================考生编写程序开始===================
？？？
'=================考生编写程序结束====================
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Label3.Caption, Label4.Caption
    Close #1
End Sub
Public Function prime(x As Integer)
    k = Int(Sqr(x) + 0.5)
    For i = 2 To k
        If x Mod i = 0 Then
            prime = False
            Exit Function
        End If
    Next
    If i > k Then prime = True
End Function		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Option Base 1
Dim s As String
Private Sub Command1_Click()
  Open App.Path & "\in5.dat" For Input As #1
  s = Input(LOF(1), #1)
  Close #1
End Sub
Private Sub Command2_Click()
  Dim n As Integer, t As String, word_num As Integer
  n = Len(s): t = ""
  For i = 1 To n
      c = Mid(s, i, 1)
      If c <> " " Then
        t = t + c
      Else
        If foundhuiwen(t) Then
            word_num = word_num + 1
        End If
        t = ""
      End If
  Next i
  Text1.Text = word_num
End Sub
'以下Function 过程用于判断字符串是否为回文
Function foundhuiwen(p As String)
  '考生编写		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private Sub Command1_Click()
    Text1.Text = InputBox("请输入要添加的项目")
    'List1.AddItem ?
End Sub
Private Sub Command2_Click()
    Text1.Text = InputBox("请输入要删除的项目")
    'For i = 0 To ?
        'If List1.List(i) = ? Then
        If List1.List(i) = Me.Text1.Text Then
            'List1.RemoveItem ?
        End If
    Next i
End Sub		 查看答案
简答题  
Option Base 1
Private Function FindMax(a() As Integer)
    Dim Start As Integer
    Dim Finish As Integer, i As Integer
    'Start = ?(a)
    'Finish = ?(a)
    'Max = ?(Start)
    For i = Start To Finish
        'If a(i) ? Max Then Max = ?
    Next i
    FindMax = Max
End Function
Private Sub Command1_Click()
    Dim arr1
    Dim arr2(4) As Integer
    'arr1 = Array(Val(?), Val(?), Val(?), Val(?))
    For i = 1 To 4
        'arr2(i) = CInt(?)
    Next i
    'M = FindMax(?)
    Print "最大值是: "; M
End Sub		 查看答案
简答题  
' 提供给考生的程序
Option Base 1
Dim Arr(100) As Integer
' 提供给考生的程序
Sub ReadData()
    Open App.Path & "\" & "datain1.txt" For Input As #1
        For i = 1 To 100
        Input #1, Arr(i)
    Next i
    Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
    Open App.Path & "\" & Filename For Output As #1
        Print #1, Num
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private Sub Form_MouseDown(Button As Integer, _
            Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Text1.Text = InputBox("请输入要添加的项目")
        'List1.AddItem ?
    End If
    If Button = 2 Then
    Text1.Text = InputBox("请输入要删除的项目")
    'For i = 0 To ?
        'If List1.List(i) = ? Then
            'List1.RemoveItem ?
        End If
    Next i
    End If
End Sub		 查看答案
简答题  
Option Base 1
Private Function FindMin(a() As Integer)
    Dim Start As Integer
    Dim Finish As Integer, i As Integer
    'Start = ?(a)
    'Finish = ?(a)
    'Min = ?(Start)
    For i = Start To Finish
        'If a(i) ? Min Then Min = ?
    Next i
    FindMin = Min
End Function
Private Sub Command1_Click()
    Dim arr1
    Dim arr2(4) As Integer
    arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
    For i = 1 To 4
        arr2(i) = CInt(arr1(i))
    Next i
    'M = FindMin(?)
    Print "最小值是: "; M
End Sub		 查看答案
简答题  
' 提供给考生的程序
Option Base 1
Dim Arr(100) As Integer
' 提供给考生的程序
Sub ReadData()
    Open App.Path & "\" & "datain1.txt" For Input As #1
        For i = 1 To 100
        Input #1, Arr(i)
    Next i
    Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
    Open App.Path & "\" & Filename For Output As #1
        Print #1, Num
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private Sub Form_KeyDown(KeyCode As Integer, _Shift As Integer)
    If Chr(KeyCode) = "A" Then
        Text1.Text = InputBox("请输入要添加的项目")
        'List1.AddItem ?
    End If
        If Chr(KeyCode) = "D" Then
    Text1.Text = InputBox("请输入要删除的项目")
    'For i = 0 To ?
        'If List1.List(i) = ? Then
            'List1.RemoveItem ?
        End If
    Next i
    End If
End Sub		 查看答案
简答题  
Option Base 1
Private Function Average(a() As Integer) As Single
    Dim Start As Integer, Finish As Integer
    Dim i As Integer
    Dim Sum As Integer
    'Start = ?(a)
    'Finish = ?(a)
    'Sum = ?
    For i = Start To Finish
        'Sum = Sum + ?
    Next i
    'Average = ?
End Function
Private Sub Command1_Click()
    Dim arr1
    Dim arr2(4) As Integer
    arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
    For i = 1 To 4
        arr2(i) = CInt(arr1(i))
    Next i
    'Aver = Average(?)
    Print "平均值是: "; Aver
End Sub		 查看答案
简答题  
' 提供给考生的程序
Option Base 1
Dim Arr(100) As Integer
' 提供给考生的程序
Sub ReadData()
    Open App.Path & "\" & "datain1.txt" For Input As #1
        For i = 1 To 100
        Input #1, Arr(i)
    Next i
    Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
    Open App.Path & "\" & Filename For Output As #1
        Print #1, Num
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Option Base 1
Private Sub Sort(a() As Integer)
    Dim Start As Integer, Finish As Integer
    Dim i As Integer, j As Integer, t As Integer
    'Start = ?(a)
    'Finish = ?(a)
    'For i = ? To 2 Step -1
        'For j = 1 To ?
            'If a(j) ? a(j + 1) Then
                t = a(j + 1)
                a(j + 1) = a(j)
                a(j) = t
            End If
        Next j
    Next i
End Sub
Private Sub Command1_Click()
    Dim arr1
    Dim arr2(4) As Integer
    arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
    For i = 1 To 4
        arr2(i) = CInt(arr1(i))
    Next i
    Sort arr2()
    Text1.Text = arr2(1)
    Text2.Text = arr2(2)
    Text3.Text = arr2(3)
    Text4.Text = arr2(4)
End Sub		 查看答案
简答题  
' 提供给考生的程序
Option Base 1
Dim Arr(100) As Integer
' 提供给考生的程序
Sub ReadData()
    Open App.Path & "\" & "datain1.txt" For Input As #1
        For i = 1 To 100
        Input #1, Arr(i)
    Next i
    Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
    Open App.Path & "\" & Filename For Output As #1
        Print #1, Num
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private Sub Form_Click()
    If Option1.Value = True Then
        Text1.Text = InputBox("请输入要添加的项目")
        'List1.AddItem ?
    End If
    If Option2.Value = True Then
        Text1.Text = InputBox("请输入要删除的项目")
        'For i = 0 To ?
            'If List1.List(i) = ? Then
                'List1.RemoveItem ?
            End If
        Next i
    End If
End Sub		 查看答案
简答题  
Option Base 1
Private Sub Sort(a() As Integer)
    Dim Start As Integer, Finish As Integer
    Dim i As Integer, j As Integer, t As Integer
    'Start = ?(a)
    'Finish = ?(a)
    'For i = ? To 2 Step -1
        'For j = 1 To ?
            'If a(j) ? a(j + 1) Then
                t = a(j + 1)
                a(j + 1) = a(j)
                a(j) = t
            End If
        Next j
    Next i
End Sub
Private Sub Command1_Click()
    Dim arr1
    Dim arr2(4) As Integer
    arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
    For i = 1 To 4
        arr2(i) = CInt(arr1(i))
    Next i
    Sort arr2()
    Text1.Text = arr2(1)
    Text2.Text = arr2(2)
    Text3.Text = arr2(3)
    Text4.Text = arr2(4)
End Sub		 查看答案
简答题  
' 提供给考生的程序
Option Base 1
Dim Arr(100) As Integer
' 提供给考生的程序
Sub ReadData()
    Open App.Path & "\" & "datain1.txt" For Input As #1
        For i = 1 To 100
        Input #1, Arr(i)
    Next i
    Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
    Open App.Path & "\" & Filename For Output As #1
        Print #1, Num
    Close #1
End Sub		 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639