（1）数值型与字符串型
如果字符串中的字符为数值形式，则 可将该字符串赋给数值变量。也可将数值 赋给字符串变量。但如果把非数值形式的 字符串赋给数值变量，则会出现“类型不 匹配”的错误。
例32
赋值相容测试。将命令按钮和文本框放置在窗体中。
Private Sub Command1_Click () Dim intX As Integer Dim strY As String strY = "100.23" intX = strY strY = Cos (strY) Text1.Text = strY
3.1.2 数据输入
在VB应用程序中，若把需处理的原始数据或其它数据输入到计算机 的存储器中，则可以使用InputBox函数和MsgBox 函数。
InputBox函数 MsgBox 函数 MsgBox 语句
1. InputBox函数
一般格式：
InputBox(<prompt>[,<title>][,<default>]
注意： (1) 为了能够正确地把字符串转换成数值型数据，通常应该对被赋值
变量作出类型说明，如在例3-3中有： Dim x!
x = InputBox("请输入长度(cm)：", "输入数据", 10, 2000, 3000) 或者使用Val函数作类型转换：
x = Val(InputBox("请输入长度(cm)：")
3.1 顺序结构
如果在一个语句序列中，每一个语句都是按出现的先后顺序执行， 即要执行第i个语句，必须先执行第i-1个语句，则这种语句序列的结构称 为顺序结构。
3.1.1 赋值语句 3.1.2 数据输入 3.1.3 数据输入的Print方法 3.1.4 打印机输出 3.1.5 注释、暂停与程序结束
3.1.1 赋值语句
2. 赋值与逻辑等号
“=”号是一个具有二义性的符号，既可以 作为赋值号，也可以表示为关系运算中的逻辑等 号。它的实际意义要根据前后文的形式判断。
例如，“=”号在以下语句中有不同含义： b=1/(x+y) c=2 a=b=c k = a = b And b = c
3. 赋值相容
赋值语句中的变量名或控件的属性名， 都代表一个存储单元。当执行赋值语句时， 如果这个存储单元的结构和大小能够正确 地表示赋值号右边表达式的值，则称该赋 值语句赋值相容。
例3-
3
设计一程序，由用户输入立方体的长、宽和高，计算并输出立
方体的表面积和体积。
(1) 界面设计
(2) 程序代码
Private Sub Command1_Click() Dim x!, y!, z!, s!, v! x = InputBox("请输入长度(cm)：", "输入数据", 10, 2000, 3000) y = InputBox("请输入宽度(cm)：", "输入数据", 10, 2000, 3000) z = InputBox(“请输入高度(cm)：", "输入数据", 10, 2000, 3000) s = (x * y + y * z + x * z) * 2 v = x * y * z: Text1 = x & " cm“: Text2 = y & " cm" Text3 = z & " cm“: Text4 = s & " cm2“: Text5 = v & " cm3" End Sub Private Sub Command2_Click() End End Sub
(1)设计界面
控件:TextBox
(2)程序代码
控件:CommandButton
Option Explicit Dim x!, y! Private Sub Command1_Click()
Command1.Caption = “弧度” x = InputBox(“请输入弧度”) y = Sin(x) Text1.Text = "Sin(" & Str(x) & ")=" & Str(y) End Sub Private Sub Command2_Click() Command2.Caption = "角度" x = InputBox("请输入角度") y = Sin(x * 3.14159 / 180) Text2 = "Sin(" & Str(x) & "度)=" & Str(y) End Sub
End Sub
（2）整型与实型
一般地，把一个整数赋给一个实型变量，将不会出什么错。但当 把一个长整数赋给一个单精度变量，就可能会受示数精度的影响。
例如：Dim x As Single, y As Long y = 2147483647 x=y Print x
输出结果： 2.14748Байду номын сангаасE+09 把一个实数赋给一个整变量，则只能获取它的整数部分。
[,<xpos>][,<ypos>])
功能：系统在屏幕上显示一个输入对话框，并
在输入对话框中显示两个命令按钮，一个是“确定” 按钮，另一个是“取消”按钮。此时，系统等待用 户输入数据并按回车键或“确定”按钮，也可以按 “取消”按钮。若用户输入数据并按回车键或“确 定”按钮后，系统就把该数据看作字符串作为函数 返回值；否则，函数的返回值为空串。
1.赋值语句的作用 一般形式： <varname> = <expression> 或[<objname>.] <attribute> = <expression> 其中<varname>为变量名，用户定义标识符。 “ = ”号 称为赋值号。 <expression> 为表达式。<objname>是对象名。 <attribute> 为属性名。 作用: 首先计算赋值号右边表达式的值，然后将该值赋给赋值号左边的 标识符代表的变量或控件属性，作为变量或控件属性的当前值。该值一直保 存到下一次再对它赋值为止。
例如：
Total = 100 k=k+1 St$ = “Good morning .” ext1.Text = St$ & “teacher!” Text2.Text = Str(Total)
例3-
1
在窗体Form1内建立2个文本框，2个命令按钮。通过命令按钮的 事件过程计算正弦函数值，并在文本框显示结果。