二级VB上机题库

昌黎科普计算机学校电话：[phone]选自“2008年上半年版捷成练习软件”科普提供配套练习软件（二级C、三级C的上机环境已调整为VC++6.0）联系QQ：153599495二二二二级级级级VVVVBBBB上上上上机机机机试题试题试题试题汇汇汇汇编编编编※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第01套：1.基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1、标题为“菜单”的窗体上，设计满足如下要求的菜单。运行后的窗体如图所示。存盘时，将文件保存至考生文件夹下，且工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。解题思路：启动VisualBasic系统，创建一个Form1窗体。在该窗体上通过菜单编辑器建立二个主菜单，在菜单编辑器的标题处分别输入“文件”和“退出”，名称处分别输入file和exit。在“文件”菜单下有二个子菜单，在菜单编辑器的标题处分别输入“新建”和“保存”，名称处分别输入new和save。参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。**********************************************************************（2）在名称为Form1的窗体上，画1个名称为Image1的图像框，左界为360，且图像框中显示考生文件夹下的图片文件“Duck.bmp”。再画2个名称分别为“Command1”、“Command2”，标题分别为“移动”、“复位”的命令按钮。如图所示。要求：编写适当的事件过程，使得每单击“移动”按钮一次，图像框向右移动10；单击“复位”按钮，图像框自动回位到左界为360的位置。*注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为昌黎科普计算机学校电话：[phone]选自“2008年上半年版捷成练习软件”科普提供配套练习软件（二级C、三级C的上机环境已调整为VC++6.0）联系QQ：153599495sjt2.frm。解题思路：启动VisualBasic系统，创建一个Form1窗体。在该窗体上画一个图像框控件，通过其属性窗口将名称设为Image1，左边界（Left属性）设为360，点击Picture属性在弹出的加载图片对话框中将Duck.bmp图片文件打开即实现加载功能。画二个命令按钮控件，通过其属性窗口将名称分别设为“Command1”、“Command2”，标题（Caption属性）分别设为“移动”、“复位”。单击“移动”按钮（即运行Click事件过程），在该Click事件过程中加入语句：PrivateSubCommand1_Click()Image1.Left=Image1.Left+10EndSub单击“复位”按钮（即运行Click事件过程），在该Click事件过程中加入语句：PrivateSubCommand2_Click()Image1.Left=360EndSub参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt2.vbp文件并运行。2.简单应用（2小题，每题20分，计40分）注意：下面出现的“考生文件夹”均为%USER%***********************************************************************（1）考生文件夹下有一个工程文件sjt3.vbp，其中的窗体上有1个名称为Cmd的命令按钮控件数组；有1个名称为Image1的图像框。请画1个名称为Timer1的计时器，时间间隔为3秒，初始状态为不可用，如图所示。程序功能如下：1）单击“前进”按钮，则Timer1的状态变为可用，且在图像框中显示3秒黄灯（图像文件为考生文件夹下的“yellow.ico”）后，显示绿灯（图像文件为考生文件夹下的“green.ico”）直至下次单击某个命令按钮；2）单击“停止”按钮，则Timer1的状态变为可用，且在图像框显示3秒黄灯后，显示红灯（图像文件为考生文件夹下的“red.ico”）直至下次单击某个命令按钮；昌黎科普计算机学校电话：[phone]选自“2008年上半年版捷成练习软件”科普提供配套练习软件（二级C、三级C的上机环境已调整为VC++6.0）联系QQ：1535994953）单击“结束”按钮，则结束程序运行。请将命令按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。解题思路：启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不全，添加一个计时器控件，通过其属性窗口将Enabled属性设为False，Interval属性设为3000。由于所提供的窗体程序不完整，在命令按钮数组的PrivateSubCmd_Click(IndexAsInteger)事件过程中，有二处地方需要修改。1)将语句'IfIndex=?Then改为IfIndex=2Then2)将语句'Timer1.Enabled=?改为Timer1.Enabled=True在计时器的PrivateSubTimer1_Timer()事件过程中，有一处地方需要修改。1)将语句'SelectCase?改为SelectCaseflag参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。**********************************************************************（2）考生文件夹下有一个工程文件sjt4.vbp，其中的窗体上已有如图所示的控件。程序功能如下：1）单击“读数据”按钮，则将考生文件夹下in4.dat文件的内容（该文件中仅含有字母和空格）显示在Text1文本框中；2）在Text1中选中部分文本，并单击“统计”按钮，则以不区分大小写字母的方式，自动统计选中文本中同时出现“o”、“n”两个字母的单词的个数（如：million、company都属于满足条件的单词），并将统计结果显示在Text2文本框内。昌黎科普计算机学校电话：[phone]选自“2008年上半年版捷成练习软件”科普提供配套练习软件（二级C、三级C的上机环境已调整为VC++6.0）联系QQ：153599495请将“统计”按钮Click事件过程中的注释符去掉，把？改为正确的内容，以实现上述程序功能。注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。解题思路：启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体程序不完整，在窗体的PrivateSubCommand2_Click()事件过程中，有四处地方需要修改。1)将语句'IfLen(s)=?Then改为IfLen(s)=0Then2)将语句'IfText1.?=0Then改为IfText1.SelLength=0Then3)将语句'x=?改为x=LCase(t)4)将语句'?=Str(m)改为Text2.Text=Str(m)参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。**********************************************************************3.综合应用（1小题，计30分）注意：下面出现的“考生文件夹”均为%USER%在考生文件夹下有一个工程文件sjt5.vbp，其功能是：昌黎科普计算机学校电话：[phone]选自“2008年上半年版捷成练习软件”科普提供配套练习软件（二级C、三级C的上机环境已调整为VC++6.0）联系QQ：1535994951）单击“读数据”按钮，则把考生文件夹下in5.dat文件中的100个正整数读入数组a中，同时显示在Text1文本框中；2）单击“素数”按钮，则将数组a中所有素数（只能被1和自身整除的数称为素数）存入数组b中，并将数组b中的元素显示在文本框Text2中。在给出的窗体文件中已经有了全部控件（如图所示），但程序不完整。要求：完善程序使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须先执行“素数”操作，然后再用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。解题思路：启动VisualBasic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。由于所提供的窗体程序不完整，需添加事件过程。单击“素数”按钮（即运行Click事件过程），在该Click事件过程中加入语句：PrivateSubCommand2_Click()Dimb(100)AsIntegernum=0IfLen(Text1.Text)=0ThenMsgBox请先执行“读数据”功能！Else'考生编写(功能：生成存放素数的数组b)'注意：请务必将数组b的元素个数存入变量num中Fori=1To100flag=0Forj=2Toa(i)-1Ifa(i)/j=Fix(a(i)/j)Thenflag=1ExitForEndIfNext昌黎科普计算机学校电话：[phone]选自“2008年上半年版捷成练习软件”科普提供配套练习软件（二级C、三级C的上机环境已调整为VC++6.0）联系QQ：153599495Ifflag=0Thennum=num+1b(num)=a(i)EndIfNext'以下程序段将b数组的内容显示在Text2中Fori=1TonumText2.Text=Text2.Text+Str(b(i))+Space(2)NextiEndIfEndSub参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※第02套：1.基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为%USER%**********************************************************************请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个水平滚动条，其名称为HScroll1，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：1）窗体标题为“设置滚动条属性”2）滚动条所能表示的最小值和最大值分别为0和2003）