1、【
简答题】
' 提供给考生的程序
Option Base 1
Dim Arr(100) As Integer
' 提供给考生的程序
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
[10分]
解析:
' 要求考生编写的程序
Dim Sum As Integer
' 要求考生编写的程序
Private Sub Read_Click()
ReadData
End Sub
' 要求考生编写的程序
Private Sub Calc_Click()
Dim S As String
Sum = 0
For i = 1 To 100
If i Mod 2 = 0 Then
Sum = Sum + Arr(i)
S = S & Str(Arr(i)) & " "
End If
Next i
Text1.Text = S
Print "Sum = "; Sum
End Sub
' 要求考生编写的程序
Private Sub Save_Click()
WriteData "DataOut.txt", Sum
End Sub
2、【
简答题】
[10分]
解析:
Private Sub Command1_Click()
Form1.Caption = Form1.Text1.Text & ", 作者 " & Text2.Text
End Sub
3、【
简答题】
[10分]
解析:
Private Sub Command1_Click()
Print Text1.Text; ", 现年 "; Text2.Text; " 岁"
End Sub
4、【
简答题】
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1.Text = InputBox("请输入要添加的项目")
'List1.AddItem ?
End If
If Button = 2 Then
Text1.Text = InputBox("请输入要删除的项目")
'For i = 0 To ?
'If List1.List(i) = ? Then
'List1.RemoveItem ?
End If
Next i
End If
End Sub
[10分]
解析:
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1.Text = InputBox("请输入要添加的项目")
List1.AddItem Text1.Text
End If
If Button = 2 Then
Text1.Text = InputBox("请输入要删除的项目")
For i = 0 To List1.ListCount - 1
If List1.List(i) = Text1.Text Then
List1.RemoveItem i
End If
Next i
End If
End Sub
5、【
简答题】
Private Sub Form_KeyDown(KeyCode As Integer, _Shift As Integer)
If Chr(KeyCode) = "A" Then
Text1.Text = InputBox("请输入要添加的项目")
'List1.AddItem ?
End If
If Chr(KeyCode) = "D" Then
Text1.Text = InputBox("请输入要删除的项目")
'For i = 0 To ?
'If List1.List(i) = ? Then
'List1.RemoveItem ?
End If
Next i
End If
End Sub
[10分]
解析:
Private Sub Form_KeyDown(KeyCode As Integer, _Shift As Integer)
If Chr(KeyCode) = "A" Then
Text1.Text = InputBox("请输入要添加的项目")
List1.AddItem Text1.Text
End If
If Chr(KeyCode) = "D" Then
Text1.Text = InputBox("请输入要删除的项目")
For i = 0 To List1.ListCount - 1
If List1.List(i) = Text1.Text Then
List1.RemoveItem i
End If
Next i
End If
End Sub
6、【
简答题】
' 提供给考生的程序
Option Base 1
Dim Arr(100) As Integer
' 提供给考生的程序
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
' 提供给考生的程序
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
[10分]
解析:
' 要求考生编写的程序
Dim Sum As Integer
' 要求考生编写的程序
Private Sub Read_Click()
ReadData
End Sub
' 要求考生编写的程序
Private Sub Calc_Click()
Dim S As String
Sum = 0
For i = 1 To 100
If Int(Arr(i) / 3) = Arr(i) / 3 Then
Sum = Sum + Arr(i)
S = S & Str(Arr(i)) & " "
End If
Next i
Text1.Text = S
Print "Sum = "; Sum
End Sub
' 要求考生编写的程序
Private Sub Save_Click()
WriteData "DataOut.txt", Sum
End Sub
7、【
简答题】
Option Base 1
Private Function FindMin(a() As Integer)
Dim Start As Integer
Dim Finish As Integer, i As Integer
'Start = ?(a)
'Finish = ?(a)
'Min = ?(Start)
For i = Start To Finish
'If a(i) ? Min Then Min = ?
Next i
FindMin = Min
End Function
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
'M = FindMin(?)
Print "最小值是: "; M
End Sub
[10分]
解析:
Option Base 1
Private Function FindMin(a() As Integer)
Dim Start As Integer
Dim Finish As Integer, i As Integer
Start = LBound(a)
Finish = UBound(a)
Min = a(Start)
For i = Start To Finish
If a(i) < Min Then Min = a(i)
Next i
FindMin = Min
End Function
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
M = FindMin(arr2())
Print "最小值是: "; M
End Sub
8、【
简答题】
Option Base 1
Private Function Average(a() As Integer) As Single
Dim Start As Integer, Finish As Integer
Dim i As Integer
Dim Sum As Integer
'Start = ?(a)
'Finish = ?(a)
'Sum = ?
For i = Start To Finish
'Sum = Sum + ?
Next i
'Average = ?
End Function
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
'Aver = Average(?)
Print "平均值是: "; Aver
End Sub
[10分]
解析:
Option Base 1
Private Function Average(a() As Integer) As Single
Dim Start As Integer, Finish As Integer
Dim i As Integer
Dim Sum As Integer
Start = LBound(a)
Finish = UBound(a)
Sum = 0
For i = Start To Finish
Sum = Sum + a(i)
Next i
Average = Sum / Finish
End Function
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
Aver = Average(arr2())
Print "平均值是: "; Aver
End Sub
9、【
简答题】
[10分]
解析:
Private Sub HScroll1_Change()
Width = HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Height = VScroll1.Value
End Sub
10、【
简答题】
[10分]
解析:
Private Sub Command1_Click()
HScroll1.Min = 100
HScroll1.Max = 1500
HScroll1.LargeChange = 100
HScroll1.SmallChange = 10
End Sub
Private Sub HScroll1_Change()
Picture1.Width = HScroll1.Value
End Sub