VB题库工大.docx

1、VB题库工大一、判断 共10题 （共计10分）第1题 Shape控件和Line控件可以在窗体中移动,因此它们具有Move方法. 答案：N第2题 Visual Basic程序的运行可以从Main()过程启动,也可以从某个窗体启动. 答案：Y第3题图片框的属性Enabled设置为FALSE, 图片框上的控件仍可响应用户操作. 答案：N第4题若已在窗体中加入了一个通用对话框:要求在运行时,通过ShowOpen打开对话框时,只显示扩展名为 DOC 的文件,则对通用对话框的 Filter的属性设置应该是: (*.DOC)| ( .DOC) . N第5题设计菜单中每一个菜单项分别是一个控件,每个控件都有自

2、己的名字. 答案：Y第6题清除list1列表框对象的内容的语句是list1.cls. 答案：N第7题图片框的Move方法不仅可以移动图片框,而且还可以改变该图片框的大小,同时也会改变该图片框有关属性的值. 答案：N第8题当窗体的ScaleTop=0,ScaleLeft=0时,这个窗体Top和Left值也是0. 答案：N第9题框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y第10题通用对话框只能用SHOW方法进行调用. 答案：N 二、单项选择 共10题 （共计10分）第1题用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见.A:Hide B:Checked C:Visi

3、ble D:Enabled 答案：C第2题定时器的Interval属性以()为单位指定Timer事件之间的时间间隔.A:分 B:秒 C:毫秒 D:微秒 答案：C第3题要在图片框P1中打印字符串 HowAreYou ,应使用语句().A:Picture1.Print= HowAreYou B:P1.Picture=LoadPicture( HowAreYou )C:P1.Print HowAreYou D:Print HowAreYou 答案：C第4题下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置 D:不同控件的属性

4、项都完全一样 答案：C第5题启动VisualBasic后,系统为用户新建的工程起一个名为()的临时名称.A:工程1 B:窗体1 C:工程 D:窗体 答案：A第6题设a=10,b=5,c=1,执行语句Printabc后,窗体上显示的是().A:True B:False C:1 D:出错信息 答案：B第7题MSGBOX函数中有4个参数,其中必须写明的参数是().A:指定对话框中显示按钮的数目 B:设置对话框标题 C:提示信息 D:所有参数都是可选的 C第8题应用程序设计完成后,应将程序保存,保存的过程是().A:只保存窗体文件即可 B:只保存工程文件即可 C:先保存工程文件,之后保存窗体文件D:先

5、保存窗体文件(或标准模块文件),之后还要保存工程文件 答案：D第9题改变控件在窗体中的左右位置应修改该控件的()属性.A:Top B:Left C:Width D:Right 答案：B第10题VB认为下面()组变量是同一个变量.A:A1和a1 B:SUM和SUMMARY C:AVER和AVERAGE D:A1和A_1 答案：A三、程序填空 共3题 （共计30分）第1题 【程序填空】功能：以下程序的功能如(图1)。-Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox( 请输入a的值 )b = In

6、putBox( 请输入b的值 )c = InputBox( 请输入c的值 )d = b * b - 4 * a * cp = -b / (2 * a)If d = 0 Then*SPACE* If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p*SPACE* 【?】 Print x1= ; x1, x2= ; x2*SPACE*【?】 q = Sqr(-d) / (2 * a) Print x1= ; p; + ; q; i , x2= ; p; - ; q; i End IfEnd Sub答案： 1

7、). d 0 或 0 10 Then *SPACE* y = Sqr(x) 【?】 Else y = 2 * x 3 + 6 End If Print yEnd Sub答案： 1). y 2). InputBox 3). y = 0 4). + Sin(x)四、程序改错 共3题 （共计30分）第1题 【程序改错】题目:设窗体中有图片框Pic1，现要求在其中绘制10个同心圆， 然后将此图以Test.BMP作文件名存入磁盘。-Option ExplicitPrivate Sub Command1_Click() Dim X As Integer Dim Y As Integer Dim I As

8、Integer Dim rad(9) As Integer X = Pic1.ScaleWidth / 2 Y = Pic1.ScaleHeight / 2 *FOUND* For I = 1 To 9 rad(I) = 500 * Rnd Next I I = 9 *FOUND* Do Until I 1 Pic1.Circle (X, Y), rad(I), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) *FOUND* I = I + 1 Loop SavePicture Pic1.Image, Test.BMP End Sub答案： 1). for i=0 t

9、o 9 或 for i=0 to 9 step 1 2). Do Until I i 3). I = I - 1 或 i=-1+i第2题 【程序改错】题目：从计算机输入三个数 , 找出中间数-Option ExplicitPrivate Sub FindMidNum() Dim x As Integer, y As Integer, z As Integer, A As Integer x = InputBox( PLEASE INPUT THE FIRST NUMBER ) y = InputBox( PLEASE INPUT THE SECOND NUMBER ) z = InputBox

10、( PLESSE INPUT THE THIRD NUMBER ) *FOUND* If x y Then A = x x = y y = A End If *FOUND* If y = z Then Print y *FOUND* ElseIf x = z Then Print z Else Print x End IfEnd SubPrivate Sub Form_Click() FindMidNumEnd Sub答案： 1). If x x Then 2). If y = z Then 或 If z = z Then 或 ElseIf z = x Then第3题 【程序改错】题目：输出4

11、0以内能够被3整除的数，要求输出结果为5 个数一行。-Option ExplicitPrivate Sub Form_Click()ClsDim x As IntegerDim i As Integer*FOUND*i = 1For x = 1 To 40If (x / 3) = (x 3) Then*FOUND* Print x i = i + 1End If *FOUND* If i Mod 3 = 0 Then PrintEnd IfNext xEnd Sub答案： 1). i = 0 2). Print x; 3). if i mod 5=0 then五、程序设计 共2题 （共计20分

12、）第1题 【程序设计】题目：编写函数fun其功能是：根据整型形参m，计算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5)例如：若m=9，则应输出：1.168229要求：函数中用到的中间变量必须声明为Single类型。-答案：- Dim y As Double Dim i As Integer For i = 0 To m y = y + 1 / (i + 5) Next Fun = y- 第2题 （10.0分） 题号:488 【程序设计】题目： (事件)单击窗体。(响应)已知sum=1/2!-1/4!+1/6!-1/8!+1/10!,请将sum结果值输出到窗

13、体上。使用do while.loop语句完成程序-答案：-Dim i As IntegerDim n As Integeri = 1p = 1Do While i bc后,窗体上显示的是().A:True B:False C:1 D:出错信息 答案：B第5题 任何控件都具有的属性是().A:TEXT B:CAPTION C:NAME D:FORECOLOR 答案：C第6题 当事件能被触发时,()就会对该事件作出响应.A:对象 B:程序 C:控件 D:窗体 答案：A第7题下列叙述正确的是().A:对象是包含数据又包含对象数据进行操作的方法的物理实体B:对象的属性只能在属性窗口中设置C:不同的对象

14、能识别不同的事件D:事件过程都要由用户点击对象来触发 答案：C第8题 下列关于设置控件属性的叙述正确的是().A:用户必须设置属性值 B:所有的属性值都可以由用户随意设定C:属性值不必一一重新设置 D:不同控件的属性项都完全一样 答案：C第9题表达式2+3*45-SIN(X+1)/2中最先进行的运算是().A:45 B:3*4 C:x+1 D:SIN 答案：C第10题一个对象可以执行的动作和可被对象识别的动作分别称为().A:事件、方法 B:方法、事件 C:属性、方法 D:过程、事件 答案：A三、程序填空 共3题 （共计30分）第1题 【程序填空】下面过程max()用于求3个数中最大值，利用这

15、个过程求5个数中最大值。-Private Sub Form_Click()Print 5个数34、124、68、73、352的最大值是： max1 = max(34, 124, 68)*SPACE*max1 =【?】Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)*SPACE*If 【?】 Then m = aElse m = bEnd If*SPACE*If 【?】 Then max = mElse max = cEnd IfEnd Function答案： 1). max(max1, 73, 352) 2).

16、 ab 或 b c 或 c = 0 And a 0 Then *FOUND* root1 = (Sqr(work) / (2 * a) *FOUND* root2 = (Sqr(work) / (2 * a) Debug.Print 有二个实根 + Str$(root1) + , + Str$(root2) Else Debug.Print 无实根! End IfEnd Sub答案：1). work = b 2 - 4 * a * c 或 work = b *b - 4 * a * c 2). root1 = (-b + Sqr(work) / (2 * a) 或 root1 = ( Sqr(work) -b ) / (2 * a) 或 root1 = (-b + Sqr(work) / ( a*2) 3). root2