《高级语言程序设计()》作业
2017.1
教学中心：新疆产业发展研究中心校外学习中心 专业层次： 高中升大专
学 号：2009 姓 名： 王 成 均 分 数:
注意事项：1. 本作业共五大题，满分100分；
2. 请将以上各项信息填写清楚,否则,作0分处理；
3. 所有答案直接做在答案栏上,做在其它地方无效。

一．判断题(如正确打√，否则，打×。

) 1．源程序中的错误一般分为编译错误、运行错误和逻辑错误等三种。

2．控制台应用程序至少有一个Main 过程。

3．在程序设计语言系统中具有固定语法含义的符号串称为标识符。

4. 判别a 是否等于b ，若a=b ，则输出字符串 “a is equal to b ”的块结构条件语句为： If
a=b Then WriteLine(“a is equal to b ”) End If
5. 输入结构变量的值就是输入该变量的各个元素的值。

6．若某个模块中以关键字private 定义函数过程，则该函数过程只能在该模块中使用。

7. 关键字private 用于声明私有成员。

私有成员可以在类中和类外访问。

8．在程序运行期间，用户可以用文本框显示信息。

文本框接受输入的内容的属性是Text 。

9．列表框ListBox 中项目的序号从1开始到Listcount 结束。

10.以数据流的方式对文本文件中的数据进行读/写操作，需要StreamReader 类和StreamWriter 类。

答案栏： 1．√ 2．√ 3．√ 4．√ 5．√ 6．× 7．√ 8．× 9．√ 10．×二．单项选择题
1.下列变量名中错误的是( )。

A. n
B. 名称
C. ab#
D.“年龄”
2．设X 为整型变量,不能正确表达1< X < 5的逻辑表达式是( )。

A. 1< X <5
B. X=2 or X=3 or X=4
C. 1<X And X <5
D. Not (X<=1) And Not (X>=5)
3．设有数组说明语句：Dim c( 10) AS Integer ，则下面表示数组c 的元素选项中（ ）是错误的。

A. c(i-1)
B. c(5+0.5)
C. c(0)
D. c(11)
4．在过程的形式参数前面加上关键字（ ），则该参数说明为引用参数。

A. Val
B. ref
C. Byref
D. ByVal
5. 设已定义函数过程f ，它有三个实型传值参数；设a,b 和c 为实型变量，则调用该函数的正确形式为（ ）。

A. f
B. f( a+b, b+c )
C. f ( a+b, b+c ,c+a ) C. f a+b, b+c, c+a
6． 若使命令按钮不可见，可以设置Visible 属性的值为（ ）。

A. False
B. True
C. T
D. F
7．要使单选按钮RadioButton 处于选中或未选中状态，需由（ ）属性来决定。

A. Show
B. List
C. Text
D. Checked
8．要删除列表框中的某一个项目，需要使用（ ）方法。

（密封线内不答
题
）
A. Clear
B. ReMove
C. Move
D. ReMoveItem
9．要设置计时器的时间间隔可以通过（）属性来实现。

A. Value
B. Text
C. Minimum
D. InterVal
10．下面（）类用来把数据写入文本文件中。

A. StreamWriter
B. BinaryWriter
C. StreamReader
D. BinaryReader
答案栏：
1. __A____
2. __D____
3. __B____
4. __C____
5. __C____
6. __A____
7. __D____
8. __B____
9. ____D__ 10. ___D___
三.简答题
1. 在控制台应用程序中，如何输入输出一维数组的元素?
2．若有数组定义语句：Dim c%() = { 76, 80, 75}，则数组c有多少个元素？这些元素是什么？它们的初值是多少？
3. 文件操作可以分为哪些步骤?
答案栏：
1.答：输入一维数组元素的值可以使用赋值语句，也可以使用Console类的输入方法Read和ReadLine从键盘输入数据。

输出一维数组元素的值可以使用Console类的Write方法和WriteLine方法。

2.答：窗体上的控件有5个标签、5个文本框和2个命令按钮。

3答：三种文件的基本操作均分为三阶段：
（1）打开文件。

（2）读（磁盘→内存）/写（内存→磁盘）文件。

（3）关闭文件。

四.程序阅读题
1．当x的输入值分别为2.5、8、4和15时，写出执行下列程序的输出结果。

Imports System.Console
Module Module1
Sub Main()
Dim x%, y%
Write("请输入x的值:")
x = ReadLine()
Select Case x
Case 1, 3, 5
y = x - 1
Case 6 To 10
y = x + 1
Case 2, 4
y = 2 * x
Case Is > 10
y = x * x + 1
End Select
WriteLine("x={0} y={1} ", x, y)
End Sub
End Module
2.写出执行下列程序的输出结果。

Imports System.Console
Module Module1
Sub Main()
Dim f(10) As Integer
f(0) = 1 : f(1) = 1
For i = 2 To 10
f(i) = f(i-2) + f(i-1)
Next i
For i = 0 To 10
If Int(i/4)=i/4 Then WriteLine()
Write("f({0})={1} ", i, f(i))
Next i
End Sub
End Module
答案栏：
1．x=2 y=4 、x=8 y=9、x=4 y=8、x=15 y=226
2．f(0)=1 f(1)=1 f(2)=2 f(3)=3 f(4)=5 f(5)=8 f(6)=13 f(7)=21 f(8)=34 f(9)=55 f(10)=89
五.程序填空题
1. 下面程序的功能是使用公式 Λ++=222
2
1116π 求π的近似值，直到最后一项的值小于0.00001为止，在横线上填上适当内容。

Imports System.Console
Imports System.Math
Module Module1
Sub Main()
Dim i&, s#, term#
i = 1 s = (1)
Do
term = 1 / (i * i)
s = (2)
i = i + 1 Loop While (3)
WriteLine("圆周率的近似值为：{0}", Sqrt(6 * s))
End Sub
End Module
2. 下面程序的功能是输入m 和n 的值，并按公式：)!
(!!n m n m c n m -=求组合数的程序，在横线上填上适当内容。

Imports System.Console
Module Module1
Sub Main()
Dim m&, n&, cmn#, c1&, c2&, c3&
Write("n=")
n = ReadLine()
Write("m=")
m = ReadLine()
Call fac(m, c1) : Call fac(n, c2) : Call fac(m - n, c3) cmn = (4)
WriteLine("cmn={0} ", cmn)
End Sub
Private Sub fac(ByVal k&, ByRef f&)
Dim t&, i&
t = (5)
For i = 1 To k
t = t * i
Next i
(6)
End Sub
End Module
答案栏：
（1） ReadLine() （2） 0
（3） 1/(i * i) （4）
（5） 1 （6） f=t。