VB编程输入.pptVIP

Visual Basic程序设计教程 * 2.7.2 使用输入对话框InputBox函数 【例2-4】计算半径为R的圆面积和周长，半径值由键盘输入。 Private Sub Form_Click() Const PI = 3.141526 Dim R As Integer, Area As Single, Perimeter As Single R = Val(InputBox(请输入圆的半径：, 输入)) Area = PI * R * R Perimeter = 2 * PI * R Print 半径＝; R, 面积; Area, 周长; Perimeter End Sub 这个例子中使用了InputBox函数产生输入对话框。 Visual Basic程序设计教程 * 1．输入对话框的使用 InputBox函数的使用格式如下： InputBox（提示[，标题][，默认值][，xpos][，ypox]） 它们的含义如下： （1）提示信息。这是InputBox对话框所必须的信息，也可以使用空文本，即“”。 （2）标题。这是在对话框窗口标题栏显示的内容。可设置，也可以没有标题。 Visual Basic程序设计教程 * （3）默认值。在输入框中的默认输入。系统默认为空，可选。 （4）xpos和ypos为对话框的左侧和屏幕左边的距离和上边和屏幕顶部的距离值。可选。 Visual Basic程序设计教程 * 2．在提示中使用多行文本 如果提示信息比较多，可以使用ASCII控制符回车Chr（13）和换行符Chr（10）产生另起一行。 例如：提示信息为“请输入圆的半径” + Chr（13）+ Chr（10）+“使用正整数” ， 产生如图效果 Visual Basic程序设计教程 * 3．使用转换函数 InputBox函数接受的是文本，也就是字符型数据，在程序中根据变量类型不同，可以使用转换函数。如： R = Val(InputBox(请输入圆的半径：, 输入)) 这里的Val就是转换函数，将文本类型的数据转换为整型数以便参加运算。 VB提供了在不同类型数据之间的转换。 Visual Basic程序设计教程 * 2.7.3 使用Print方法输出数据 使用Print在对象中显示（打印）输出文本。 使用格式如下： [对象名].Print [表达式] [,表达式]…… 1．对象名 一般情况下，Print输出到窗体或者图片框。在本窗体中输出，可以缺省对象名。 Visual Basic程序设计教程 * 2．表达式 Print方法支持多个表达式的输出，可输出数字、文字字符、日期、逻辑值等。如果Print后面没有任何表达式，则输出空行（在显示效果上相当于回车换行）。 Visual Basic程序设计教程 * 3．输出格式 多个表达式输出，可以使用分号和逗号分隔。 （1）逗号分隔（标准格式输出）。逗号后的下一个表达式按照14个字符的空间分开显示。实际分隔位置还和所在输出行的宽度和分隔的数目有关。 （2）分号分隔（紧凑格式输出）。后一个表达式的值接着前一个表达式的输出。 Visual Basic程序设计教程 * （3）在Print语句最后使用逗号或分号结束，不换行，下一个Print接着按格式输出。 （4）使用Spc()和Tab()函数，前者控制插入空格，后者确定列位置 Visual Basic程序设计教程 * 例： Private Sub Form_click() Me.FontSize = 16 Print 空行 Print A=; 1, B=; 2 Print 1, 2; 3, 4 Print A; Spc(4); B Print Tab(10); B Print 1234567890 End Sub Visual Basic程序设计教程 * 2.7.4 使用消息对话框MsgBox函数 MsgBox函数提供了一个显示应用程序运行信息的标准途径，如图所示： MsgBox的格式如下： 变量名 = MsgBox( 提示 [, 对话框类型] [, 对话框标题] ) Visual Basic程序设计教程 * （1）使用形式: MsgBox有两种使用形式，注意区分，如： A = MsgBox(您确定要退出吗？, vbOKCancel + vbDefaultButton2, 退出)和MsgBox 您确定要退出吗？, vbOKCancel + vbDefaultBut