1、【
简答题】
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
'arrN(i) = Int(Rnd * ?)
Next i
'Sum = ?
For i = 1 To 20
'If ? Then
'Sum = ?
End If
Next i
Print Sum
End Sub
[10分]
解析:
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1000)
Next i
Sum = 0
For i = 1 To 20
If arrN(i) > 500 Then
Sum = Sum + arrN(i)
End If
Next i
Print Sum
End Sub
2、【
简答题】
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
' Dim ?
Dim Sum, i, j
' Open App.Path & "\" & "datain.txt" ? As #1
For i = 1 To N
For j = 1 To M
' ?
Next j
Next i
Close #1
Print
Print "初始矩阵为:"
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Print
Next i
' Sum = ?
For j = 1 To M
' ?
Next j
Print
Print "第三行各项的和为:";
Print Sum
End Sub
[10分]
解析:
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat%(M, N)
Dim Sum, i, j
Open App.Path & "\" & "datain.txt" For Input As #1
For i = 1 To N
For j = 1 To M
Input #1, Mat%(i, j)
Next j
Next i
Close #1
Print
Print "初始矩阵为:"
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Print
Next i
Sum = 0
For j = 1 To M
Sum = Sum + Mat%(3, j)
Next j
Print
Print "第三行各项的和为:";
Print Sum
End Sub
3、【
简答题】
[10分]
解析:
按要求解答即可
4、【
简答题】
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
'arrN(i) = ?
Next i
'Sum = ?
For i = 1 To 20
'If ? Then
'Sum = ?
End If
Next i
Print Sum
End Sub
[10分]
解析:
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Sum As Integer
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 1000)
Next i
Sum = 0
For i = 1 To 20
If arrN(i) < 500 Then
Sum = Sum + arrN(i)
End If
Next i
Print Sum
End Sub
5、【
简答题】
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
' Dim ?
Dim i, j
' Open App.Path & "\" & "datain.txt" ? As #1
For i = 1 To N
For j = 1 To M
' ?
Next j
Next i
Close #1
Print
Print "初始矩阵为:"
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Print
Next i
Print: Print
Print "右上 - 左下对角线上的数为:"
For i = 1 To N
For j = 1 To M
' If ? Then
Print Tab(5 * i); Mat(i, j);
End If
Next j
Next i
End Sub
[10分]
解析:
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
Dim Mat(M, N) As Integer
Dim i, j
Open App.Path & "\" & "datain.txt" For Input As #1
For i = 1 To N
For j = 1 To M
Input #1, Mat%(i, j)
Next j
Next i
Close #1
Print
Print "初始矩阵为:"
Print
For i = 1 To N
For j = 1 To M
Print Tab(5 * j); Mat(i, j);
Next j
Print
Next i
Print: Print
Print "右上 - 左下对角线上的数为:"
For i = 1 To N
For j = 1 To M
If i + j = 6 Then
Print Tab(5 * i); Mat(i, j);
End If
Next j
Next i
End Sub
6、【
简答题】
[10分]
解析:
按要求解答即可
7、【
简答题】
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
' 需要考生编写的代码
[10分]
解析:
Sum = 0
For i = 0 To 100 Step 2
Sum = Sum + i * i
Next i
Fun = Sum
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
8、【
简答题】
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
' 需要考生编写的代码
[10分]
解析:
Sum = 0
For i = 0 To 100
If i Mod 7 <> 0 Then
Sum = Sum + i
End If
Next i
Fun = Sum
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
9、【
简答题】
[10分]
解析:
Private Sub Command1_Click()
VScroll1.Max = Form1.Height
VScroll1.Min = 0
VScroll1.LargeChange = 50
VScroll1.SmallChange = 10
End Sub
Private Sub VScroll1_Change()
Print Form1.VScroll1.Value
End Sub
10、【
简答题】
[10分]
解析:
Private Sub Form_Click()
Text1.Left = 0
Text1.Top = 0
End Sub
Private Sub Text1_Change()
Text1.Left = Form1.Width - Text1.Width
Text1.Top = 0
End Sub