《vb机试答案》word版.doc

全真上机考试试卷(六)与解答一、基本操作(4小题，其中第(1)、(2)题每题7分，(3)、(4)题每题8分，共30分)请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个列表框，名称为L1，高度为800，宽度为1000，字体为“隶书”，并通过属性窗口为其添加4个列表项，依次为“北京”、“上海”、“天津”和“重庆”。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。分析：在窗体上建立好控件后，先设置控件的属性。在Visual Basic中，控件的高度由Height属性设置，宽度由Width属性设置。这两种属性可以通过在属性窗口中直接输入属性值来设置。控件的字体由Font属性来设置，该属性通过对话框来设置。列表框用于在很多项目中作出选择的操作。向列表框中添加项目既可以在属性窗口中进行，也可以在程序代码中进行。解题步骤：第一步：建立界面和设置控件属性。程序用到的控件及其属性如下表所示。控件属性设置值列表框NameHeightWidthFontL18002000隶书当在属性窗口中向列表框添加表项时，其方法是：保持L1为活动状态，在属性窗口中单击List属性，然后单击其右端箭头，将下拉一个方框，在其中输入“北京”，然后按Ctrl+Enter组合键换行，重复上述步骤，直到输入“重庆”后，按回车键结束全部输入。第二步：编写程序代码。本程序不需要用户编写事件过程，就能实现题目要求的功能。第三步：按题目要求存盘。(2)在Form1的窗体上建立一个二级下拉菜单，第一级共有二个菜单项，名称分别为File和Edit，标题分别为“文件”、“编辑”；在“编辑”菜单下有第二级菜单，含有三个菜单项，名称分别为Cut、Copy和Paste，标题分别为“剪切”、“复制”和“粘贴”，其中“粘贴”菜单项设置为无效。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。分析：在Visual Basic中，菜单也被看作控件，具有属性和事件。菜单的建立在菜单编辑器中完成。菜单的级数通过内缩符号来表示，第一级菜单没有内缩符号，第二级菜单的内缩符号为1。菜单的有效性由“有效”复选框控制，当在复选框中打“”时，表示有效，否则无效。解题步骤：第一步：建立界面和设置对象属性。程序用到的控件及其属性如下表所示。控件属性设置值菜单名称标题File文件菜单名称标题Edit编辑菜单名称标题内缩符号Cut剪切1菜单名称标题内缩符号Copy复制1菜单名称标题有效内缩符号Paste粘贴False1第二步：编写程序代码。本程序不需要用户编写事件过程，就能实现题目要求的功能。第三步：按题目要求存盘。(3)在名称为Form1的窗体上画一个文本框，名称为T1；再画两个命令按钮，名称分别为C1、C2，标题分别为“隐藏”、“显示”(如图所示)。请编写适当的事件过程，使得在运行时，如果单击“隐藏”按钮，则文本框消失；而如果单击“显示”按钮，则文本框显示出来。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。分析：在窗体上建立好控件后，先设置控件的属性，再编写事件过程。命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。文本框的可见性由Visible属性设置，当Visible属性为True时，表示文本框可见；当Visible属性为False时，表示文本框不可见。控制文本框可见性的代码应该放在命令按钮的Click事件过程中。解题步骤：第一步：建立界面和设置对象属性。程序用到的控件及其属性如下表所示。控件属性设置值文本框NameTextT1空白命令按钮NameCaptionC1隐藏命令按钮NameCaptionC2显示第二步：编写程序代码。参考代码： Private Sub C1_Click() Text1.Visible=False End Sub Private Sub C2_Click() Text1.Visible=True End Sub第三步：按题目要求存盘。(4)在名称为Form1的窗体上画两个文本框，名称分别为T1、T2。请设置控件的适当属性，并编写适当的事件过程，使得程序在运行时，如果在T1中每输入一个字符，则显示一个“*”，同时在T2中显示输入的内容(如图所示)。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。分析：在窗体上建立好控件后，先设置控件的属性，再编写事件过程。文本框中显示的文本由Text属性设置，当在文本框中输入一个字符时，触发Change事件。要使T2中同时显示T1中的内容，可在T1的Change事件中，将其Text值赋给T2的Text属性。要使程序在运行时，在文本框中输入任何字符都显示为“*”，可以通过将PasswordChar属性设置为“*”来实现。PasswordChar属性返回或设置一个值，该值指示所键入的字符或占位符在文本框中是否要显示出来，可以利用该属性来设置口令。解题步骤：第一步：建立界面和设置控件属性。程序用到的控件及其属性如下表所示。控件属性设置值文本框NamePasswordCharT1*”文本框NameT2第二步：编写程序代码。 参考代码： Private Sub Text1_Change() Text2.Text=Text1.Text End Sub 第三步：按题目要求存盘。二、简单应用（2小题，每题20分，共40分）（1）在名称为Forml的窗体上有两个图片框，名称分别为P1、P2，高度均为1900，宽度均为1700，通过属性窗口把图片Picl.bmp分别装入P1、P2中，然后把P2隐藏(如图所示)。编写适当的事件过程，使得程序在运行时，如果在P1上按下鼠标右键，则清除P1中的图片；如果按下鼠标左键，则重新载入原图片。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。分析：在窗体上建立好控件后，先设置控件的属性，再编写事件过程。图片框的高度由Height属性设置，宽度由Width属性设置，在属性窗口中，通过对话框将图片载入图片框，图片框的可见性由Visible属性设置。在程序代码中清除图片，可用LoadPicture函数载入一个空图片即可。按下鼠标键时触发MouseDown事件，要判断按下的鼠标键，可以使用Button参数。当按下鼠标左键时，Button参数值为1；按下鼠标右键时，Button值为2。解题步骤：第一步：建立界面和设置控件属性。本题用到的控件及其属性如下表所示。控件属性设置值图片框NamePictureHeightWeightP1载入Pic1.bmp19001700图片框NamePictureHeightWeightVisibleP2载入Pic1.bmp19001700False第二步：编写程序代码。参考代码： Private Sub P1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then P1.Picture=LoadPicture( ) End If If Button=1 Then P1.Picture=P2.Picture End If End Sub第三步：按题目要求存盘。(2)新建一个工程文件sjt6.vbp，请在窗体上画两个复选框，名称分别为Ch1、Ch2，标题分别为“数据库”、“网络”；再画一个文本框，名称分别为T1；然后画一个命令按钮，名称为C1，标题为“确定”(如图所示)。请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮后，按照下表在文本框中显示相应内容。 “数据库”“网络”在文本框中显示的内容选中选中我选的课程是数据库网络不选选中我选的课程是网络选中不选我选的课程是数据库不选不选我选的课程是注意：退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生下表一个结果的操作。否则可能无成绩。分析：在窗体上建立好控件后，先设置控件的属性，再编写事件过程。复选框用来表示状态，在程序运行期间可以改变其状态。复选框的标题由Caption属性来设置，复选框的Value属性用来表示复选框的状态。其取值有如下几种：0表示复选框未被选中；1表示选中该复选框；2表示该复选框被禁止(灰色)。文本框中显示的文本由其Text属性表示。命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。由于在文本框中显示的内容的格式为“我选的课程是*”，可以定义一个字符串变量来表示字符串中可变部分。解题步骤：第一步：建立界面和设置控件属性。本题用到的控件及其属性如下表所示。控件属性设置值复选框NameCaptionCh1数据库复选框NameCaptionCh2网络文本框NameTextT1空白命令按钮NameCaptionC1确定第二步：编写程序代码。 Private Sub Form_Unload(Cancel As Integer) Open “out6.txt” For Output As #1 Print #1，Ch1.Value，Ch2.Value，Text1.Text Close #1 End Sub Private Sub Command1_Click() Textl.Text=我选的课程是 If Checkl.Value=1 Then strtemp1=数据库 End If If Check2.Value=1 Then strtemp2=网络 End If Text1.Text=Text1.Text+strtemp1+strtemp2 End Sub第三步：按题目要求存盘并进行相应的操作。三、综合应用（1小题，共30分）新建一个工程名为sjt7.vbp，在Forml的窗体上有两个文本框，名称分别为T1和T2；还有三个命令按钮，名称分别为C1、C2和C3，标题分别为“输入”、“计算”和“存盘”(如图所示)。该工程中有一个函数过程IsPrime可以在程序中调用，其作用是判断参数x是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“输入”按钮，就把文件in7.txt中的一个整数放入T1中：单击“计算”按钮，则找出大于T1中的整数的第一个素数，并显示在T2中；单击“存盘”按钮，则把T2中的计算结果存入out7.txt文件中。注意：考生必须把计算结果通过“存盘”按钮存入out7.txt文件中。分析：在窗体上建立好控件后，先设置控件的属性，再编写事件过程。文本框中显示的内容由Text属性设置。命令按钮的标题由Caption属性设置，单击命令按钮触发Click事件。在本题中涉及到文件的操作，读入顺序文件以顺序输入的方式打开，用Input #语句读取数据；写入顺序文件以顺序输出的方式打开，用Print #语句将数据写入文件。题目中有一个Flag变量，用来接收IsPrime函数的返回值。在寻找题目要求的素数时，可以使用While语句，当找到一个素数时结束循环。解题步骤：第一步：建立界面和设置控件属性。题目提供了程序用到的控件及其属性，如下表所示。控件属性设置值文本框NameTextT1空白文本框NameTextT2空白命令按钮NameCaptionC1输入命令按钮NameCaptionC2计算命令按钮NameCaptionC3存盘第二步：编写程序代码。 Private Function IsPrime(a As Integer)As Boolean Dim Flag As Boolean Flag=True b=2 Do While b=Int(a2)And Flag If Int(ab)=abThen Flag=False Else b=b+1 End If Loop IsPrime=Flag End Function Private Sub C1_Click() Dim i As Integer Open App.Path+in7.txt For Input As #1 Input #1，i Close #1 T1.Text=Str(i) End Sub Private Sub C2_