华南理工2016vbNET作业

1、高级语言程序设计(vb.net)作业 2016.3教学中心： 东莞羽丰 专业层次： 高中起点专科 学 号： 201415273131001 姓 名： 凌运楷 一. 判断题(如正确打，否则，打。)1源程序中的错误一般分为编译错误、运行错误和逻辑错误等三种。2. write_1 和学校$ 是不正确的变量名。3若一个整型变量说明了之后没有给它赋值，则它的值为0。4判别ch是否为小写字母，若是，输出“yes”；否则，输出“no”的块结构条件语句为:if asc(ch)=97 and asc(ch)=122 then writeline (“yes”)else writeline(“no”)end if

2、5. 输入结构变量的值就是输入该变量的各个元素的值。6函数过程定义中必须有一个赋值语句把表达式的值赋给函数过程名。7. 事件是由vb.net系统预先设置好或者在程序中由编程者自己设计的，它能够被对象识别的动作。8. 从文件取出一组数据以流的方式存放到程序的变量或数组中称为向流写入数据。9. 文件流类filestream用于打开和关闭文件，并提供对文件按字节的读/写操作。10.若某个模块中以关键字public定义子过程，则只能在该模块中可以调用该过程。答案栏： 1 2 3 4 5 6 7 8 9 10 二. 单项选择题 1设x为整型变量,不能正确表达1 x 5的逻辑表达式是( )。a. 1 x

3、5 b. x=2 or x=3 or x=4c. 1x and x 5 d. not (x=5)2设有数组说明语句：dim c( 10) as integer，则下面表示数组c的元素选项中（）是错误的。a. c(i-1) b. c(5+0.5) c. c(0) d. c(11)3下面不合法的标识符是（ ）。a. o_to b. integer c. 姓名 d. int14vb.net是一种( )程序设计语言。a. 面向事件 b. 面向属性 c. 面向对象 d. 面向过程 5. 设已定义函数过程f，它有三个实型传值参数；设a,b和c为实型变量，则调用该函数的正确形式为（ ）。a. f b. f(

4、 a+b, b+c )c. f ( a+b, b+c ,c+a ) d. f a+b, b+c, c+a6 若使命令按钮可见，可以设置visible属性的值为（ ）。a. falseb. true c. t d. f7要使单选按钮radiobutton处于选中或未选中状态，需由（ ）属性来决定。a. show b. list c. text d. checked8要删除列表框中的某一个项目，需要使用（ ）方法。 a. clearb. removec. moved. removeitem9要设置计时器的时间间隔可以通过（ ）属性来实现。 a. valueb. textc. minimumd. i

5、nterval10下面（ ）类用来把数据写入文本文件中。 a. streamwriter b. binarywriter c. streamreader d. binaryreader答案栏： 1. _a_ 2. _d_3. _ c_ 4. _ c_5. _ d_6. _ a_7. _ d_8. _ d_9. _ d_10. _a_ 三.简答题1. 在控制台应用程序中，如何输入输出一维数组的元素?2.下列窗体上有哪些控件?3. 文件操作可以分为哪些步骤?答案栏： 1. 答:输入一维数组元素的值可以使用赋值语句，也可以使用console类的输入方法read和readline从键盘输入数据。输出一

6、维数组元素的值可以使用console类的write方法和writeline方法。 2. 答：文本框与按钮组件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

7、= 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 module2.写出执行下列程序的输出结果。imports system.consolemodule module1 sub main() dim f(7) as integer f(0) = 1 : f(1) = 1 for i = 2 to 7 f(i) = f(i-2) + f(i-1) next i for i = 0 to 7 if int(i/4)=i/4 then writeli

8、ne() write(f(0)=1 , i, f(i) next i end subend module答案栏： 1 答案: x=2 y=4x=8 y=9x=4 y=8x=15 y=226 2 答案:imports system.consolemodule 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

9、, f(i) next i end subend modulef(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. 下面程序的功能是：求的值，在横线上填上适当内容。 imports system.consolemodule module1 sub main() dim i, n%, s! write(n=) n = (1) i = 1 : s = (2) while i = n s = s + (3) i = i + 1 end while writeline(

10、s=0, s) end subend module2. 下面程序的功能是输入m和n的值，并按公式：求组合数的程序，在横线上填上适当内容。imports system.consolemodule 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&