第3章顺序结构的程序设计.ppt

分号：紧凑输出，直接将插入点定位在上一个被显示字符之后，即紧跟前面字符后输出。 逗号：分区打印，定位在下一个打印区开始处(每个打印区14列）。 注： Print语句句尾无分号或逗号，表示输出后换行。应用于For循环控制，起到换行作用。 Print方法练习： Form1.Print 　欢迎使用Visual Basic Print 1; 2; 3 Print 4, 5, Print Print hello; Spc(10); world Print hello; Tab(10); world Print Tab(25); hello ; Tab(30); world Print Tab(25); 700 Print 12345678901234567890 输出此串以标识列号 Print Hello; Tab(20); World; 第2个字符串从第20列开始输出 Print Tab(4); Hello; Tab; world; ‘第2个Tab省略了参数, 所以第2个字符串从下一个 输出区, 即第15列开始输出 在窗体上显示图形: Private Sub Form_Click() For i = 1 To 5 ‘循环变量控制行数 Print Tab(i); String(6 - i, ▼); Spc(6); String(i, ▲) Next i End Sub 例[3-1].在窗体上输出图书销售排行榜，主要用到Tab函数。 Print Font.Size = 14 Font.Name = 楷体 Print Tab(25); Year(Now) 年 Month(Now) 月份图书销售排行 CurrentY = 700 Font.Size = 9 Font.Name = 宋体 Print Tab(15); 书名; Tab(55); 出版社; Tab(75); 销售数量 Print Tab(14); String(75, _) 从第14列开始输出由75个_组成的字符串 Print Tab(15); 内科学; Tab(55); 清华大学出版社; Tab(75); 5000 Print Tab(15); Visual Basic程序; Tab(55); 清华大学出版社; Tab(75); 4700 Print Tab(15); 大学计算机基础; Tab(55); 清华大学出版社; Tab(75); 4500 例[3-2] Print输出格式控制 Private Sub Form_Click() Print 12345678901234567890 Print Hello, World Print Hello; world Print Hello; Print world End Sub 2. Cls方法 作用：清除Form或PictureBox中由Print方法和图形方法在运行时所生成的文本或图形。 格式： [对象名称.] Cls 举例：Form.cls或PictureBox.cls 3.5.2 InputBox函数 作用：产生一个对话框，等待用户输入数据，“确定”后函数返回输入的值，为字符型。 格式： inputBox(提示[，标题][，缺省][，x 坐标位置][，y坐标位置]) 例如：有下列语句如下: Dim x% x= Val(InputBox(“请输入一个数”, “输入框”, 100)) 语句执行后打开如下对话框： 缺省值 标题 提示 例[3-3] 编写程序，计算一个球的体积和表面积。 Private Sub Form_Load() AutoRedraw = True Form_Load中，只有将AutoRedraw 设置为True时，Print方法才能生效 Print 计算一个球的体积和表面积 Print 单击窗体开始 End Sub Private Sub Form_Click() Dim Pi As Single, R As Single, S As Single, V As Single Pi = 3.14159 R = Val(