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

基础题(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 = 0End SubPrivate Sub Text1_Change() Text1.Top = 0 Text1.Left = Form1.Width - Text1.WidthEnd Sub步骤3：调试并运行程序，关闭程序后按题目要求存盘。 简单题(1) 【解题思路】本题在For循环语句中使用Rnd()函数生成20个0～1000间的随机整数，并分别存入数组arr，生成随机数的表达式为：Int(Rnd * 1000)。并利用FOR循环语句，将数组arrN中值大于500的整数累加到变量Sum(初始值为0)。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1Private Sub Command1_Click()Dim arrN(20) As IntegerDim Sum As IntegerRandomizeFor i = 1 To 20　arrN(i) = Int(Rnd * ？)Next i　Sum = ?For i = 1 To 20　If ? Then　 Sum = ?　　　　End IfNext iPrint SumEnd Sub程序结束参考答案第1个？处填入：1000第2个？处填入：0第3个？处填入：arrN(i) 500 或500arrN(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 #1Print #1, Text1.TextClose #1End SubFunction Fun()End FunctionPrivate Sub Command1_Click()d = Fun()Text1.Text = dSaveDataEnd 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 = sEnd Function步骤3：调试并运行程序，关闭程序后按题目要求存盘。综合题【解题思路】根据题意，将文件中的数据存放到Mat数组中。程序中使用了Option Base1语句，则数组每一维的下标都从1开始，将二维数组行下标为3的所有元素相加，所求得的和就是矩阵第三行各项的和。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1Private Sub Form_Click()Const N = 5Const M = 5　Dim ?Dim Sum, i, j　Open App.Path \ datain.txt ? As #1For i = 1 To N　　　　For j = 1 To M　？　　　　Next jNext iClose #1