第五章vb 数据的输入输出-2.docVIP

四、其它方法和属性 1．Cls方法 格式：[对象.]Cls 功能：清除对象中显示的文字或图形，并把光标移到对象的左上角（0，0）。 适用对象：对象只能是窗体或图片框，如果省略“对象”则默认为当前窗体。 例: Picture1.cls 　　　　’清除图片框picture1内的图形和文本 Cls 　　　’清除当前窗体内显示的内容 注意： (1) 当窗体的背景是用Picture属性装入图形时，不能用Cls清除，只能通过Loadpicture方法清除。 (2) 文本框中的显示内容也不能用Cls清除，必须用　Text.Text=，即用空格替代原内容。 练习：画如下程序界面。 输入以下程序： Private Sub Form_Click() Print: Print FontName = 隶书 FontSize = 25 Print 学号; Spc(4); 姓名; Spc(4); 年龄; Spc(4); 籍贯 Print 0501; Spc(4); 李美; Spc(4); 18; Spc(4); 湖南 Print 0502; Spc(4); 王强; Spc(4); 19; Spc(4); 上海 End Sub Private Sub Command1_Click() Text1.Text = ’不能用Cls End Sub Private Sub Command2_Click() Form1.Cls ’可以用Cls End Sub 2．Move方法 格式：[对象.]Move 左边距离[，上边距离[，宽度[，高度]]] 功能：用来移动窗体和控件，并可改变大小。 适用对象：大部分对象（计时器、菜单除外）。如果省略对象，则表示要移动的是窗体。 例1：在窗体的任意位置画一个文本框和一个图片框（大小任意）。编写程序移动它们的位置并改变其大小。 编写事件如下： Private sub form_click( ) Move 800,800,3990,2600 Text1.move 200,200,1500,1000 Picture1.move 1800,200,1500,1000 Picture1.print”hello” End sub 5.2数据输入——inputbox函数 从前面可知，窗体的输出主要通过print方法完成，那么输入通过什么操作来完成呢？ 一、Inputbox函数 1．功能：产生一个输入对话框，等待用户输入数据，并返回所输入内容。 2．格式： 变量=InputBox(prompt[,title][,default] [,xpos,ypos][,helpfile,context]) 一般用前３个参数。变量用来保存输入的内容。 (1) prompt：是一个字符串，它是在对话框内显示的提示信息。 (2) Title：是一个字符串，它是对话框的标题，显示在对话框顶部的标题栏。 (3) Default：是一个字符串，显示输入处的初始信息。如果不要初始信息，可在输入区重新输入。如果省略该参数，则输入区的初始信息为空白。 下面就是输入对话框： 例１：在立即窗口输入： 　x=InputBox(请输入x(≥0),输入正数,100) 回车将出现以下窗口： 练习：编写程序，试验Inputbox的函数的功能。 Private Sub form_click( ) Dim name As String c1$ = Chr$(13) + Chr$(10) cl$起换行作用 s1$ = 输入学生名称： s2$ = 输入后按回车键 s3$ = 或单击确定 s$ = s1$ + c1$ + s2$ + c1$ + s3$ name$ = InputBox(s$, 学生登记表, John) s$显示3行提示信息，第二个参数是对话框标题，第三个参数是默认输入值。 Print name$ End sub 二、InputBox函数的有关问题 默认情况下，Inputbox的返回值是一字符串。 问题：如果输入数字1000，这1000是作为整数呢？还是作为字符串？ 例1：将上面程序中最后一句改为： Print name$+1000 问题：程序运行后输入1000，窗体上将显示： (A)1000　(B)2000　(C(4)出错 例2：将上面程序中最后一句改为： Print name$+1000 问题：程序运行后输入1000，窗体上将显示： (A)1000　(B)2000　(C(4)出错 例3：将上面程序整个改为： Private Sub Form_Click() x = InputBox(请输入整数：, input) y = InputBox(请输入整数：, inpu