本栏目下题库来源于互联网,轻速云承诺对于用户导入平台的题库是严格保密的,不会在此呈现!
轻速云给您提供更好的在线考试系统服务!
二级VB上机题库1
1、【 简答题
   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 [10分]
解析:
Private Sub Command2_Click()
'考生自己编写"计算"按钮的事件过程
    n = Val(Text1.Text)
    For i = n To 2 Step -1
        l = prime(i)
        If l = True Then
            Exit For
        End If
    Next
    Text2.Text = i
End Sub
Private Sub Command3_Click()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Text2.Text
    Close #1
End Sub
Function prime(x) As Boolean
    flag = 1
    For i = 2 To x - 1
        If x Mod i = 0 Then
            flag = 0
            Exit For
        End If
    Next
    If flag = 0 Then
        prime = flag
    Else
        prime = True
    End If
End Function
2、【 简答题
    [10分]
解析:
  按要求解答即可
3、【 简答题

   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 [10分]
解析:
'1)      Command2.Enabled = True
'2)      Combo1.List(Combo1.ListIndex) = Text1
'3)      Combo1.AddItem Text1
4、【 简答题
   '提供给考生的程序
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 [10分]
解析:
'考生要编写的程序
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
5、【 简答题
   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 [10分]
解析:
'1)    a = Mid$(Text1.Text, k, 1)
'2)    ch = ch + LCase(a)
'  或  ch = ch + Chr$(Asc(a) + (Asc("a") - Asc("A")))
'  或  ch = ch + Chr$(Asc(a) + Asc("a") - Asc("A"))
'  或  ch = ch + Chr$(Asc(a) + 32)
'  或  ch = ch + Chr$(32 + Asc(a))
'  或  ch = ch + Chr$(Asc("a") - Asc("A") + Asc(a))
'  或  ch = ch + Chr$(Asc("a") + Asc(a) - Asc("A"))
'  或  ch = ch + Chr$(Asc(a) - Asc("A") + Asc("a"))
'3)    Text2 = ch
6、【 简答题

   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 [10分]
解析:
Private Sub Command1_Click()
    red = HScroll1.Value
    green = HScroll2.Value
    Timer1.Enabled = 321
End Sub
Private Sub Timer1_Timer()
    If Picture1.Visible Then
        red = red - 1
        If red = 0 Then
            Picture1.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 = green - 1
        If green = 0 Then
            Picture2.Visible = False
            Picture3.Visible = True
        End If
    End If
End Sub
7、【 简答题
    [10分]
解析:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        'PopupMenu file
'或    Form1.PopupMenu file
'或    Call PopupMenu(file)
Call Me.PopupMenu(file)
    End If
End Sub
8、【 简答题
    [10分]
解析:
Private Sub Command1_Click()
    Image1.Left = Image1.Left + 100
'或    Image1.Left = 100 + Image1.Left
'或    Image1.Move Image1.Left + 100
'或    Image1.Move Image1.Left + 100 , Image1.Top
'或    Image1.Move 100 + Image1.Left
'或    Image1.Move 100 + Image1.Left , Image1.Top
End Sub
Private Sub Command2_Click()
    Image1.Top = Image1.Top + 100
'或    Image1.Top = 100 + Image1.Top
'或    Image1.Move Image1.Left, Image1.Top + 100
'或    Image1.Move Image1.Left, 100 + Image1.Top
End Sub
9、【 简答题
    [10分]
解析:
Private Sub Command1_Click()
    Open App.Path & "\in5.txt" For Input As #1
    Input #1, a%
    Text1.Text = a%
    Close #1
End Sub
Private Sub Command2_Click()
    a% = CInt(Text1.Text)
    Do
        a% = a% + 1
    Loop Until isprime(a%)
    Text2.Text = a%
End Sub
Function isprime(a As Integer)
    Dim flag As Boolean
    k% = 2
    flag = True
    While k% <= Int(a / 2) And flag
        If a / k% = Int(a / k%) Then
            flag = False
        End If
        k% = k% + 1
    Wend
    isprime = flag
End Function
Private Sub Command3_Click()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, Text2.Text
    Close #1
End Sub
1
1页,共9个题库
1页,共9个题库
轻速云给您提供更好的在线考试系统服务!
推荐
推荐题库
众多企事业单位的信赖之选
36万+企事业单位的共同选择
查看更多合作案例
众多企事业单位的信赖之选
开始使用轻速云组织培训考试
四步组织一场考试答题,一键搭建企业培训平台
免费使用 免费使用 预约演示
咨询热线
400-886-8169
周一到周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1 轻速云科技提供专业的在线考试系统、在线培训系统
联系我们
客服热线客服热线:400-886-8169 | 周一至周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1
轻速云科技提供专业的在线考试系统、在线培训系统
在线咨询 400-886-8169