VB二级考试模拟试题1附答案Word文件下载.docx

1、8. 若要浏览某个网页，则需要在浏览器的 中输入网址。【A】A.地址栏 B.标题栏 C.任务栏 D.状态栏9. 使用杀毒软件可以 。A.查出任何已感染的病毒 B.查出并清除任何病毒C.清除部分病毒 D.清除已感染的病毒10. 计算机操作系统的主要功能是 。【B】A.进行网络连接 B.管理计算机资源，方便用户使用C.实现数据共享 D.把高级语言的源程序代码转换为目标代码11. 在Visual Basic集成开发环境中，如果工具箱关闭，可在 菜单中操作使它可见。A.视图 B.窗口 C.文件 D.编辑12. Visual Basic 过程的编写是在 中进行的。A.窗体窗口 B.工程资源管理器窗口C.

2、属性窗口 D.代码编辑器窗口13. 在Visual Basic中，声明全局变量应该用 关键词。A.Dim B.Private C.Static D.Public14. 符合“见名知义”命名规则的“年龄”变量名是 。AP_MONTH B.P_AGE C.P_BIRTH D.P_NUM15. 仅删除字符串尾部空格的函数是 。A.Ltrim（） B.Trim（） C.Rtrim（） D.Mid（）16. 下列关于数据类型的描述，正确的是 。【B】*A.所有数据的类型都可以相互转换 B.一些数据类型可以自动转换C.字符串可以完整转换为数值 D.字符只能转换成ASCII码17. 在Visual Basi

3、c 表达式中，运算符的运算顺寻为 。A. 算术运算符字符运算符关系运算符逻辑运算符B. 逻辑运算符关系运算符字符运算符算术运算符C. 字符运算符算术运算符关系运算符逻辑运算符 D. 关系运算符逻辑运算符算术运算符字符运算符18. 能产生1到7之间随机整数（包括1和7）的表达式为 。A.Rnd*7 B.Int（Rnd*8）+1 C.Rnd*8+1 D.Int（Rnd*7+1）19. 若x为实数，下列函数调用错误的是 。A.Exp（x） B.Sgn（x） C.Sqr（x） D.Int（x）20. 下列正确的赋值语句是 。A. Z=B*B-4*C B.S/=R*R C.X-Y=2.17 D.4Z=Y

4、+3821. 不能使用print方法输出信息的对象是 。A.文本框 B.图片框 C.窗体 D.打印机22. 下列能正确输出“a=8”形式的语句是 。A.Print a = 3 + 5 B.Print “a =”;3+5C.Print “a =3+5” D.Print a =;23. 在Option Base 1 语句后，正好可以存放1个4*3矩阵的数组定义语句是 【C】A.Dim a（-2 To 0 ,2） As Integer B.Dim a（3,2） As IntegerC.Dim a（4,3） As Integer D.Dim a（-1 To -4,-1 To -3） As Intege

5、r24. 在程序运行时，可实现信息输入的控件是 。A.窗体 B.单选按钮 C.图片框 D.标签25. 确定控件在窗体上的位置的属性是 。A.Width和Hight B.Width和Top C.Top和Left D.Top和Hight26. 要是文本框可以显示多行文本，需设置 属性值为True。A.Enabled B.MultiLine C.Maxlenth D.Locked27. 要把一个命令按钮设置成不可见，应设置其Visible属性值为 。A.True B.False C.Default D.Cancel28. 窗体上有一个列表框控件list1,其中含有若干列表项，则 能表示当前被选中的列

6、表项内的内容。A.List1.List B.List1.ListIndex C.List1.Index D.List1.Text29. 若要取消窗体最大化按钮，需要设置它的 属性为false。A.AutoRedraw B.MinButton C.Enabled D.MaxButton30. 若要求在单行文本框中输入密码时只显示*号，则应该在该文本框的属性窗口中设置 。A.Text属性值为* B.Caption属性值为* C.PasswordChar属性值为* D.Password属性值为True31. 要清除PictureBox控件中的图形，可用 语句。A. Picture1.Picture

7、= LoadPicture（）B. Picture1.Picture = “”C. Picture1.Picture = LoadPicture（“”）D. Kill Picture1.Picture32. 若要使命令按钮具有快捷键功能，应在Caption属性值的快捷字符前添加 字符。A.# B. C.& D.*33. 在Visual Basic 的控件数组中，用于表示控件数组的各个元素的参数是 。A.Tag B.Index C.ListIndex D.Name34. 下列控件中，不能改变控件大小的控件是 。A.TextBox B.Label C.Frame D.Timer35. 若要改变窗体

8、的标题内容，应设置该窗体 属性的值。A.Caption B.Font C.Name D.Text36. 在Visual Basic中，菜单控件只有 事件。A.MouseUp B.MouseDown C.Click D.DblClick37. 如果要在菜单中添加一个分隔线，则应将其“标题”设置为 。A.= B.* C.& D.-38. 下列不能直接通过Visual Basic语句访问的数据文件是 。A.顺序文件 B.随机文件 C.数据库文件 D.二进制文件39. 下列不属于Visual Basic数据库访问技术的是 。A.DAO B.SQL C.RDO D.ADD40. 下列叙述中错误的是 。A

9、） 注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释或编译B） 注释语句可以放在代码中的任何位置C） 注释语句不能放在续行符的后面D） 代码中加入注释语句的目的是提高程序的可读性二，填空题（每题2分，共20分）1. Visual Basic 工程文件的扩展名是 *.vbp 2. Visual Basic 的三种工作模式是设计、运行和 调试 3. 表达式Abs（-34）+Sqr（100）*Int（-3.4）的值为 34 + 10*-4= -6 4. 代数式的Visual Basic表达式是 Abs（a+b）/（a*b） 5. 在Visual Basic中所有的控件对象必须是建立在

10、窗体 上，它是所有控件的容器。6. Label控件的Caption和 Name 默认的属性值相同。7. 在Visual Basic中，若数组作为被调用过程的参数，则只能通过 ByRef 方式进行传递。8. 以下程序实现每次单击按钮Command1时，标签Label1在窗体Form1中向右移动100个标准单位；当标签移出窗体右边界时，再次单击Command1，标签Label1回到窗体的右边界Private Sub Command1_Click（） If Label1.Left Form1.Width Then Label1.left=0 Else Label1.left=Label1.left+

11、100 End IfEnd Sub9. 以下程序功能是：把当前目录下的顺序文件smtext.txt 的内容读入内存，并在文本框Text1中显示出来。 Dim inData As String Text1.Text=“” Open “smtext.txt” For Input As #1 Do While Not EOF（1） Input #1,inData Text1.Text = Text1.Text & inData Loop Close #1三、阅读理解题（每小题4分，共20分） 1.执行下面过程后，窗体上显示的是 Else分支 Private Sub FormClick（） Dim x

12、 As Integer x = 2 Select Case x Case 1,3 Print “分支1” Case Is 4 Print “分支2” Case Else Print “Else分支” End Select End Sub 2.执行下面过程后，窗体上显示的是 a（2,2） + a（3,3）=2*2 + 3*3=4+9=13 Private Sub Form1Click（） Dim a （10,10） As Integer Dim i As Integer,j As Integer For i= 1 To 10 For j = 1 To 10 a（i ,j）= i* j Next

13、j Next i Print a（2,2） + a（3,3） End Sub3.执行下面过程后，窗体上显示的是 4 5 。 Option Base 1 Private Sub Form_Click（） Dim a As Variant Dim i As Integer,sum As Integer,x As Single a = Array（1,2,3,4,5） Sum = 0 For i = 1 To 5 Sum = Sum + a（i） Next i x = Sum/5 If a（i） x Then Print a（i）; End Sub4程序运行后，单击两次Command 1 按钮后，窗

14、体上显示的是 8 10 。 Private Sub Command1_Click（） Static x As Integer Dim i As Integer, y As Integer Cls For i = 1 To 2 y = y + x x = x + 2 Print x, y5.执行下面过程后，窗体上显示的是 24 。 Print Pd（4） Function Pd（ByVal y As Integer ） As Long If y = 1 Then Pd = 1Else Pd = y * Pd（y-1）End IfEnd Function四、编程应用1.编写程序，分别用InputB

15、ox 函数接收两个整数，在窗体中输出其中较大的数。（6分） num1 = Val（InputBox（输入数1） num2 = Val（InputBox（输入数2 If num1 num2 Then Print num1 Else Print num22.编写一个通用（或子程序）过程area，以实型变量r 作为形参，计算并在过程中输出圆的面积。（7分）Const PI = 3.1415926 Dim s As Single, ra As Single ra = InputBox（请输入半径） Call area（ra, s） Print sPublic Sub area（ByVal r As S

16、ingle, ByRef s） s = PI * r * r3.电力公司为合理调配某社区用电高峰，拟对该社区居民户每月用电情况进行统计。设定每隔50度用电量为一个统计区间，当大于等于500度时为一个统计区间（即0-49、50-99、100-149，、450-499、500以上）。试编程统计每个用电区间内的居民户数。要求：1）输入的用电量为整数； 2）输入负数时结束数据输入Private Sub Form_Click（） Dim a（10） As Integer num = InputBox（输入用电量 Print num; Do While num = 0 n = num 50 If n = 10 Then a（10） = a（10） + 1 a（num 50） = a（num 50） + 1 Loop Print For i = 0 To 10 If i = 10 Then Print =500的用户数为 & a（i） Print i * 50 & （i + 1） * 50 &的用户数为