VB复习
1、单项选择题
1、在VB中，下列关于控件的属性或方法中，搭配错误的有________个。
①Timer1.Interval
②List1.Cls
③Text1.Print
④List1.RemoveItem
⑤Vscroll1.Value
⑥Picture1.Print  (  )
  　A、0
  　B、1
  　C、2
  　D、3
2、若在一个应用程序窗体上，依次创建了CommandButton、TextBox、Label1等控件，则运行该程序显示窗体时，________会首先获得焦点。  (  )
  　A、窗体
  　B、CommandButton
  　C、Label1
  　D、TextBox
3、下面的表达试的值为真的是________。  (  )
  　A、Mid("Visual Basic",1,12)=Right("Programing Language Visual Basic",12)
  　B、"ABCRG" > "abcde"
  　C、Int(134.69) > Cint(134.69)
  　D、78.9/32.77 < = 97.5/43.97 AND -45.4 > 4.98
4、用于除去字符串左侧的空格的函数是__________。  (  )
  　A、Rtrim( )
  　B、Ltrim( )
  　C、LeftTrim( )
  　D、Trim( )
5、要使文本框能显示多行文字，则需设定它的____________属性为True。  (  )
  　A、Caption
  　B、PasswordChar
  　C、MultiLine
  　D、Seleted
6、窗体从加载到显示出来，下列最先发生的事件是____________。  (  )
  　A、Load
  　B、Resize
  　C、Activate
  　D、Paint
7、如果a是一个正实数，对x的第3位小数四舍五入的表达式是____________。  (  )
  　A、0.01*Int(a+0.005)
  　B、0.01*Int(a+0.05)
  　C、0.01*Int(100*(a+0.005)
  　D、0.01*Int(100*(a+0.05))
8、在设计列表框时，若实现输入多行文字的目的，应使用____________键实现文本的换行。  (  )
  　A、Enter
  　B、Alt+Enter
  　C、Ctrl+Shift+Enter
  　D、Ctrl+Enter
9、对于某对象的SetFocus与GotFocus描述正确的是________。  (  )
  　A、SetFocus是方法，GotFocus是事件
  　B、SetFocus是事件，GotFocus是事件
  　C、SetFocus是方法，GotFocus是方法
  　D、SetFocus是事件，GotFocus是方法
10、在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号________，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。  (  )
  　A、下划线
  　B、&
  　C、$
  　D、@
11、当在文本框输入"ABCD"四个字符时，结果是____________。<BR />Private Sub Textl_Change() <BR /> Print Text1; <BR />End Sub  (  )
  　A、ABCD
  　B、A(换行)B(换行)C(换行)D(换行)
  　C、AABABCABCD
  　D、A(换行)AB(换行)ABC(换行)ABCD(换行)
12、下面是计算1~100奇数的和的程序，请补充完整，填空应为_______。<br />Private Sub Command1_Click()<br /> Dim s As Long, x As Integer<br /> s = 0<br /> For x = ____________ Step -2<br /> s = s + x<br /> Next x<br /> Print s<br
/
>End Sub  (  )
  　A、100 To 1
  　B、1 To 100
  　C、99 To 1
  　D、1 To 99
13、下列符号常量的声明中，______________是不合法的。  (  )
  　A、Const a as single=1.1
  　B、Const a as integer="12"
  　C、Const a as double=sin(1)
  　D、Const a ="OK"
14、以下__________程序段可以实施X，Y变量值的变换.  (  )
  　A、Y=X:X=Y
  　B、Z=X:Y=Z:X=Y
  　C、Z=X:X=Y:Y=Z
  　D、Z=X:W=Y:Y=Z:X=Y
15、以下程序段的输出结果是____________。
Dim B(2, 2) As Integer
Dim i, j, t As Integer
For i = 1 To 2
For j = 0 To 2
B(i, j) = j
Next j
Next i
t = 1
For i = 0 To 2
For j = 0 To 2
t = t + B(i, B(j, j)
Next j
Next i
Print t  (  )
  　A、3
  　B、4
  　C、1
  　D、7
16、如下数组声明语句，则数组a包含元素的个数有____________。
Dim a(3 , -2 to 2 , 5)  (  )
  　A、120
  　B、75
  　C、60
  　D、13
17、下列程序：
Private Sub Form_Click( )
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
运行后输出的结果是__________。  (  )
  　A、1
  　B、15
  　C、90
  　D、120
18、在过程调用中，参数的传递可以分为________________和______________两种方式。(  )
  　A、按值传递 按地址传递
  　B、按地址传递 按参数传递
  　C、按参数传递 按值传递
  　D、按位置传递 按参数传递
19、要想在过程调用后返回两个结果，下面的过程定义语句合法的是______________。  (  )
  　A、Sub Procl ( ByVal n , ByVal m)
  　B、Sub Procl ( n , ByVal m)
  　C、Sub Procl ( n , m)
  　D、Sub Procl ( ByVal n , m)
20、可以在窗体模块的通用声明段中声明的是________________。  (  )
  　A、全局变量
  　B、全局常量
  　C、全局数组
  　D、全局用户自定义类型
21、在窗体Form1中用Public Sub Fun(x As Integer,y As Single)，定义过程Fun，在窗体Form2中定义了变量i为Integer,j为Single，若要在Form2的某事件过程中调用Form1中的Fun过程，则下列语句中，不正确的语句有____________个。 ①Call Fun(i,j) ②Call Form1. Fun(i,j) ③Form1.Fun(i),j ④Form1.Fun i+1,(j)  (  )
  　A、1
  　B、2
  　C、3
  　D、4
22、设有下列程序代码，在单击命令按钮时的输出结果是________。
Sub SS (ByVal x, ByRef y, ByVal z)
x=x+1
y=y+1
z=z+1
End Sub
Private Sub Command1_Click ( )
x=1: y=2 :z=3
Call SS (x,y,z)
Print x,y,z
End Sub  (  )
  　A、1 2 3
  　B、1 3 4
  　C、2 2 4
  　D、1 3 3
23、如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数
传递方式称为传递。 (  )
  　A、按值
  　B、按地址
  　C、ByRef
  　D、按形参
24、假定已定义了一个过程Sub Add(a As Single, b As Single)，则正确的调用语句是________。(  )
  　A、Add (12 , 12)
  　B、Call Add( 2 * x , Sin(1.57) )
  　C、Call Add x , y
  　D、Call Add(12 ,12, x)
25、以下有关变量作用域的说明中，错误的是 (  )
  　A、只有在标准模块中用语句说明的变量才是全局变量
  　B、在过程中不能使用Public语句说明全局变量
  　C、在标准模块的通用声明处可用语句说明模块级变量
  　D、在窗体的通用声明处可用>语句说明窗体级变量
26 、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。
①Public A(5) As Integer
②Public N As Integer
③Public St As String
④Private b() As Integer
A、2              B、3              C、4                D、1
27、以下有关数组的说明中，错误的是________。
A、根据数组说明的方式，可将数组分为动态数组和静态数组。
B、在过程中，不能用Private语句定义数组。
C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。
D、数组重新定维后，原有的数组元素内容将不予保留。
28、若在应用程序中用Private Sub Sub1(Xasinteger,YasSingle)定义了子程序Sub1，调用程序中的变量I、J均为Integer型，则正确调用子程序Sub1的Call语句是________。
①Call Sub1(I,J)
②Call Sub1(3.1415,1)
③Call Sub1(3.14,234)
④Call Sub1("245", "231.5")
A、①③        B、②③④      C、①②③          D、无
29、要想在过程调用后返回两个结果，下面的过程定义语句合法的是________________。
A. Sub Procl ( ByVal n , ByVal m)
B. Sub Procl ( n , ByVal m)
C. Sub Procl ( n , m)
  D. Sub Procl ( ByVal n , m)
30、用Msgbox "你好", vbokonly, "Hello"显示的消息对话框窗口的标题是________。  (  )
  　A、你好
  　B、vbokonly
  　C、Ok
  　D、Hello
31、下面程序段，显示的结果是____________。
Dim x
x=Int(Rnd)+5
select Case x
Case 5 print "优秀"
Case 4 print "良好"
Case 3 print "通过"
Case Else print "不通过"
End Select  (  )
  　A、优秀
  　B、良好
  　C、通过
  　D、不通过
32、下面程序段运行后，显示的结果是____________。
Dim x
If x Then Print x Else Print x +1  (  )
  　A、1
  　B、0
  　C、-1
  　D、显示出错信息
32、运行以下程序段，输出结果      。
Dim a(1 To 10)
Dim p(1 To 4)
k = 5
For i = 1 To 4
  p(i) = i * 2
Next i
For i = 1 To 4
  k = k + p(i) * 2
Next i
Print k  (  )
  　A、48
  　B、32
vb 字符串转数组  　C、30
  　D、45
33、MsgBox函数返回值的类型为____________。  (  )
  　A、整体数值
  　B、字符串
  　C、变体
  　D、数值或字符串
34、下面语句错误的是________。  (  )
  　A、If a=1 And b=2 Then
  　c=3
  　End If
  　B、If a=1 Then
  　c=2
  　Else If a=2 Then
  　c=3
  　End If
  　C、If a=1 Then
  　c=2
  　ElseIf a=2 Then
  　c=3
  　End If
  　D、If (a=1,2,3 ) Then c=2
35、使用________方法可将新的列表项添加到一个列表框中。  (  )
  　A、Print
  　B、AddItem
  　C、Clear
  　D、RemoveItem
36、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。  (  )
  　A、框架控件(Frame)或图象控件(Image)
  　B、组合框(ComboBox)或图象控件(Image)
  　C、组合框(ComboBox)或图片框(PictureBox)
  　D、框架控件(Frame)或图片框(PictureBox)
37、一个可执行的VisualBasic中应用程序至少要包括一个________。  (  )
  　A、标准模块
  　B、类模块
  　C、窗体模块
  　D、辅助模块
38、日期类型（Date）在程序中运用时，日期类型必须用______符号括起来。  (  )
  　A、#
  　B、@
  　C、＄
  　D、%
39、数学关系3<=x<10表示成正确的VB表达式为____________。  (  )
  　A、3<=x<0
  　B、3<=x AND x<10
  　C、x>=3 OR x<10
  　D、3<=x AND <10
40、下列循环能正常结束循环的是____________。  (  )
  　A、i=5
  　Do
  　i=i+1
  　Loop Until i<0
  　B、i=1
  　Do
  　i=i+2
  　Loop Until i=10
  　C、i=10
  　Do
  　i=i+1
  　Loop Until i>0
  　D、i=6
  　Do
  　i=i-2
  　Loop Until i=1
41、对正实数X的第四位小数四舍五入的VB表达式是________。  (  )
  　A、0.001*Int(x+0.0005)
  　B、0.001*(1000*x+0.5)
  　C、0.001*Int(1000*x+5)
  　D、0.001*Int(1000*(x+0.0005))
42、函数Cint(-3.5)，Int(-3.5)，Fix(-3.5)的值分别是________。  (  )
  　A、-3，-4，-3
  　B、-4，-4，-3
  　C、-3，-4，-4
  　D、-4，-3，-3
43、单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。  (  )
  　A、框架控件(Frame)或图象控件(Image)
  　B、组合框(ComboBox)或图象控件(Image)
  　C、组合框(ComboBox)或图片框(PictureBox)
  　D、框架控件(Frame)或图片框(Pictur
eBox)
44、执行语句"Print format(5459.478,"##,##0.00")"，正确的输出结果是________。  (  )
  　A、5459.48
  　B、5,459.48
  　C、5,459.478
  　D、5,459.47
45、VisualBasic程序设计时常用的Print、Cls属于________。  (  )
  　A、属性
  　B、打印字库
  　C、方法
  　D、事件
46、下列语句中不能正常执行的是________。  (  )
  　A、print +32758+10
  　B、print 5+9=15
  　C、print "65"+12
  　D、print "65"&12
47、用于除去字符串右侧的空格的函数是__________。  (  )
  　A、Rtrim( )
  　B、Ltrim( )
  　C、LeftTrim( )
  　D、Trim( )
48、当对象失去焦点时，将会发生____________事件。  (  )
  　A、GetFocus
  　B、LostFocus
  　C、Focus
  　D、SetFocus
49、将文本框的ScrollBars属性设置为非零值，却没有效果，原因是____________。  (  )
  　A、文本框中没有内容
  　B、文本框的MultiLine属性值为False
  　C、文本框的MultiLine属性值为True
  　D、文本框的Locked属性值为True
50、对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个Timer事件。  (  )
  　A、Name
  　B、Enabled
  　C、Caption
  　D、Interval
51、使用_______方法，可将新的项加到一个列表框中。  (  )
  　A、Print
  　B、AddItem
  　C、Clear
  　D、RemoveItem
52、在使用菜单编辑器创建菜单时，可在菜单名称中首字母前插入符号________，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。  (  )
  　A、下划线
  　B、&
  　C、$
  　D、@
53、在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有____________。可使文本框Text3中显示46。  (  )
  　A、Text3. Text=Text1. Text & Text2. Text
  　B、Text3. Text=Val(Text1. Text)+Val(Text2.Text)
  　C、Text3. Text=Text1. Text+Text2.Text
  　D、Text3. Text=Val(Text1. Text) & Val(Text2.Text)
54、VB也提供了结构化程序设计的三种基本结构，三种基本结构是________。  (  )
  　A、递归结构、选择结构、循环结构
  　B、选择结构、过程结构、顺序结构
  　C、过程结构、输入、输出结构、转向结构
  　D、选择结构、循环结构、顺序结构
55、在过程中有语句ForI=N1 To N2 Step N3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。 ①N1=N1+I ②N2=N2+N3 ③I=I+N3 ④N3=2*N3  (  )
  　A、①②
  　B、①②③
  　C、③
  　D、①②③④
56、下面程序的内层循环次数是________。
For i=1 TO 3
For j=1 TO i
For k=j TO 3
...
Nex
t k
Next j
Next i  (  )
  　A、3
  　B、14
  　C、9
  　D、21
57、语句If x=1Then y=1，下列说法正确的是____________。  (  )
  　A、x=1和y=1均为赋值语句
  　B、x=1和y=l均为关系表达式
  　C、x=1为关系表达式，y=1为赋值语句
  　D、x=1为赋值语句，y=l为关系表达式
58、下列程序：
Private Sub Form_Click( )
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
运行后输出的结果是__________。  (  )
  　A、1
  　B、15
  　C、90
  　D、120
59、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click( )
Static A As Integer
Static B As Integer
Cls
A = 2
B = B+3
A= 3+A
print A, B
End Sub
程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为___________。  (  )
  　A、5 3
  　B、6 3
  　C、6 9
  　D、5 9
60、在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。
①Public A(5) As Integer
②Public N As Integer
③Public St As String
④Private b() As Integer  (  )
  　A、2
  　B、3
  　C、4
  　D、1
61、以下程序的输出结果是_________。
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer, p(3) As Integer
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub  (  )
  　A、33
  　B、28
  　C、35
  　D、37
62、以下程序输出的结果是____________。
Dim a
a=Array(1,2,3,4,5,6,7)
For i=Lbound(a)To Ubound(a)
a(i)= a(i)*a(i)
Next i
Print a(i)  (  )
  　A、49
  　B、0
  　C、不确定
  　D、程序出错
63、要分配存放如下方阵的数据，____________数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9  (  )
  　A、Dim a(9) As Single
  　B、Dim a(3，3) As Single
  　C、Dim a(-1 To l，-5 To -3) As Single
  　D、Dim a(-3 To -1，5 To 7) As Integer
64、在窗体的通用声明处有语句Dim A() As Single，以下在某事件过程中重定义此数组的一组正确语句是：____________。  (  )
  　A、ReDim A(3,3)
    　ReDim A(4,4) As Integer
  　B、ReDim A (3,3)
    ReDim Preserve A (4,4)
  　C、ReDim A(3)
    ReDim A(3,3) As Integer
  　D、ReDim A (3,3)
    ReDim Preserve A(3,4)
65、运行程序产生死循环时，按________键可以终止程序的运行。  (  )
  　A、Ctrl+C
  　B、Ctrl +Z
  　C、Ctrl+Break
  　D、单击停止运行按钮
66、下列程

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