第30套参考答案与解析
一、基本操作题
1.【解析】首先按题目要求在窗体上画一个文本框，并设置它的属性。MultiLine属性设置为True，则文本框可以显示多行文本；ScrollBars属性设置为2，文本框显示垂直滚动条；设置Text属性中的内容为初始信息；用FontName和FontSize属性分别设置文本框的字型和字号；Caption属性设置窗体标题的内容。
控件的主要属性设置见表30-1。
表30-1
| 控件 |
控件名 |
属性名 |
属性值 |
|
|
Text |
程序设计 |
| 文本框 |
Text1 |
MultiLine |
True |
|
|
ScrollBars |
2 |
| 文本框 |
Text1 |
FontName |
黑体 |
| FontSize |
三号 |
2．【解析】首先按题目要求在窗体上画两个文本框，并分别将它们的属性按表30-2的内容进行设置。
(1)控件的主要属性设置见表30-2。
表30-2
| 控件 |
控件名 |
属性 |
属性值 |
|
|
Multiline |
True |
| 文本框 |
Text1 |
ScrollBars |
3 |
|
|
Multiline |
True |
| 文本框 |
Text2 |
ScrollBars |
3 |
| 命令按钮 |
Cmd1 |
Caption |
Copy |
(2)打开代码窗口输入如下代码：
(3)调试并运行。
(4)按要求保存文件。
二、简单应用题
1．【解析】本题主要考查循环程序设计思想和数组的使用。Rnd产生随机数的范围为(0，1)。为了生成某个范围内的随机整数，可使用公式Int(上限值-下限值+1)*Rnd+下限值)。用表达式Int(Rnd％1001)能够产生0～1000的随机整数。在数组中求最大和最小值时，用于比较的变量Max初值应为数组的首元素值。X获取最大值的条件是arrN(i)>x；X获取最小值的条件是
arrN(i)
参考代码：
2．【解析】变量num用于记录满足条件的整数个数，语句iMod5＝0 or i Mod7＝0是表示i能被5或7整除的条件。本题的难点是：子函数的计算结果一定要通过函数名Fun返回给主调函数，否则变量d将得不到正确的计算值。数据的保存通过试题提供的SaveData()事件自行去处理。
程序提供代码：
参考代码：
三、综合应用题
【解析】本题主要考查二维数组的使用。数组必须先定义后使用，且每一维的元素个数必须是常量，不能是变量或表达
式。在使用Open语句打开文件时，用For Input表示指定顺序输入方式，Input#语句从一个顺序文件中读出数据项，并把这些
数据项赋给程序变量Mat(i,j)。矩阵左上一右下对角线上的元素下标值均满足i＝j条件。
程序提供代码：
参考代码：
上一页 [1] [2]
责任编辑：cyth
