二级VB上机题库5

时长:120分钟 总分:100分

56浏览 0人已完成答题

题型介绍
题型 简答题
数量 10
第9套
一、基本操作题
1.
　　
问题详情
2.
　　
问题详情
二、简单应用题
3.
　　
问题详情
4.
　　Private Sub HScroll1_Change()
'    Text1.FontSize = ?
    If List1.Text <> "" Then
'        Text1.FontName = ?
    Else
        MsgBox "请选择字体", , ""
    End If
End Sub
问题详情
三、综合应用题
5.
　　Private Type Paltype
    Name As String * 8
    Tel As String * 10
    Post As Long
End Type
问题详情
第10套
一、基本操作题
6.
　　
问题详情
7.
　　
问题详情
二、简单应用题
8.
　　Private Sub C1_Click()
'题目：
'    For i = ? To ?
'        If Op1(i).? = True Then
'            Print "我是" + Op1(i).?
'        End If
'    Next
问题详情
9.
　　Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
'    If Val(?) = 0 Then
        Text1.Text = ""
'        Timer1.? = False
'        Text1.?
    Else
        Text1.Text = Str(Val(Text1.Text) - 1)
    End If
End Sub
问题详情
三、综合应用题
10.
　　
Private Type PalInfo
    Name As String * 8
    Tel As String * 10
    Post As Long
End Type
Dim pal As PalInfo
Private Sub Command2_Click()
    ch$ = ""
    For k = 1 To Len(Text1.Text)
        C$ = Mid$(Text1.Text, k, 1)
        If C$ >= "0" And C$ <= "9" Or C$ >= "a" And C$ <= "z" Or C$ >= "A" And C$ <= "Z" Then
            ch$ = ch$ + C$
        End If
    Next k
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, ch$
    Close #1
End Sub
问题详情