在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

第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 "第三行各项的和为："；