二级VB上机题库36
时长:120分钟 总分:100分
56浏览 0人已完成答题
题型介绍
| 题型 | 简答题 |
|---|---|
| 数量 | 10 |
第71套
一、基本操作题
二、简单应用题
3.
Private Sub Command1_Click()
'Call ShowName(?)
End Sub
Private Sub Label1_Click()
'Call ShowName(?)
End Sub
'Private Sub ShowName(c As ?)
If TypeOf c Is CommandButton Then
Label2.Caption = "单击" & Command1.Caption
End If
If TypeOf c Is Label Then
' ? = "单击" & Label1.Caption
End If
End Sub
4.
Private Sub Form_Load()
Picture1(0).Left = 0
Picture1(0).Top = 100
For k = 1 To 7
' Picture1(k).Visible =?
Next
End Sub
Private Sub Command1_Click()
' Timer1.Enabled =?
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static i As Integer
Picture1(i).Visible = False
i = i + 1
' If i = ? Then
' i =?
End If
Picture1(i).Visible = True
End Sub
三、综合应用题
5.
Dim a(5, 5) As Integer
Dim b(5) As Integer
Dim c(5) As Integer
Private Sub Command1_Click()
N = 5
For i = 1 To N
'===============考生编写程序开始======================
???
'===============考生编写程序结束======================
Next i
Save
End Sub
Private Sub Form_Load()
read
End Sub
Public Sub read()
Open App.Path & "\Data5.txt" For Input As #1
Do While Not EOF(1)
For i = 1 To 5
For j = 1 To 5
Input #1, a(i, j)
Next j
Next i
Loop
Close #1
End Sub
Public Sub Save()
Open App.Path & "\out5.txt" For Output As #1
For i = 1 To 5
Print #1, b(i), c(i)
Next i
Close #1
End Sub
第72套
一、基本操作题
二、简单应用题
8.
Private Sub Command1_Click()
Dim n As Integer
Dim b As Integer
Dim a(3) As Integer
s = RTrim(Text1.Text)
'n = ? (Text1.Text)
For i = 1 To n
'b = ? (Mid(s, i, 1))
'Select Case ?
Case 48 To 57
a(0) = a(0) + 1
Case 65 To 90
a(1) = a(1) + 1
Case 97 To 122
a(2) = a(2) + 1
End Select
Next
'For i = 0 To ?
'? = a(i)
Next
End Sub
9.
Private Sub remove(La As ListBox, Lb As ListBox)
' For i = 0 To ? – 1
' Lb.AddItem ?.List(i)
Next
' ?.Clear
End Sub
Private Sub Command1_Click()
Call remove(List1, List2)
End Sub
Private Sub Command2_Click()
Call remove(List2, List1)
End Sub
三、综合应用题
10.
