一、选择题
1.对象是类的实例，对象的三要素不包含_______。
A). 属性B). 过程C). 方法D). 事件
2.在VB.NET中，对象名、过程名、变量名等应遵循标识符命名规则。下列合法的变量名是_______。
maxlength是什么意思A). B). 23a C). pi.r D). a_23
3.对于VB.NET，下列说法不正确的是_______。
A). 仅能开发Windows窗体应用程序B). .NET的核心是.NET框架
C). 事件驱动的编程机制D). VB.NET是基于事件和对象
4.要使窗体的标题为“走马灯程序”，应修改窗体的_______属性。
A). Name B). Items C). Tip D). Text
5.语句 Num *= 3+2 代表的意思是_______。
A). Num=3 B). Num=5 C). Num=Num*3+2 D). Num=Num*(3+2)
6.运行程序时，系统自动执行窗体的_______事件过程。
A). Click B). Closed C). Load D). GotFocus
7.在过程内部定义的局部变量，仅在声明它的_______中有效。
A) 方法B) 过程C) 属性D) 对象
8.若使用Dim A(100) As Integer 语句声明了数组A，下列引用错误的是_______。
A). A(0) = 2 B). A(1) = -28 C). A(56) = A(-10) D). A(100) = A(0)+A(55)
9.以下定义常量正确的语句是_______。
A). Const Num$= #VB.NET# B). Const C As String = " "
C). Const str$ = VB.NET D). Const a As Long = "VB.NET"
10.在下列运算符中，优先级最高的是_______。
A).乘、除（*、/）B). 整除（\）C). 求余（Mod）D). 加、减（+、-）
11.表达式 123 + "100 " & 100 的值为_______。
A). 223100 B). 123100100 C). 323 D). 123200
12.对于文本框控件，如果要能够多行显示，应修改文本框控件的_______属性值为True。
A). MaxLine B). MaxLength C). MultiLine D). SelLength
13.下列控件中，Text属性是只读的是_______。b
A.组合框
B.列表框
C.复选框
D.单选按钮
14.在VB.NET中，运算符“+”既可以用于加法运算，又可以用于字符串连接运算。执行下面的代码，
消息框中输出的结果分别是_______。
Dim x$, y%
x = 123 : y = 456
MsgBox(x + y)
MsgBox(x & y)
A). 123456 123456 B). 579 579
C). 123456 579 D). 579 123456
15.要使文本框成为密码输入框，一般应修改文本框的_______属性。
A). PasswordChar属性B). PasswordChar属性和MaxLength属性
C). PasswordChar属性和MultiLine属性D). PasswordChar属性和Lines属性
16.下列代码的输出结果是_______。
Dim x As Single, y As Integer
x = 14.88 \ 2 : y = 14.88 / 2
MsgBox(Str(x) & Str(y))
A). 7.44 7 B). 7 7 C). 7.44 7.44 D). 7 7.44
17.下列表达式 -3 ^ 2 + 100 Mod 5 的值是_______。
A). 1 B). 4 C). 9 D). -9
18.执行下列代码后，变量a、b、c的值分别为_______。
Dim a, b, c As Integer
a = Int(-3.67) :
b = Fix(-3.67) :
c = Math.Round(-3.67)
A). -4 -3 -4 B). -3 -4 -3
C). -4 -3 -3 D). -3 -4 -4
19.从函数过程退出，并返回到主调过程，可使用语句_______。
A). Exit Sub B). Exit Do C). Exit Function D). Exit For
20.数组的_______方法可以用来获得指定维度的大小。
A). GetLength B). Count C). GetUpperBound D). Length
21.多分之结构的Case语句，下列错误的是_______。
A). Case 1 , 5 , 7 , 9 B). Case 8 To 10 C). Case 10 To 2 D). Case Is < “A”
22.有如下代码段，执行下列的代码后，数组a的元素个数为_______。
Dim a%(5), i%, s%
For i = 1 To a.GetUpperBound(0)
a(i) = 10 - i
s += a(i)
Next
ReDim Preserve a%(6)
a(i) = s
A). 5 B). 6 C). 7 D). 11
23.执行上题代码后，数组元素的值分别为____D___。
A). 10 9 8 7 6 5 B). 0 9 8 7 6 5
C). 10 9 8 7 6 5 45 D). 0 9 8 7 6 5 35
24.如果变量 a=2、b="abc"、c="acd"、d=5，则表达式 a<d OR b>c AND b<>c 的值为_______。
A) True B) False C) Yes D) No 逻辑值排除cd
25.下面不正确的赋值语句是_______。
A) x = 30-y B) y = r.r C) y = x+30 D) y = x \ 3
26.有下列程序段，其中存在着1个错误，发生在_______语句。
Const pi = 3.14!
Dim i%, s!
i = 4.6
pi = 3.14159
If i Then s = pi * i * i Else s = 1
MsgBox(s)
A). Const pi = 3.14! B). i = 4.6 C). pi = 3.14159 D). If i Then s = pi * i * i Else s = 1
27.如下数组声明语句，正确的是_______。
A). Dim a%(,) B). Dim b%(4) = {1, 2, 3, 4, 5}
C). Dim c%(-2) D). Dim d%( ) = {{1, 2, 3}, {4, 5, 6}}
28.执行下列代码段，消息框输出的结果是___A____。
Dim A%(5)
Dim i%, s$
s = ""
For i = 0 To 5
A(i) = 10 - i
Next
For i = 5 To 0 Step -2
s += Trim(Str(A(i)))
Next
MsgBox(s)
A). 579 B). 975 C). 56789 D). 98765
29.下列循环语句中在任何情况下都至少执行一次循环体的是_____C______。
A）Do While <；条件> B）While <；条件>
循环体循环体
Loop Wend
C）Do D）Do Until <；条件>
循环体循环体
Loop Until <；条件> Loop
30.InputBox函数返回值的类型是______。
A）数值型 B）字符串 C）对象型 D）数值或字符串
31.Msgbox函数的返回值是______。
A）整型 B）字符串 C）对象型 D）数值或字符串
32.有下列语句序列：
Dim str$,a$,b$,c$
str=“hello and world”
a= mid(str,1,5)
b=MicroSoft.VisualBasic.Right(str,5)
c=InputBox(a,b,100)
上述语句执行后，对话框中的提示信息为______
A)hello B. world C . and D.100
33.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是___A___
A) x=1 : y=1 : z=1 B) x=1 , y=1 , z=1 C) x=y=z=1 D) xyz=1
34.程序代码段如下：
Dim a%, b%, x%, y%, k%
a = 1 :
b = 2 : x = 10 : y = 100
k = IIf(a <= b, x, y)
MsgBox(k)
在消息框中显示的消息内容为______
A）100 B）10 C）2 D）1
35.下面程序运行后，在消息框中显示的内容是______
Dim k%
If k+100 Then msgbox(k+1) else msgbox(k)
A） 0 B）1 C）-1 D）显示出错信息
36.对于语句 If x=y Then a=b ，下列说法正确的事______
A)x=y和a=b均为关系表达式 B) x=y和a=b均为赋值语句
C) x=y是赋值语句，a=b是关系表达式 D)x=y是关系表达式，a=b是赋值语句
37.设有以下循环结构
Do
循环体
Loop Until <；条件>
则以下叙述中正确的是_____________。
A）若"条件"是一个为0的常数，则一次也不执行循环体
B）"条件"可以是关系表达式、逻辑表达式或常数
C）循环体中必须使用Exit Do语句
D）如果"条件"总是为True，则不停地执行循环体
38.程序段如下：
Dim x% = Int(Rnd()) + 2
Select Case x
Case 5 : MsgBox("Level A")
Case 4 : MsgBox("Level B")
Case 3 : MsgBox("Level C")
Case Else : MsgBox("Level D")
End Select
上述程序段显示的结果是_____________
A)Level A B) Level B C) Level C D) Level D
39.程序代码段如下：
Dim k as integer
for k=1 to 5 step 2
k=k+3
next
msgbox(k)
上述代码执行完毕后，在消息框中显示的消息是_____________
A）3 B）4 C）5 D）6
40.下面定义过程语句说明合法的是_______。d
A. Sub f1(ByVal n(2) As Integer)
B. Sub f1(ByVal n() As Integer) As Integer
C. Function f1过程名(ByVal f1形参As Integer) As Integer
D. Function f1(ByVal n As Integer)
41.程序代码段如下：
10： dim i%,j%
20： for i=1 to 5 step 2
30： for j=3 to 9 step 2
40： n=n+1
50： next
60： next
上述代码段执行过程中，语句30和语句40执行的次数分别是_____________
A）3 12 B）12 12 C）3 4 D） 4 4
42.用于声明应用程序所有模块中都能使用的变量的语句是_____________
A）Public B）Private C）Dim D）Static
43.对于Function函数过程，下列说法正确的是_______。
A.过程体中，语句“函数名=表达式”和语句“Return 表达式”完全等价
B.调用函数过程时，（不一定）必须作为表达式或表达式的一部分
C.执行“Exit Function”语句，将立即退出所在的Function过程
D.如果不对“函数名”赋值，Function过程将不具有返回值
44.要想从子过程调用后，返回3个结果，下面子语句说明符合要求的是_____D________
A) sub f1(byVal a%, byval b %, byval c% )
B) sub f1(byRef a%, byval b %, byval c% )
C) sub f1(byRef a%, byRef b %, byval c% )
D）sub f1(byRef a%, byRef b %, byRef c% )
45.Rnd函数不可能为下列_______值。
A) 0 B) 1 C) 0.1234 D) 0.0005
46.下列叙述正确的是_____
A）可以通过将interval赋值为0，以使得计时器停止工作两个都要满足
B）可以通过将计时器的Enabled属性设置为True，以使得计时器停止工作
C）要计时器定时触发tick事件，只需将interval属性设置为True
D）将计时器的Enabled属性设置为True，计时器就能定时触发tick事件。
47.若要获知列表框中列表的总项目，可通过_____ 属性值来得到。
A）List B）text C) Count D)items
48.将数据项“China”添加到列表框List1中，成为排在最前面的第1项，语句为_____
A）List1.Items.Insert(0, "china") 下标在前面B) List1.Items.Insert("china",0)
C) List1.Items.add(0, "china") D) List1.Items.add( "china",0)
49.组合框Combox1中有4个项目，能删除最后一个项目的语句是_____
A）Combox1.Items.RemoveAt(0) B) Combox1.Items.RemoveAt(4)
C)Combox1.Items.RemoveAt(Combox1.items.Count-1) D) Combox1.Items.Remove(3)
二、填空题
1.在ListBox中，如果没有选项被选中时____selectedindex____属性的值为-1。
2.在VB.NET中最基本的对象是___窗体______，它是应用程序的基石，是其他控件的容器。
3.删除字符串前导的空格的函数是___Ltrim_（）___。
4.函数Strings.Len("Today is Sunday")的运算结果是___15____。
5.执行A="123" +123 + True 语句后，变量A的值是___245____。
6.VB程序的三种基本结构是：顺序、选择和____循环____。
7.声明数组时, 数组元素下标的下界为____0____，不能改变。
8.判断x 是3 或5的倍数的表达式为_______x mod 3 = 0 or x mod 5 =0___。
9.静态（Static）变量的特点是再次调用时______值不变____。
10.调用子过程或函数过程时，实参的个数、____类型____ 、位置必须和形参一致。
11.Visual Basic.NET 中有一种控件具有文本框和列表框的特点，这种控件是_组合框____。
12.从ListBox1中一次性删除所有列表项的方法是_______items.clear（）______。
13.如果每隔2秒触发一次定时器事件，则定时器的Interval属性的属性值应设置为___2000_。
14.下面程序功能是判断[1,1000]的整数是否为同构数（“同构数”是指一个会出现在它的平方数的
右端的数。例如：6的平方是36，6出现在它的平方数的右端；25的平方是625，25出现在它的平方数的右端，所以6和25 就是一个同构数）请在空格处填入适当内容，构成完整程序。
Private Sub Button6_Click(…) Handles Button6.Click
Dim k%, j%, i%
k = 10
For i = 1 To 10000
If i = k Then k = k * 10
j = i * i
If __ 【14】____ Then
Label1.Text &= i & " " & j & vbCrLf
End If
Next
End Sub
15.下面函数过程功能是求两数之和，请在空格处填入适当内容。：
Function addsum( ByVal x% , ByVal y% )
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论