南京工程学院vb题库10套.docx

1、南京工程学院vb题库10套南京工程学院vb题库。试卷编号：8956所属语言：Visual Basic试卷方案：09-10-2程序设计基础VB模拟试卷总分：100分共有题型：6种一、判断 共5题 （共计10分）第1题 （2.0分）三种基本控制结构是:顺序结构、选择结构和循环结构.答案：Y第2题 （2.0分）欲在PictureBox控件上设置其它控件,可以通过把窗体上原已设计好的控件拖动到PictureBox控件上来实现.答案：N第3题 （2.0分）如果在过程调用时使用按地址传递参数,则在被调过程中不可以改变实参的值.答案：N第4题 （2.0分）用For循环写的程序不能用While循环来写.答案：

2、N第5题 （2.0分）Timer是时钟控件的唯一事件.答案：Y二、单项选择 共20题 （共计40分）第1题 （2.0分）函数Len(Str(Val(123.4)的值为().A:11B:5C:6D:8答案：C第2题 （2.0分）在中断状态下可以运行代码,也可以在运行状态中作为输出结果的窗口称为().A:本地窗口B:立即窗口C:观察窗口D:栈窗口答案：B第3题 （2.0分）表达式Len(123程序设计ABC)的值是A:10B:14C:20D:17答案：A第4题 （2.0分）有如下程序代码： Private Sub Form_MouseDown(Button As Integr ,Shift As

3、Integer , X As Single,Y As Single) FillColor=QBColor(Int(Rnd*15) FillStyle=Int(Rnd*8) Circle(x,y),250 End Sub 该程序的功能是：A:鼠标拖曳时在窗体中构造一个圆B:双击鼠标时在窗体中构造一个圆C:单击鼠标时在窗体中构造一个圆D:加载时在窗体中构造一个圆答案：C第5题 （2.0分）执行以下程序段后，变量c的值为() a=Visual Basic Programing:b=Quickc=b & UCase(Mid(a,7,6) & Right(a,11)A:Visual BASIC Prog

4、ramingB:Quick Basic ProgramingC:QUICK Basic ProgramingD:Quick BASIC Programing答案：D第6题 （2.0分）、/、Mod、*等4个算术运算符中,优先级最低的是().A:B:/C:ModD:*答案：C第7题 （2.0分）参与运算的两个表达式均为True,运算结果也为True,则该逻辑运算符为:A:ANDB:IMPC:NOTD:XOR答案：A第8题 （2.0分）在文本框中欲使掩码符(如*)起作用,必须设置MultiLine属性值为().A:FalseB:TrueC:-1D:1答案：A第9题 （2.0分）若要使命令按钮不可操

5、作,要对()属性进行设置.A:EnabledB:VisibleC:BackColorD:Caption答案：A第10题 （2.0分）当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件,这三个事件发生的顺序是().A:KeyPress、KeyDown 、KeyUpB:KeyDown、KeyUp、KeyPressC:KeyDown、KeyPress、KeyUpD:没有规律答案：C第11题 （2.0分）将调试通过的工程经文件菜单的生成.exe文件编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是().A:运行的机器上无VB系统所需的动态连接库B:缺少.f

6、rm窗体文件C:该可执行文件有病毒D:以上原因都不对答案：A第12题 （2.0分）为了使列表框中的项目按字母顺序排列,应设置哪个属性?A:ListB:SortedC:StyleD:Text答案：B第13题 （2.0分）单击滚动条两端的任一个滚动箭头,将触发该滚动条的()事件.A:ScrollB:KeyDownC:ChangeD:Dragover答案：C第14题 （2.0分）下列哪个变量的取法是不正确的().A:sTmeB:T_TempC:T12%D:T_12答案：C第15题 （2.0分）函数InStr(VB程序设计教程,程序)的值为().A:1B:2C:3D:4答案：C第16题 （2.0分）数

7、学关系3x10表示成正确的VB表达式为A:3=x10B:3=x AND x=3 OR x10D:3=x AND x Then Print a(i); Next iEnd Sub程序运行后,单击命令按钮,在窗体上显示的内容是A:1 2B:1 2 3C:3 4 5D:4 5答案：D第18题 （2.0分）与传统的程序设计语言相比,Visual Basic最突出的特点是().A:结构化程序设计B:程序开发环境C:事件驱动编程机制D:程序调试技术答案：C第19题 （2.0分）在窗体上画一个名称为Command1的按钮,并有下面程序,当按下Command1按钮后,程序输出的结果是Private Sub C

8、ommand1_Click() Dim a%, b% a = 50: b = 100 Print 调用前, A=; a, B=; b Swap a, b Print 调用后, A=; a, B=; bEnd SubPrivate Sub Swap(ByVal x%, y%) Dim t% t = x: x = y: y = tEnd SubA:调用前A=50 B=100调用后A=50 B=100B:调用前A=50 B=100调用后A=100 B=50C:调用前A=50 B=100调用后A=50 B=50D:调用前A=50 B=100调用后A=100 B=100答案：C第20题 （2.0分）若要

9、禁止窗体被用户移动,通过设置可达此要求的窗体的属性是().A:MaxButtonB:MoveableC:MoveD:ControlBox答案：D三、程序填空 共1题 （共计10分）第1题 （10.0分）Option Explicit-【程序填空】-功能： 本程序实现功能：将顺序文本文件 “MYFILE.TXT” 的 内容一个字符一个字符地读入文本框txtTest中-Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = *SPACE* Open App.Path & MYFILE.TXT For 【?】 As #1

10、 *SPACE* Do While 【?】 EOF(1) Input #1, InputData *SPACE* txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub答案：=(答案1)=Input=(答案2)=Not=(答案3)=InputData四、程序改错 共1题 （共计10分）第1题 （10.0分）-【程序改错】-题目：随机产生n个两位正整数（n由输入对话框输入，且n0）， 求出其中的偶数之和，并在标签框Label1上显示。-Option ExplicitPrivate Sub Command1_Click() Dim n As

11、Integer Dim i As Integer, sum As Long Dim rnddat As Integer n = Val(InputBox(Please input a integer, Input N value) *FOUND* sum = n If n 0 Then For i = 1 To n *FOUND* rnddat = (Int(90 * Rnd) Me.Print rnddat; *FOUND* If rnddat / 2 = 0 Then sum = sum + rnddat End If Next i Label1.Caption = sum End IfE

12、nd Sub答案：=(答案1)=sum=0=(答案2)=rnddat = (10 + Int(90 * Rnd)=或=rnddat = ( 10 + Int(90 * Rnd)=(答案3)=If rnddat Mod 2 = 0 Then=或=If rnddat / 2 = int(rnddat/2) Then=或=If rnddat / 2 = cint(rnddat/2) Then五、程序设计 共1题 （共计20分）第1题 （20.0分）-【程序设计】-题目： (事件)单击窗体。 (响应)求sum=1+4+4+16+64+1024.前8项的和, 请将sum结果值输出到窗体上。使用 do w

13、hile.loop语句完成程序-答案：-Dim i As IntegerDim s1 As LongDim s2 As Longi = 1s1 = 1: s2 = 4sum = sum + s1 + s2 Do While i = 3 s1 = s1 * s2 s2 = s1 * s2 sum = sum + s1 + s2 i = i + 1 LoopPrint sum-六、VB窗体设计 共1题 （共计10分）第1题 （10.0分）-【窗体设计】-题目：界面上部放置一标签，标签内容为“一身正气铸警魂”， 按图菜单编辑器内容，设计一个可以改变窗体中标签字号 及颜色的菜单程序，程序运行界面如图2所示。菜单项属性如下表。菜单项 名称 快捷键字号(&S) fontsize.36号 Size1 Ctrl+A.48号 Size2 Ctrl+B.- G.退出 exit Ctrl+X 颜色(&C) color .红色 red Ctrl+C.蓝色 blue Ctrl+D各控件属性设置如下表：对象名称 Name属性 Caption属性 窗体 默认 默认 标签 label1 一身正气铸警魂 -