资源描述:
《第五章vb 数据的输入输出-2》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、四、其它方法和属性1.Cls方法格式:[对象.]Cls功能:清除对象中显示的文字或图形,并把光标移到对象的左上角(0,0)。适用对象:对象只能是窗体或图片框,如果省略“对象”则默认为当前窗体。例:Picture1.cls ’清除图片框picture1内的图形和文本Cls ’清除当前窗体内显示的内容注意:(1)当窗体的背景是用Picture属性装入图形时,不能用Cls清除,只能通过Loadpicture方法清除。(2)文本框中的显示内容也不能用Cls清除,必须用 Text.Text="",即用空格替代原内容。练习:画如下程序界面。输入以下程序:PrivateSubForm_C
2、lick()Print:PrintFontName="隶书"FontSize=25Print"学号";Spc(4);"姓名";Spc(4);"年龄";Spc(4);"籍贯"Print"0501";Spc(4);"李美";Spc(4);18;Spc(4);"湖南"Print"0502";Spc(4);"王强";Spc(4);19;Spc(4);"上海"EndSubPrivateSubCommand1_Click()Text1.Text=""’不能用ClsEndSubPrivateSubCommand2_Click()Form1.Cls’可以用ClsEndSub2.Move方法格式:[对
3、象.]Move左边距离[,上边距离[,宽度[,高度]]]功能:用来移动窗体和控件,并可改变大小。适用对象:大部分对象(计时器、菜单除外)。如果省略对象,则表示要移动的是窗体。例1:在窗体的任意位置画一个文本框和一个图片框(大小任意)。编写程序移动它们的位置并改变其大小。编写事件如下:Privatesubform_click()Move800,800,3990,2600Text1.move200,200,1500,1000Picture1.move1800,200,1500,1000Picture1.print”hello”Endsub5.2数据输入——inputbox函数从前面可知,
4、窗体的输出主要通过print方法完成,那么输入通过什么操作来完成呢?一、Inputbox函数1.功能:产生一个输入对话框,等待用户输入数据,并返回所输入内容。2.格式:变量=InputBox(prompt[,title][,default][,xpos,ypos][,helpfile,context])一般用前3个参数。变量用来保存输入的内容。(1)prompt:是一个字符串,它是在对话框内显示的提示信息。(2)Title:是一个字符串,它是对话框的标题,显示在对话框顶部的标题栏。(3)Default:是一个字符串,显示输入处的初始信息。如果不要初始信息,可在输入区重新输入。如果省略
5、该参数,则输入区的初始信息为空白。下面就是输入对话框:例1:在立即窗口输入: x=InputBox("请输入x(≥0)","输入正数","100")回车将出现以下窗口:练习:编写程序,试验Inputbox的函数的功能。PrivateSubform_click()DimnameAsStringc1$=Chr$(13)+Chr$(10)'cl$起换行作用s1$="输入学生名称:"s2$="输入后按回车键"s3$="或单击确定"s$=s1$+c1$+s2$+c1$+s3$name$=InputBox(s$,"学生登记表","John")'s$显示3行提示信息,第二个参数是对话框标题,第三个
6、参数是默认输入值。Printname$Endsub二、InputBox函数的有关问题默认情况下,Inputbox的返回值是一字符串。问题:如果输入数字1000,这1000是作为整数呢?还是作为字符串?例1:将上面程序中最后一句改为:Printname$+1000问题:程序运行后输入1000,窗体上将显示:(A)1000 (B)2000 (C)10001000 (4)出错例2:将上面程序中最后一句改为:Printname$+"1000"问题:程序运行后输入1000,窗体上将显示:(A)1000 (B)2000 (C)10001000 (4)出错例3:将上面程序整个改为:PrivateS
7、ubForm_Click()x=InputBox("请输入整数:","input")y=InputBox("请输入整数:","input")Printx+yEndSub问题1:运行后输入2个1000,窗体上将显示:(A)1000 (B)2000 (C)10001000 (4)出错问题2:每个InputBox函数可输入几个数据:(A)1个 (B)2个 (C)最多10个 (4)任意问题3:输入2个1000,要得到2000,Print语句应该如何更改?以上情况这