1、【
简答题】
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
[10分]
解析:
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 * 9 + 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 i - 1
If a(i) = a(j) Then
b(i) = b(i) + 1
End If
Next j
If b(i) > fmax Then fmax = b(i)
Next i
For i = 1 To 20
If b(i) = fmax Then
Text2.Text = Text2.Text + Str(a(i)) + Space(2)
End If
Next i
Text3.Text = fmax
End Sub
Private Sub Cmd3_Click()
End
End Sub
2、【
简答题】
[10分]
解析:
按要求解答即可
3、【
简答题】
Option Base 1
Dim a(10)
Private Sub Command1_Click()
Text1.Text = "": Text2.Text = ""
For i = 1 To 10
' a(i) = Fix(Rnd * ? + 1)
' For j = 1 To ?
If a(i) = a(j) Then
' i = ?
Exit For
End If
Next j
Next i
For i = 1 To 10
Text1.Text = Text1.Text + Str(a(i)) + Space(2)
Next i
End Sub
Private Sub Command2_Click()
Dim num As Integer, i As Integer
num = InputBox("请输入待查找的数")
For i = 1 To 10
' If a(i) = ? Then
Text2.Text = Str(num) + "是数组中的第" + Str(i) + "个值"
Exit For
End If
Next i
' If ? > 10 Then
Text2.Text = Str(num) + "不存在于数组中"
End If
End Sub
[10分]
解析:
Option Base 1
Dim a(10)
Private Sub Command1_Click()
Text1.Text = "": Text2.Text = ""
For i = 1 To 10
a(i) = Fix(Rnd * 99 + 1)
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next j
Next i
For i = 1 To 10
Text1.Text = Text1.Text + Str(a(i)) + Space(2)
Next i
End Sub
Private Sub Command2_Click()
Dim num As Integer, i As Integer
num = InputBox("请输入待查找的数")
For i = 1 To 10
If a(i) = num Then
Text2.Text = Str(num) + "是数组中的第" + Str(i) + "个值"
Exit For
End If
Next i
If i > 10 Then
Text2.Text = Str(num) + "不存在于数组中"
End If
End Sub
4、【
简答题】
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
[10分]
解析:
Input #1, a(k)
Dim max As Integer
If a(k) > max Then
5、【
简答题】
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
[10分]
解析:
Dim sum As Integer, Aver As Single
Dim n As Integer
For i = 1 To 100
If Fix(Sqr(a(i))) = Sqr(a(i)) Then
n = n + 1
sum = sum + a(i)
End If
Next i
Aver = sum / n
Text1.Text = Fix(Aver)
6、【
简答题】
[10分]
解析:
按要求解答即可
7、【
简答题】
[10分]
解析:
Private Sub Cmd1_Click()
'考生文件夹下的图片文件
Image1.Picture = LoadPicture("图片.jpg")
End Sub
Private Sub Cmd2_Click()
Image1.Picture = LoadPicture()
End Sub
8、【
简答题】
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分]
解析:
List1.AddItem "a0001"
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
List1.AddItem Text1.Text
End
9、【
简答题】
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
[10分]
解析:
If Command1.Caption = "演示" Then
Timer1.Enabled = True
Timer1.Enabled = False
If Label1.Left > Form1.Width Then
Label1.Left = Label1.Left + 100
10、【
简答题】
[10分]
解析:
Private Sub Command1_Click()
Label1.Caption = Date
End Sub
Private Sub Command2_Click()
Label1.Caption = Time
End Sub