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

VB

简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题
Private Sub C1_Click()
'题目：
'    If HS1.Value + Text1.Text > HS1.? Then
'        MsgBox "文本框中的数值太大"
'    ElseIf HS1.Value + Text1.Text < ? Then
'        MsgBox "文本框中的数值太小"
'    Else
'        ? = HS1.Value + Text1.Text
'    End If		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题
Private Sub C1_Click()
'题目
    For i = 0 To Me.l1.ListCount - 1
        If l1.Selected(i) = True Then
            Print l1.List(i)
        End If
    Next
End Sub		 查看答案
简答题  
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Op1.Value, Op2.Value, Text1.Text
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private Sub Command1_Click()
    Dim S1 As String, S2 As String
    Dim I1 As Integer
'    S1 = ?
    I1 = 1
    Do
'        Do While Mid(S1, I1, 1) <> ? And I1 <= Len(S1)
        S2 = S2 & Mid(S1, I1, 1)
            I1 = I1 + 1
        Loop
'        List1.AddItem ?
'        S2 = ?
        I1 = I1 + 1
    Loop While I1 <= Len(S1)
End Sub		 查看答案
简答题  
Private Sub C1_Click()
'Dim flag As Boolean
'题目：
'For i = 0 To ?
'    If Cb1.List(i) = ? Then
'        flag = True
'    Else
'        flag = False
'    End If
'Next
'If flag Then
'    MsgBox "已有此项"
'    Cb1.Text = ""
'Else
'    Cb1.  ?  Cb1.Text
'End If		 查看答案
简答题  
Private Sub C1_Click()
    Open "out5.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题 查看答案
简答题  
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out4.txt" For Output As #1
    Print #1, Ch1.Value, Ch2.Value, Text1.Text
    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 C1_Click()
'    L1.AddItem ?
'End Sub
'Private Sub L1_Click()
'    L1.RemoveItem ?
'End Sub		 查看答案
简答题  
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out4.txt" For Output As #1
    Print #1, Op1.Value, Op2.Value, Op3.Value, Text1.Text
End Sub		 查看答案
简答题  
Dim a(100) As Integer
Private Sub Command1_Click()
    Dim k As Integer
    Open App.Path & "\in5.dat" For Input As #1
    For k = 1 To 100
        Input #1, a(k)
    Next k
    Close #1
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题
  		查看答案
简答题  
Private Sub Op1_Click()
  a$ = Text1.Text
  Text1.Text = Text2.Text
  Text2.Text = a$
  Op1.Visible = False
End Sub		 查看答案
简答题  
' 提供给考生的程序
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 Form_Click()
    Const N = 5
    Const M = 5
'    Dim  ?
    Dim i, j, t
'    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
            t = Mat(1, j)
            Mat(1, j) = Mat(3, j)
'            ?
        Next j
    Next i
    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
End Sub		 查看答案
简答题 查看答案
简答题 查看答案
简答题  
Private x As Integer
Private Sub Command1_Click()
    x = Val(InputBox("请输入正整数"))
End Sub
Private Sub Command2_Click()
    'Select Case Combo1.?
        Case 0
'        MsgBox Str(x) & ?
        Case 1
    '        MsgBox Str(x) & ?
        Case Else
            Exit Sub
    End Select
End Sub
Private Function f1(ByVal x As Integer) As String
    If x \ 2 <> x / 2 Then
        f1 = "是奇数"
    Else
        f1 = "是偶数"
    End If
End Function
'Private Function f2(ByVal x As Integer) ?
'    If x Mod 7 = ?  Then
        f2 = "能被7整除"
    Else
        f2 = "不能被7整除"
    End If
End Function		 查看答案
简答题  
'Private Flag As ?
Private Sub Form_Click()
    If Flag Then
        Shape1.Top = Shape2.Top
        Shape1.Left = Shape2.Left
        Flag = Not (Flag)
    Else
'        Shape1.Top = Shape2.Top + Shape2.Height - ?
'        Shape1.Left = Shape2.Left + Shape2.Width - ?
        Flag = Not (Flag)
    End If
End Sub
Private Sub Form_Load()
    Flag = True
End Sub		 查看答案
简答题  
' 提供给考生的程序
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
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
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		 查看答案
天天查询
Copyright © 2007-2024 苏ICP备17051061号-7
本站部分内容来自互联网，版权归原作者所有，如有侵权请联系我们。联系QQ：26051639