VB程序习题集(附答案)

1、。VB简介1、在以下有关对象属性的叙述中，不正确的是_。A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、 Visual Basic中最基本的对象是_，它是应用程序的基石，也是其他控件的容器。A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text=Visual Basic”，其中的Text1 、 Text 和“ Visual Basic”分别代表 _。A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的 _属性

2、来设置窗体的标题。A、 CaptionB、 StyleC、 TextD、 Name5、窗体上有一个文本框控件Text1 ，假设已存在三个整型变量a、b、c，且变量 a 的值为 5，变量 b 的值为 7，变量 c 的值为 12。以下的 _语句可以使文本框内显示的内容为：5+7=12。A、 Text1.Text = a + b + cB、 Text1.Text = a+b=cC、 Text1 = a & + & b & = & cD、 Text1 = a & + & b & = & c6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click （）事件，则命令按钮的名称属性和Ca

3、ption 属性分别为 _。A、 OK、 CmdB、 Cmd、 OKC、 CmdOK、OKD、 OK、 CmdOK7、窗体 Form1 的名称属性是frm ，它的 Load 事件过程名为 _。A、 Form_LoadB、 Form1_LoadC、 frm_Load精选资料，欢迎下载。D、 Me_Load8、下列有关对象属性的说法正确的是_ 。A、对象所有的属性都罗列在属性窗口列表中B、不同对象不可能有同名属性C、不同对象的同名属性取值一定相同D、对象的某些属性既可以在属性窗口中设置，也可以在程序代码中设置9、一个对象可以执行的动作与可被对象识别的动作分别被称为_。A、事件、方法B、方法、事件C

4、、属性、方法D、过程、事件10、下列有关算法的叙述中，_是不正确的。A、算法中执行的步骤可以无休止的执行下去B、算法中的每一步操作必须含义明确C、算法中的每一步操作都必须是可执行的D、算法必须有输出11、对象可以识别和响应的某些行为称为_。A、方法B、继承C、属性D、事件12、如果设计时在属性窗口将命令按钮的_属性设置为False ，则运行时按钮从窗体上消失。A、 VisibleB、 EnabledC、DisabledPictureD、 Default13、将文本框的_属性设置为True 时，文本框可以输入或显示多行文本。A、 MultiLineB 、 ScrollBarsC 、TextD、

5、Enabled14、下面 _对象无 Caption 属性。A、 FormB、 CommandButtonC、TextBoxD、 Label15、决定控件上文字的字体、字形、大小、效果的属性是_。A、 TextB、 CaptionC、( 名称 )D、Font16、结构化程序设计有三种基本结构，不包括_。A、顺序结构B 、模块结构C、选择结构D、循环结构17、一个对象所能做的事情称为对象的_。A、方法B、继承C、属性D、封装18、如果设计时在属性窗口将命令按钮的_属性设置为False ，则运行时按钮不能响应用户的鼠标事件。A、 VisibleB、 EnabledC、 DisabledPicture

6、D、 Default19 、当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的_属性设置为True 。A、 AutoSizeB、 WordWrapC 、 VisibleD、 Enabled20、下面控件中，没有Caption属性的是 _。A、复选框B、单选按钮C 、组合框D、框架21、任何控件都具有_属性。A、 TextB、 CaptionC、 ( 名称 )D、 ForeColor22、窗体上有多个控件，在Form_Activate（）事件过程中添加_ 语句，就可以确保每次运行程序时，都将光标定位在文本框Text1 中A、 Text1.Text=精选资料，欢迎下载。B、 Te

7、xt1.SetFocusC、 Text1.GetFocusD、 Text1.Visible=True23、若已把一个命令按钮的Default属性设置为True ，则下面可导致按钮的Click事件过程被调用的操作是_。A、用鼠标右键单击此按钮B、按键盘上的Esc 键C、按键盘上的回车键D、用鼠标右键双击此按钮24、如下选项中，_不是 VB提供的程序控制结构。A、顺序结构B、选择结构C、重复结构D、树型结构精选资料，欢迎下载。程序代码基础bb24ac1、数学表达式2a对应的 Visual Basic表达式为 _。A、 -b + Sqr(b * b - 4 * a * c) / 2 * aB、 -b

8、 + Sqr(b * b - 4 * a * c) / (2 * a)C、 (-b + Sqr(b * b - 4 * a * c) )/ 2 * aD、 (-b + Sqr(b * b - 4 * a * c) )/ (2 * a)2、 Visual Basic中可以同时删除字符串前导和尾部空格的函数是_。A、 LtrimB、 RtrimC、 TrimD、 Mid3、设 A=7， B=4， C=6，则表达式A Mod 3 + B 3 / C 5的值为 _ 。A、出错B、 3C、 2D、 14、在 Form_Click事件中执行如下语句的结果是_。Print Format(1236.54, +

9、#,#0.0%)A、 123456B、 +123,654.0%C、 +123,6.54%D、 +123,6545、语句 Print 5*20的输出结果是_ 。A、 5*20B、出现错误信息C、 5*20D、 1006、窗体上放置了三个文本框，若在Text1 中输入123，在 Text2 中输入 78，在程序中执行了语句 Text3 = Text1 + Text2后，则在 Text3中显示 _。A、 434B、 12378C、溢出D 、语法错误7、表达式 Val( “abcdfg123e1234”)的值为 _ 。A、 789B、 1234C、 0D、表达式错8、假设变量BOOL是一个布尔型变量，

10、则下列赋值语句中，正确的是_。A、 BOOL =TRUEB、 BOOL =.TRUE.C、 BOOL =#TRUE#D、 BOOL = True9、函数 Cint 、Int 、 Fix都返回整数值，以下能正确地描述它们返回整数值大小关系的是精选资料，欢迎下载。_。A、 CInt(-5.59)=Int(-5.59) Fix(-5.59)B、 Int(-5.59)CInt(-5.59) Fix(-5.59)C、 CInt(-5.59) Fix(-5.59)Int(-5.59)D、 Int(-5.59)= abcdeB、 Int(134.69) CInt(134.69)C、 78.9 / 35.77

11、 -4.98D、 Str(32.345) = CStr(32.345)14、表达式6.5 * 5 Mod 28 8的值是 _ 。A、0B、1C、2D、315、能正确描述条件“A、 B 之一为零但不得同时为零”的VB逻辑表达式是_。A、 A = 0 Or B = 0B、 A * B = 0 And A + B 0C、 A * B = 0 Or A + B 0D、 A = 0 And B = 016、如下语句中，不能正常执行的是_。A、 Print 5 7 100B、 Print 324534323233C、 Print 3423/89D、 Print 32765 317、假设变量Lng 为长整形

12、变量，下面不能正常执行的语句是_ 。A、 Lng=16384*2B、 Lng=4*0.5*16384C、 Lng=1902D、 Lng=32768*218、设 a=“Visual Basic”,下面使 b 的值为 “Basic ”的语句是 _。A、 b=Left(a,8,12)B、 b=Mid(a,8,5)C、 b= Right(a,5,5)D、 b=Left(a,8,5)19、下面所列四组数据中，全部是正确的VB 常数是 _ 。A、 32768 1 、 34D2ABCDE &O1767B、 3276 123.561、 2E-2#True#C、 &HABCE02-03-2002 FalseD-

13、3D、 ABCDE#02-02-2002#E-2#True#20、表达式Int(5*Rnd+10)的最小值是 _ 。精选资料，欢迎下载。A、9B、10C、11D、1221、将数学表达式cos2(a+b)+5e 2 是写成 Vb 表达式的正确形式是_ 。A、 Cos(a+b)2+5*Exp(2)B、 Cos 2(a+b) +5*Exp(2)C、 Cos (a+b) 2 +5*e2D、 Cos 2(a+b) +5*Ln(2)22、假设变量myd 为日期时间型变量，下面不能正常执行的语句是_。A、 myd = 12:23:30B、 myd =#10/22/2010 3:30:32 PM#-1C、 m

14、yd = #10/22/2010 3:30:32 PM#D、 myd =#10/22/2010 3:30:32 PM#+123、数学表达式ab 对应的正确Visual Basic表达式为 _。abA、 a-b/a+bB、 a-b/(a+b)C、 (a-b)/a+bD、 (a-b)/(a+b)24、设 Mys1,Mys2 均为字符串型变量，Mys1=Visual Basic,Mys2=b, 则下面关系表达式中结果为 True 的是 _。A、 Len(Mys1)2*InStr(Mys1, ”i”)B、 Mid(Mys1,8,1)Mys2C、 Chr(98) & Right(Mys1,4)=”Bas

15、ic ”D、 InStr(Left(Mys1,6),” a”)+60Asc(Ucase(Mys2)25、设 A=7,B=4,C=6, ，则表达式 A Mod3+B3/C5 的值为 _。A、 1B、 2C、3D、出错26、语句 Print Format(12345.6, +#,#0.00)执行结果是 _。A、 12,345.6B、 +12,345.60C、 +#12,345.60D、 +12,345.627、已知函数 ASC(“A”)的值 65, 则函数ASC(“b”)的值是 _ 。A、 65B、 98C、 78D、 10028、以下 _是字符串常量。A、 FalseB、 abcC、 def D

16、、 # True #29、以下不能作为Visual Basic变量名的是 _。A、 2FaB、 F2aC、 Fa2D、 Fa_230、设有以下定义语句：Dim m, n as Single, d1 as Double, d2 as string则变量 m的类型是 _A、单精度型B、双精度型C、字符串型D 、可变类型31、表达式 5 * 2 Mod 25 2 2的值是 _。A、 1B、 0C、 6D、 432、显示如图所示输入框的Inputbox 语句是 _。精选资料，欢迎下载。A、 a = InputBox(应用示例 , 请输入 & 正整数 , 1)B、 a = InputBox(应用示例 ,

17、请输入 & vbCrLf & 正整数 , 1)C、 a = InputBox(请输入 &正整数 , 应用示例 , 1)D、 a = InputBox(请输入 & vbCrLf & 正整数 , 应用示例 , 1)33、以下 _是布尔型常量。A、 TrueB、 True C、 True D、 # True #34、如果将布尔常量值True 赋值给一个整型变量，则整型变量的值为_ 。A、 0B、 -1C、 TrueD、 False35、下列叙述正确的是_。A、注释语句是执行语句，仅对程序的有关内容起注释作用B、代码中加入注释语句的目的是提高程序的可读性C、注释语句不可以放在续行符的后面D、只能使用R

18、em关键字书写注释语句36、下面 _不是字符串常量。A、 你好 B、 C、 TrueD、 #False#37、下列符号常量的声明中，_是不合法的。A、 Const a as Single=1.1B、 Const a as Integer=12C、 Const a as Double=Sin(1)D、 Const a=OK38、下列叙述中不正确的是_ 。A、变量名的第一个字符必须是字母B、变量名的长度不超过255 个字符C、变量名可以包含小数点或者内嵌的类型声明字符D、变量名不能使用关键字39、 Int(100 * Rnd()产生的随机整数区间是_。A、 0,99B、 1,100C、0,100D

19、、1,9940、函数 Right(Beijing, 4)的值是 _ 。A、 BeijB、 jingC、 eijiD、 ijin41、表达式Abs(-5) + Len(ABCDE)的值是 _ 。A、 5ABCDEB 、 -5ABCDEC 、 10D、 042、设 A、B、C表示三角形的三条边，表示条件“任意两边之和大于第三边”的布尔表达式可以用 _ 表示。A、 A + B C Or A + C B Or B + C AB、 A + B C Or A + C B Or B + C C And A + C B And B + C AD、 A + B C And A + C B And B + C A

20、43、在一个语句行内写多条语句时，语句之间应该用_分隔。A、逗号B、分号C、顿号D、冒号44、下面 _是字符串常量。A、 mB、 #01/01/99#C、 mD、 True45、要强制显式声明变量，可在窗体模块或标准模块的通用声明段中加入语句_。A、 Option Base 0B、 Option Explicit精选资料，欢迎下载。C、 Option Base 1D、 Option compare46、产生 10,37之间的随机整数的VB表达式是 _ 。A、 Int(Rnd * 27) + 10B、 Int(Rnd * 28) + 10C、 Int(Rnd * 27) + 11D、 Int(R

21、nd * 28) + 1147、有以下定义语句：Dim max, min As Integer则变量 max的类型是 _。A、可变类型B、单精度型C、整型D、长整型48、函数 Left(how are you, 3)的值是 _ 。A、 howB、 areC、 youD、 how are you49、函数 Mid(shanghai, 6, 3)的值是 _。A、 shanghB、 shaC、 anghD、 hai50、可表示“两个变量A 和 B 之一为 0，但不能同时为0”的表达式是 _ 。A、 A = 0 And B 0B、 A * B = 0 And A BC、 A 0 And B = 0D、

22、 A 0 And B = 0 And A = 0 And B 051、在 VB代码编辑器中，用来表示续行的是_。A、一个空格加一个下划字符(_ )B、一个下划字符( _ )C、直接回车D、一个空格加一个连字符( - )52、如果将布尔常量值False 赋值给一个整型变量，则整型变量的值为_ 。A、 0B、 1C、 TrueD、 False精选资料，欢迎下载。选择结构程序设计1、下列语句正确的是_ 。4A、 If x y Then y = xB、 If x y Then y = x 4C、 If x y Then y = x 4D、 If x y Then y = x * 42、分析下列语句，给

23、出执行结果Private Sub Form_Click()Const pi As Single = 3.14a% = 7If a Mod 4 pi Then Print 努力 Else Print 学习 End Sub执行结果为 _，其判决条件的值为 _。A、努力 TRUEB、学习 FalseC、努力 FalseD、学习 TRUE3、针对语句 If I = 1 Then J = 1，下列说法正确是 _ 。A、I=1和 J=1均为赋值语句B、I=1、J=1均为关系表达式C、I=1为关系表达式， J = 1为赋值语句D、I=1为赋值语句， J = 1 为关系表达式4、如果X 的值大于或等于Y 的平

24、方，则打印“OK”，表示这个功能的单行格式If语句是_。A、 If x = y 2 Then Print OKB、 If x = y2Then Print OKC、 If x = y 2 Then Print OKD、 If x = y 2 Then Print OK End If5、语句 X = X + 1的正确含义是_ 。A、变量 X 的值与 X 1 的值相等B、将变量X 的值存到 X1 中去C、将变量X 的值加 1 后赋给变量XD、变量 X 的值为 16、以下 _程序段可以实现X、Y 变量值的交换。A、Y=X:X=YB、Z=X:Y=Z:X=YC、Z=X:X=Y:Y=ZD、Z=X:W=Y:

25、Y=Z:X=Y7、下列语句正确的是_ 。A、 If A B Then T=A A=B B=T精选资料，欢迎下载。B、 If A B Then T=A ;A=B; B=TC、 If A=B Then T=A A=B B=TD、 If A=B Then T=A : A=B : B=T8、关于语句 If x = 1 Then y = 1，下列说法正确的是 _。A、 x = 1和 y = 1均为赋值语句B、 x = 1和 y = 1均为关系表达式C、 x = 1为关系表达式， y = 1为赋值语句D、 x = 1为赋值语句， y = 1为关系表达式9、下列说法中正确的是_ 。A、语句 Text1.Te

26、xt = x的含义是将变量x 的值显示于文本框 Text1中B、语句 Text1.Text = x的含义是将文本框Text1中的内容赋值给变量xC、语句 Text1.Text = x的含义是将文本框Text1中的内容转换为数值型后赋值给变量xD、以上说法都是错误的10、下列语句正确的是_ 。A、 If x y Then y = x 3B、 If x y Then y = x3C、 If x y Then y = x 3D、 If x y Then y = x * * 311、如果X 的值小于或等于Y 的平方，则打印“OK”，表示这个功能的单行If语句是_。A、 If x = y2 Then P

27、rint OKB、 If x = y 2 Then Print OKC、 If x = y 2 Then OKD、 If x = y 2 Print OK精选资料，欢迎下载。循环结构程序设计1、在程序中有语句For i = n1 To n2 Step n3，则在循环体中有下列_ 语句会影响循环执行的次数。A、 n1 = n1 + 1B、 n2 = n2 + n3C、 n3 = 2 * n3D、 i=i+n32、循环结构 For I = 1 to 15 step 2的执行次数是 _ 。A、 6B 、 7C、 8D、 93、下列循环结构中，窗体上打印出来的循环变量i 的值为 _。sum = 0Fo

28、r i = 1 To 100sum= sum + iNext iPrint i； sumA、 1B、2C、100D、 1014、下列循环结构中，循环体x = x + k的执行次数为 _。x = 0For k = 1 To 10 Step 2x = x + kNext kprint k； xA、 0B、1C、 5D、 105、以下循环语句中在任何情况下都至少执行一次循环体的是_。A、 Do While B、 While 循环体循环体LoopWendC、 DoD、 Do Until 循环体循环体Loop Until Loop6、在窗体上画一个名称为Command1的命令按钮，并编写以下程序：Pri

29、vate Sub Command1_Click(）Dim n% ,b ,tt = 1 : b = 1 : n = 2Dob = b * nt = t + bn = n +1Loop Until n9Print t精选资料，欢迎下载。End Sub此程序计算并输出一个表达式的值，该表达式是_。A、 9！B、 10！C、 1！ +2！+9！D、 1！ +2！+10！精选资料，欢迎下载。数组1、某过程的说明语句中，正确的数组说明语句是_ 。Const n As Integer = 3Dim L As Integer Dim x(L) As Integer Dim a(k) As IntegerCon

30、st k As Integer = 3 Dim b(n) As Integer Dim y(2000 to 2008) as Integer A、B、C、D、2、下列有关数组的说法中，错误的是_ 。A、数组必须先定义后使用B、数组形参可以是定长字符串类型C、 Erase 语句的作用是对已定义数组的值重新初始化D、定义数组时，数组维界值可以不是整数3、在窗体的通用声明处有语句“Dim a() As Single”，以下在某事件过程中重定义此数组的一组正确语句是_。A、 ReDim a(3, 3)ReDim a(4, 4) As IntegerB、 ReDim a(3, 3)ReDim prese

31、rve a(4, 4)C、 ReDim a(3)ReDim a(3, 3) as IntegerD、 ReDim a(3, 3)ReDim preserve a(3, 4)4、以下 _是 Visual Basic合法的数组元素表示法。A、 x_9B、x9C、 x9D、 x(9)5、下面的数组声明语句中_是正确的。A、 Dim a3,4 As IntegerB、 Dim a(3, 4) As IntegerC、 Dim a(3;4) As IntegerD、 Dim a(3:4) As Integer6、设有数组声明语句：Option Base 1Dim b(-1 To 1, 2 ) As In

32、teger则数组 b 中共有 _个元素。A、2B、4C、6D、97、使用语句Dim a(1 To 15) As String声明数组a 之后，以下说法正确的是_。A、 A 数组中的所有元素值为0精选资料，欢迎下载。B、 A 数组中的所有元素值不确定C、 A 数组中的所有元素值为空串D、 A 数组中的所有元素值为True8、关于 ReDim语句，以下说法错误的是_ 。A、 ReDim语句可以改变数组的维数B、 ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用C、 ReDim语句可保留动态数组中原有的内容D、在 ReDim语句中，可使用变量说明动态数组的大小9、设有数组声明语句：Op

33、tion Base 1Dim a(-1 To 2， 8) As Long则，函数 LBound(a ， 2) 的值为 _。A、 0B、 1C、1D、210、下列关于控件数组的说法错误的是_。A、控件数组由一组具有共同名称和相同类型的控件组成B、控件数组中的每一个控件共享同样的事件过程C、控件数组中的每个元素的下标由控件的Index 属性指定D、同一控件数组中的元素只能有相同的属性值11、设有命令按钮Command1单击事件过程，代码如下：Private Sub Command1_Click(）Dim a(30 ）As IntegerFor i=1 To 30a(i ） =Int(Rnd*100

34、）NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是_。A、 a 数组中的数据是30 个 100 以内的整数B、语句 For Each arrItem In a有语法错误C、 If arrItem Mod 7=0 语句的功能是输出数组中能够被7 整除的数D、 If arrItem90 语句的作用是当数组元素的值大于90 时退出 For 循环12、有以下程序：Option Base 1Dim a( ） As Int

35、egerPrivate Sub Form_Click(）Dim i As Integer, j As IntegerReDim a(3, 2）For i = 1 To 3For j = 1 To 2a(i, j） = i * 2 + jNext j精选资料，欢迎下载。Next iReDim Preserve a(3, 4）For j = 3 To 4a(3, j） = j + 9Next jPrint a(3, 2） ; a(3, 4）End Sub程序运行后，单击窗体，输出结果是_。A、813B、013C、712D、0013、下面的数组声明语句中_ 是正确的。A、 Dim a3,4 as I

36、ntegerB、 Dim a(3, 4) As IntegerC、 Dim a3;4 as IntegerD、 Dim a(3:4) as Integer14、设有数组声明语句：Option Base 1Dim A(2) As Integer则数组 A 的下界为 _。A、 0B、 1C、2D、不能确定15、以下说法不正确的是_ 。A、使用 ReDim语句可以改变动态数组的维数B、若用 Dim 语句定义了动态数组的类型，可以用ReDim更改为其它类型C、使用 ReDim语句可以改变动态数组每一维的大小D、使用 ReDim语句可以对动态数组中的所有元素进行初始化16、用 Array 函数给某X 赋

37、值时， X 必须是 _ 。A、已经声明的静态数组B、已经声明的动态数组C、 Variant类型的变量D、整型变量17、设有数组声明语句：Option Base 1Dim A(-1 To 2) As Long则函数 UBound(A) 的值为 _。A、0B、1C、1D、218、设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法中错误的是 _ 。A、命令按钮的Caption属性都是 Command1B、在代码中访问任意一个命令按钮只需使用名称Command1C、命令按钮的大小都相同D、命令按钮共享相同的事件过程19、在窗体上画1个命令按钮，并编写如下事件过程：Priva

38、te Sub Commandl Click()Dim a(3,3)For m=1 To 3精选资料，欢迎下载。For n=1 To 3If n=m Or n=4-m Thena(m,n)=m+nElsea(m,n)=0End IfPrint a(m,n);Next nPrintNext mEnd Sub运行程序，单击命令按钮，窗体上显示的内容为_。200204230200040040340045A、 006B、 406C、006D、 05620、下列程序段的执行结果为_。Dim A(3)For i = 1 To 3A(i) = i * iNext iPrint A(i - 1)A、 16B、9

39、C、4D、 121、以下 _是 VB 中合法的数组元素表示法。A、 X9B、 X9C、 X9D、 X(9)22、设有数组声明语句：Option Base 1Dim A(-1 to 2) As Integer则数组 A 中共有 _ 个元素。A、 2B、3C、4D 、不能确定23、使用语句Dim A(1 To 15) As Integer声明数组A 之后，下面说法中正确的是_ 。A、数组中所有元素的值为0B、数组中所有元素的值不确定C、数组中所有元素的值为空串D、以上说法均不对24、在以下语句中，a 只能是 _。Dim X(15)For Each a In XPrint a;Next aA、已经声明的静态数组B、已经声明的动态数组C、 Variant类型的变量D、整型变量25、设有数组声明语句：Opt