本栏目下题库来源于互联网,轻速云承诺对于用户导入平台的题库是严格保密的,不会在此呈现!
轻速云给您提供更好的在线考试系统服务!
二级VB上机题库27
1、【 简答题
    [10分]
解析:
  按要求解答即可
2、【 简答题
      [10分]
解析:
  按要求解答即可
3、【 简答题
    
Dim a(30) As Integer, b(30) As Integer, c(60) As Integer
Private Sub Command1_Click()
    Dim k As Integer
    Open App.Path & "\in5.dat" For Input As #1
    For k = 1 To 30
        Input #1, a(k)
        Text1 = Text1 + Str(a(k)) + Space(2)
    Next k
    For k = 1 To 30
        Input #1, b(k)
        Text2 = Text2 + Str(b(k)) + Space(2)
    Next k
    Close #1
End Sub
Private Sub Command2_Click()
'考生编写程序开始
'======================================
?????
'=========================================
'考生编写程序结束
'以下程序将合并后的数组C显示在Text3中
    For k = 1 To 60
        Text3 = Text3 + Str(c(k)) + Space(2)
    Next k
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out5.dat" For Output As #1
    Print #1, Text3.Text
    Close #1
End Sub [10分]
解析:
    ia = 1: ib = 1: ic = 1
    Do While ia <= 30 And ib <= 30
        If a(ia) < b(ib) Then
            c(ic) = a(ia): ia = ia + 1
        Else
            c(ic) = b(ib): ib = ib + 1
        End If
        ic = ic + 1
    Loop
    Do While ia <= 30
        c(ic) = a(ia): ia = ia + 1: ic = ic + 1
    Loop
    Do While ib <= 30
        c(ic) = b(ib): ib = ib + 1: ic = ic + 1
    Loop
    '以下程序将合并后的数组C显示在Text3中
    For k = 1 To 60
        Text3 = Text3 + Str(c(k)) + Space(2)
    Next k
4、【 简答题
    
Private Sub Form_Click()
'    For i = 1 To ?
        For j = 1 To 6 - i
            Print " ";
        Next j
'        For j = 1 To ?
            Print "*";
        Next j
        Print
    Next i
    For i = 1 To 4
'        For j = 1 To ?
            Print " ";
        Next j
'        For j = 1 To ?
            Print "*";
        Next j
        Print
    Next i
End Sub [10分]
解析:
'5
'2*i-1  或 i*2-1 或 -1+i*2  或 -1+2*i
'i + 1  或  1 + i
'9 - 2 * i  或  9 - i * 2  或  - i * 2 + 9  或  - 2 * i + 9
5、【 简答题
    
Private Sub Form_load()
    HScroll1.Min = Shape2.Left
'    HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ?
    VScroll1.Min = Shape2.Top
'    VScroll1.Max = Shape2.Height + ? - Shape1.Height
    HScroll1.Value = 1000
    VScroll1.Value = 1000
End Sub
Private Sub HScroll1_Change()
'    ? = HScroll1.Value
End Sub
Private Sub VScroll1_Change()
'    Shape1.Top = ?
End Sub [10分]
解析:
    HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.Width
    VScroll1.Max = Shape2.Height + Shape2.Top - Shape1.Height
    Shape1.Left = HScroll1.Value
    Shape1.Top = VScroll1
6、【 简答题
    
Dim a(10) As Integer, n As Integer
Private Sub Command1_Click()
    Open App.Path & "\in5.txt" For Input As #1
    While Not EOF(1)
'        n = n + ?
        Input #1, ch$, a(n)
'        List1.AddItem  ?
    Wend
    Close #1
End Sub
Private Sub Command2_Click() [10分]
解析:
        n = n + 1
        List1.AddItem ch$
'需要考生编写的内容
    p = 0.3
    d = Int(Text1.Text / 500)
    Select Case d
        Case 0
            discount = 1
        Case 1
            discount = 0.98
        Case 2
            discount = 0.95
        Case 3
            discount = 0.92
        Case Else
            discount = 0.9
    End Select
    Text2 = Int(discount * p * Text1)
End Sub
Private Sub Command3_Click()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, List1.Text, Text1, Text2
    Close #1
End Sub
Private Sub List1_Click()
'需要考生编写的内容
    Text1 = a(List1.ListIndex + 1)
End Sub
7、【 简答题
     
'提供给考生的程序
Private Sub sub1()
    a = Text1
    If a < 18 Then
        Text2 = 0.5
    Else
        a = a - 18
        a = Int(a / 6) + 1
        Text2 = 0.5 + a * 0.15
    End If
End Sub [10分]
解析:
'需要考生编写的程序
Private Sub Command1_Click()
    Timer1.Enabled = True
'或    Timer1 = True
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
'或      Timer1 = False
End Sub
Private Sub Command3_Click()
    sub1
'或    Call sub1
End Sub
Private Sub Timer1_Timer()
    Text1 = Text1 + 1
'或    Text1 = 1 + Text1
'或    Text1 = Text1.Text + 1
'或    Text1 = 1 + Text1.Text
'或    Text1.Text = Text1 + 1
'或    Text1.Text = 1 + Text1
'或    Text1.Text = Text1.Text + 1
'或    Text1.Text = 1 + Text1.Text
End Sub
8、【 简答题
    
Private Sub Form_Load()
    a = 1
    t = 0
End Sub
Private Sub Timer1_Timer()
    Image1.Top = Image1.Top - a * 50
    If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then
'        ?  = False
'        d = ? - Image1.Top
        Label1 = d
        Label2 = t * Timer1.Interval / 1000
    End If
    a = a + 0.1
'    t = ?
End Sub [10分]
解析:
      Timer1.Enabled = False 或      Timer1 = False
        d = d - Image1.Top
    t = t + 1
9、【 简答题
    [10分]
解析:
Private Sub Command1_Click()
    Text2 = Text1.SelStart + 1
    Text3 = Text1.SelLength
End Sub
10、【 简答题
    
Dim d As Integer
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
'    ? = False
End Sub
Private Sub Form_Load()
    d = 1
End Sub
Private Sub Timer1_Timer()
        If Option1 Then
'            Shape2.Top = ? + d * 50
'            If Shape2.Top <= Shape1.? Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then
                d = -d
            End If
        ElseIf Option2 Then
'            Shape2.Left = ? + d * 50
            If Shape2.Left <= Shape1.Left Or Shape2.Left + Shape2.Width >= Shape1.Left + Shape1.Width Then
                d = -d
            End If
        End If
End Sub [10分]
解析:
    Timer1 = False
            Shape2.Top = Shape2.Top + d * 50
            If Shape2.Top <= Shape1.Top Or Shape2.Top + Shape2.Width >= Shape1.Top + Shape1.Height Then
            Shape2.Left = Shape2.Left + d * 50
1
1页,共10个题库
1页,共10个题库
轻速云给您提供更好的在线考试系统服务!
推荐
推荐题库
众多企事业单位的信赖之选
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