【VB】输出数据和输入数据

输出数据和输入数据

1、VB提供了多种输出数据的方法，以下是主要几种：

A用对象Print方法输出数据  B用标签Label控件输出文本  C用文本框TextBox控件输出文件  D用MsgBox函数输出数据。

2、Print 方法用于在窗体、立即窗体、图片框、打印机等对象上显示文本字符串或表达式的值。Print方法的格式为：

[对象名.]Print [表达式表][，|；]（表达式可能有问题）

Print为该语句的关键字，必须写。

[对象名]为可选项，若选择该项，则指定输出的对象，可以为窗体、图片框等对象；若省略该选项，则数据输出在当前窗体对象上。

[表达式表]为可选项，“表达式表”是由写在同一行上的若干表达式组成的，表达式之间用逗号或分号分隔；若不选，语句的执行结果为输出一空行。

[，|；]为可选项，表示数据的输出格式。其中逗号“，”表示以分区格式输出数据，即按打印区输出数据，每隔14列为一个打印区。分号“；”表示以紧凑格式输出数据。两者可以混合使用。

Chr(13)：换行符

3、VB提供了多种输入数据的方法，以下是主要几种：

A用文本框TextBox控件输入数据  B用列表框、组合框控件输入数据  C用复选框、单选框控件输入数据的选择  D用InputBox函数输入数据。

4、InputBox函数用“输入对话框”的形式满足输入文本数据的基本需求。语法格式为：

变量名=IntputBox(提示内容，[对话框标题]，[默认输入值])

其中“提示内容”为对输入数据的解释或说明。

“[对话框标题]”为可选项，指定输入对话框的标题。

“[默认输入值]”为可选项，指定输入值的默认值。

在程序中是用InputBox函数是，系统将自动显示输入对话框。

例：对给定的任意半径，求圆的周长和面积？

程序代码如下：

Private Sub Command1_Click()

  Cls

  Const Pi = 3.1415926

  Dim strR As String

  Dim r As Single

  Dim l As Single, s As Single

  strR = InputBox("请输入圆的半径", "半径输入对话框")

  r = Val(strR)

  s = Pi * r ^ 2

  l = 2 * Pi * r

  Print "圆的半径r=" & strR & Chr(13) & "圆的周长l=" & l & Chr(13) & "圆的面积s=" & s

End Sub