2022年VB模拟题答案.docx

名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -套题 1 A.次序文件的写语句B.在窗体上显示的方法第一卷 客观题 C.子程序名 D.打印命令第一题：是非题（共 10 分,每项 1 分） 17. 使用 Public x 声明一个全局的变量时,该语句应放在 1. ActiveX 部件是可以重复使用的编程代码和数据；A _D_；A.对 B.错 A.过程中 B.窗体模块的通用声明段 2. 窗体的 Enabled 属性设为 False 时,窗体题的按钮、文本框控 C.标准模块的通用声明段件就不会对用户的操作做出反应；A D.窗体模块或标准模块的通用声明段A.对 B.错 18. 文本框没有 _D_属性； 3. 每一个控件实质上都是一个微型程序；A A.Enabled B.VisibleC.BackColor D.Caption A.对 B.错 19. 记录长度最大可取的值是 _A_ 字节； 4. 在程序运行过程中,变量中的值不会转变,而常量中的值会 A.32767 B.32768 C.65535 D.65536 被转变； B 20. 下面四项中, _A_ 是 VB 中的数值变量；A.对 B.错 A.ABC B.E+2 C."True" D.1.35E-2 5. 用 Dim 语句声明变量时,VB 系统不仅为变量安排相应数据 21. 将数据项 “ China ”添加到列表框（List ）中成为第一项应使用类型的内在空间,而且仍为变量赋所需的初值；B A 语句；A.对 B.错 A.List1.AddItem” China ”, 0 B.List1.AddItem” China ” 6. 定义菜单项时,可以不设置分隔线的菜单项控件名称；B C.List1.AddItem 0 , ” China ” D.List1.AddItem 1 ,” China ”A.对 B.错 22. 以下不能打开菜单编辑器的操作是 _D_； 7. 在大事驱动的应用程序中,代码是依据预定的路径执行的；B A.按 Ctrl+E A.对 B.错 B.单击工具栏中的“ 菜单编辑器 ” 按钮 8. 函数调用时,实际参数与形式参数在数量必需完全一样；A C.执行 “ 工具 ”菜单中的 “菜单编辑器 ” 命令A.对 B.错 D.按 Shift + Alt + M 9. 每个菜单项都是一个控件,与其他控件一样也有自己的属性 23. 文本框（ Text1）中有选定的文本, 执行 Text1.SelText=” Hello ”和大事； A 的结果是 A ；A.对 B.错 A. “ Hello ”将替换掉原先选定的文本 10. 通用过程可以放在标准模块中,也可以放在窗体模块中；A B. “ Hello ”将插入到原先选定的文本之前A.对 B.错 C.Text1.SelLength 为 5 D.文本框中只有 “ Hello ”其次题、单项题（共 45 分,每项 1.5 分） 24. 语句 Print Format"HELLO", "<" 的输出结果是 _B_； 11. 要判定 “ 命令按钮 ”是否被鼠标单击,应在“命令按钮 ” 的大事 A.HELLO B.hello C.He D.he 中判定； C 25. 函数 IntRnd*11+10 产生的数值的范畴是 _C_；A.Chang B.KeyDown C.Click D.KeyPress A.（ 0,10）B.10,10 C.10,20 D.0,20 12. InputBox 函数的返回值的类型为 _B_ ； 26. 假如文本框的 Enabled 属性设为 False,就 A；A.数值 B.字符串 C.规律值 D.日期值 A.文本框的文本将变成灰色,并且此时用户不能将光标置于文 13. 要想在过程调用后返回两个结果,下面的过程定义语句合法 本框上的是 _A _；B.文本框的文本将变成灰色,用户仍旧能将光标置于文本框A.Sub Proc1ByVal n,Byval m B.Sub Proc1ByVal n, m 上,但是不能转变文本框中的内容C.Sub Proc1n,Byval m D.Sub Proc1n, m C.文本框的文本将变成灰色,用户仍旧能转变文本框中的内容 14. 下面关于打印对话框属性的说法错误选项 _C_；D.文本框的文本正常显示,用户能将光标置于文本框上,但是A.Copies 属性指定打印的份数；不能转变文本框中的内容B.HDC 属性指定安排给打印机的句柄,用来识别对象的设备 27. 框架内的全部控件是A ；环境；A.随框架一起移动、显示、消逝和屏蔽C.FromPage 属性指定要打印文档的页范畴；使用该属性时必 B.不随框架一起移动、显示、消逝和屏蔽须把 Flags 属性设置为 1；C.仅随框架一起移动 D.仅随框架一起显示和消逝D.Max 和 Min 属性用来显示 FromPage 和 ToPage 的范畴,其 28. Integer 类型的数据由 _B_字节组成；中 Min 指定答应的起始页码,Max 指定答应的最终页码；A.1 B.2 C.3 D.4 15. 常量 2.7856E-6 的类型是 _B_ ； 29. 数学表达式 x>y>z 的正确 VB 规律表达式是 _D_；A.整型 B.实型 C.字符型 D.双精度 A.x>y And <z B.x>y>z C.x>y And >z D.x>y And y>z 16. Print #1, STR1$中的 Print 是 _A_ ；细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 1 页,共 28 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - - 30. 假如要使一个窗体从屏幕上和内存中完全消逝,所要使用的 MsgBox Msg 语句是 _D_； Show 第 2 页,共 28 页 A.Hide B.Show C.Load D.Unload End Sub A. 隐匿窗体,按确定按钮使窗体重现31. 在以下说法中,正确选项D； A. 通过适当的设置,可以在程序运行期间,让时钟控件 B. 隐匿窗体显示在窗体上 C. 显示窗体,按确定按钮使窗体隐匿 B. 在列表框中不能进行多项挑选 D. 显示窗体 C. 在列表框中能够将项目按字母次序从大到小排列42. 执行下面程序段后,变量c$的值为 _D_； D. 框架也有 Click和 DblClick大事 a$= "Visual Basic Programming" 32. 为了把一个记录型变量的内容写入文件中指定的位置,所 b$= "Quick" 使用的语句的格式为_D_； c$=b$ & UcaseMid$a$,7,6 & Right$a$,12 A.Get 文件号,记录号,变量名 A.Visual BASIC Programming B.Get 文件号,变量名,记录号 B.Quick Basic Programming C.Put 文件号,变量名,记录号 C.QUICK Basic Programming D.Put 文件号,记录号,变量名 D.Quick BASIC Programming 33. 按文件的组织方式分为_A_；43. 运行下面程序后,在窗体中显示的是_D_； A. 次序文件和随机文件 B. 文本文件和二进制文 Private Sub Form_Click 件a$="*": b$="$" C. 程序文件和数据文件 D. 只读文件和读写文件 For k=1 To 3 34. 以下 _C_不能作为 VB中的变量名； x$=String$Lena$+k,b$ A.Abx45 B.P1234 C.89TasFF D.xy Print x$; 35. 已编译的控件部件的扩展名是A； Next k A. .OCX B. .VBP C. .EXE D. .CTL Print 36. 为了建立一个随机文件,其中每一条记录有多个不同数据 End Sub 类型的数据项组成,应使用_A_； A. 、* * * B.*$*$*$ A. 自 定 义 类 型B. 数 组C. 字 符 串 类 C.1*$2*$3*$ D. 、$ 型 D. 变体类型44. 执行下面程序段后,变量a 的值为 _C_；37. 表达式 Int23.4+Round-35.5的运算结果为 _C_； For I=1 To 3 A.-11 B.-12.1 C.-13 D.-12.5 For j=1 To I 38. 引用列表框（ List1 ）最终一个数据项应使用B； For k=j To 3 A. List1.ListList1.ListCount a=a+1 B.List1.ListList1.ListCount-1 Next k C.List1.ListListCount Next j D.List1.ListListCount-l Next I 39. 通过代码在运行时设置属性的语法格式为_B_； A.3 B.9 C.14 D.21 A. 对象名属性 . 新值 B. 对象名 . 属性新值45. 写出如下程序运行结果； D C. 对象名 . 新值 =属性 . 新值 D. 对象名 . 属性 =属性 . Function fm As Integer As Integer 新值 b = 1 40. 在 下面 选 项中 ,不 能完 成 对顺 序 文件 的读 操 作的是 Static c As Integer _D_； b = b + 1 A.LineInput#语句 B.Input#语句 c = c + 1 C.Input（）函数 D.Get# 语句 f = m * b * c 第三题、简洁程序（共15 分,每项 1.5 分） End Function 41. 以下程序段的运行结果；A Private Sub Command1_Click Private Sub Form_Click Dim a As Integer Dim Msg a = 2 Hide sum=0 Msg=” 挑选确定按钮” For I = 1 To 3 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - - sum=sum+ fa C. 在窗体中显示“ABCD我是一个” Next I print sum End Sub D. 在窗体中显示“ABCD我是”其次卷主观题填空题（共30 分,每项 2 分；留意：填两个空的题的时候,要 A.12 B.16 C.20 D.24 依据从上至下,从左至右的次序添入答题卡！）46. 以下程序的输出结果是_B_；1. 以下程序运行后,能求出20 个数中的最大值；请填上适当 Private Sub Command1_Click a=1234 b$=Str$a c=LenTrimb print c;LenBb End Sub 的内容,将程序补充完整； Private Sub Form_Activate Randomize Dim I As Integer,ssl As Integer,Dim tt As Integer ssl = IntRnd * 51 + 50 For I = 1 To 19 tt = Rnd * 51 + 50 _IF ssl<tt then ssl=tt_ Next I Print Print ssl End Sub A.3 8 B.4 10 C.5 10 D.4 8 47. 执行下面程序段后,变量x 的值为 _A_； x=5 For I=1 To 20 step 2 x=x+I5 Next I A.21 B.22 C.23 D.24 2. 在 C盘根目录下建立一个名为Student.dat的次序文件；48. 以下程序的输出结果是_D_；要求用 InputBox函数输入 10 名同学的学号（StuNo）、姓名 Private Sub Command1_Click a=100 Do s=s+a a=a+1 Loop Until a>100 print a End Sub （StuName）和性别（ StuSex ）； Private Sub Form_Load Open “ C:Student.dat” For Output As #1 For I=1 to 10 StuNo=InputBox“ 请输入学号” StuName= InputBox “ 请输入姓名” StuSex= InputBox “ 请输入性别” _write #1, A.100 B.120 C.201 D.101 _ ,StuNo,Stuname,StuSex Next I Close #1 End Sub 3. 编写一个求最大公约数的函数,并调用该函数,程序如下： Function gcdByVal a As Integer,ByVal b As Integer As Integer Dim re as integer Do While b<>0 re=a mod b a=b b=re Loop gcd=a End Function Sub Command1_Click Dim x As Integer,y As Integer, z As integer X=96 Y=64 _z=gcdx,y_ 第 3 页,共 28 页 - - - - - - - - - 49. 以下程序的循环次数是_A_； Private Sub Command1_Click For j=8 To 35 Step 3 Print j; Next j End Sub A.10 B.9 C.27 D.28 50. 以下程序运行后,其结果为_A_； Private Sub Form_Click Filename= “ c:testfile.txt” Open filename For Output As #1 Print #1,“ ABCD我是一个同学” Close #1 Open filename For Input As #1 MsgBox Input8,1 Close #1 End Sub A. 在通用对话框中显示“ABCD我是一个” B. 在通用对话框中显示“ABCD我是”细心整理归纳 精选学习资料 - - - - - - - - - - - - - - -名师归纳总结 精品学习资料 - - - - - - - - - - - - - - - Print “ 结果 =” ;z Randomize End Sub x =_intrnd*9+1_ 4. 请用正确的内容填空； odd x 下面程序的作用是利用随机函数产生 10 个 1 200 End Sub 之间的随机整数,打印其中 7 的整数倍的数并求其和；8. 以下程序答应用户按 Enter 键将一个组合框 （ cboComputer） Private Sub Form_Click 中没有的项目添加到组合框中；For I=1 To 10 Sub cboComputer_KeyPressKeyAscii As Integer x=IntRnd*200+1 Dim flag As Boolean If _x mod 7=0_ Then If KeyAscii=13 Then k1=k1+x flag=False Print x For I=0 To cboComputer.ListCount-1 End If If Then Next I Flag=True Print Exit For Print "k1="k1 End If End Sub Next i 5. 下面程序运行时,内层循环的循环总次数是 _6_； If Not flag Then For m = 1 To 3 For n = 0 To m - 1 Else Next n MsgBox ” 组合框中已有该项 Next m 目！” End If 6. 在窗体中添加两个命令按钮,其名称分别为 Command1和 End If Command2, End Sub 窗体加载时要求 Command1不行用, Command2可用；单击 9. 请用正确的内容填空；Command2后,下面程序的功能是通过 InputBox 对话框接受一个 Command1可用；请将以下程序补充完整；二进制数,并把它转换成一个十进制数,结果显示在窗体中； Private Sub Command2_Click Private Sub Form_Click _command1.enabled=true_ b=InputBox" 请输入一个二进制数 " End Sub m=Lenb Private Sub Form_Load For j= _1 to m_ _command1.enabled=false dec=dec*2+ _valMidb,j,1 _command2.enabled=true_ Next j End Sub Print b;" 转换后的十进制数为："dec 7. 函数 odd 用于判定一个数是否是奇数；当单击命令按钮时, End Sub 产生 10. 以 下 程 序 的 功 能 是 ： 把 当 前 目 录 下 的 顺 序 文 件 1,9 之间的随机数,调用 odd 过程,判定该数是否为奇数；smtext1.txt 的内容读入内存,并在文本框 Text1 中显示出来；假如是就显示“ 奇数”,否就显示“ 偶数”；请填空； Private Sub oddn As Integer Private Sub Command1_Click Print n; Dim inData As String If n/2<>n2 Then Text1.Text = "" Print " 奇数 " Open ".smtext1.txt"_for Input_As #1 Else Do While _not eof1_ Print _“ 偶数”_ Input #1, inData End If Text1.Text = Text1.Text & inData End Sub Loop Private Sub Command1_Click End Sub Dim x As Integer 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 4 页,共 28 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -套题 2 A.次序文件和随机文件B.文本文件和二进制文件第一卷客观题C.程序文件和数据文件D.只读文件和读写文件所使第一题：是非题（共10 分,每项 1 分） 18. 不论何种控件,共同具有的是_B_属性； 1. 函数过程和子过程的区分是子过程终止将返回值过程值,函A.Text B.NameC.BackColor D.Caption 数过程终止不必返回函数值； 19. 为了把一个记录型变量的内容写入文件中指定的位置,A.对B.错用的语句的格式为_D_； 2. 当窗体上有多个控件时,一般只有一个控件是当前控件,对 控件的全部操作都是针对当前控件进行的；A.Get 文件号,记录号,变量名 B.Get 文件号,变量名,记录号A.对 B.错 C.Put 文件号,变量名,记录号 3. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴；D.Put 文件号,记录号,变量名A.对 B.错 20. 常量 2.7856E-6 的类型是 _B_； 4. 用 Dim 语句声明变量时,VB 系统不仅为变量安排相应数据 A.整型 B.实型 C.字符型 D.双精度类型的内在空间,而且仍为变量赋所需的初值； 21. 假如列表框（ List1 ）有 4 个数据项,那么把数据项“ China ”A.对 B.错 添加到列表框的最终,应使用D语句； 5. 在 VB 系统中,没有用 Dim 语句声明的变量不能使用,由于 A. List1.AddItem3 , ” China ”它没有数据类型；B.List1.AddItem” China ”, List1.ListCount-1 A.对 B.错 C.List1.AddItem” China ” 6. 每个菜单项都是一个控件,与其他控件一样也有自己的属性 D.List1.AddItem” China ”, List1.ListCount 和大事； 22. 下面关于打印对话框属性的说法错误选项 _C_；A.对 B.错 A.Copies 属性指定打印的份数； 7. VB 中的 “ 消息 ”是指由一个应用程序传递到另一个应用程序的 B.HDC 属性指定安排给打印机的句柄,用来识别对象的设备信息包；环境；A.对 B.错 C.FromPage 属性指定要打印文档的页范畴；使用该属性时必 8. 一般窗体与子窗体建立的方法是相同的,不同之处是子窗体 须把 Flags 属性设置为 1；的 MDIChild 属性设置为 False,而一般窗体的 MDIChild 属性设 D.Max 和 Min 属性用来显示 FromPage 和 ToPage 的范畴,其置为 True；中 Min 指定答应的起始页码,Max 指定答应的最终页码；A.对 B.错 23. 假如文本框的 Enabled 属性设为 False,就 A； 9. 除了 Click 大事之外,菜单项仍能响应其他的大事；A.文本框的文本将变成灰色,并且此时用户不能将光标置于文A.对 B.错 本框上 10. 数组作为过程参数时,使用的是地址传送方式；B.文本框的文本将变成灰色,用户仍旧能将光标置于文本框A.对 B.错 上,但是不能转变文本框中的内容其次题、单项题（共 45 分,每项 1.5 分）C.文本框的文本将变成灰色,用户仍旧能转变文本框中的内容 11. 文本框没有 _D_属性；D.文本框的文本正常显示,用户能将光标置于文本框上,但是A.Enabled B.Visible C.BackColor D.Caption 不能转变文本框中的内容 12. 语句 Dim a3,-3 to 0,3 to 6 声明的数组 a有 _C_元素； 24. 以下控件中,没有 Caption 属性的是 B；A.12 B.27 C.64 D.80 A.框架 B.列表框 C.复选框 D.单项按钮 13. 下面关于随机文件的描述,不正确选项 _B_ ； 25. 以下规律表达式中,其值为真的是 _A_ ；A.每条记录的长度必需相同 B.一个文件中记录号不必惟一 A."b">"ABC" B."THAT">"THE" C.文件的组织结构比次序文件复杂 C.9>"H" D."A">"a" D.可通过编程对文件中的某条记录便利地修改 26. 窗体从加载到显示,依次引发的大事有；D 14. 假如要使一个窗体从屏幕上和内存中完全消逝,所要使用的 A.Load 、Initialize 、 Activate 语句是 _D_；B.Initialize 、 Activate、 load A.Hide B.Show C.Load D.Unload 15. 在 VB 中,常量 987654,987654#的数据类型是 _D_ ；C.Load、 Activate 、 Initialize D.Initialize 、 Load、 Activate A.整型B.实型C.长整型D.双精度_D_； 27. 假如每 0.5 秒产生一个计时器大事,那么Interval 属性值应 16. 在下面选项中, 不能完成对次序文件的读操作的是设为 C；A.5 B.50 C.500D.0.5 A.LineInput# 语句B.Input#语句C.Input（）函数D.Get#语句 17. 按文件的组织方式分为_A_ ； 28. 表达式 3>4 And 7=5 的返回值为 _D_；细心整理归纳 精选学习资料 第 5 页,共 28 页 - - - - - - - - - - - - - - - - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -A.0 B.True C.-1 D.False Case 4 29. 函数 IntRnd*11+10 产生的数值的范畴是_C_；a$="Ok" A 第 6 页,共 28 页 A.（0,10）B.10,10 C.10,20D.0,20 Case 3 30. 要想在过程调用后返回两个结果,下面的过程定义语句合法a$="Pass" 的是 _A_ ；Case Else A.Sub Proc1ByVal n,Byval mB.Sub Proc1ByVal n, m a$="Bad" C.Sub Proc1n,Byval m D.Sub Proc1n, m End Select 31. 为了防止用户随便将光标置于控件之上,应当进行设MsgBox a$ 置； DEnd Sub A.将控件的TabIndex 属性设置为0 A.Bad B.Pass C.Ok D.Good B.将控件的TabStop 属性设置为True 43. 执行下面程序段后,变量a 的值为 _； CC.将控件的TabStop 属性设置为False For I=1 To 3 D.将控件的Enabled 属性设置为False For j=1 To I 32. 使用驱动器列表框的_属性可以返回或设置磁盘驱动For k=j To 3 器的名称； Ba=a+1 A.ChDriveB.DriveC.List D.ListIndex Next k 33. 文件号最大可取的值为_； BNext j A.255 B.511 C.512 D.256 Next I 34. 在 Visual Basic 中,语句 Print 3>9 的输出结果为 _；DA.3 B.9C.14 D.21 A.0 B.1 C.-1 D.False 44. 写出以下程序的运行结果,并说明函数的功能； 35. 全局变量必需在 _中定义 APublic Function fm%, n% A.标准模块B.任意模块C.窗体模块D. 类模块Do While m <> n 36. 表达式 Int23.4+Round-35.5 的运算结果为 _；CDo While m > n A.-11 B.-12.1 C.-13 D.-12.5 m = m n 37. 假如列表框（ List1）中没有被选定的项目,就执行Loop List1.RemoveItem List1.ListIndex语句的结果是；Do While n > m A.移去第一项B.移去最终一项 n = n m C.移去最终加入列表的一项D.以上都不对Loop 38. 通过代码在运行时设置属性的语法格式为_； B Loop A.对象名属性.新值B.对象名 .属性新值f = m C.对象名 .新值 =属性.新值D.对象名 .属性 =属性 .新值End Function 39. 转变驱动器列表框的Drive 属性值将激活 _大事； APrivate Sub Command1_Click A.Change B.Scoll C.KeyDown D.KeyUp print f24, 18 40. 已编译的控件部件的扩展名是；A End Sub A. .OCX B. .VBP C. .EXE D. .CTL A.6B.8 C.10 D.12 第三题、简洁程序（共15 分,每项 1.5 分） 45. 以下程序的输出结果是_；B 41. 执行下面程序段后,变量c$的值为 _； DPrivate Sub Command1_Click a$= "Visual Basic Programming" a=1234 b$= "Quick" b$=Str$a c$=b$ & UcaseMid$a$,7,6 & Right$a$,12 c=LenTrimb A.Visual BASIC Programming B.Quick Basic Programming print c;LenBb C.QUICK Basic Programming D.Quick BASIC Programming End Sub 42. 运行下面程序后,在弹出的消息窗口中显示的是_；DA.3 8B.4 10C.5 10 D.4 8 Private Sub Form_Click 46. 执行下面程序段后,变量x 的值为 _； Ascore=IntRnd+5 x=5 Select Case score For I=1 To 20 step 2 Case 5 x=x+I5 a$="Good" Next I 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - - - - - - - - - - 名师归纳总结 精品学习资料 - -