计算机二级VB第一单元Word格式文档下载.docx

1、8.在软件测试设计中，软件测试的主要目的是（ ） A. 实验性运行软件 B.证明软件正确 C. 找出软件中全部错误 D.发现软件错误而执行程序9.索引属于（ ） A. 模式 B.内模式 C. 外模式 D.概念模式10.数据库系统的核心是（ ） A. 数据库 B.数据库管理系统 C. 模拟模型 D.软件工程11.激活菜单栏的快捷键是（ ）A.F10B.F4C.F5D.Ctrl12.Visual Basic集成的主窗口中不包括（ ）A.属性窗口B.标题栏C.菜单栏D.工具栏13.下列说法错误的是（ ）A.方法是对象的一部分B.在调用方法时，对象名是不可缺少的C.方法是一种特殊的过程和函数D.方法的

2、调用格式和对象属性的使用格式相同14.如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性？（ ）A.ValueB.VisibleC.EnabledD.Default15.能够获得一个文本框中被选取文本的内容的属性是（ ）A.TextB.LengthC.SeltextD.SelStart16.建立一个新的标准模块，应该选择哪个菜单下的“添加模块”命令？A.“工程”菜单B.“文件”菜单C.“工具”菜单D.“编辑”菜单17.下列语句的输出结果为（ ）Print Format（5689.36,000,000.000）A.5,689.36B.5,689.360C.5,689.3D.

3、005,689.36018.设有数组定义语句：Dim a（5） As Integer,List1为列表框控件。下列给数组元素赋值的语句错误的是A.a（3） =3B.a（3） =inputbox（input data）C.a（3） =List1.ListIndexD.a =Array（1,2,3,4,5,6）19.下列各种形式的循环中，输出“*”的个数最少的循环是（ ）A.a=5：b=8B.a=5：b=8 Do DO Print* Print* a=a+1 a=a+1 Loop While ab Loop Until ab b=b+1 a=a+1 Loop Loop20.下列有关子菜单的说法中，

4、错误的是（ ）A.除了Click事件之外，菜单项不可以响应其他事件B.每个菜单项都是一个控件，与其他控件一样也有其属性和事件C.菜单项的索引号必须从1开始D.菜单的索引号可以不连续21.当在滚动条内拖动滚动块时触发（ ）A.KeyUp事件B.keyPress事件C.Scroll事件D.Change事件22.设有声明语句（ ）Dim b（-1 To 10,2 To9,20 ） As Integer则数组b中全部元素的个数A.2310B.2016C.1500D.165823.设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown（KeyCode As In

5、teger,Shift As integer） Const Alt=4 Const Key_F2=&H71 altdown%=（Shift And Alt）0 f2down%=（KeyCode=Key_F2） If aItdown% And f2down% Then Text1.Text=BBBBB End IfEnd Sub上述程序运行后，如果按【Shift+F2】，则在文本框中显示得是（ ）A.Alt+F2B.BBBBBC.随机出几个数D.文本框平均内容无变化24.设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响

6、应鼠标右键菜单的是（ ）A.Private Sub Form_MouseDown（Button As Integer,Shift As Integer,_ X As Single,Y As Single） If Button=2 Then PopupMenu Bs,2 End SubB.Private Sub Form_MouseDown（Button As Integer,Shift As Integer,_ PopupMenu BsC.Private Sub Form_MouseDown（Button As Integer,Shift As Integer,_ PopupMenu Bs,0

7、D.Private Sub Form_MouseDown（Button As Integer,Shift As Integer,_ If （Button=vbLeftButton） Or （Button=vbRightButton） Then PopupMenu Bs25.下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则（ ）Private Sub Command1_Click（） CommonDialog1.CancelError=true CommonDialog1.flags=cdlCFEffects Or cdlDFBoth Comm

8、onDialog1.Action=4 CommonDialog1.ShowFont Text1.Font.Name=CommonDialog1.FontName Text1.Font.Size=CommonDialog1.fontSize Text1.Font.Bold=CommonDialog1.FontBold Text1.Font.Italic=CommonDialog1.FontItalic Text1.Font.Underline=CommonDialog1.FontUnderline Text1.FontStrikethru=CommonDialog1.FontStrikethru

9、 Text1.ForeColor=CommmonDialog1.ColorEnd SubA.Text1的字体不发生变化B.Text1的字体发生变化C.Text1的字体和颜色发生变化D.程序出错！26.要将名为MyForm的窗体显示出来，正确的使用方法是（ ）A.MyForm.ShowB.Show.MyFormC.MyForm LoadD.MyForm Show27.下列程序段的执行结果为（ ）a=5For k=1 To 0 a=a + kNext kPrint k;aA.-1 6B.-1 16C.1 5D.11 2128.下列程序段的执行结果为（ ） a=3 b=1 For I=1 To 3

10、f=a+b a=b b=f Print f Next IA.4 3 6B.4 5 9C.6 3 4D.7 2 829.下列程序段的执行结果为（ ） I=9 x=5 Do I=I+1 x=x+2 Loop Until I =7 PrintI=;I Printx=;xA.I=4x=5B.I=7x=15C.I=6x=8D.I=10x=730.以下程序段运行时从键盘上输入字符“-”，则输出结果为（ ） op =InputBox（op=） If op =+Then a=a +2 If op=-Then a=a - 2 Print aA.2B.-2C.0D.+231.以下程序段的输出结果为（ ） Dim

11、I,a（10）,p（3） k=5 For i=0 To 10 a（i） =i Next i For i =0 To 2 p（i）=a（i*（i+1） For i=0 To 2 k=k + p（i） * 2 Print kA.20B.21C.56D.3232.下列程序的执行结果为（ ） Private Sub Command1_Click（） Dim x As Integer,y As Integer x=12:y=20 Call Value（x,y） Print x;y End Sub Private Sub Value（ByVal m As Integer,ByVal n As Integer） m=m*2:n=n-5 Print m;nA.20 12 B.12 20 20 15 12 25C.24 15 D.24 12 12 20 12 1533.在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command3_Click（） Tcl 2 Tcl 3 Tcl 4 Sub Tcl（a As Integer） Static x As Integer x=x + a