资源描述：
《第五章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])一般用前３个参数。变量用来保存输入的内容。(1)prompt：是一个字符串，它是在对话框内显示的提示信息。(2)Title：是一个字符串，它是对话框的标题，显示在对话框顶部的标题栏。(3)Default：是一个字符串，显示输入处的初始信息。如果不要初始信息，可在输入区重新输入。如果省略
5、该参数，则输入区的初始信息为空白。下面就是输入对话框：例１：在立即窗口输入： 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)１个 (B)２个 (C)最多10个 (4)任意问题3：输入2个1000，要得到2000,Print语句应该如何更改？以上情况这
