全国计算机等级VB考试笔试部分Word文档格式.docx

1、D、软件可行性研究的依据9、下面属于墨盒测试的方法是A、语句覆盖B、逻辑覆盖C、边界值分析D、路径覆盖10、下面不属于软件设计阶段任务的是A、软件总体设计B、算法设计C、制定软件确认测试计划D、数据库设计11、以下叙述中错误的是A、.vbp文件是工程文件，一个工程可以包含.bas文件B、.frm文件是窗体文件，一个窗体可以包含.bas文件C、.vbp文件是工程文件，一个工程可以由多个.frm文件组成D、.vbg文件是工程组文件，一个工程组可以由多个工程组成12、以下叙述中错误的是A、在Visual Basic的窗体中，一个命令按钮是一个对象B、事件是能够被对象识别的状态变化或动作C、事件都是由

2、用户的键盘操作或鼠标操作触发的D、不同的对象可以具有相同的方法13、设x=3.3，y=4.5，表达式x-Int（x）+Fix（y）的值是A、3.5B、4.8C、4.3D、4.714、窗体上有一个名称为Command1的命令按钮，其中部分代码如下：Private Sub Command1_Click（ ） Dim a（10） As Integer Dim n As Integer Call calc（a,n）End Subcalc过程的的首行应该是A、Sub calc（x（） As Integer,n As Integer）B、Public Sub calc（x（） As Integer）C、P

3、rivate Sub calc（a（n） As Integer,n As Integer）D、Public Sub calc（a As Integer, n As Integer）15、设有如下程序Sub f（x As Integer，ByVal y As Integer） x=2*x y=y+xPrivate Sub Command1_Click（） Dim a As Integer , b As Integer a=6 ; b=35 call f（a,b） print a,b程序运行后，单击命令按钮Command1，输出结果为A、6 47B、12 47C、6 35D、12 3516、以下叙

4、述中正确的是A、窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B、在工程中只有启动窗体可以建立菜单C、窗体名称必须与窗体文件的名称相同D、程序一定是从某个窗体开始执行的17、窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下： Static x As Variant n=0 x=array（1,2,3,4,5,6,7,8,9,10） While n=4 x（n）=x/（n+5） Print x（n）; N=n+1Wend运行程序，单击命令按钮Command1，窗体上显示的是A、12345B、 C、23456D、6234518、窗体上有一个名称为Label1的标签和一个名

5、称为Command1的命令按钮，命令按钮的单击事件过程如下：Private Sub Command1_click（） x=InputBox（“输入x: ”，0） y=InputBox（“输入y: Label1.caption=x+y运行程序后，单击命令按钮，在输入对话框中分别输入2，3，运行的结果是A、程序运行有错误，数据类型不匹配B、程序运行有错误，InputBox函数的格式不对C、在Label1中显示5D、在Label1中显示2519、窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称cmdDraw的控件数组。窗体外观如图所示（从上到下的3个命令按钮下标分别为0、1、2）。

6、有事件过程如下：Private Sub cmdDraw_Click（Index As Integer） Select Case Index Case 0 Shape1.shape=0 Case 1 Shape1.shape=1 Case 2 Shape1.Shape=3 End Select当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程。以下叙述中正确的是A、Case2分支有错，此Case后面表达式的值应该与赋给Shape1.Shape的值一致B、程序运行有错，控件数级别的下标应该从1开始C、Index是形状控件的参数D、程序正常运行，形状控件被显示为圆形20、如果一个正整

7、数从高位到低位上的数字依次递减，则称其为降序数（如：9632是降序数，而8156则不是降序数）。现编写如下程序，判断输入的正整数是否为降序数。 Dim n As Long Dim flag As Boolean n=InputBox（“输入一个正整数”） s=Trim（Str（n） For i=2 To Len（s） If Mid（s,i-1,1） x=x-3 x=iif（int（x/5）=x/5,x+2,x） loop print xA、0B、-1C、-2D、-324、以下关于通用对话框中叙述中，错误的是A、若没有指定InitDir属性值，则起始目录为当前目录B、用一个通用对话框控件可以建立

8、几种不同的对话框C、FileTitle属性指明了文件对话框中所选择的文件名D、文件对话框用属性FilterIndex指定默认过滤器，它是一个从0开始的整数25、窗体上有一个名为Command1的命令按钮，并有如下程序：Private Command1_Click（） Dim m As Integer , n As Integer m=InputBox（“输入第一个数”） n=InputBox（“输入第二个数”） Do While mn Do While m m=m-n Loop Do While nm n=n-m Print m该程序的功能是A、求数值m和n的最大公约数B、求数值m和n的最小公

9、倍数C、求数值m和n 中的较大数D、求数值m和n中的较小数26、窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下： n=add（5,10） Print nFunction add（v1 As Integer , v2 As Integer , Optional v3） As Integer If Not IsMissing（V3） Then add=v1+v2+v3 Else add=v1+v2End Function运行程序，单击命令按钮，以下叙述中正确的是A、程序不能正常运行，因为函数add的参数定义有错B、程序不能正常运行，因为函数定义与函数调用语句的参数个

10、数不匹配C、程序能正常运行，结果是在窗体上显示15D、程序能正常运行，结果是在窗体上显示510V327、目录列表框Path属性所表示的含义是A、当前驱动器或指定驱动器上的路径B、当前驱动器或指定驱动器上的某目录下的文件列表C、根目录下的文件列表D、指定路径下的文件列表28、以下关于函数过程中叙述中错误的是A、函数过程一定有返回值B、函数过程一定有参数C、函数过程可以在窗体模块和标准模块中定义D、函数过程参数的类型与返回值的类型无关29、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Public Eunm s a=4 b=3End Enum Dim x As Integer

11、x=a If x=3 Then MsgBox “Pass!”运行程序，其结果是A、运行错误，因为Enum定义有错B、运行错误，因为x=a类型不匹配C、运行正常结束，不显示任何信息D、运行正常，显示内容为“Pass！”的信息框30、设有如下程序Option Base 1Private Sub Form_Click（ ） Dim a（5） As String , i As Integer For i=1 To 5a（i）=Chr（Asc（“A”）+i）Call f（a,i） Next iSub f（ta（） As String , n As Integer） Dim i As Integer Fo

12、r i=1 To Print ta（i）;对上述程序，以下叙述中正确的是A、程序有错，因为在过程f的定义中数组参数格式不正确B、程序可正常运行，输出内容的第一行是一个字母“A”C、程序可正常运行，输出内容的第一行是一个字母“B”D、程序可正常运行，输出内容的第一行是数字6531、窗体上有一个名称为Picture1的图片控件，一个名称为Timer的计时器控件，其Interval属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：Private Sub Timer1_Timer（ ） Static n As Integer n=n+1 If （n/5）=Int（n/5） And Pi

13、cture1.LeftForm1.Width Then Picture1.Left=Picture1.Left+100分析以上程序，以下叙述中正确的是A、程序中没有设置5秒钟的时间，所以不能每隔5秒移动图片框一次B、此程序运行时图片框位置保持不动C、此程序运行时图片框移动方向与题目要求相反D、If语句条件中“Picture1.LeftForm1.Width”用于限制图片框移动的范围32、窗体上有一名称为Command1的命令按钮，其事件过程如下： Dim i As Integer,j As Integer , k As Integer Dim s As Double s=0 ; i=1 ; j

14、=0 ; k=-1 Do While im Then m=a（i）Next If 【 13 】ThenPrint “没有满足条件的数”Print “满足条件的数是”;9. 在窗体上画一个名称为Timer1的计时器控件，其Enabled属性值为False，Interval属性值设为100。要求程序运行后，当鼠标在窗体上移动时，沿鼠标经过的轨迹画出一系列半径为100的小圆。其效果如图所示。Dim a As Integer, b As IntegerPrivate Sub Form_【 14 】（Button As Integer,Shift As Integer,X As Single,Y As

15、Single） a=X b=Y Timer1.Enabled=【 15 】Private Sub Timer1_timer（ ）Form1.Cirle（a,b）,100 以（a,b）为圆心画一个半径为100的圆答案78910ADCB11121314151617181920212223242526272829303132333435填空题：1. 62. 203. 逻辑独立性4. 选择5. 系统6. Opt1（i）7. X8. List1.selected（i）9. Val（List1.list（i）10. Str （s）11. 18112. And13. m=014. MouseMove15. true