高级语言程序设计作业及答案.pdf

高级语言程序设计(VB)第1页（共 4 页）高级语言程序设计(VB.NET)作业 2017.1 教学中心：新疆产业发展研究中心校外学习中心专业层次：高中升大专学号：201607083130009 姓名：王 成 均分数:注意事项：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.1X And X 5 D.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要删除列表框中的某一个项目，需要使用（）方法密封线内不答题）名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 5 页 -高级语言程序设计(VB)第2页（共 4 页）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 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 5 页 -高级语言程序设计(VB)第3页（共 4 页）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答案栏：1x=2 y=4、x=8 y=9、x=4 y=8、x=15 y=226 2f(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.下面程序的功能是使用公式22221116求的近似值，直到最后一项的值小于0.00001 为止，在横线上填上适当内容。

Imports System.Console Imports System.Math Module Module1 名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 5 页 -高级语言程序设计(VB)第4页（共 4 页）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 的值，并按公式：)!(!nmnmcnm求组合数的程序，在横线上填上适当内容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）_c1/(c2*c3)（5）1（6）f=t 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 5 页 -高级语言程序设计(VB)第5页（共 4 页）名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 5 页 -。