VB计算机期末试题5.doc

操作系统管理用户数据的单位是_A_。A、文件B、文件夹 C、扇区D、磁道计算机存储器中，一个字节由_B_位二进制位组成。A、32B、8C、4D、16RAM的特点是_B_。A、存储在其中的信息可以永久保存B、一旦断电，存储在其上的信息将全部消失，且无法恢复C、只用来存储中间数据D、海量存储器CPU中，除了内部总线和必要的寄存器外，主要的两大部件分别是运算器和_D_。A、存储器B、CacheC、编辑器D、控制器计算机技术中，英文缩写CPU的中文译名是_D_。A、寄存器 B、运算器C、控制器D、中央处理器下列各组软件中，全部属于应用软件的一组是_B_。A、MS-DOS，用友财务软件，学籍管理系统B、Word 2000，Excel 2000，金山词霸C、Windows2000，WPS Office2003，Word 2000D、Unix，Visual FoxPro，AutoCAD在Word文本中,当鼠标移动到正文左边,形成右向上箭头时,连续单击鼠标( B )次可以选定全文.A、1B、3C、2D、4在Excel工作表中,F3为当前单元格,若将F3单元格中的内容清除,下列操作中不正确的是(B).A、通过编辑菜单中的剪切命令完成B、通过编辑菜单中的删除命令完成C、通过编辑菜单中的清除命令完成D、按Delete键下列文件中能自动执行的是(C).A、IO.SYSB、AUTOEXEC.EXEC、AUTOEXEC.BATD、MSDOS.SYS一个用户若想使用电子邮件功能，应当( B )A、把自己的计算机通过网络与附近的一个邮局连起来B、使自己的计算机通过网络得到网上一个mail服务器的服务支持C、通过电话得到一个电子邮局的服务支持D、向附近的一个邮局申请，办理建立一个自己专用的信箱下面正确使用动态数组的是_C_。A、Dim arr() ReDim arr(50) As IntegerB、Dim arr(50) As Integer ReDim arr(20)C、Dim arr() As Integer ReDim arr(3,5)D、Dim arr() As Integer ReDim arr(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 = Text1.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、显示指定路径下的文件在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程：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在VB6中下列_A_是不对的。A、可以写出16位应用程序B、可以通过直接访问或建立连接的方式访问大型网络数据库C、可以编写网络程序D、可以编写ActiveX控件在设计窗体时双击窗体的任何地方，可以打开的窗口是_C_。A、工程资源管理器窗口B、属性窗口C、代码窗口D、工具箱窗口以下关于菜单的叙述中，错误的是_C_。A、在程序运行过程中可以增加或减少菜单项B、弹出式菜单在菜单编辑器中设计C、如果把一个菜单的Enabled属性设置为False，则可删除该菜单项D、利用控件数组可以实现菜单项的增加或减少在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i = 4 Then x = x + 1 Print x; Next iEnd Sub程序运行后，单击命令按钮，其输出结果为：_C_。A、 1 2 3 4B、 23 4 4C、 3 4 5 6D、 2 3 4 5设x=4,y=8,z=7，以下表达式的值是_C_。xz) Or zxA、1B、-1C、FalseD、True设在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String * 10 TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是_A_。A、Private Sub Command1_Click() Dim B As Books Open Person.txt For Output As #1 B.Name=InputBox(输入姓名) B.TelNum=InputBox(输入电话号码) Write #1,B.Name,B.TelNum Close #1 End SubB、Private Sub Command1_Click() Dim B As Books Open Person.txt For Input As #1 B.Name=InputBox(输入姓名) B.TelNum=InputBox(输入电话号码) Print #1,B.Name,B.TelNum Close #1 End SubC、Private Sub Command1_Click() Open Person.txt For Input As #1 Name=InputBox(输入姓名) TelNum=InputBox(输入电话号码) Print #1, Name,TelNum Close #1 End SubD、Private Sub Command1_Click() Dim B As Books Open Person.txt For Output As #1 B.Name=InputBox(输入姓名) B.TelNum=InputBox(输入电话号码) Write #1,B Close #1 End Sub在窗体上画1个名称为Command1的命令按钮，并编写以下程序：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)执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则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=99 k=k+2:s=s+k WendPrint s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是_C_。A、循环前的赋值语句k=1错误，应改为k=0B、循环条件错误，应改为 While k99C、循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2D、WhileWend循环语句错误，应修改为For k=1 To 99Next k假定有如下的窗体事件过程：Private Sub Form_Click() a$ = Microsoft Visual Basic b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是_B_。A、Microsoft VisualB、BasicC、5D、Microsoft在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 2For j=1 To 4If j Mod 20 Thena=a-1End Ifa=a+1Next j Next i Print a End Sub程序运行后，单击命令按钮，输出结果是_C_。A、2B、3C、4D、0要使目录列表框（名称为Dir1）中的目录随着驱动器列表框（名称为Drive1）中所选择的当前驱动器的不同而同时发生变化，则应_A_。A、在Dir1中的Change事件中，书写语句 Dir1.Drive=Drive1.DriveB、在Dir1中的Change事件中，书写语句 Dir1.Path=Drive1.DriveC、在Drive1中的Change事件中，书写语句 Dir1.Path=Drive1.DriveD、在Drive1中的Change事件中，书写语句 Dir1.Drive=Drive1.Drive下列程序段的执行结果为_A_。 A = 0: B = 1 Do A = A + B B = B + 1 Loop While A 10 Print A; BA、 0 1B、 10 5C、 A BD、 10 30若在某窗体模块中有如下事件过程Private Sub Command1_Click (Index As Integer)End Sub则以下叙述中正确的是_B_。A、有1个名称为Command1的控件数组，数组中有多个不同类型控件B、有1个名称为Command1的控件数组，数组中有多个相同类型控件C、有1个名称为Command1的窗体，单击此窗体则执行此事件过程D、此事件过程与不带参数的事件过程没有区别对象的3要素是_属性 方法 事件 。标题栏最左端是_窗口_控制菜单，最右端依次是_最小化 最大化 关闭 按钮。_窗体_是Visual Basic 的基本运行实体。用ReDim语句重新分配动态数组时,如果要保留数组内容,即不清除数组中的内容,应使用的选择项是_.【参考答案】preservePreserve数组名作过程实参，相应的形参传递方式为_。【参考答案】按地址传送如果工具箱中还没有CommonDialog控件，则应从_菜单中选定_，并将控件添加到工具箱中。【参考答案】工程 部件文件的当前读写位置是否到达文件末尾，应用_函数。【参考答案】EOFShape属性决定形状控件的_，当Shape属性值为0时，它的表现形式是_。【参考答案】形状 矩形请写出在Text1、Text2中输入96、40后，单击Command1时窗体上的显示结果_。Private Sub Command1_Click() Dim a As Long,b As Long,r As Long a = Val(Text1.Text): b = Val(Text2.Text) Do While b 0 r = a Mod b: a = b: b = r Loop Print aEnd Sub【参考答案】8【程序设计】-题目： (事件)单击窗体。 (响应)已知sum=1-1/3!+1/5!-1/7!+1/9!, 请将sum结果值输出到窗体上。 使用do while.loop语句完成程序【参考代码】Dim i As IntegerDim n As Integeri = 1p = 1Do While i 3000Print 从1 到:; i; 的和是; sEnd Sub【改错1】错误【学生答案】s = 1【参考答案】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 Integern = 4m = 1s = *For i = 5 To 1 Step -1 *ERROR* Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print *ERROR* n = n + 1 *ERROR* m = m - 1Next iEnd Sub【改错1】错误【学生答案】Print Spc(n)【参考答案】Print Spc(n);Print Spc(i);?Spc(n);?Spc(i)=【改错2】错误【学生答案】n = n + 1【参考答案】n=n-1n=-1+n=【改错3】错误【学生答案】m = m - 1【参考答案】m=m+1-【程序改错】-题目：以下程序段用于计算5的N次方。-Option ExplicitPrivate Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox( Input n )*ERROR* k = 0*ERROR* s = 0 Do While k 0 And x a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x*FILL* _ End If Next j*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个按钮(Command1，Command2， Command3)，1个组合框(Combo1)。 2：窗体设置： 设置窗体名称(Name)为Form9。 设置