《中原工学院VB题库(含参考答案)4份整合+大题版.docx》由会员分享，可在线阅读，更多相关《中原工学院VB题库(含参考答案)4份整合+大题版.docx（28页珍藏版）》请在三一文库上搜索。
1、中原工学院VB题库(含参考答案)4份整合+大题版首先声明这是crazygod5本人亲自由校网下载的题库，自己做和校对的，不能保证准确率（应该在90%以上），大题部分自己已经运行验证过了。之前长传的VB1 、VB2、VB3、VB4部分在是看不到大题的（实际上答题框是有参考答案的），自己下载下来之后发现金山的2013测试版是显示不出来选项的，OFFIC2003可以显示所有内容（但是大题的框内内容不能编辑），OFF9C2010是完全正常编辑的（建议用OFFIC2010），不过这次我把大题独立出来了（在最下面），所以OFFIC2003就可以足够观看和编辑了（WPS完全版没测试过）。上次上次的几份答案发
2、现被转载到另外的网站（豆丁，道客巴巴）了，本人不希望未经过我的允许就转载我的辛苦劳动的，谢谢合作！如果发现我的参考答案有问题，欢迎发邮件到335147037http:/ v9.6】本套软件使用权属于：中原工学院考试课程:高级语言程序设计（VB）考试时间:100分钟考场:第一考场考试日期:2010.02.15考号：201200314399姓名：帅哥剩余时间：99:48 保存交卷退出帮助A BC DA BC DA BC DA BC DA BC DA BC DA BC DA BC DA BC DA BC DAB 的过程中使用C DA Double BCD DoubleB ACheckChangedC
3、 DA BC DA BC DA BC DA BC DA BC DA BC DA BC D正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误考号：201200314399姓名：帅哥剩余时间：99:48 保存交卷退出帮助强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览【HNCE网上考试系统 v9.6】本套软件使用权属于：中原工学院考试课程:高级语言程序设计（VB）考试时间:100分钟考场:第一考场考试日期:2010.02.15考号：211111111111姓名：登录剩余时间：99:55 保存交卷退出帮助A BC DA BC DA BC DA
4、 B C DA B C DA B C D A B C D A B C D A B C D A B C DAB的过程中使用D C文件A Double BCD DoubleA BC DB ACheckChangedC DA BC DB A以访问C仅可在类以及子类的成员方法中D可以访问A BC DA BC DA BC DA BC D正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误考号：211111111111姓名：登录剩余时间：99:55 保存交卷退出帮助强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览【HNCE网上考试系统 v9.6】本套
5、软件使用权属于：中原工学院考试课程:高级语言程序设计（VB）考试时间:100分钟考场:第一考场考试日期:2010.02.15考号：201212345678姓名：偏好剩余时间：99:56 保存交卷退出帮助A BC DA BC DA BC DA BC DA BC DA BC DA BC DA BC DA BC DA BC DAB 的过程中使用D C文件A BCD 能以传递至方式传递A BC DB ACheckChangedC DB A以访问C仅可在类以及子类的成员方法中D可以访问A BC DA BC DA BC DA BC、PeekD、Flush20、下列( )类的文件流既可以读也可以写。（1分）
6、A、StreamReaderB、FileStreamC、StreamWriterD、BinaryWriter二、判断题（10道小题，共10分）1、对象的所有属性既可以通过属性窗口设置，也可以在程序运行时修改。（1分）正确错误2、编写代码时，不能出现多个语句写在一行上。（1分）正确错误3、每个对象都必须有Name属性。（1分）正确错误4、窗体显现时，最先执行的是Load事件过程。（1分）正确错误5、InputBox函数的返回值是字符串类型，常需要转换后才能赋值给变量。（1分）正确错误6、引用数组元素时,下标值应在数组声明时所指定的范围内。（1分）正确错误7、在过程内不能再定义过程，但可以调用其它
7、Sub过程或Function过程。（1分）正确错误8、复选框对象主要用来实现多选一的操作目的。（1分）正确错误9、对象和类是一样的，都是可以直接操作的实体。（1分）正确错误10、在打开文件执行读写后，结束时一定要关闭文件，否则会造成文件损坏。（1分）正确错误（1分）7、For i=3 To 27 Step 2 将循环13次。（1分）8、有如下声明：Dim stu(4,5) As Single,则该声明建立一个有30个元素的数组。（1分）9、声明模块级变量用Private或Public关键字。（1分）10、程序运行过程中，要向列表框ListBox1中添加一项，应该使用Items.Add方法。（1
8、分）11、类的成员包括数据成员、方法、事件和方法。（1分）12、若想让菜单标题显示为“文件(F)”,则应把菜单项的Text属性设置为文件(F)。（1分）考号：201212345678姓名：偏好剩余时间：99:56保存交卷退出帮助 考号：201212345678姓名：偏好剩余时间：99:56保存交卷退出帮助考号：201212345678姓名：偏好剩余时间：99:56保存交卷退出帮助剩余时间：99:56保存交卷退出帮助99:56保存交卷退出帮助保存交卷退出帮助 强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真
9、彩，小字体浏览强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览 【HNCE网上考试系统 v9.6】本套软件使用权属于：中原工学院 考试课程:高级语言程序设计（VB）考试时间:100分钟考场:第一考场考试日期:2010.02.15 考号：201322222222姓名：阵阵剩余时间：99:56保存交卷退出帮助考试课程:高级语言程序设计（VB）考试时间:100分钟考场:第一考场考试日期:2010.02.15 考号：201322222222姓名：阵阵剩余时间：99:56保存交卷退出帮助考试课程:高级语言程序设计（VB）考试时间:100分钟考场:第一考场考试日期:2010.0
10、2.15 考号：201322222222姓名：阵阵剩余时间：99:56保存交卷退出帮助考号：201322222222姓名：阵阵剩余时间：99:56保存交卷退出帮助考号：201322222222姓名：阵阵剩余时间：99:56保存交卷退出帮助剩余时间：99:56保存交卷退出帮助99:56保存交卷退出帮助保存交卷退出帮助 A BC DA B C D A B C D A B C D A B C D A B C D A B C D A B C DA BC DA BC DA BCD能以传递至方式传递A Double BCD DoubleB ACheckChangedC DA BC DB A以访问C仅可在类
11、以及子类的成员方法中DA BC DA BC DA BC DA BC DA BC D正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误正确错误【附图9】（2分）4、Visual http:/ i=3 To 27 Step 2 将循环13次。（1分）8、如果要得到数组指定维数的上界大小，则可以使用函数Ubound。（1分）9、过程调用中的参数传递有按值传递、按地址传递，其关键字分别是ByVal、ByRef。（1分）End IfEnd Sub（6分）15、根据题意，将程序补充完整。将用户输入的10个数显示到文本框textbox1中，用比较法按照从大到小排序，将排序后的结果显示到
12、文本框textbox2中。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(9) As IntegerDim i, j, t As IntegerFor i = 0 To 9a(i) = InputBox(请输入第 & i + 1 & 个数)textbox1.text = textbox1.text & a(i) & Space(2)NextFor i = 0 To8For j = i+1To 9If a(i)Then
13、t = a(i) : a(i) = a(j) : a(j) = tEnd IfNextNextFor i = 0 To 9textbox2.text = textbox2.text & a(i) & Space(2)NextEnd Sub（6分）16、根据题意，将程序补充完整。编写一个函数过程求包含10个元素的数组的最大值。产生一个由10个1，100元素组成的数组，在Button1的click 事件中调用此过程,求出最大值并显示在文本框TextBox2中。Private Function max(ByVal a() As Integer) As Integer,Dim i As Integer
14、max（0）For i = 1 To 9考号：201322222222姓名：阵阵剩余时间：99:56 保存交卷退出帮助强烈建议您使用IE5.0以上，屏幕分辨率800X600以上，真彩，小字体浏览大题独立部分：1.新建项目，在窗体上创建2个文本框(TextBox1,TextBox2)和2个命令按钮(Button1,Button2)。(1) 在属性窗口中设置:窗体标题栏为你的姓名，命令按钮上的文字分别为“计算”,“清除”。(2) 编写代码，要求：运行程序，在TextBox1文本框中输入若干英文字符。单击按钮“计算”，在TextBox2文本框中显示字符的个数，以及其中第3第8个字符。单击按钮“清除”
15、，清除文本框中的内容。【本题要求上传窗体文件】Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox2.Text = 字符个数为 & Len(TextBox1.Text) & vbCrLf & 第三到八个字母: & Mid(TextBox1.Text, 3, 6)End SubPrivate Sub Button2_Click(ByVal sender As System.Object,
16、 ByVal e As System.EventArgs) Handles Button2.ClickTextBox1.Text = TextBox2.Text = End SubEnd Class2.输入一个代表购物款的实数，判断并输出其对应的实际付款金额。其中，100元以下为“没有折扣”，100,500)元为“九五折”，500,1000)元为“九折”，1000元及其以上为“八五折”。添加2个TEXTBOX 1个BOTTONPublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
17、 System.EventArgs) Handles Button1.ClickDim a, b As Integera = Val(TextBox1.Text)If a 0 And a b = aEnd IfIf a = 100 And a b = 0.95 * aEnd IfIf a = 500 And a b = 0.9 * aEnd IfIf a = 1000 Thenb = 0.85 * aEnd IfTextBox2.Text = bEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As
18、System.EventArgs) Handles Button2.ClickEnd SubEnd Class1、新建项目，在窗体上创建1个标签(Label1)、2个命令按钮(Button1,Button2)。(1) 在属性窗口中设置:标签文字为你的姓名，1个命令按钮上的文字为“日期”，1个命令按钮上的文字为“粗体”。(2) 编写代码，要求：运行程序，单击按钮“日期”，窗体标题栏上显示系统当前日期(要求使用函数)。单击按钮“粗体”，将标签文字改为粗体。【本题要求上传窗体文件】（8分）创建1个标签(Label1)、2个命令按钮(Button1,Button2)Private Sub Button
19、1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = Today()End SubPrivate Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickLabel1.Font = New Font(http:/ Label1.Font.size, FontStyle.Bold) End Sub2、用
20、输入对话框InputBox输入一个正整数，判断其能否同时被5和17整除，如能则用标签输出“xxx能同时被5和17整除”，否则输出“xxx不能同时被5和17整除”。其中，标签中的“xxx”应显示为实际输入的数据。【本题要求上传窗体文件】Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b As Integera = Val(InputBox(请输入一个整数)If a Mod 5 = 0 Thenb = a Mod 17I
21、f b = 0 ThenLabel1.Text = a & 可以同时被5和17整除End IfElseLabel1.Text = a & 不可以同时被5和17整除End IfEnd Sub3、声明一个5行5列的二维数组，其元素由10,99之间的整数组成，要求计算主对角线及其上方三角形区域元素之和。要求：利用随机函数(随机数种子Randomize(2) 产生上述整数。【本题要求粘贴源程序与第一次运行结果】1064Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
22、 Button1.ClickDim a(4, 4), i, j As IntegerDim s, s1 As StringRandomize(2)For i = 0 To 4For j = 0 To 4a(i, j) = Int(Rnd() * 90 + 10)s = s & a(i, j) & Nexts = s & vbCrLfNexts = s & vbTabTextBox1.Text = ss1 = a(0, 0) + a(0, 1) + a(0, 2) + a(0, 3) + a(0, 4) + a(1, 1) + a(1, 2) + a(1, 3) + a(2, 2) + a(3,
23、 1) + a(3, 2) +a(3, 3) + a(4, 0) + a(4, 1) + a(4, 2) + a(4, 3) + a(4, 4)TextBox2.Text = s1End Sub1、新建项目，在窗体上创建1个命令按钮(Button1)、1个标签(Label1)和3个单选按钮(RadioButton1RadioButton3)(1)在属性窗口中设置:标签文字为你的姓名，命令按钮上的文字为“退出”，3个单选按钮上的文字分别为“16”、“18”、“28”。(2) 编写代码，要求：运行程序，单击单选按钮可相应改变标签文字的大小。单击命令按钮“退出”可关闭窗体。【本题要求上传窗体文件】P
24、ublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickMe.Close()End SubPrivate Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesRadioButton1.CheckedChangedLabel1.Font = New Font(La
25、bel1.Font.Size, 16)End SubPrivate Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesRadioButton2.CheckedChangedLabel1.Font = New Font(Label1.Font.Size, 18)End SubPrivate Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.
26、EventArgs) HandlesRadioButton3.CheckedChangedLabel1.Font = New Font(Label1.Font.Size, 28)End SubEnd Class2、用输入对话框InputBox输入一个正整数，判断其能否同时被5和17整除，如能则用标签输出“xxx能同时被5和17整除”，否则输出“xxx不能同时被5和17整除”。其中，标签中的“xxx”应显示为实际输入的数据。【本题要求上传窗体文件】Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.
27、EventArgs) Handles Button1.ClickDim a, b As Integera = Val(InputBox(请输入一个整数)If a Mod 5 = 0 Thenb = a Mod 17If b = 0 ThenLabel1.Text = a & 可以同时被5和17整除End IfElseLabel1.Text = a & 不可以同时被5和17整除End IfEnd Sub3、声明一个5行5列的二维数组，其元素由10,55之间的整数组成，要求分别计算第2行和第4列的数据之和。要求：利用随机函数(随机数种子Randomize(5)产生上述整数。【本题要求粘贴源程序与运
28、行结果】316Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a(4, 4), i, j As IntegerDim s As StringRandomize(5)For i = 0 To 4For j = 0 To 4a(i, j) = Int(Rnd() * 46 + 10)s = s & a(i, j) & Nexts = s & vbCrLfNexts = s & vbTabTe
29、xtBox1.Text = sTextBox2.Text = a(1, 0) + a(1, 1) + a(1, 2) + a(1, 3) + a(1, 4) + a(0, 1) + a(2, 1) + a(3, 1) + a(4, 1)End SubEnd Class3、有一个数列，其前二项分别为1、2，从第三项开始，每项均为其相邻的前二项之和的1/3。判断该数列从第几项开始小于0.0001。【本题要求粘贴源程序与运行结果】Public Function fact(ByVal n As Integer) As DoubleDim Count As IntegerCount = 2Dim A A
30、s Double, B As DoubleDim C As DoubleA = 1B = 2Do Until FalseC = (A + B) / 3If C Exit DoElseCount = Count + 1A = BB = CEnd IfLoopLabel1.Text = Countn = Countfact = BEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.ClickDim dd As Integerfact(dd)End Sub