VisualBasic程序设计形成性考核册作业答案二

VisualBsdic程序设计形成性考核册作业答案二一、选择题1．按照变量的作用域可将变量划分为（B）。A、公有、私有、系统B、全局变量、模块级变量、过程变量C、动态、常数、静态D、Public、Private、Protected2.可获得字符的ASCII码的函数是（C）。Ａ、ValＢ、FixＣ、AscＤ、Chr3、要退出Do….Loop循环，可使用的语句的（D）语句。A、ExitB、ExitForC、EndDoD、ExitDo4.把数值型转换为字符串型需要使用的函数是（B）。A、ValB、StrC、AscD、Chr5.关于语句行，下列说法正确的是（B）。Ａ．一行只能写一条语句Ｂ．一条语句可以分多行书写Ｃ．每行的首字符必须大写Ｄ．长度不能超过255个字符６．表达式6+10Mod4*2+1的值是（A）．Ａ．９Ｂ．11C．１D.37.以下可以作为ＶisualBasic变量名的是（B）．Ａ．SINB.CO1C.COS(X)D.X(-1)8.表达式Ａbs(-5)+Len(“ABCDE”)的值为（C）．Ａ．5ABCDEＢ.－5ABCDEC.10D.09.在代码编辑器中，如果一条语句太长，无法在一行内写下（不包括注释），要折行书写，可以在行末使用续行字符（A），表示下一行是当前行的继续．Ａ．一个空格加一个下划字符（＿）Ｂ．一个下划字符（＿）Ｃ．直接回车Ｄ．一个空格加一个字符（－）10.Sub过程与Function过程最根本的区别是（D）．Ａ．Sub过程可以使用Ｃall语句或直接使用过程名调用，而Function过程不可以．Ｂ．Function过程可以有参数，Sub过程不可以．Ｃ．两种过程参数的传递方式不同．Ｄ．Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值．11.＂Ｘ是小于80的非负数＂，用VB表达式表示正确的是（C）.A..0≤X80B.0=X80C.0=xandx80D.0=xOrx8012.在设计菜单时,如果要在菜单中加入一个菜单分隔条,则菜单分隔条的标题必须设置为(B)A.加号(+)B.减号(-)C.星号(*)D.感叹号(!)13.如果要在程序中显示一个弹出式菜单,那么要调用VisualBasic中提供的方法是(D).A.PrintB.MoveC.RefreshD.PopupMenu14.下列可以用来存储图像供其他对象使用的控件是(C).A.ToolBarB.StatursBarC.ImageListD.TreeView15.当单击工具拦上的按扭时,会触发的事件是(A).A.ButtonClickB.ChangeC.LoadD.KeyPress16.要利用公用对话框控件来显示”打开文件”对话框,需要调用控件的(B)方法.A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor17.对于窗体级变量,下列说法中错误的是(C).A.所在窗体的各子程序都可以访问B.其他窗体的子程序不能访问C.所在窗体发子程序不能访问用Private定义的窗体级变量D.一定要在所在窗体的通用区内定义18.从一个字符串中的第3个字符开始,获取5个字符,应使用(B)A.Len函数B.Mid函数C.Left函数D.Right函数19.用下面的语句所定义的数组的元素的个数是(D).DimA(-3To5)AsIntegerA.6B.7C.8D.920.有如下程序段:DimstrlAsString*5Strl=”VisualBasic”当该段程序被执行完时,变量strl的值为(B).A.”Visual”B.”Visua”C.”V”D.”VisualBasic”二、填空题1．菜单一般有_下拉式_和_弹出式__两种基本类型。2．通用对话框控件可显示的常用对话框有__打开_、_保存_、__颜色_、__字体_、__打印_。3．组合框具有__文本框_和__列表框_两种控件的基本功能。4．要使数组的默认下标从“1开始，则应在窗体或标准模块代码的声明部分使用语句__OptionBase1_。5．调用Sub过程时，使用__call__语句,语句用于把程序控制传送到一个VisualBasic的Sub过程。6．若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过_工程_菜单__属性_命令的_通用_选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行_Form1.show_语句。7．列表框中项目的序号是从_0_开始的。8．Sub过程与Function过程最根本的区别是_Sub过程名无返回值，Function过程名有返回值。9．VB的代码存储在模块中。在VB中提供了三种类型的模块：_类模块_、_窗体模块__和_标准模块_。10．使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体__卸载_，被调用的窗体中的属性等已处于_内存中_。11．将下列数学式子写成VisualBasic表达式。⑴答：2*cos(a)*sin(a)/(2*a)⑵答：sqr(s*(s-a)*(s-b)*(s-c))⑶sin45°:sin(45*2*3.1415/360)_12.将下列数学式子各条件写成VisualBasic逻辑表达式。⑴1≤x12:1=xandx12⑵A+B≥C或a-c≤c:(A+B)=COR(a-c)=c⑶a和b都为正整数或同为负数:(a=0andb=0)or(a=0andb=0)13．设A=2，B=3，C=4，D=5。表达式NotA=COr4*B^2AndBA+C的值为_False_。14．在VisualBasic语言中有三种形式的循环结构。其中，若循环的次数可以事先确定，可使用_For…next__循环；若要求先判断循环进行的条件，可使用_Dowhile…loop_循环或_while…Wend_循环。15．以下语句的输出结果是__3_。a%=3.14159Printa%三、阅读下列程序，写出程序运行结果。1、PrivateSubForm_Click()StaticSumAsIntegerForI=1to100Sum=Sum+INextIPrintSumEndSub程序运行结果为：1+2+…….+99+100=50502、privateSubForm_Click()A=10:b=15:c=20:d=25PrintA;Spc(5);b;Spc(7);cPrintA;Spc(8);b;Space$(5);cPrintc;Spc(3);”+”;Spc(3);c+dEndSub10(5个空格)15(7个空格)2010(8个空格)15(5个空格)2020(三个空格)+(三个空格)453、PrivateSubForm_click()Fori%=1to3Forj%=1toiPrintLTrim(Str(i%))+“*”+LTrim(Str(j%))+“=”;i%*j%;Nextj%PrintNexti%EndSub1*1=12*1=22*2=43*1=33*2=63*3=94、PrivateSubCommand1_Click()Dima,bAsIntegerA=3.4B=3.4Text1.Text=aText2.Text=bEndSubText1显示3、4Text2显示35、PrivateSubForm_Click()ForI=1to5PrintTab(11–I)ForJ=1ToI*2–1Print“*”;NextNextiEndSub*************************四、程序设计题1、购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输入优惠后的价格。程序运行结果如图解所示。IfVal(text1)=500thentext2=Val(text1)*0.7ElseifVal(text1)=300thentext2=Val(text1)*0.85ElseifVal(text1)=200thentext2=val(text1)*0.9Elseifval(text1)=100thentext2=val(text1)*0.95Endif2、输出100~200之间不能被3整除的的数，要求用Do语句的一种形式来实现，程序运行结果如图5所示。窗体的装入事件中加入如下代码：DimaasintegerA=100Dowhilea=200If(amod3)0thenList1.additenstr(a)EndifA=a+1loop3、编写程序，打印如下的乘积表：DimI,jasintegerPrint”*”:space(5):Fori=3to12step3Printstr(i);space(5);NextiPrintForI=15to18Printstr(i);space(3);Forj=3to12step3Printstr(i*j);space(4);NextjPrintNextj4、设计一个计算程序。该程序用户界面如图7所示。要求程序运行后，用户选中单击选按钮，则程序作10和2的相应计算，并把计算结果在文本框中显示出来。如用户选中加法单选按钮，则程序作10和2的相加，计算结果12在文本框中显示出来。按结束，则退出。乘法单选按钮的单击事件中添加如下代码：Text1=10*2除法单选按钮中添加如下代码：Text1=10/2加法单选按钮中添加如下代码：Text1=10+2减法单选按钮中添加如下代码：text1=10-2结束按钮中代码:end或unloadme5、编写输入一个0~6数字，显示汉字对照输出星期的Function过程。程序运行结果如图8所示。文本框的change事件中代码如下:Selectcaseval(text1)Case0Label1.caption=”星期天”+chr(13)+”(Sunday)”Case1Label1.caption=”星期一”+chr(13)+”(monday)”Case2Label1.caption=”星期二”+chr(13)+”(Tuesday)”Case3Label1.caption=”星期三”+chr(13)+”(wednesday)”Case4Label1.caption=”星期四”+chr(13)+”(thursday)”Case5Label1.caption=”星期五”+chr(13)+”(firday)”Case6Label1.caption=”星期六”+chr(13)+”(saturday)”Endselect6、编写一个程序，当鼠标移到Picturel控件时，鼠标指针改变形状；当在Picturel控件上单击鼠标右键时，通过消息框显示“Youpressedrightbutton”，并再次改变鼠标指针的形状。Picture1_mouseupIfbutton=2thenI=1Msgbox”youpressedrightbutton”EndifEndsub7、列表框应用程序。要求从文本框中输入姓名，然后按“添加”按钮，把姓名添加到列表框中；当选择列表框中某一项时，按“删除”按钮，从列表框中删除；当列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。程序运行结果如图9所示。添加按钮代码：list1.additemtext1.textText1.text=””删除:iflist1.text””thenList1.removeitem=list1.listindexEndif修改:Ifcommand3.caption=“修改”thenText1.text=list1.te