本栏目下题库来源于互联网,轻速云承诺对于用户导入平台的题库是严格保密的,不会在此呈现!
轻速云给您提供更好的在线考试系统服务!
二级VB上机题库23
1、【 简答题
    
Private Sub Command1_Click()
    '===考生编写程序开始====
       
    '===考生编写程序结束====
       
    '不要改动以下内容
    save Label1
End Sub [10分]
解析:
    n = 0
    For i = 1 To 60
        For j = 1 To 60
            For k = 1 To 60
                x = k * k
                If (x = i * i + j * j) And j > i Then
                    Print i; j; k
                    n = n + 1
                End If
            Next k
        Next j
    Next i
    Label1.Caption = n
2、【 简答题
    
Option Base 1
Dim a(4, 4) As Integer
Private Sub Command1_Click()
'====考生编写程序开始====
  (1)
    '====考生编写程序结束====
    '不得修改以下部分
    save Label3
End Sub
Private Sub Command2_Click()
'====考生编写程序开始====
(2)
    '====考生编写程序结束====
    '不得修改以下部分
    save Label4
End Sub
Private Sub Form_Load()
    Open App.Path & "\in5.txt" For Input As #1
    For i = 1 To 4
        For j = 1 To 4
            Input #1, a(i, j)
        Next j
    Next i
    Close #1
End Sub [10分]
解析:
  (1)  Max = a(1, 1)
    For i = 1 To 4
        For j = 1 To 4
            If a(i, j) > Max Then
                Max = a(i, j)
            End If
        Next j
    Next i
Label3.Caption = Max
(2)    Sum = 0
    For i = 1 To 4
        Sum = Sum + a(i, i)
    Next i
    Label4.Caption = Sum
3、【 简答题
    
Private Sub mnuOper_Click(Index As Integer)
    'Select Case ?
        Case 1
            Form2.Show
            Form1.Hide
        Case 2
    '      Timer1.Enabled =?
        Case 3
            End
    End Select
End Sub
Private Sub Timer1_Timer()
    Picture1.Left = Picture1.Left + 100
    'If Picture1.Left + Picture1.Width >= ? Then
        'Picture1.Left = ?
    End If
End Sub
Private Sub Command1_Click()
    Form1.Show
    Form2.Hide
End Sub [10分]
解析:
    Select Case Index
            Timer1.Enabled = True
    If Picture1.Left + Picture1.Width >= Width Then
        Picture1.Left = 0
4、【 简答题
    [10分]
解析:
  按要求解答即可
5、【 简答题
    
Private Sub Command1_Click()
    'Combo1.?
    Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    'If KeyAscii > 57 Or KeyAscii < ? Then
        MsgBox "请输入数字!"
    '    KeyAscii = ?
    End If
End Sub [10分]
解析:
Private Sub Command1_Click()
    Combo1.AddItem Text1.Text
    Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 57 Or KeyAscii < 48 Then
        MsgBox "请输入数字!"
        KeyAscii = 0
    End If
End Sub
6、【 简答题
    [10分]
解析:
  按要求解答即可
7、【 简答题
    
Private Sub Check1_Click()
    If Check1.Value = 1 Then
        Frame1.Enabled = True
    Else
        Frame1.Enabled = False
    End If
End Sub
Private Sub Check2_Click()
    If Check2.Value = 1 Then
        Frame2.Enabled = True
    Else
        Frame2.Enabled = False
    End If
End Sub
Private Sub Command1_Click()
    If Check1.Value = 1 Then
        'If  ? = True Then
            s = "古典音乐"
        Else
            s = "流行音乐"
        End If
    End If
    If Check2.Value = 1 Then
        'If ? = True Then
            s = s & "篮球"
        Else
            s = s & "羽毛球"
        End If
    End If
    'Label2.Caption = ?
End Sub
Private Sub Form_Load()
    Check1.Value = 1
    Check2.Value = 1
End Sub [10分]
解析:
'        If Option1.Item(0) = True Then或If Option1(0).Value = True Then
        If Option2.Value = True Then
    Label2.Caption = s
8、【 简答题
    
Private Sub Command1_Click()
    Dim m As Integer
    Dim n As Integer
    Dim s As Long
    Dim i As Integer
    m = Val(Text1.Text)
    n = Val(Text2.Text)
    s = 0
    'For i = ?  To n
        't = ?
        's = s + ?
    Next
    lblResult.Caption = s
End Sub
Private Function f(ByRef x As Integer) As Long
    Dim t As Long
    t = 1
    For i = 1 To x
        't = ?
    Next
    'f = ?
End Function [10分]
解析:
For i = m To n
        t = f(i)
        s = s + t
        t = t * i
    f = t
9、【 简答题
    [10分]
解析:
Private Sub Command1_Click()
    Shape1.Shape = 3
End Sub
Private Sub Command2_Click()
    Shape1.BorderColor = &HFF&
End Sub
10、【 简答题
    [10分]
解析:
Private Sub Dir1_Change()
'    File1.Path = Dir1.Path
    Form1.File1.Path = Form1.Dir1
End Sub
Private Sub Drive1_Change()
'    Dir1.Path = Drive1.Drive
    Dir1 = Me.Drive1
End Sub
Private Sub File1_Click()
'    Label2.Caption = File1.FileName
    Label2 = File1.FileName
End Sub
'Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'    Label2.Caption = File1.FileName
'End Sub
Private Sub Form_Load()
End Sub
1
1页,共10个题库
1页,共10个题库
轻速云给您提供更好的在线考试系统服务!
推荐
推荐题库
众多企事业单位的信赖之选
36万+企事业单位的共同选择
查看更多合作案例
众多企事业单位的信赖之选
开始使用轻速云组织培训考试
四步组织一场考试答题,一键搭建企业培训平台
免费使用 免费使用 预约演示
咨询热线
400-886-8169
周一到周日 8:00-22:00
©2025 轻速云 苏ICP备16049646号-1 轻速云科技提供专业的在线考试系统、在线培训系统
联系我们
客服热线客服热线:400-886-8169 | 周一至周日 8:00-22:00
©2025 轻速云 苏ICP备16049646号-1
轻速云科技提供专业的在线考试系统、在线培训系统
在线咨询 400-886-8169