在Form1上添加一个水平滚动条(HScroll),然后设置窗口和`滚动条的属性

基础题(1) 【解题思路】窗体的标题由Caption属性设置。

滚动条所表示的最小值和最大值分别由Min属性和Max属性设置，单击滚动条两端的箭头移动的大小通过SmallChange属性设置，单击滚动框前面或后面的部位移动的大小通过LargeChange属性设置。

滚动框的初始位置则由Value属性设置。

【操作步骤】
步骤1：建立界面，并设置控件的属性。

程序中用到的控件及属性见表3.161。

表3.161
步骤2：调试并运行程序，关闭程序后按题目要求存盘。

基础题(2)【解题思路】单击窗体将触发其Click事件，要使文本框移动到窗体的左上角需设置文本框的Left属性和Top属性值均为0；当在文本框中输入内容时将触发其Change事件，要使文本框移动到窗体的右上角，则需文本框的Top属性值为0，而Left属性值为窗体的内部有效宽度减去文本框的宽度后的值。

【操作步骤】
步骤1：在窗体Form1中添加一个名为Text1文本框，并将其Text属性值设置为空白。

步骤2：编写程序代码。

参考答案
Private Sub Form_Click()
Text1.Top = 0
Text1.Left = 0
End Sub
Private Sub Text1_Change()
Text1.Top = 0
Text1.Left = Form1.Width - Text1.Width
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(1) 【解题思路】本题在For循环语句中使用Rnd()函数生成20个0～1000间的随机整数，并分别存入数组arr，生成随机数的表达式为：Int(Rnd * 1000)。

并利用FOR循环语句，将数组arrN中值大于500的整数累加到变量Sum(初始值为0)。

【操作步骤】
步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码
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
程序结束
参考答案
第1个？处填入：1000
第2个？处填入：0
第3个？处填入：arrN(i) > 500 或500<arrN(i)
第4个？处填入：Sum + arrN(i)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

简单题(2) 【解题思路】可通过求余运算符Mod来计算某数M能否被7整除，如果M Mod 7＝0那么M能被7整除，否则不能被7整除。

可利用For循环语句来逐个判断0～100范围内的整数能否被7整除，用一个变量来统计不能被7整除的整数个数。

【操作步骤】
步骤1：打开本题工程文件。

步骤2：分析并编写程序代码。

程序提供代码
Sub SaveData()
Open App.Path & "\" & "outtxt.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Function Fun()
End Function
Private Sub Command1_Click()
d = Fun()
Text1.Text = d
SaveData
End Sub
程序结束
参考答案
Function Fun()
Dim s As Integer, i As Integer
For i = 0 To 100
If i Mod 7 <> 0 Then
s = s + i
End If
Next i
Fun = s
End Function
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

综合题
【解题思路】根据题意，将文件中的数据存放到Mat数组中。

程序中使用了Option Base1语句，则数组每一维的下标都从1开始，将二维数组行下标为3的所有元素相加，所求得的和就是矩阵第三行各项的和。

【操作步骤】
步骤1：打开本题工程文件。

步骤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
程序结束
参考答案
第1个？处填入：Mat(5,5)As Integer 或Mat(N, M)As Integer 第2个？处填入：For Input
第3个？处填入：Input#1,Mat(i,j)
第4个？处填入：0
第5个？处填入：Sum=Sum+Mat(3,j)
步骤3：调试并运行程序，关闭程序后按题目要求存盘。