【解题思路】文本框控件的MultiLine属性用于设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许；Font属性用于设置控件标题中文本的字体、字号和字型等。Text属性用于设置文本框中显示的文本。窗体标题通过其Caption属性设置。
【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.110和表3.111。
表3.110
控件窗体
属性Name Caption
设置值Form1设置文本框属性
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
基础题(2)
【解题思路】在窗体上建立控件后，先设置控件的属性，再编写事件过程。
单击命令按钮触发Click事件。利用按钮的Height和Width属性来改变按钮的大小；利用按钮的Left和Top属性来改变按钮的位置。
【操作步骤】
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见表3.112。
表3.112
步骤2：编写程序代码。
参考答案
Option Explicit
Private Sub Cmd1_Click()
Cmd1.Left = 0
Cmd1.Top = 0
End Sub
【解题思路】Rnd()函数用于产生一个小于1但大于或等于0的随机数。
本题程序用变量Max记录最大数，最初把数组的第一个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max的值就是数组各元素中的最大值。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
Option Base 1
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Max As Integer
Randomize
For i = 1 To 30
  　'arrN(i) = Int(Rnd * ？)
Next i
'? = arrN(1)
For i = 2 To 30
  　'If ? Then
    Max = arrN(i)
End If
Next i
Print Max
End Sub
程序结束
参考答案
第1个？处填入：1000
第2个？处填入：Max
第3个？处填入：arrN(i) > Max或Max < arrN(i)
简单题(2)
【解题思路】本题要求的是1000以内能被5或7整除的数的个数。在Visual Basic中，使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为0，则表示可以整除，否
则不能整除。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
参考答案
Function Fun()
Dim s As Integer, i As Integer
For i = 1 To 1000
If i Mod 5 = 0 Or i Mod 7 = 0 Then
s = s + 1
End If
Next i
Fun = s
End Function
Private Sub Cmd2_Click()
Cmd2.Height = Cmd2.Height * 2
Cmd2.Width = Cmd2.Width * 2
End Sub
综合题
【解题思路】Tab函数常与Print # 语句或Print方法一起使用，对输出进行定位，其语法为：Tab[(n)]
其中，可选的参数n表示在显示或打印下一个表达式之前移动的列数。在使用数组时，应
先定义。Input #语句用于读取顺序文件中一项(或多项)数据给一个变量(或多个变量)，其语法格式为：
Input # FileNumber ，Varlist
其中：FileNumber参数表示打开文件的句柄，Varlist为变量列表。语句"Option Base 1"用于限定数组下标的下限默认为1。
本题中文件以Input方式打开，使用一个5行、5列的二维数组Mat来存放数据，并使用一个嵌套的For循环显示矩阵，对于5*5的矩阵来说，位于左上到右下对角线上的元素具有行号等于列号的特点。
【操作步骤】
步骤1：打开本题工程文件。
步骤2：分析并编写程序代码。
程序提供代码
Option Base 1
Private Sub Form_Click()
Const N = 5
Const M = 5
'Dim ?
Dim i, j
'  Open App.Path & "\" & ""  ?  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 Mtextbox控件边框设置
    Print Tab(5 * j); Mat(i, j)；
Next j
  　Print
Next i
Print
Print "左上－右下对角线上的数为："
For i = 1 To N
For j= 1 To M
'If  ?  Then  Print Tab(5 * j); Mat(i, j)；
Next j
Next i
End Sub
程序结束
参考答案
第1个？处填入：Mat(N, M) As Integer或Mat(5, 5) As Integer 第2个？处填入：For Input
第3个？处填入：Input #1, Mat(i, j)
第4个？处填入：i=j
步骤3：调试并运行程序，关闭程序后按题目要求存盘。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。