武汉理工大学 课程名称：计算机技术基础（VB）

同学情

课程名称：计算机技术基础（VB）            专业班级：【本科】
单选题        谋学网（www.mouxue.com）        写出下面程序的输出结果        编程题        总分
40        20        10        30        100
备注:   学生不得在试题纸上答题(含谋学网（www.mouxue.com）、选择题等客观题)

一、单选题（本题共20道小题，每小题2分，共40分）
1、要将名为MyForm的窗体显示出来，正确的使用方法是（   ）
A、MyForm.Show
B、Show.MyForm
C、MyForm　Load
D、MyForm　Show
2、如果一个变量未经定义就直接使用，则该变量的类型为（   ）
A、Integer     B、Byte      C、Boolean      D、Variant
3、以下叙述中错误的是（   ）。
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定
4、一个数组说明为Dim a(5，1 to 5) As Integer，则该数组共有（   ）个元素。
A、25     B、36      C、30      D、不确定
5、下列叙述中正确的是（   ）。
A、在窗体的Form_Load事件过程中定义的变量是全局变量
B、局部变量的作用域可以超出所定义的过程
C、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D、在调用过程时，所有局部变量被系统初始化为0或空字符串
6、在在窗体上添加一个命令按钮Command1和两个名称分别为Label1和 Label2的标签，然后编写如下事件过程：
Private X As Integer
Private Sub Command1_Click（   ）
X = 5: y = 3
Call proc(X, y)
Label1.Caption = X
Label2.Caption = y
End Sub
Sub proc(ByVal a As Integer, ByVal b As Integer)
X = a * a
y = b + b
End Sub
程序运行后，单击命令按钮，则两个标签label1和label2中显示的内容分别是（   ）。
A、25,3     B、25,6       C、5,3       D、5,6
7、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（   ）。
A、Value      B、Default       C、Cancel      D、Caption
8、设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是（   ）。
A、True        B、False          C、1            D、出错信息
9、设a=3,b=5，则以下表达式值为真的是（   ）。
A、a>=b And b>10          B、(a>b)Or(b>0)
C、(a<0)or(b<0)            D、(-3+5>a)And(b>0)
10、在在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如 下事件过程：
Private Sub Command1_Click（）
Dim x As Integer, y As Integer, z As Integer
x = 5
y = 7
z = 0
Text1.Text = ""
Call p1(x, y, z)
Text1.Text = Str(z)
End Sub
Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c = a + b
End Sub
程序运行后，单击命令按钮得到的结果是（   ）。
A、12       B、0       C、Str(z)       D、没有显示结果
11、以下属于Visual Basic合法的数组元素是（   ）
A、x8       B、x［8］     C、s(0)       D、v[8]
12、为了装入一个Visual Basic应用程序，应当（   ）。
A、只装入窗体文件（.frm）
B、只装入工程文件（.vbp）
C、分别装入工程文件和标准模块文件（.bas）
D、分别装入工程文件、窗体文件和标准模块文件
13、以下关于焦点的叙述中，错误的是（   ）。
A、如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B、当文本框失去焦点时，触发LostFocus事件
C、当文本框的Enabled属性为False时，其Tab顺序不起作用
D、可以用TabIndex属性改变Tab顺序
14、赋值语句：a=123+MID(“123456”,3,2)执行后，a变量中的值是（   ）。
A、“12334”      B、123      C、12334       D、157
15、为了给x,y,z这3个变量赋初值1，下面正确的赋值语句是（   ）。
A、x=1：y=1：z=1         B、x=1,y=1,z=1
C、x=y=z=1               D、xyz=1
16、以下关于窗体的描述中，错误的是（   ）。
A、执行Unload Form1语句后，窗体Form1消失，但仍在内存中
B、窗体的Load事件在加载窗体时发生
C、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
D、窗体的Height、Width属性用于设置窗体的高和宽
17、在一行内写多条语句时，每个语句之间用（   ）符号分隔。
A、，            B、：               C、、                D、；
18、引用列表框的最后一项应使用（   ）。
A、List1.List(List1.ListCount-1)      B、List1.List(List1.ListCount)
C、List1.List(ListCount)            D、List1.List(ListCount-1)
19、下列可作为 Visual Basic中的变量名的是（   ）。
A、Filename        B、A(A+B)        C、254D            D、Print
20、如果在程序中要将a定义为静态变量，且为整型数，则应使用的语句是：（   ）
A、Redim a As Integer        B、Static a As Integer
C、Public a As Integer         D、Dim a As Integer
二、谋学网（www.mouxue.com）（本题共10道小题，每小题2分，共20分）
1、语句Line(1000,1000)-Step(2000,1500),vbRed,BF的含义是_____________.
2、当x=2时，语句if x=2 then Print x=2 的结果值是_____________.
3、Static Private Sub cmdSum_Click()
   Dim Sum as integer
     Sum=2*Sum+1
End Sub
问：第三次单击命令按钮cmdSum后，Sum的值为_____________.
4、语句Print Format(“Hello World”,“>”)的输出结果是___________。
5、InputBox函数返回值的类型为__________。
6、一菜单项名为MenuTerm，则语句____________________将使该菜单项失效。
7、如果有声明 Dim a(15) As Integer，则该数组共有___________个元素。
8、执行语句：c$=“Glad”& Mid$(“Nice to meet you”,5,3)，则变量c$的值为_________。
9、找出被3、5、7除，余数均为1的最小的5个正整数。
Private Sub Command1_Click()
  Dim countn%, n%
  n = 1: countn = 0
  Do
    n = n + 1
    If ______________________Then
        Print n
        countn = countn + 1
    End If
  Loop ______________
End Sub
10、语句Print Format$(32548.5,“###,###.###”)的输出结果是_____________。
三、写出下面程序的输出结果（本题共2道小题，每小题5分，共10分）
1、Private Sub Command1_Click()
  Dim m%, n%
  m = Int(InputBox("input an integer"))            //输入12
  n = Int(InputBox("input another integer"))         //输入8
  Print gcd(m, n)
End Sub
Public Function gcd%(m%, n%)
  Dim t%
  If [ m<n  ] Then t = m: m = n: n = t
  Do
    r = m Mod n
    If r = 0 Then Exit Do
    m = n
    [ n=r]
  Loop
  gcd = n
End Function
2、Private Sub Form_Click()
Dim a(4, 4) As Integer
For i = 0 To 2
For j = 0 To 2
a(i, j) = i * j
Next j
Next i
For i = 0 To 4
For j = 0 To i
                        Print a(i, j);
Next j
Print
Next i
End Sub
四、编程题（本题共3道小题，每小题10分，共30分）
1、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x<y<z
2、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。
3、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。

shutongty37

不错