Form1添加一个文本框Text1,通过属性窗口设置窗体和文本框的属性,实现如下功能

1、基础题【解题思路】文本框控件的 MultiLine属性用于设置文本框是否能以多行显示文本，值为 True表示允许，值为False表示不允许； Font属性用于设置控件标题中文本的字体、字号和字型 等。Text属性用于设置文本框中显示的文本。窗体标题通过其Caption属性设置。【操作步骤】步骤1建立界面，并设置控件的属性。程序中用到的控件及属性见表3.110和表3.111。表 3.110控件窗体属性NameCapti on设置值Form1设置文本框属性表 3 111控件文本框属性NameTextMultilineScrallBarsFant设置值Textl程序设计TRUE2三号、常规、黒体步骤

2、2:调试并运行程序，关闭程序后按题目要求存盘。基础题(2)【解题思路】在窗体上建立控件后，先设置控件的属性，再编写事件过程。单击命令按钮触发 Click事件。利用按钮的Height和Width属性来改变按钮的大小；利用按钮 的Left和Top属性来改变按钮的位置。【操作步骤】步骤1:建立界面，并设置控件的属性。程序中用到的控件及属性见表3.112。表 3.112令专按锂1NawC dplion(jncLlCmdlCmdlCine 12步骤2:编写程序代码。参考答案Opti on ExplicitPrivate Sub Cmd1_Click()Cmd1 .L eft = 0Cmd1.Top =

3、0End Sub简单题(1)【解题思路】Rnd()函数用于产生一个小于1但大于或等于0的随机数。本题程序用变量 Max记录最大数，最初把数组的第一个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max的值就是数组各元素中的最大值。【操作步骤】步骤1:打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Optio n Base 1Private Sub Comma nd1_Click()Dim arrN(30) As In tegerDim Max As In tegerRan domizeFor i = 1 To

4、30'arrN(i) = Int(Rnd * ？)Next i'? = arrN(1)For i = 2 To 30'If ? The nMax = arrN(i)End IfNext iPrint MaxEnd Sub程序结束参考答案第1个？处填入：1000第2个？处填入：Max第3个？处填入：arrN(i) > Max 或Max < arrN(i)简单题(2)【解题思路】 本题要求的是1000以内能被5或7整除的数的个数。在Visual Basic中，使用Mod 运算符来判断一个数是否可以被另一个数整除，如果计算结果为0,则表示可以整除，否则不能整除。【

5、操作步骤】步骤1打开本题工程文件。步骤2:分析并编写程序代码。参考答案Fun cti on Fun()Dim s As In teger, i As In tegerFor i = 1 To 1000If i Mod 5 = 0 Or i Mod 7 = 0 The n s = s + 1End IfNext iFun = sEnd FunctionPrivate Sub Cmd2_Click()Cmd2.Height = Cmd2.Height * 2Cmd2.Width = Cmd2.Width * 2 End Sub【解题思路】Tab函数常与Print #语句或Print方法一起使用，对

6、输出进行定位，其语法为:Tab( n)其中，可选的参数n表示在显示或打印下一个表达式之前移动的列数。在使用数组时，应先定义。In put #语句用于读取顺序文件中一项（或多项）数据给一个变量（或多个变量），其语法格式 为：In put # FileNumber ， Varlist其中：FileNumber参数表示打开文件的句柄，Varlist为变量列表。语句"Option Base 1"用于限定数组下标的下限默认为1。本题中文件以In put方式打开，使用一个 5行、5列的二维数组Mat来存放数据，并使用一个 嵌套的For循环显示矩阵，对于 5*5的矩阵来说，位于左上到右下

7、对角线上的元素具有行号等于 列号的特点。【操作步骤】步骤1:打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码Option Base 1 Private Sub Form_Click()Const N = 5Const M = 5 'Dim ?Dim i, j' Open App.Path & "" & "datain.txt"? As #1For i = 1 To NFor j = 1 To M '?Next jNext iClose #1PrintPrint " 初始矩阵为： "PrintFor i = 1 To NFor j = 1 To MPrint Tab(5 * j); Mat(i, j) ；Next jPrintNext iPrintPrint " 左上 右下对角线上的数为： "For i = 1 To NFor j= 1 To M'If ? Then Print Tab(5 * j); Mat(i, j) ；Next jNext iEnd Sub程序结束参考答案第 1个？处填入： Mat(N,