二级VB上机题库2

时长:0分钟 总分:100分

62浏览 0人已完成答题

题型介绍
题型 简答题
数量 10
第3套
一、基本操作题
1.
　　
问题详情
2.
　　
问题详情
二、简单应用题
3.
　　
问题详情
4.
　　Private Sub Command1_Click()
'    Timer1.Enabled = ?
End Sub
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
Private Sub HScroll1_Change()
'    ? .Interval = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
'    Picture1.Left = ? + 10
End Sub
问题详情
三、综合应用题
5.
　　
问题详情
第4套
一、基本操作题
6.
　　
问题详情
7.
　　
问题详情
二、简单应用题
8.
　　Private Sub Command1_Click()
'    For k = 0 To ?
        If Option1(k).Value Then
'            n = ?
        End If
    Next k
    Option1(n).Value = False
    n = n + 1
    If n = 4 Then
'        n = ?
    End If
    Option1(n).Value = True
End Sub
问题详情
9.
　　Private Sub Command1_Click()
    Dim tmpStr As String * 50
    'Select Case ?
        Case 0
            tmpStr = Left(Trim(Text1.Text), 3)
        Case 1
            tmpStr = Right(Trim(Text1.Text), 3)
        Case 2
            'tmpStr = Mid(Trim(Text1.Text), ? )
    End Select
    'Text2.Text = ?
End Sub
问题详情
三、综合应用题
10.
 　　
问题详情