二级VB上机题库7

时长:120分钟 总分:100分

63浏览 0人已完成答题

题型介绍
题型 简答题
数量 10
第13套
一、基本操作题
1.
　　
问题详情
2.
　　
问题详情
二、简单应用题
3.
 　　
Private Sub Command1_Click()
    Dim S1 As String, S2 As String
    Dim I1 As Integer
'    S1 = ?
    I1 = 1
    Do
'        Do While Mid(S1, I1, 1) <> ? And I1 <= Len(S1)
        S2 = S2 & Mid(S1, I1, 1)
            I1 = I1 + 1
        Loop
'        List1.AddItem ?
'        S2 = ?
        I1 = I1 + 1
    Loop While I1 <= Len(S1)
End Sub
问题详情
4.
 　　
Private Sub C1_Click()
'Dim flag As Boolean
'题目：
'For i = 0 To ?
'    If Cb1.List(i) = ? Then
'        flag = True
'    Else
'        flag = False
'    End If
'Next
'If flag Then
'    MsgBox "已有此项"
'    Cb1.Text = ""
'Else
'    Cb1.  ?  Cb1.Text
'End If
问题详情
三、综合应用题
5.
 　　
Private Sub C1_Click()
    Open "out5.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
问题详情
第14套
一、基本操作题
6.
　　
问题详情
7.
　　
问题详情
二、简单应用题
8.
　　
问题详情
9.
 　　
'提供给考生的程序
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\out4.txt" For Output As #1
    Print #1, Ch1.Value, Ch2.Value, Text1.Text
    Close #1
End Sub
问题详情
三、综合应用题
10.
 　　
'提供给考生的程序
Private Function isprime(a As Integer) As Boolean
    Dim flag As Boolean
    flag = True
    b% = 2
    Do While b% <= Int(a / 2) And flag
        If Int(a / b%) = a / b% Then
            flag = False
        Else
            b% = b% + 1
        End If
    Loop
    isprime = flag
End Function
问题详情