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

VB

简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题  
''给考生的程序
'Private Sub C1_Click()
''    If ? = "123456" Then
'        Text1.Text = "口令正确"
''        Text1.? = ""
'    Else
'        Text2.Text = Text2.Text - 1
''        If Text2.Text > ? Then
'            MsgBox "第" & (3 - Text2.Text) & "次口令错误，请重新输入"
'        Else
'            MsgBox "3次输入错误，请退出"
''            Text1.Enabled = ?
'        End If
'    End If
'End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 Dim a(100) As Integer
Private Sub Command1_Click()
    Dim k As Integer
    Open App.Path & "\in3.dat" For Input As #1
    For k = 1 To 100
        Input #1, a(k)
    Next k
    Close #1
End Sub
Private Sub Command2_Click()
  '需考生编写		 查看答案
简答题 查看答案
简答题  
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 = ? Then
        If Text1.Text = "" Then
            cut.Enabled = False
            copy.Enabled = False
        Else
            cut.Enabled = True
            copy.Enabled = True
        End If
'    ElseIf which = ? 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 = ?
    ElseIf which = 2 Then
'        Text2.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		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题  
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 ?
End Sub
Private Sub C2_Click()
    Dim k As Integer, n As Integer, c As String
'    n = Len( ? )
    c = ""
    If n > 0 Then
        For k = 1 To 15
'            If Left(a(k), ? ) = Text1.Text Then
'                c = c + "  " + ?
            End If
        Next k
        If c = "" Then
            Text2.Text = "未找到！"
        Else
'            Text2.Text = ?
        End If
    Else
        Text2.Text = "未输入查找内容！"
    End If
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private Sub Command1_Click()
    Dim n As Integer, k As Integer, m As Integer
    Dim c As String, a As String
    For k = 0 To 2
        If Op1(k).Value Then
'            n = Val(Op1(k). ? )
        End If
    Next k
    m = Len(Text1.Text)
    a = ""
'    For k = 1 To ?
'        c = Mid$(Text1.Text, ? , 1)
        c = String(1, Asc(c) + n)
        If c > "z" Or c > "Z" And c < "a" Then
            c = String(1, Asc(c) - 26)
        End If
'        ? = a + c
    Next k
    Text2.Text = a
End Sub		 查看答案
简答题  
Dim a(50) As Integer
Private Sub C1_Click()
    Dim k As Integer, ch As String
    Open App.Path & "\in5.dat" For Input As #1
    ch = ""
    For k = 1 To 50
'        Input #1, ?
        ch = ch + Str(a(k)) + "  "
    Next k
    Close #1
'    Text1.Text = ?
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Option Base 1
Private Sub Command1_Click()
    Dim arrN(30) As Integer
    Dim Max As Integer
    Randomize
    For i = 1 To 30
        'arrN(i) = Int(Rnd * ?)
    Next i
    '? = arrN(1)
    For i = 2 To 30
        'If ? Then
            Max = arrN(i)
        End If
    Next i
    Print Max
End Sub		 查看答案
简答题  
Sub SaveData()
    Open App.Path & "\" & "outtxt.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
Function Fun()
    ' 需要考生编写的代码		 查看答案
简答题  
Option Base 1
Private Sub Form_Click()
    Const N = 5
    Const M = 5
    Dim mat%(M, N)
'    Dim  ?
'    Open App.Path & "\" & "datain.txt"  ?  As #1
    For i = 1 To N
        For j = 1 To M
'          ?
        Next j
    Next i
    Close #1
    Print
    Print "初始矩阵为："
    Print
    For i = 1 To N
        For j = 1 To M
            Print Tab(5 * j); mat(i, j);
        Next j
        Print
    Next i
    Print
    Print "左上 - 右下对角线上的数为："
    For i = 1 To N
        For j = 1 To M
'              If  ?  Then  Print Tab(5 * j); Mat(i, j) ;
        Next j
    Next i
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Option Base 1
Private Sub Command1_Click()
    Dim arrN(30) As Integer
    Dim Min As Integer
    Randomize
    For i = 1 To 30
        'arrN(i) = ?
    Next i
    'Min = ?
    For i = 2 To 30
        'If ? Then
            Min = arrN(i)
        End If
    Next i
    Print Min
End Sub		 查看答案
简答题  
Sub SaveData()
    Open App.Path & "\" & "outtxt.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
Function Fun()
    ' 需要考生编写的代码		 查看答案
简答题  
' 提供给考生的程序
Option Base 1
Dim Arr1(20) As Integer
Dim Arr2(20) As Integer
' 提供给考生的程序
Sub ReadData1()
    Open App.Path & "\" & "datain1.txt" For Input As #1
    For i = 1 To 20
        Input #1, Arr1(i)
    Next i
    Close #1
End Sub
' 提供给考生的程序
Sub ReadData2()
    Open App.Path & "\" & "datain2.txt" For Input As #1
    For i = 1 To 20
        Input #1, Arr2(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 Command1_Click()
    Dim arrN(20) As Integer
    Dim Aver As Single
    Dim Sum As Integer
    Randomize
    For i = 1 To 20
        'arrN(i) = ?
    Next i
    'Sum = ?
    For i = 1 To 20
        'Sum = ?
    Next i
    'Aver = ?
    Print Aver
End Sub		 查看答案
简答题  
Sub SaveData()
    Open App.Path & "\" & "outtxt.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
Function Fun()
    ' 需要考生编写的代码		 查看答案
简答题  
Private Sub Command1_Click()
  Open App.Path & "\in5.dat" For Input As #1
  For i = 1 To 12
      For j = 1 To 10
        Input #1, a(i, j)
      Next j
  Next i
  Close #1
End Sub
Private Sub Command2_Click()
'考生编写		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Option Base 1
Private Sub Command1_Click()
    Dim arrN(20) As Integer
    Dim Sum As Integer
    Randomize
    For i = 1 To 20
        'arrN(i) = Int(Rnd * ?)
    Next i
    'Sum = ?
    For i = 1 To 20
        'If ? Then
            'Sum = ?
        End If
    Next i
    Print Sum
End Sub		 查看答案
简答题  
Sub SaveData()
    Open App.Path & "\" & "outtxt.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
Function Fun()
    ' 需要考生编写的代码		 查看答案
简答题  
Option Base 1
Private Sub Form_Click()
    Const N = 5
    Const M = 5
'    Dim  ?
    Dim Sum, i, j
'    Open App.Path & "\" & "datain.txt"  ?  As #1
    For i = 1 To N
        For j = 1 To M
'            ?
        Next j
    Next i
    Close #1
    Print
    Print "初始矩阵为："
    Print
    For i = 1 To N
        For j = 1 To M
            Print Tab(5 * j); Mat(i, j);
        Next j
        Print
    Next i
'    Sum = ?
    For j = 1 To M
'        ?
    Next j
    Print
    Print "第三行各项的和为：";
    Print Sum
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Option Base 1
Private Sub Command1_Click()
    Dim arrN(20) As Integer
    Dim Sum As Integer
    Randomize
    For i = 1 To 20
        'arrN(i) = ?
    Next i
    'Sum = ?
    For i = 1 To 20
        'If ? Then
            'Sum = ?
        End If
    Next i
    Print Sum
End Sub		 查看答案
简答题  
Sub SaveData()
    Open App.Path & "\" & "outtxt.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
Function Fun()
    ' 需要考生编写的代码		 查看答案
简答题  
Option Base 1
Private Sub Form_Click()
    Const N = 5
    Const M = 5
'    Dim  ?
    Dim i, j
'    Open App.Path & "\" & "datain.txt"  ?  As #1
    For i = 1 To N
        For j = 1 To M
'            ?
        Next j
    Next i
    Close #1
        Print
    Print "初始矩阵为："
    Print
    For i = 1 To N
        For j = 1 To M
            Print Tab(5 * j); Mat(i, j);
        Next j
        Print
    Next i
    Print: Print
    Print "右上 - 左下对角线上的数为："
    For i = 1 To N
        For j = 1 To M
'            If ? Then
                Print Tab(5 * i); Mat(i, j);
            End If
        Next j
    Next i
End Sub		 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639