VB上机题库答案

第1套题解析题目一：基本操作题(1)【解题思路】水平滚动条的昀大刻度值和昀小刻度值分别由Max和Min属性设置；单击滚动条上滚动框以外的区域移动刻度值大小由LargeChange属性设置，而单击滚动条两边按钮移动刻度大小由SmallChange属性设置，本题要求单击滚动条上滚动框以外的区域移动刻度大小则由LargeChange属性设置；标签标题显示由Caption属性设置。【操作步骤】步骤1：打开VisualBasic，按照题目的要求新建窗体并添加一个水平滚动条控件。步骤2：在属性窗口中，设置水平滚动条的名称为H1,然后设置其LargeChange的值为10，Max的值为100，Min的值为1。步骤3：再在窗体上水平滚动条的左右两端的下方添加两个标签控件Label1和Label2。步骤4：在属性窗口中将Label1的名称设置为L1，将Caption属性设置为1;再将Label1的名称设置为L2，将Caption属性设置为100.程序中用到的控件及属性见表3.1。步骤5：按下键盘上的F5键运行程序。步骤6：保存工程，设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm。【举一反三】可以通过第40套第一大题的第二小题来进行同类知识点的练习。(2)【解题思路】在编辑窗体中单击右键选择菜单编辑器来创建菜单，在菜单的Click事件中，通过对Text2.Text属性的设置来完成对于内容的清除和复制。【操作步骤】步骤1：新建窗体，按表3.2建立菜单项并设置其属性。步骤2：菜单项设置完成后，单击确定按钮。步骤3：添加文本框控件，按照表3.3设置文本框的属性。表3.3控件文本框1文本框2属性NameName设置值Text1Text2步骤4：编写程序代码。参考答案PrivateSubClear_Click()Text2.Text=EndSubPrivateSubCopy_Click()Text2.Text=Text1.TextEndSub步骤5：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第32套第一大题的第一小题来进行同类知识点练习。题目二：简单应用题(1)【解题思路】通过文本框的Name属性设置文本框名称；在窗体上添加单选按钮，通过Name属性设置名称，右击单选按钮进行复制，弹出对话框，选择创建单选按钮数组，并通过Caption属性设置每一个单选按钮的标题；通过命令按钮Name和Caption属性分别设置命令按钮的名称和标签；设置两个字符型变量a、b，a＝我坐，b＝我开，用于SelectCase选择语句的字符串连接；通过对单选按钮数组Index属性查询，实现单击单选按钮完成字符串连接和文本框显示操作的功能。【操作步骤】步骤1：打开本题工程文件，在窗体中添加一个单选按钮数组，包含3个单选按钮。再添加一个文本框。步骤2：按照题目要求设置控件的属性，见表3.4。步骤3：分析并编写程序代码。PrivateSubOp1Click(IndexAsInteger)DimaAsString,bAsString,cAsStringa=我坐b=我开'SelectCase?Case0Text1.Text=a＋Me.Op1(0)．Caption＋去Case1'Text1.Text=?＋Me.Op1(1)．Caption＋去Case2Text1.Text=b＋Me.Op1(2)．Caption＋去EndSelectEndSub程序结束参考答案第一个？处填入：Index第二个？处填入：a【举一反三】可以通过第41套第二大题第二小题来进行同类知识点的练习。(2)【解题思路】在窗体上建立好控件后，先设置控件属性，再编写事件过程。本题需注意容器中控件的画法。命令按钮标题由Caption属性设置，单击命令触发Click事件；单选按钮的标题由Caption属性设置，程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现，其形式为：文本框名．Text=显示的内容。在VB程序中，Open语句用于打开数据文件，打开顺序文件的基本格式为：OpenFileNameForModeAs#FileNumber。其中，FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出，Append用于追加写入，Input用于读取；FileNumber为打开文件时指定的句柄。读文件操作在窗体的Load事件过程中完成，写文件操作在命令按钮的Click事件过程中完成。【操作步骤】步骤1：打开本题工程文件，在窗体中添加两个框架，一个命令按钮和4个单选按钮。步骤2：为步骤1建立的控件设置相关属性，程序中用到的控件及属性见表3.5和表3.6。步骤3：分析并编写程序代码。程序提供代码PrivateSubFormUnload(CancelAsInteger)Openout4.txtForOutputAs#1Print#1,Op1.Value,Op2.Value,Op3.Value,Op4.Value,Text1.TextClose#1EndSub程序结束参考答案PrivateSubC1_Click()Text1.Text=我是IfOp1.ValueThenText1.Text=Text1.Text&Op1.CaptionElseText1.Text=Text1.Text&Op2.CaptionEndIfIfOp3.ValueThenText1.Text=Text1.Text&Op3.CaptionElseText1.Text=Text1.Text&Op4.CaptionEndIfEndSub步骤4：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第43套第二大题第一小题来进行同类知识点练习。题目三：综合应用题【解题思路】单选按钮数组常用于提供唯一选择，Value属性值决定每个单选按钮的选中状态：False为未选中，True为选中，Caption属性用于设置单选按钮的标题。本题在For循环语句(循环变量k的初值为0，终值应为3)逐一检查每个单选按钮是否被选中，用变量n记录选中单选按钮的索引号。然后取消对当前选中单选按钮的选择，使单选按钮数组中的下一个按钮被选中。如果当前已经选中昀后一个单选按钮，则将n赋值为0，重新从单选按钮数组的第1个元素开始。【操作步骤】步骤1：打开本题工程文件。步骤2：编写程序代码。参考答案PrivateSubCommand1_Click()Dima()AsLongDimiAsIntegerDimnAsIntegerFori=0ToOp1.Count-1IfOp1(i).Value=TrueThenn=Val(Op1(i).Caption)ExitForEndIfNextReDima(n)a(1)=1a(2)=1Fori=3Tona(i)=a(i-1)+a(i-2)NextText1.Text=a(n)EndSub步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过27套第二大题第二小题来进行同类知识点的练习。第2套题解析题目一：基本操作题(1)【解题思路】通过标签的Caption和Name属性设置标题和名称；通过文本框Name、Height、PasswordChar和Width属性分别设置文本框的名称、高度、显示*字符和宽度；通过窗体Caption属性设置窗体的标题密码窗口。【操作步骤】步骤1：新建一个窗体，在窗体中添加一个标签，名称设置为L1，将标签的Caption属性设置为请输入密码。然后再添加一个文本框，设置其名称为Text1,然后设置其Height属性为300，设置其Width属性为2000，设置其PasswordChar属性为*。昀后将Form1的Caption属性设置为密码窗口。步骤2：调试并运行程序。步骤3：设置工程文件名为sjt1.vbp,设置窗体文件名为sjt1.frm，昀后保存工程。【举一反三】可以通过第9套第一大题第二小题来进行同类知识点的练习。(2)【解题思路】通过图边框Name属性设置图片框的名称，运用图片框Print方法，使图片框上显示字符，运用窗体Print方法，使窗体上显示字符。【操作步骤】步骤1：新建一个窗体，然后在窗体上添加一个图片框。图片框的的属性见表3.7。表3.7控件图片框属性Name设置值P1步骤2：编写程序代码。参考答案PrivateSubForm_Click()Form1.Print单击窗体EndSubPrivateSubP1_Click()P1.Print单击图片框EndSub步骤3：调试并运行程序，然后设置工程文件名为sjt2.vbp,设置窗体文件名为sjt2.frm，昀后保存工程。【举一反三】可以通过第5套第一大题第二小题来进行同类知识点练习。题目二：简单应用题(1)【解题思路】工程文件中已建立全部控件，只需编写事件过程即可。Timer1控件的Interval属性用来控制计时器事件发生的时间间隔，通过题意可知，该属性设置为100(Interval是以毫秒为单位)。当单击发射按钮时开始计时，将计时器控件的Enabled属性设置为True。如果使航天器即P1停止移动，则将计时器控件的Enabled属性设置为False。【操作步骤】步骤1：按题目要求打开工程文件，设置计时器属性,将Enabled属性设置为False，并将Interval属性设置为100。步骤2：分析并编写程序代码。程序提供代码PrivateSubC1_Click()'Timer1.Enabled=?EndSubPrivateSubTimer1_Timer()Statica%a=a=+1'IfP1.TopP2.Top＋P2.?ThenP1.MoveP1.Left,P1.Top-5-a,P1.Width,P1.HeightElse'Timer1.Enabled=?EndIfEndSub程序结束参考答案第1个？处填入：True第2个？处填入：Height第3个？处填入：False步骤3：调试并运行程序，关闭程序后按题目要求存盘。【举一反三】可以通过第25套第二大题第二小题来进行同类知识点的练习。(2)【解题思路】通过For循环语句实现xn()的乘幂运算；Click事件过程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的运算结果；运用Call语句调用SaveResult函数对于结果进行保存，涉及文件的Open、Close和Output操作，昀后将结果保存在文件夹下的out4.dat文件中。【操作步骤】步骤1：打开本题工程文件。步骤2：分析并编写程序代码。程序提供代码PrivateFunctionxn(aAsSingle,mAsInteger)DimiAsIntegertmp=1Fori=1Tom'tmp=?Next'xn=?EndFunctionPrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimtAsSingleDims,xAsSinglen=Val(Text1.Text)x=Val(Text2.Text)z=0Fori=2Tont=x+i'z=z+？Next'Label1.Caption=?CallSaveResultEndSubPrivateSubSaveResult()OpenApp.Path&\out4.datForOutputAs#1Print#1,Label1.CaptionClose#1EndSub程序结束参考答案第1个？处填入：tmp*a第2个？处填入：tmp第3个？处填入：xn(t,i)第4个？处填入：z步骤3：按照题目要求调试并运行程序。步骤4：关闭程序后，按照题目要求保存工程和窗体文件。【举一反三】可以通过第22套第二大题第二小题来进行同类知识点练习。题目三：综合应用题【解题思路】除了1和它本身以外，不再有别的约数，这种整数叫做素数。判别某数m是否