VB机试题.docx

1、VB机试题1、在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程Average求数组的平均值,请装入该文件。程序运行后,在几个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的平均值,并在窗体上显示出来,如图2.9所示。这个程序不完整,请把它补充完整,并能正确运行。图2.9 要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。存盘时不得改变原工程文件名、窗体文件名及其路径(2)【考点分析】内部函数Lbound()、Ubound()、Val()、Array()、CInt(),Option

2、Base数组起始下标,自定义过程Function(),命令按钮控件的Caption属性,文本框Text属性,数组变量和窗体Print方法。 Option Base定义数组起始下标,Option Base 1指下界为1。 【解题思路】文本框里的内容(包括数字)默认都是当作字符串来处理的,如果要参与数据运算,则需要先用Val函数将其转化为数值类型。利用Array函数对数组各元素赋值,数组的上下界可用UBound和LBound函数获得,语法格式分别为:LBound(数组,维),UBound(数组,维)。单击命令按钮,通过Array()函数返回一个数组,其值分别是四个文本框的数值,并赋给数组arr1,

3、然后使用For循环将数组arr1中每个元素的数据类型转换为整型,并赋给数组arr2具有相同下标的元素,最后调用求平均值Function()过程的Average。 【操作步骤】步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供的代码 Option Base 1 Private Function Average(a() As Integer) As Single Dim Start As Integer, Finish As Integer Dim i As Integer Dim Sum As Integer Start = ?(a) Finish = ?(a) Sum = ?

4、For i = Start To Finish Sum = Sum + ? Next i Average = ? End Function Private Sub Command1_Click() Dim arr1 Dim arr2(4) As Integer arr1 = Array(Val(Text1.Text) , Val(Text2.Text) , Val(Text3.Text) , Val(Text4.Text) ) For i = 1 To 4 arr2(i) = CInt(arr1(i) ) Next i Aver = Average(?) Print 平均值是: ; Aver

5、End Sub 程序结束 参考答案 第1个?处填入:Lbound 第2个?处填入:UBound 第3个?处填入:0 第4个?处填入:a(i) 第5个?处填入:sum/Finish 第6个?处填入:arr2 步骤3:调试并运行程序,按题目要求存盘。 【举一反三】可以通过基础篇第20套第二大题的第二小题来进行同类知识点的练习。 2.在窗体Form1上建立一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;再画两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为读入数据和计算保存,程序运行界面如图2.10所示。要求程序运行后,如果单击读入数据按钮,则读入i

6、n5.txt文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击计算保存按钮,则计算其中前50个数之和,并把求和结果在文本框Text1中显示出来,同时把结果存入考生文件夹中的文件out5 txt中(在考生的文件夹下有标准模块mode.bas,其中的putdata过程可以把结果存入指定的文件)。 图2.10 注意:文件必须存放在考生文件夹下,窗体文件名为sjt5.frm,工程文件名为sjt5.vbp,计算结果存入out5 txt文件,否则没有成绩。【考点分析】本题考点有:文本框ScrollBars、Multiline属性,命令按钮控件的Name、Caption属

7、性,数组变量,文件的操作(Open、Input、Close),标准模块调用过程和Option Explicit声明语句。 文本框ScrollBars、Multiline属性分别是滚动条属性和多行属性。当Multiline属性为True时,文本框可以输入或显示多行正文。同时具有文字处理器自动换行功能。ScrollBars属性只有在Multiline属性为True时才有效。0-无滚动条;1-加水平滚动条;2-加垂直滚动条,3-同时加水平和垂直滚动条。标准模块(.Bas)在标准模块定义的过程,外部过程均可调用。文件系统控件有三种:驱动器列表框(DriveListBox),目录列表框(DirListB

8、ox)和文件列表框(FileListBox)。 1.打开文件 (1)打开文件的命令是Open,形式为:Open 文件名For 模式As # 文件号Len=记录长度。模式为下列三种形式之一:Output:打开一个文件,对该文件进行写操作;Input:打开一个文件,对该文件进读写操作;Append:打开一个文件,在该文件末尾追加记录。 (2)文件号是一个介于1 511之间的整数。 2.写操作 将数据写入磁盘文件所用的命令是Write#或Print#命令。其语法形式如下: (1) Print#文件号,输出列表。其中输出列表是指Spc(n)|Tab(n)表达式列表;|,。 (2) Write#文件号,

9、输出列表。 3.关闭文件 Close#文件号,#文件号 【解题思路】本题中涉及文本框显示的内容由Text属性设置;按钮的标题由Caption属性设置,单击命令按钮触发Click事件;本题中涉及文件的操作,读入顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是,对文件操作完后一定要关闭文件。 【操作步骤】步骤1:建立界面并设置控件属性,如图3.23所示,如图程序中用到的控件及其属性见表3.8。 图3.23步骤2:编写程序代码。 参考答案 Option Explicit Dim a(1 To 100) As Integer Dim i As Integer Private Su

10、b Cmd1_Click() Open App.Path & in5.txt For Input As #1 Text1.Text = For i = 1 To 100 Input #1, a(i) Text1.Text = Text1.Text & a(i) & Space(5) Next i Close #1 End Sub Private Sub Cmd2_Click() Dim s As Integer Text1.Text = s = 0 For i = 1 To 50 s = s + a(i) Next Text1.Text = s putdata out5.txt, s End

11、Sub 3.在考生文件夹中有一个工程文件sjt3.vbp及窗体文件sjt3.frm。请在窗体Form1上绘制3个文本框,其名称分别为Text1、Text2和Text3,文本框内容分别设置为计算机等级考试、Visual Basic和空白。然后绘制两个单选按钮,其名称分别为Opt1和Opt2,标题分别为交换和连接。编写适当的事件程序。 程序运行后,如果选中交换单选按钮并单击窗体,则Textl文本框中的内容与Text2文本框中的内容进行交换,并在Text3文本框中显示OK,如图2.13所示;如果选中连接单选按钮并单击窗体,则把Text1和Text2的内容按Text1在前,Text2在后的顺序连接起来

12、,并在Text3文本框中显示连接后的内容。 图2.13 注意:不得修改已经给出的程序。在程序运行结束之前,必须选中一个单选按钮,并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮,否则可能无成绩。存盘时不得改变原工程文件名、窗体文件名及其路径。 【考点分析】本题考点有:文本框Name、Text属性,单选按钮Name、Caption、Value属性,窗体Click事件,If条件判断语句和连接运算符+。 If条件判断语句:If Then 语句块 End If 字符串的运算符有两个:&和+,他们都是将两个字符串拼接起来。在字符串变量后使用&时应注意,变量与运算符&间加一个空格。 【解题思路】本题

13、可在窗体Form1的Click事件过程中用If语句来判断哪个单选按钮被选中,然后执行不同操作。 【操作步骤】步骤1:打开本题工程文件,建立界面并设置控件属性,程序中用到的控件及其属性见表3.11、3.12。 步骤2:编写程序代码。 参考答案 Private Sub Form_Click() If Opt1.Value = True Then Dim str As String str = Text1.Text Text1.Text = Text2.Text Text2.Text = str Text3.Text = OK End If If Opt2.Value = True Then Tex

14、t3.Text = Text1.Text + Text2.Text End If End Sub 4.在考生文件夹中有一个工程文件sjt4.vbp和窗体文件sjt4.frm。请在窗体Form1上绘制3个文本框,其名称分别为Text1、Text2和Text3,文本框内容分别设置为二级考试、计算机和空白;然后绘制2个单选按钮,其名称分别为Opt1和Opt2,标题分别为交换和连接,编写适当的事件程序。 要求在程序运行时,先单击交换单选按钮,使Text1文本框中内容与Text2文本框中内容进行交换,并使连接单选按钮消失;然后单击连接单选按钮,则把交换后的Text1和Text2的内容以Text1在前、T

15、ext2在后的顺序连接起来,并在Text3文本框中显示连接后的内容。如图2.14所示。 图2.14 注意:不得修改已经给出的程序。在程序运行结束之前,必须先单击交换单选按钮,后单击连接单选按钮。退出程序时必须通过单击窗体右上角的关闭按钮,否则可能无成绩。最后原名保存修改后的文件。 【考点分析】本题考点有:文本框Text属性,单选按钮Name、Caption、Visiable属性,单选按钮Click事件,连接运算符&。 【解题思路】本题需在每个单选按钮的Click事件过程中执行不同的操作。当单选按钮被选中时,它的Value值为True,没被选中则为False。 【操作步骤】步骤1:打开本题工程文

16、件,建立界面并设置控件属性,程序中用到的控件及其属性见表3.13、3.14。 步骤2:编写程序代码。 参考答案 Private Sub Opt1_Click() Dim temp As String temp = Text1.Text Text1.Text = Text2.Text Text2.Text = temp Opt1.Visible = False End Sub Private Sub Opt2_Click() Text3.Text = Text1.Text & Text2.Text End Sub 5. 【考点分析】本题考点有:菜单编辑器属性设置,菜单Click事件,文本框Tex

17、t属性,文本框GotFocus事件,If条件判断语句。菜单的应用要使用菜单编辑器,它有Name(名称)、Caption(标题)、内缩符号和Visable(可见)等属性。文本框GotFocus事件,指文本框获得焦点,它的相反事件是LostFocus事件,即失去焦点。 【解题思路】本题中隐藏的文本框Text3的功能相当于剪贴板。在文本框(Text1或Text2)获得焦点触发的GotFocus事件过程中,用窗体变量g_intno记录下该文本框序号(1或2)。在编辑菜单的Click事件过程中，首先根据g_intno的值不同，来判断相应文本框（Text1或者Text2）的内容是否为空，若内容为空，则设置

18、剪切和复制菜单项不可用，否则设置剪切和复制菜单项可用；其次判断Text3文本框的内容是否为空，若内容为空，则设置粘贴菜单项不可用，否则设置粘贴菜单项可用。在复制命令的单击时间过程中，根据g_intro的值不同，将相应文本框（Text1或者Text2）中的内容复制到Text3文本框中，在剪切命令的单击事件过程中，除应执行与复制命令相同的语句外，还应执行清除当前文本框中内容的语句。在粘贴命令的单击事件过程中，也要根据g_intro值的不同，将Text3文本框中的内容接入相应文本框原内容之后。【操作步骤】步骤1:打开本题工程文件,将文本框Text3的Visible属性设置为False。打开菜单设计器

19、,按表3.15建立菜单项。 步骤2:建立菜单的操作方法如下:如图3.24所示,右键单击窗体,选择菜单编辑器,打开菜单编辑器窗口,依次输入第一项的各个项目:编辑、vbEdit,输入完成后单击下一个输入下一项的各个内容,如图3.25所示。 图3.24 图3.25 步骤3:依次输入第二项的各个项目:剪切、vbCut,输入完成后单击内缩符号箭头按钮,如图3.26所示。 图3.26步骤4:输入完第二项后单击下一个,操作同步骤3。依次输入剩余的两项内容,单击确定即可,如图3.27所示。 图3.27步骤5:如图3.28所示,设置好窗体界面。 图3.28步骤6:修改程序代码。 程序提供的代码 Dim g_in

20、tno As Integer Private Sub vbcopy_Click() If g_intno=1 Then Text3.Text=Text1.Text ElseIf g_intno=2 Then Text3.Text = Text2.Text End If End Sub Private Sub vbCut_Click() If g_intno = 1 Then Text3.Text = Text1.Text Text1.Text = ElseIf g_intno = 2 Then Text3.Text = Text2.Text Text2.Text = End If End Su

21、b Private Sub vbEdit_Click() If g_intno = ? Then If Text1.Text = Then vbCut.Enabled = False vbCopy.Enabled = False Else vbCut.Enabled = True vbCopy.Enabled = True End If ElseIf g_intno = ? Then If Text2.Text = Then vbCut.Enabled = False vbCopy.Enabled = False Else vbCut.Enabled = True vbCopy.Enabled

22、 = True End If End If If Text3.Text = Then vbPaste.Enabled = False Else vbPaste.Enabled = True End If End Sub Private Sub mnuPaste_Click() If g_intno = 1 Then Text1.Text = ? ElseIf g_intno = 2 Then Text2.Text = ? End If End Sub Private Sub Text1_GotFocus() 本过程的作用是：当光标位于Text1中时，g_intno = 1 g_intno =

23、1End Sub Private Sub Text2_GotFocus() 本过程的作用是：当光标位于Text2中时，g_intno = 2g_intno = 2End Sub 程序结束 参考答案 第1个?处填入:1 第2个?处填入:2 第3个?处填入:Text1.Text+Text3.Text 第4个?处填入:Text2.Text+Text3.Text 步骤7:调试并运行程序,按题目要求存盘。 【举一反三】可以通过达标篇第49套第一大题中的第一小题和优秀篇第55套第二大题来进行同类知识点的练习。6.在考生文件夹下有一个工程文件sjt5.vbp及窗体文件sjt5.frm。在窗体Form1上已有

24、3个文本框Text1、Text2和Text3,以及程序。请完成以下工作: 在属性窗口中修改Text3的适当属性,使其在运行时不显示,窗体如图2.15所示。 建立下拉式菜单,见下表。 图2.15 窗体文件中给出了所有事件过程,但不完整,请去掉程序中的注释符 ,把程序中的问号?改为正确的内容,以便实现以下功能:当光标所在的文本框中无内容时,剪切和复制菜单项不可用,否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容,则粘贴菜单项不能用,否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。 注意:不能修改程序中的其他部分。各菜单项的标题名称必须正确。存盘时不得改变原工

25、程文件名和窗体文件名及其路径。 (1)在考生文件夹中有一个工程文件sjt3.vbp和两个窗体文件,名称分别为sjt3-1.frm和sjt3-2.frm。其功能是在程序运行时只显示名为Form2的窗体,单击Form2上的上线命令按钮,则显示名为Form1的窗体;单击Form1上的隐身命令按钮,则Form1窗体消失。程序正确运行后的界面如图2.18所示。要求: 图2.18 把Form2设为启动窗体;在属性窗口中把Form1上按钮的标题改为隐身,把Form2上按钮的标题改为上线。 本题程序并不完整,删除程序中的注释符 ,将程序中的问号?改为正确的内容,使其实现上述功能,但不得修改程序的其他部分。 存

26、盘时不得改变原工程文件名和窗体文件名及其路径。 7.在考生文件夹中有一个工程文件sjt4.vbp及其窗体文件sjt4-1.frm和sjt4-2.frm,含有Form1和Form2两个窗体,Form1为启动窗体。两个窗体上的控件如图2.19所示。 (1)【考点分析】本题考点有:命令按钮Name、Caption属性,窗体Visible属性。 【解题思路】通过设置窗体Visible属性值来决定该窗口是否可见,命令按钮的标题通过其Caption属性修改;设置启动窗体在工程属性窗口中进行;Visible属性设置对象为可见或隐藏。 【操作步骤】步骤1:程序提供了需要的控件,只需修改这些控件属性即可。For

27、m1用到的控件及其属性见表3.18,Form2用到的控件及其属性见表3.19。将窗体Form2设置为启动窗体。 表3.18 控 件 命令按钮 属 性 Name Caption 设置值 Cmd1 隐身 表3.19 控 件 命令按钮 属 性 Name Caption 设置值 Cmd2 上线 步骤2:分析并修改程序代码。 程序提供的代码 窗体1的代码: Private Sub Cmd1_Click() Form1.Visible = ? End Sub 窗体2的代码: Private Sub Cmd2_Click() Form1.Visible = ? End Sub 程序结束 参考答案 第1个?处

28、填入:False 第2个?处填入:True 步骤3:调试并运行程序,按题目要求存盘。 【举一反三】可以通过基础篇第1套第二大题中的第二小题来进行同类知识点的练习。 图2.19 程序运行后,在Form1窗体的文本框中输入有关信息(密码框中显示*字符),然后单击提交按钮则弹出确认对话框(即Form2窗体),并在对话框中显示输入的信息。单击确认按钮则程序结束;单击重输按钮,则对话框消失,回到Form1窗体。要求: 在属性窗口中把Form1的标题改为注册,把Form2的标题改为确认。 在属性窗口中设置适当的属性,使Form2标题栏上的所有按钮消失。 本题程序并不完整,删除程序中的注释符 ,将程序中的问

29、号?改为正确的内容,但不得修改程序的其他部分。存盘时不得改变原工程文件名、窗体文件名及其路径。 【考点分析】本题考点有:窗体Caption、ControlBox属性,窗体Show方法,标签Name、Caption属性,文本框PasswordChar、Text属性,单选按钮Name、Caption属性,框架Caption属性,For循环语句、If条件判断语句,窗体Print方法。 For循环语句是用来控制循环次数预知的循环结构。语句形式为: For循环变量=初值 to终值 step 步长 语句块 Exit For 语句块 Next循环变量 【解题思路】修改窗体标题是通过设置其Caption属性来

30、实现的,ControlBox属性用于设置控制菜单框是否在窗体标题栏中显示,为在窗体标题栏中只显示标题信息,需将该属性值设置为False。文本框的PasswordChar属性可设置用于屏蔽在文本框中输入内容的字符,如*。程序运行时,通过窗体的Show方法可加载并显示该窗体。 【操作步骤】步骤1:将Form1的Caption属性改为注册,Form2的Caption属性改为确认,ControlBox属性改为False。 步骤2:打开本题工程文件,修改程序代码。 程序提供的代码 Private Sub Cmd1_Click() Dim k As Integer Form2. ? Form2.Print Form1.Lab1.Caption; Form1.Text1 Form2.Print Form1.Lab2.Capti