二级VB上机题库34
时长:120分钟 总分:100分
51浏览 0人已完成答题
题型介绍
| 题型 | 简答题 |
|---|---|
| 数量 | 10 |
第67套
一、基本操作题
二、简单应用题
3.
Private Sub Text2_Change()
'If ? = 1 Then
' Form1.Text3.PasswordChar = ?
Else
' Text3.PasswordChar = ?
End If
'Text3.Text = ?
End Sub
4.
Private Sub Command1_Click()
Dim x As Integer, k As Integer
x = Val(Text1(1).Text)
'For k = 2 To ?
'x = FindMin(Val(Text1(k).Text), ?)
Next
'lblResult.Caption = ?
End Sub
Public Function FindMin(x As Integer, y As Integer)
'If x ? y Then
FindMin = y
Else
FindMin = x
End If
End Function
三、综合应用题
5.
Private arr(100) As Integer
Private n As Integer
Private Sub Command2_Click()
Open App.Path & "\out5.txt" For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Print #1, Text4.Text
Close #1
MsgBox "保存成功！"
End Sub
Private Sub Form_Load()
Open App.Path & "\in5.txt" For Input As #1
n = 0
Do While Not EOF(1)
Input #1, x
n = n + 1
arr(n) = x
Loop
Close #1
End Sub
Private Sub Command1_Click()
'========考生编写程序开始========
???
'==========考生编写程序结束==============
End Sub
第68套
一、基本操作题
二、简单应用题
8.
Dim a(10) As Integer
Private Sub Command1_Click()
x = a(1)
y = a(1)
For i = 1 To 10
If Option1.Value = True Then
' If a(i) ? x Then
' ?= a(i)
End If
' ElseIf a(i) ? Then
' ?= a(i)
End If
Next
If Option1.Value = True Then
Label2.Caption = x
Else
Label2.Caption = y
End If
End Sub
Private Sub Form_Load()
For i = 1 To 10
a(i) = Int(Rnd * 100)
Next
End Sub
9.
Private Sub Command1_Click()
Call MoveAll
End Sub
Public Sub MoveItem(L1 As ListBox, L2 As ListBox)
' L2.AddItem ?
' L2.AddItem L1.Text
L2.AddItem L1.List(L1.ListIndex)
' L1.RemoveItem ?
L1.RemoveItem L1.ListIndex
End Sub
Public Sub MoveAll()
' For i = 0 To ?
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub
Private Sub List1_DblClick()
' Call MoveItem(?)
Call MoveItem(List1, List2)
End Sub
三、综合应用题
10.
