二级VB上机题库30
时长:120分钟 总分:100分
56浏览 0人已完成答题
题型介绍
| 题型 | 简答题 |
|---|---|
| 数量 | 10 |
第59套
一、基本操作题
二、简单应用题
3.
Dim a(100) As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in3.dat" For Input As #1
For k = 1 To 100
Input #1, a(k)
Next k
Close #1
End Sub
Private Sub Command2_Click()
'考生编写
===================
????
===================
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\out3.dat" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
4.
Private Sub Command1_Click()
' If Command1.Caption = ? Then
' ? = True
Command1.Caption = "暂停"
Else
' ? = False
Command1.Caption = "演示"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
' If ? > Form1.Width Then
Label1.Left = -Label1.Width
Else
' Label1.Left = ? + 100
End If
End Sub
三、综合应用题
5.
Option Base 1
Dim a(20) As Integer, b(20) As Integer
Private Sub Cmd1_Click()
Text1.Text = "": Text2.Text = "": Text3.Text = ""
For i = 1 To 20
' a(i) = Fix(Rnd * ? + 1)
b(i) = 1
Text1.Text = Text1.Text + Str(a(i)) + Space(2)
Next i
End Sub
Private Sub Cmd2_Click()
fmax = 0
For i = 1 To 20
' For j = 1 To ?
If a(i) = a(j) Then
b(i) = b(i) + 1
End If
Next j
' If b(i) > ? Then fmax = b(i)
Next i
For i = 1 To 20
' If b(i) = ? Then
Text2.Text = Text2.Text + Str(a(i)) + Space(2)
End If
Next i
Text3.Text = fmax
End Sub
Private Sub Cmd3_Click()
' ?
End Sub
第60套
一、基本操作题
二、简单应用题
8.
Dim a(100) As Integer
Private Function is_square(x As Integer) As Boolean '判断完全平方数
flag = False
For m = 1 To Sqr(x)
If x = m ^ 2 Then
flag = True
Exit For
End If
Next m
is_square = flag
End Function
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in3.dat" For Input As #1
For k = 1 To 100
Input #1,?
Next k
Close #1
End Sub
Private Sub Command2_Click()
?
Dim num As Integer
max = 0
num = 0
For k = 1 To 100
If is_square(a(k)) Then
num = num + 1
?
max = a(k)
End If
End If
Next k
Text1.Text = max
Text2.Text = num
End Sub
9.
Private Sub Form_Load()
' ? "a0001"
End Sub
Private Sub Command1_Click()
' For i = 0 To ?
' List1.ListIndex = ?
If List1.Text = Text1.Text Then
MsgBox "不允许重复输入，请重新输入!"
Exit Sub
End If
Next i
' ? Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
' ?
End Sub
三、综合应用题
10.
