高职vb复习题答案-2011.pdf

该【高职vb复习题答案-2011 】是由【小屁孩】上传分享，文档一共【10】页，该文档可以免费在线阅读，需要了解更多关于【高职vb复习题答案-2011 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。:..一、单项选择题(共10小题,每题2分,共20分),、、、、,系统自动执行启动窗体的某个事件过程。-、桌面、标题栏、立即窗口、图片框、状态栏、打印机、代码窗口中的____个对象上输出数据。。,都具有一个共同属性。。,在其单击事件Command1_Click()的事件过程代码中只有一句::..Move500,500,则程序运行后,单击该命令按钮,执行的操作为________。、、、、(Listl)中已有三个数据项,那么把数据项“Shanghai”添加到列表框的最后,应使用语句________。。、判断题(共10小题,每题1分,共10分),字符型常量应使用"#",响应对象的外部动作称为事件,,数组声明Dima(-2TO5)共有8个元素。。,数组声明Dima(2,5)共有10个元素。(Image)控件可以让加载在其中的图形改变大小以适应图像框的尺寸。T:..、填空题(共5个空,每空2分,共10分),如果不允许进行操作,应通过__ENABLED___________属性进行设置。$(s$,4,3),len(s$)语句后,输出结果是__def______和__8______。“字体”对话框需使用_showfont___________方法。,应设置该控件的_stretch___________属性为True。四、读程序,给结果(共3小题,每题5分,共15分)1、有如下程序1、mand1_Click()请输入一个整数请输入一个整数Printa+bEndSub程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为____777_______2、有如下程序mandl的命令按钮和两个名称分别为:..Textl?Text2的文本框,然后编写如下事件过程:mand1_Click()n==10Case2,4,6x=20CaseIs<10x=30Case10x==xEndSub程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是______10______3、在窗体上面画一个命令按钮,然后编写如下事件过程:OptionBase1mand1_Click()Dimaa=Array(1,2,3)j=1Fori=1To3:..s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序,单击命令按钮,其输出结果是___321______。五、程序改错题(共15分)程序修改:程序中有三处错误,均在??????found????????的下一行,请予以改正注意:仅在指定处修改,并且不得增删程序行。程序功能为:在窗体上添加1个文本框、1个命令按钮,在文本框中任意输入若干字符后,单击命令按钮则在窗体上显示文本框1中输入的字母a,b,c的个数。(如输入etciauby5,则输出3)mand1_Click()Fori=1ToLen(Text1)s=Mid(Text1,i,1)???????????????????found????????????????SelectCases:..???????????????????found????????????????Case“a”,”b”,“c”n=n+1Endselect???????????????????found????????????????nextPrintnEndSub六、程序设计题(共2小题,第1题10分,第2题20分)”加倍”(mand1)具有如下的功能:将文本框txt1中输入的数值加倍后,在文本框txt2中显示其结果,请写出该命令按钮的单击事件过程内的程序代码。(10分)mand1_Click()Text2=2*text1Endsub:..:从一维数组中,找出共有多少水仙花数,水仙花数是一个3位数,其个位、十位、百位的立方和等于该数。如:153=1*1*1+5*5*5+3*3*3。要求:请在下图所示的窗体上添加一个文本框text1和一个命令按钮command1,文本框内容可多行显示,水平滚动条,且运行时不能修改文本内容。(属性设置在下面的表格中)编写narc过程代码,查找数组a()中水仙花数个数j。可自行设定必要的变量,但不得改变程序其余部分和已有的变量定义。请完善程序。(20分)属性—text1名称Text1Enabled:..LockedtrueMaxLengthruescrollbars1TabIndexTabTtopVisiblemand1mand1标题(Caption)Dima()AsVariant'一维数组DimjAsInteger'水仙花数PrivateSubnarc(a()AsVariant,jAsInteger)''此处输入代码,不许改动程序其他部分j=0Fori=0To5g=a(i)Mod10:..Ifa(i)=g*g*g+s*s*s+b*b*bThenj=j+1EndIfNextiEndSubmand1_Click()Callnarc(a(),j)Text1=jEndSubPrivateSubForm_Load()a=Array(950,153,546,370,371,658)Text1=a(0)&vbCrLf&a(1)&vbCrLf&a(2)&vbCrLf&a(3)&vbCrLf&a(4)&vbCrLf&a(5)EndSub:..