VB期中考试题
一、填空题
1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名
3、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
4、设置控件背景颜的属性名称是______________________。
5、 
vb采用什么的编程机制  x=InputBox(___      __,              ,        )
6、写出显示下图信息框的MsgBox函数
MsgBox(            ,              ,              )
  二、选择题
1、下面不是VB工作模式的是(    )
  A.设计模式 B.运行模式 C.汇编模式 D.中断模式
2、可视化编程的最大优点是(      )
  A.具有标准工具箱        B.一个工程文件由若干个窗体文件组成
  C.不需要编写大量代码来描述图形对象        D.所见即所得
3、下列不能打开属性窗口的操作是(      )
A.执行“视图”菜单中的“属性窗口”命令        B.按F4键
C.按Ctrl+T      　  　D.单击工具栏上的“属性窗口”按钮
4、下列可以打开立即窗口的操作是(      )
  A.Ctrl+D        B.Ctrl+E        C.Ctrl+F      D.Ctrl+G
5、Visual Basic的编程机制是(    )
  A.可视化      B.面向对象      C.面向图形        D.事件驱动
6、以下能够触发文本框Change事件的操作是(      )
  A.文本框失去焦点 B.文本框获得焦点
  C.设置文本框的焦点 D.改变文本框的内容
7、应用程序设计完成后，应将程序保存，保存的过程是(      )
  A.只保存窗体文件即可
  B.只保存工程文件即可
  C.先保存工程文件，之后保存窗体文件
  D.先保存窗体文件(或标准模块文件)，之后还要保存工程文件
8、任何控件都具有的属性是(      )
  A.TEXT        B.CAPTION        C.NAME        D.FORECOLOR
  5、决定控件上文字的字体、字形、大小及效果的属性是(      )
  A.TEXT        B.CAPTION        C.NAME      D.FONT
9、在窗体上建立了多个控件，如TEXT、LABEL1、COMMAND1，若要使程序一运行焦点就定位在COMMAND1控件上，应将COMMAND1控件的(      )设置为0
  A.INDEX          B.TABINDEX        C.TABSTOP      D.ENABLED
10、运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的TEXT属性进行赋值从而改变了文本框的TEXT属性值时，将触发文本框的(      )事件
  A.CLICK      B.DBLCLICK      C.GOTFOCUS        D.CHANGE
11、以下窗体名中哪些是非法的窗体名(      )。
  A._aform        B.3frm        C.f_1        D.frm 5 E.f_1*
12、一个名称为myfrm,标题属性为form1的窗体，它的单击事件名应为(      )。
  A. myfrm_click        B.form1_click    C.form_click        D.me_click
13、执行下面语句：print “5*20” 的结果是(      )。
  A.“5*20” B.出现错误信息 C.5*20 D.100
14、下列语句代码不可正常执行的是(      )。
  A、Print 32765 + 3        B、Print 5 + 7 = 14
  C、Print 256 / 128        D、Print "14" + 12   
15、当用户单击命令按钮时，(        )属性可以使得命令按钮对激发事件无效。
  A. Name        B.Enabled        C.Default      D.Cancel
16、下列语句中的(        )语句可以用来正确地声明一个动态数组。
  A.Private A(n) as integer      B.Dim A() as integer
  C.Dim A(,) as integer          D.Dim a(1 to n)
16、以下选顶中，不是Visual Basic 6.0默认控件名称的是
  A.Command1      B.Text1      C.Option1      D.Labe1
17、表达式Fix(－26.99)+Int(24.56)的值为
  A.－2      B.－3 　  　C.－1      D.0
18、用下面语句定义的数组元素个数是
  Dim a(－3 T0 3，2)as Integer
  A.6　      　B.12　    　C.14　      　D.21
19、在Visual Basic 6.0的立即窗口中，表达式Print 5>2的输出是
  A.1  B.0  C.True  D.False
  20、Visual Basic 6.0变量名Num@的类型是
  A.字符串类型    B.单精度型    C.整型    D.货币
三、写出运算或程序执行的结果
1、设s1,s2均为字符串变量，s1=”Visual Basic”,s2=”b”,写出下面关系表达式中结果。
  A.Mid(s1,8,1)>s2 B.Len(s1)<>2*Instr(s1,”l”)
  C.Chr(66) & Right(s1,4)=”Basic”
  D.Instr(Left(s1,6),”a”)+60>Asc(Ucase(s2))
2、求出下列表达式的运算结果;
  A.Mid("visual basic", 1, 12) = Right("Programming language visual basic", 12)
  B. "ABCRG" >= "abcde" C. Int(134.69) >= CInt(134.69)
  D. 78.9 / 32.77 <= 97.5 / 43.87 And -45.4 > -4.98
  E. Str(32.345) = CStr(32.345)
3、Private Sub Form_Click()
  Dim x As Integer, y As Integer
  Dim z As Single
  x = 0.2
  y = 1
  If (x >= 1) Then
  z = Log(x)
  ElseIf x >= 0 And x < 1 And y >= 0 Then
  z = 2 * x - y
  Else
  z = Exp(x + y)
  End If
  Print "z=" + Str(z)
  End Sub
4、Private Sub Form_Click()
  Dim ch As String, i As Integer
  ch = "c"
  Select Case ch
  Case "A", "a"
  i = 1
  Case "B", "b"
  i = 2
  Case "C", "c"
  i = 3
  Case "D", "d"
  i = 4
  Case Else
  i = 5
  End Select
  Print "运行结果" + Ucase(ch) + Str(i)
  End Sub
5、运行下面的程序，单击窗体后在窗体上的内容是(    );若将程序中的A语句与B语句的位置互换，再次执行程序，单击窗体后在窗体上显示的内容是(      )
  Private Sub Form_Click()
  Dim a As Integer, b As Integer
  a = 0: b = 0
  Do While a <= 8
  a = a + 2 'A语句
  b = b + a * a 'B语句
  Loop
  Print a, b
  End Sub
6、窗体上显示的结果：
  Private Sub Form_Click()
  Dim p As Integer, i As Integer, n As Integer
  p = 2: n = 20
  For i = 1 To n Step p
  p = p + 2
  n = n - 3
  i = i + 1
  If p >= 10 Then Exit For
  Next i
  Print i, p, n
  End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。