VB计算机期末试题5

1、操作系统管理用户数据的单位是 _AA、文件B、文件夹C扇区D磁道计算机存储器中，一个字节由 _B位二进制位组成。A、32B、8C、4D、16RA的特点是 B_A、存储在其中的信息可以永久保存B、一旦断电，存储在其上的信息将全部消失，且无法恢复C只用来存储中间数据D海量存储器CP中,除了内部总线和必要的寄存器外， 主要的两大部件分别是运 算器和 _D_。A、存储器B、CacheC编辑器D控制器计算机技术中，英文缩写CPU勺中文译名是D。A、寄存器B、运算器C控制器D中央处理器下列各组软件中，全部属于应用软件的一组是 _B。A、MS-DO，S 用友财务软件，学籍管理系统B、Word 2000，Ex

2、cel 2000 ，金山词霸C、Windows2000， WPS Office2003 ，Word 2000D、Unix ，Visual FoxPro ，AutoCAD在Wore文本中，当鼠标移动到正文左边，形成右向上箭头时，连续单 击鼠标 ( B ) 次可以选定全文 .A、1B、3C、2D、4在Excel工作表中,F3为当前单元格,若将F3单元格中的内容清除,下 列操作中不正确的是 (B).A、通过编辑菜单中的剪切命令完成B、通过编辑菜单中的删除命令完成C通过编辑菜单中的清除命令完成D 按 Delete 键 下列文件中能自动执行的是 (C).A、IO.SYSB、AUTOEXEC.EXEC、A

3、UTOEXEC.BATD、MSDOS.SYS 一个用户若想使用电子邮件功能，应当 ( B )A、把自己的计算机通过网络与附近的一个邮局连起来B、使自己的计算机通过网络得到网上一个Email服务器的服务支持C通过电话得到一个电子邮局的服务支持D向附近的一个邮局申请，办理建立一个自己专用的信箱下面正确使用动态数组的是 _CA、Dim arr（）ReDim arr(50) As IntegerB、Dim arr(50) As Integer ReDim arr(20)C、Dim arr() As IntegerReDim arr(3,5)D、Dim arr() As IntegerReDim arr

4、(50) As String为了暂时关闭计时器， 应把计时器的某个属性设置为 False ，这个属 性是_D_。A、EnabledB、IntervalC、TimerD、Visble在窗体上画一个文本框（其名称为 Text1 ）和一个标签（其名称为Label1 ）。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是：_D_。A、Private Sub Label1_Change() Label1.Caption = Text1.Text End SubB、Private Sub Text1_Click() Label1.Caption = Te

5、xt1.Text End SubC、Private Sub Label1_Click() Label1.Caption = Text1.Text End SubD、Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub目录列表框的 Path 属性的作用是 _A_。A、显示当前驱动器或指定驱动器上的目录结构B、显示根目录下的文件名C显示当前驱动器或指定驱动器上的某目录下的文件名D显示指定路径下的文件在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为 Textl、Comman(和Labell，文本框的Textl属性设置为

6、空白，然后 编写如下事件过程：Private Sub Command1_Click()x = Int(Val(Text1.Text) + 0.5)Label1.Caption = Str(x)End Sub程序运行后，在文本框中输入 28.653 ，单击命令按钮，标签中显示 的内容是： _C_。A、29B、28C、27D、30在VB沖下列A是不对的。A、可以写出16位应用程序B、可以通过直接访问或建立连接的方式访问大型网络数据库 C可以编写网络程序D可以编写ActiveX控件在设计窗体时双击窗体的任何地方，可以打开的窗口是_CA、工程资源管理器窗口B、属性窗口C代码窗口D工具箱窗口以下关于菜单

7、的叙述中，错误的是 C_。A、在程序运行过程中可以增加或减少菜单项B、弹出式菜单在菜单编辑器中设计C如果把一个菜单的Enabled属性设置为False，则可删除该菜单项 D利用控件数组可以实现菜单项的增加或减少在窗体上画一个命令按钮，其名称为 Command，1 然后编写如下事件 过程：Private Sub Comma nd1_Click()For i = 1 To 4If i = 1 Then x = iIf i = 4 Then x = x + 1Print x;Next iEnd Sub 程序运行后，单击命令按钮，其输出结果为：_C_。A、1 2 3 4B、2 3 4 4C、3 4 5

8、 6D、2 3 4 5设 x=4,y=8,z=7 ，以下表达式的值是 _C。xz) Or zxA、1B、-1C、FalseD、True设在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TelNum As String * 20End Type在窗体上画一个名为Command1命令按钮，要求当执行事件过程Command1_Clic时，在顺序文件Person.txt中写入一条Books类型的 记录。下列能够完成该操作的事件过程是 _A_。A Private Sub Command1_Click()Dim B As BooksOpen P

9、erson.txt For Output As #1B.Name=InputBox( 输入姓名 )B.TelNum=InputBox（ 输入电话号码 ）Write #1,B.Name,B.TelNumClose #1End SubB、 Private Sub Command1_Click（）Dim B As BooksOpen Person.txt For Input As #1 B.Name=InputBox（ 输入姓名 ） B.TelNum=InputBox（ 输入电话号码 ） Print #1,B.Name,B.TelNumClose #1End SubC、Private Sub Com

10、mand1_Click（）Open Person.txt For Input As #1 Name=InputBox（ 输入姓名 ） TelNum=InputBox（ 输入电话号码 ） Print #1, Name,TelNumClose #1End SubD、Private Sub Command1_Click（）Dim B As BooksOpen Person.txt For Output As #1 B.Name=InputBox（ 输入姓名 ） B.TelNum=InputBox（ 输入电话号码 ） Write #1,BClose #1End Sub在窗体上画1个名称为Commanc

11、的命令按钮，并编写以下程序：CPrivate Sub Command1_Click() Print fun(ABCDEFG)End SubFunction fun(st As String) As String stlen=Len(st) temp= For k=1 To stlen/2 temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)Next kA、ABCDEFGB、GFEDCBAC、AGBFCED、AGBFCED假定程序中有以下语句：answer = MsgBox(String1,String2,String3,2) 执行该语句后，将显示一个信息框，此时如

12、果单击“确定 ”按钮，则answer的值为：_D。A、String3B、1C、String1D、String2在程序代码中将图片文件 mypic.jpg 装入图片框 Picture1 的语句是 _C_。A、Picture1.Picture=LoadPicture(mypic.jpg)B、LoadPicture(mypic.jpg)C、Picture1.Image=mypic.jpgD、Picture1.Picture=mypic.jpg为了计算1+3+5+99的值，某人编程如下 k=1s=0While k=99k=k+2:s=s+kWendPrint s 在调试时发现运行结果有错误，需要修改。

13、下列错误原因和修改方 案中正确的是 _C_。A、循环前的赋值语句k=1错误，应改为k=0B、循环条件错误，应改为 While k99C循环中两条赋值语句的顺序错误，应改为 s=s+k:k=k+2D WhileWenc循环语句错误，应修改为 For k=1 To 99 Next k假定有如下的窗体事件过程：Private Sub Form_Click()a$ = Microsoft Visual Basicb$ = Right(a$, 5)c$ = Mic(a$, 1, 9)MsgBox a$, 34, b$, c$, 5Enc Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息A

14、、B、C、D、是_BMicrosoft VisualBasic5Microsoft在窗体上画1个名称为Commanc的命令按钮，然后编写如下事件过 程：Private Sub Commanc1_Click（）a=0For i=1 To 2For j=1 To 4If j Moc 20 Thena=a-1Enc Ifa=a+1Next jNext iPrint aEnc Sub 程序运行后，单击命令按钮，输出结果是 _C_。 A、2B、3C、4D、0要使目录列表框（名称为 Dir1 ）中的目录随着驱动器列表框（名称 为Drivel ）中所选择的当前驱动器的不同而同时发生变化，则应 _A_。A、在

15、Dir1中的Cha nge事件中，书写语句 Dir1.Drive=Drive1.DriveB、在Dir1中的Cha nge事件中，书写语句Dir1.Path=Drive1.DriveC 在Drivel中的Change事件中，书写语句Dir1.Path=Drive1.DriveD 在Drivel中的Change事件中，书写语句Dir1.Drive=Drive1.Drive下列程序段的执行结果为A QA = 0: B = 1DoA = A + BB = B + 1Loop While A 10Print A; BA、0 1B、10 5C A BD 10 30若在某窗体模块中有如下事件过程Priva

16、te Sub Comma nd1_Click (In dex As In teger)End Sub则以下叙述中正确的是_B。A、有1个名称为Commanc的控件数组，数组中有多个不同类型控件B、有1个名称为Commanc的控件数组，数组中有多个相同类型控件C有1个名称为Commanc&1窗体，单击此窗体则执行此事件过程D此事件过程与不带参数的事件过程没有区别对象的3要素是属性方法事件。标题栏最左端是窗口 _控制菜单，最右端依次是最小化最大化关闭 按钮窗体_是Visual Basic的基本运行实体。用ReDim语句重新分配动态数组时，如果要保留数组内容，即不清除数组中的内容，应使用的选择项是.

17、【参考答案】preservePreserve数组名作过程实参，相应的形参传递方式为 【参考答案】按地址传送如果工具箱中还没有CommonDialog控件，则应从 单中选定 并将控件添加到工具箱中【参考答案】 工程部件函数文件的当前读写位置是否到达文件末尾，应用 【参考答案】EOFShape属性决定形状控件的 ，当Shape属性值为0时，它的表现形式是。【参考答 形状矩形 请写出在Text1、Text2中输入96、40后，单击Command1窗体上的显示结果。Private Sub Comma nd1_Click()Dim a As Lon g,b As Lon g,r As Long a =

18、Val(Text1.Text): b = Val(Text2.Text) Do While b 0r = a Mod b: a = b: b = rLoopPrint aEnd Sub【参考答案】8【程序设计】题目：（事件）单击窗体。（ 响应）已知sum=1-1/3!+1/5!-1/7!+1/9!,请将sun结果值输出到窗体上。使用do whileloop语句完成程序【参考代码】Dim i As IntegerDim n As Integeri = 1p = 1Do While i 3000Print 从1 到:; i; 的和是 ; sEnd Sub【改错 1】 错误【学生答案】 s = 1【

19、参考答案】 s=0【改错 2】 错误【学生答案】i = i + 2【参考答案】i=i+1【改错 3】 错误【学生答案】Loop s 3000【参考答案】Loop until s3000 loop Until 3000 s程序改错】题目：下面程序可输出如下图形：*Option ExplicitPrivate Sub Form_Click()Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer11*11For i = 5 To 1 Step -1I*ERROR*Print Spc(n)For j = 1 To

20、 2 * m - 1 Print s;Next jPrint *ERROR* *ERROR*Next iEnd Sub【改错 1】 错误 【学生答案】 Print Spc(n)【参考答案】 Print Spc(n);Print Spc(i);?Spc(n);?Spc(i)【改错 2】 错误 【学生答案】 n = n + 1【参考答案】n=n-1 n=-1+n【改错 3】 错误 【学生答案】 m = m - 1【参考答案】m=m+1程序改错】题目：以下程序段用于计算5的N次方Option ExplicitPrivate Sub Form_Click()Dim n As Integer, k As

21、 Integer, s As Longn = InputBox( Input n )*ERROR*ERROR*Do While k 0 And x a(j + 1) Thenx = a(j): a(j) = a(j + 1): a(j + 1) = xI*FILL*End IfNext jI*FILL*If work Then Next iFor i = 1 To n Print a(i);Next iEnd Sub【空 1】 错误【学生答案】For i = n To 2 【参考答案】Step -1窗体设计】题目：请按照题目要求设计指定的窗体。 建立如 ( 图1) 所示界面。1：在窗体内添加 1个文本框 (Text1) ，3个标签 (Label1 ， Label2 ， Label3) ， 3个按钮 (Command，1 Command，2 Command3) ，1个组合框 (Combo1)。2：窗体设置：设置窗体名称(Name)为Form9。设置窗体标题(Caption)为VB。3：标签设置