二级VB上机题库23
时长:120分钟 总分:100分
56浏览 0人已完成答题
题型介绍
| 题型 | 简答题 |
|---|---|
| 数量 | 10 |
第45套
一、基本操作题
二、简单应用题
3.
Private Sub Command1_Click()
'Combo1.?
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'If KeyAscii > 57 Or KeyAscii < ? Then
MsgBox "请输入数字！"
' KeyAscii = ?
End If
End Sub
4.
Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
Dim s As Long
Dim i As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
s = 0
'For i = ? To n
't = ?
's = s + ?
Next
lblResult.Caption = s
End Sub
Private Function f(ByRef x As Integer) As Long
Dim t As Long
t = 1
For i = 1 To x
't = ?
Next
'f = ?
End Function
三、综合应用题
第46套
一、基本操作题
二、简单应用题
8.
Private Sub mnuOper_Click(Index As Integer)
'Select Case ?
Case 1
Form2.Show
Form1.Hide
Case 2
' Timer1.Enabled =?
Case 3
End
End Select
End Sub
Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 100
'If Picture1.Left + Picture1.Width >= ? Then
'Picture1.Left = ?
End If
End Sub
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
9.
Private Sub Check1_Click()
If Check1.Value = 1 Then
Frame1.Enabled = True
Else
Frame1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Frame2.Enabled = True
Else
Frame2.Enabled = False
End If
End Sub
Private Sub Command1_Click()
If Check1.Value = 1 Then
'If ? = True Then
s = "古典音乐"
Else
s = "流行音乐"
End If
End If
If Check2.Value = 1 Then
'If ? = True Then
s = s & "篮球"
Else
s = s & "羽毛球"
End If
End If
'Label2.Caption = ?
End Sub
Private Sub Form_Load()
Check1.Value = 1
Check2.Value = 1
End Sub
三、综合应用题
10.
