《VB语言程序设计》期末试卷A及答案
一、选择题：（20分，每题2分）
1、下面______是不合法的整型常数。
　（A）123% （B）123& 　（C）&O123 （D）%123
2、下列函数中______， 函数返回的值是数值型的。
　（A）Instr （B）Mid　（C）Spc （D）Chr
3、下面______不是类型说明符。
　（A）& （B） $ 　（C） * （D） @
4、 对于窗体，下面______属性在程序运行时其属性设置起作用。
　（A）MaxButton （B）BorderStyle 　（C）Name   （D）Left
5、 类是对象的抽象，对象则是类的具体化。在窗体上建立的一个控件称为______。
　 （A）对象   （B）容器 　 （C）实体   （D）类
6、若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。
　（A）BackColor （B）BorderStyle 　（C）ForeColor （D）BackStyle
7、用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
　（A）可视画化程序设计 （B）事件驱动编程机制 　（C）过程化程序实际方法 （D）非过程化程序设计语言
8、文本框没有______属性。
　（A）Enabled （B）Visible 　（C）BackColor （D）Caption
9、不论何控件，共同具有的是______属性。
　（A）Text （B）Name 　（C）ForeColor （D）Caption
10、要使Form1窗体的标题栏显示"欢迎使用VB"，以下______语句是正确的。
　（A）Form1.Caption="欢迎使用VB"
　（B）Form1.Caption='欢迎使用VB '
　（C）Form1.Caption=欢迎使用VB
　（D）Form1.Caption="欢迎使用VB
二、根据条件写出相应的VB表达式。（20分，每题5分）   
1、 表示x是5的倍数或是9的倍数的逻辑表达式为。
2、产生一个"C"～"L"范围内的大写字符表达式为。
3、 取字符变量S中，第5个字符起的6个字符的表达式为。
4、 表示10≤x＜20的关系表达式为。
三、要分配存放12个元素的整型数组，下列数组声明(下界若无，按默认规定)哪些符合要求？若不符合要求指出错误。（10分，每题2分）
(1) n=12
Dim a(1 To n) As Integer
　
(2) Dim a%( )
  n=11
  ReDim a(n)
(3) Dim a%[2,3]
(4) Dim a(1,1,2) As Integer
 
(5)　Dim a!( )
  ReDim a(3,2) As Integer
 
四、写出程序运行后的结果（10分，每题5分）
　1、　Private Sub Command1_Click()
  　Dim x$, n%
  　n = 20
  　x=""
  　Do While n <> 0
    a = n Mod 2
    n = n \ 2
    x = Chr(48 + a) & x
  　Loop
  　Print x
  End Sub
结果：   
2、Private Sub Command1_Click()
    A = 0
    For M = 1 To 10
      A = A + 1
      B = 0
      For J = 1 To 10
        A = A + 1
        B = B + 2
      Next J
    Next M
    Print A; B
  End Sub
结果：
五、问答题：（20分，每题5分） 
1、 叙述建立一个完整的应用程序的过程。
编程语言vb是什么
答：
2、 将数字字符串转换成数值，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换用什么函数？
答：
3、 简述子过程与函数过程的共同点和不同之处。（10分）
答：
六、利用VB编写程序，实现如下功能：（20分）
1、 分别统计1—100中，满足3的倍数、7的倍数的数各有多少？（5分）
2、利用MsgBox函数完成如下图所示效果：（5分）
3、利用随机数生成两个矩阵，A矩阵30—70范围，B矩阵101—135范围，将两个矩阵相加结果放入C矩阵中。效果如图所示：（10分）
答  案
一、选择：D A C  B  A      D  B  D  B  A
二、根据条件写出相应的VB表达式。（20分，每题5分）   
1、 表示x是5的倍数或是7的倍数的逻辑表达式为。
    x mod 5 = 0 or x mod 7 =0
2、产生一个"C"～"L"范围内的大写字符表达式为。
Int (Rnd * 10 + 67)
3、 取字符变量S中，第5个字符起的6个字符的表达式为。
Mid (s$, 5 , 6)
4、 表示10≤x＜20的关系表达式为。
x>=10 and x <20
三、要分配存放12个元素的整型数组，下列数组声明(下界若无，按默认规定)哪些符合要求？若不符合要求指出错误。（10分，每题2分）
(1) Dim a(1 To n) As Integer    n 不能为变量
　
(2) Dim a%( )
  n=11
  ReDim a(n) 符合要求
(3) Dim a%[2,3]    不能用[ ]
(4) Dim a(1,1,2) As Integer  符合要求
 
(5)　Dim a!( )    a 不能为单精度 
四、写出程序运行后的结果（10分，每题5分）
　1、　结果：10100   
2、结果：110  20
五、问答题：（20分，每题5分） 
1、叙述建立一个完整的应用程序的过程。
答：建立用户界面的对象；对象属性的设置；对象事件过程及编程；运行和调试程序；保存程序。
2、将数字字符串转换成数值，用什么函数？取字符串中的某几个字符，用什么函数？大小写字母间的转换用什么函数？
答：Val( C )  Left(C,N) Right(C,N) Mid(C,N1[,N2])  LCase( C )  UCase( C)
3、简述子过程与函数过程的共同点和不同之处。（10分）
答：共同点：命名规则、形参列表形式的规定是相同的。
区别：1）以“Function”保留字开始的为函数过程，是用户自定义的函数，函数名有返回值；以“Sub”保留字开始的为子过程，完成一定的操作功能，子过程名无返回值。2）使用时区别：一般若过程有一个返回值时，使用函数过程直观；当过程无返回值或有多个返回值时，习惯用子过程。
六、利用VB编写程序，实现如下功能：（20分）
1、Dim i, m, n As Integer
For i = 1 To 100
If (i Mod 3 = 0) Then m = m + 1
If (i Mod 7 = 0) Then n = n + 1
Next i
Print "m="; m; "n="; n
2、Private Sub Form_Load()
i = MsgBox("密码错误", 5 + 48, "警告")
End Sub
3、Private Sub Form_Click()
Dim a%(3, 3), b%(3, 3), c%(3, 3)
Dim i%, j%
Picture1.Print "产生矩阵结果"
For i = 0 To 3
  For j = 0 To 3
  a(i, j) = Int(Rnd * 41 + 30)
  b(i, j) = Int(Rnd * 35 + 101)
  c(i, j) = a(i, j) + b(i, j)
  Picture1.Print Tab(j * 6); c(i, j);
  Picture2.Print Tab(j * 5); a(i, j);
  Picture3.Print Tab(j * 6); b(i, j);
      Next j

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