华南理工大学高级语言程序设计作业

华南理工大学高级语言程序设
计作业(总3页)
-CAL-FENGHAI.-(YICAI)-Company One1
-CAL-本页仅作为文档封面，使用请直接删除
《高级语言程序设计()》作业
2014.3
教学中心：专业层次：
学号：姓名：
一.判断题(如正确打√，否则，打×。

)
1．存储数据不属于数据处理功能。

N
2. Write_1 和学校$ 是正确的变量名。

Y
3．若一个整型变量说明了之后没有给它赋值，则它的值为0。

Y
4．判别ch是否为小写字母，若是，输出“yes”；否则，输出“No”的块结构条件语句为:Y If Asc(ch)>=97 And Asc(ch)<=122 Then
WriteLine (“Yes”)
Else
WriteLine(“No”)
End If
5.。

输入结构变量的值就是输入该变量的各个元素的值Y
6．函数过程定义中必须有一个赋值语句把表达式的值赋给函数过程名。

N
7. 事件是由系统预先设置好或者在程序中由编程者自己设计的，它能够被对象识别的动作。

Y
8. 从文件取出一组数据以流的方式存放到程序的变量或数组中称为向流写入数据。

N
9. 文件流类FileStream用于打开和关闭文件，并提供对文件按字节的读/写操作。

Y
10. 在VB中不可以把类型说明符放在变量名的末尾来说明变量的类型。

N
二.单项选择题
1.下列变量名中错误的是( “年龄” )。

2．设X为整型变量,不能正确表达1< X < 5的逻辑表达式是(1< X <5 )。

3．设有数组说明语句：Dim c( 10) AS Integer，则下面表示数组c的元素选项中
（c(11) ）是错误的。

4．在过程的形式参数前面加上关键字（ ByVal ），则该参数说明为引用参数。

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

6．若使命令按钮不可见，可以设置Visible属性的值为（ False ）。

7．要使单选按钮RadioButton处于选中或未选中状态，需由（ Checked ）属性来决定。

8．要删除列表框中的某一个项目，需要使用（ReMove ）方法。

9．要设置计时器的时间间隔可以通过（ InterVal ）属性来实现。

10．下面（ StreamWriter ）类用来把数据写入文本文件中。

三.简答题
1. 在控制台应用程序中，如何输入输出一维数组的元素
1. 答:输入一维数组元素的值可以使用赋值语句，也可以使用Console类的输入方法Read和ReadLine从键盘输入数据。

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

2．若有数组定义语句：Dim c%() = { 76, 80, 75}，则数组c有多少个元素这些元素是什么它们的初值是多少
3．答:数组c共有3个元素c(0)、c(1)和c(2)，它们的初值分别为1、2和3，即c(0)=76，c(1)=80和c(2)=75。

3. 文件操作可以分为哪些步骤
答:无论是哪一种类型的文件，文件操作可以分为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
答案:
1．
x=2 y=4
x=8 y=9
x=4 y=8
x=15 y=226
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
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. 下面程序的功能是使用公式 ++=
2222
1116π 求π的近似值，直到最后一项的值小于0.00001为止，在横线上填上适当内容。

Imports System.Console
Imports System.Math
Module Module1
Sub Main()
Dim i&, s#, term#
i = 1
s = 0
Do
term = 1 / (i * i)
s = s + term
i = i + 1
Loop While term >= 0.00001
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 = c1 / (c2 * c3)
WriteLine("cmn={0} ", cmn)
End Sub
Private Sub fac(ByVal k&, ByRef f&)
Dim t&, i&
t = 1
For i = 1 To k
t = t * i
Next i
f = t
End Sub
End Module。