二、程序阅读题
1. 阅读以下程序段，并回答以下问题 Private Sub Command1_Click() For x = 1 To 2 a = 0
For y = 1 To x + 1 a = a + 1 Next y Print a; Next x End Sub
1）程序的运行结果为 D
A. 1 1 B. 0 0 C. 1 2 D. 2 3 2）下面说法正确的是 B A．程序段Print a;中，“；”可以去掉并不影响输出的结果 B．程序段Print a;中，“；”可以去掉并不影响输出结果，只是影响输出的格式 C．变量a统计了循环x的运行次数 D．变量a不能统计循环y的运行次数 3）去掉a=0之后，程序运行的结果为 C A．2 3 B. 2 4 C. 2 5 D 2 6
4）下列对For循环叙述正确的是 A A．For循环只能用于循环次数已知的循环 B．For循环的步长只能是1 C．Exit For用于退出循环 D．以上说法均不正确
2．下列程序实现了如下图所示的图形打印，请完成以下选择填空将程序补充完整
Private Sub Command1_Click()
For i = 1 To ____①____
Print ___②______ For j = 1 To _____③___ Print \ Next j ____④___ End Sub
1）程序①处应该填入程序为 D
A．5 B.6 C.7 D.8 2）程序②处应该填入程序为 A
A. Tab(20 - i); B. Tab(20 + i); C. Tab(20); D. Tab(20 + i+1); 3) 程序③处应该填入程序为 A
A. 2 * i - 1 B. 2 * i C.i D.i-1 4）程序④处应该填入程序为 B
A．Next j B.Next i C Next D Next n 3. 阅读以下程序段，并回答以下问题 Option Base 1
Private Sub Command1_Click()
Dim a(5, 5) As String, i As Integer, j As Integer L1: For i = 1 To 5 For j = 1 To 5 a(i, j) = \ Next j Next i
L2: For i = 1 To 5 For j = 1 To i Print a(i, j); Next j L3: Print Next i End Sub
1）数组a(5,5)是（D）。
A、一维数组，元素个数5+5个 B、二维数组，元素个数5×5个 C、一维数组，元素个数6+6个 D、二维数组，元素个数6×6个 2) 标号为L1处的第一个双重循环的功能是（A）。
A、输入5行5列共25个 “*” 号组成的一个矩形图案 B、输入5行5列共15个 “*” 号组成的一个倒三角形图案 C、输入5行5列共15个 “*” 号组成的一个正三角形图案 D、输入5行5列共20个 “*” 号组成的一个菱形图案 3) 标号为L2处的第二个双重循环的功能是（C）。
A、输出5行5列共20个 “*” 号组成的一个矩形图案 B、输出5行5列共15个 “*” 号组成的一个倒三角形图案 C、输出5行5列共15个 “*” 号组成的一个正三角形图案 D、输出5行5列共20个 “*” 号组成的一个菱形图案 4）程序中L3行处Print语句的作用为（C）。
A、退出内循环 B、打印循环变量
C、被打印对象每打印一行将换行 D、被打印对象每打印一行将空格 4、 有程序如下：
Private Sub Form_Click()
Dim S As Double , m As Double , i As Integer, n As Integer
n = Val(InputBox(\请输入一个数字\ t = Val(InputBox(\请输入步长值\ For i = 1 To n Step t L1: m = m + fact(i) L2： S = S + 1 / m Next i
L3： Print i,S End Sub
Private Function fact(n As Integer) As Double Dim f As Double L4： f = 1
For i = 1 To n f = f * i Next i
L5: fact = f End Function
1）程序段L1处 当t=2时，m = m + fact(i) 构建的是下列哪个计算结构（D）。 A、1！＋2！＋??n! B、1+2+3 +??＋n C、1！＋n! D、1!+3!+??n! 2）下列说法正确的是（C）。 A、L2处的1/m可以改为1\\m B、L4处的f初始化可以省略
C、L5行实现Funciton过程的返回值语句 D、L5行删去后不会影响程序的执行
3）当输入n=19 ,t=3 时,整个程序实现的是下面哪个公式（A）。 A、1＋1/(1!+4!)+1/(1!+4!+7!)+ 1/(1!+4!+7!+??+19!) B、1!+4!+7!+??+19!
C、1!+ (1!+4!)+??+(1!+4!+7!+??+19!) D、以上均不正确
4）当输入n=19 ,t=3 时,L3中显示的i值为（D）。 A、19 B、20 C、21 D、22 5.程序代码如下：
Public Function f(m As Integer) If m Mod 2 = 0 Then L1: f = m Else
f = 1 End If End Function
Private Sub Command1_Click() Dim i As Integer s = 0
For i = 1 To 5 s = s + f(i) Next Print s End Sub
1）上述程序中，关于函数过程f的作用域说法正确的是（A）。 A、全局级过程 B、模块级过程
C、不可以被本应用程序中的其他模块调用 D、以上都不正确
2) 程序运行后，函数f共执行了多少次(C)。 A、3 B、4 C、5 D、6
3)程序运行后，单击命令按钮，在窗体上显示的是(C)
A) 11 B) 10 C) 9 D)15 4)若将L1行处的代码改为：f=-1,则输出结果为( B)
A) 0 B) 1 C) 9 D)5
三、主观题（30分）
请设计如下图所示程序运行界面：（请将程序文件保存在M:盘上） 程序需要实现的功能为：
1、单击“产生随机数”按钮时，随机产生30个[10，100]之间的随机数，并显示在List1（左边的列表框）中。
2、当单击“向下移动一位”按钮时，将列表框中的数据整体向下移动一位（也就是：第0位的移动到第1位，第1位的移动到第2位??，最高位的移动到第0位），并将移动后的结果显示在List2（右边的列表框）中。 3、当单击“写入文件”按钮时，将移动后的数据以每行5个数的方式写入“a.txt”文件中。
【评分标准规范】
（分数的基本分布要求相同，具体每个大的分布子项可不同，根据具体情况确定
分数）
1．正确保存 2分 2．控件添加正确 5分 3．文件打开 5分 4．算法正确 10分
1）产生随机数正确 3分 2）列表框操作 3分
3）循环结构和数组的使用 4分 5．正确的输入与输出 8分 1）循环正确输出 3分 2）正确写入到文件 4分
相关推荐：
loading