顺序结构程序设计 实验

顺序结构程序设计 实验

一、实验目的
(1)掌握Visual Basic语言中数据输入方法。
(2)掌握Visual Basic语言中数据输出方法。
(3)正确使用Visual Basic赋值语句。
(4)学会设计简单的顺序结构程序。
二、相关知识
1．赋值语句
赋值语句是VB中使用频率最高的语句，这个语句的含义就是将等号右边表达式的值传送给等号左边的对象属性或变量，使其可以在程序运行中改变。使用赋值语句应注意以下几点：
(1)只有当表达式是一种与变量兼容的数据类型时，该表达式的值才可以赋给变量或属性。不能将字符串表达式的值赋给数值变量，也不能将数值表达式的值赋给字符串变量。如果这样做，就会在解释时出现错误。
(2)可以把字符串或数值表达式赋给Variant变量，但反过来就必须分析：任何除Null之外的Variant都可以赋给字符串变量，但只有当Variant的值可以解释为一个数时才能赋给数值变量。
(3)将一种数据类型的表达式赋给另一种数值类型的变量时，系统会强制将该表达式的值转换为变量的数据类型。
2．InputBoxO函数
    该函数产生一个对话框，在对话框中显示提示信息，等待用户输入正文或按下按钮，此时返回包含文本框内容的字符串。作为对话框消息出现的字符串表达式，最大长度是1024个字符，由所用字符的宽度决定。如果该消息包含多个行，则可在各行之间用回车符vbCr、换行符vbLf或回车换行符的组合vbCrLf来分隔。
3．MsgBox0函数
    MsgBox()函数也产生一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个Integer数，  告诉用户单击了哪一个按钮。函数中显示在对话框中的消息是一个字符串表达式，其规则与InputBox函数相同。MsgBox()函数根据所选定参数的不同，可以弹出不同形式的消息框供用户使用。
4．Print语句
Print实质是一种方法，在这里我们称它为语句是因为在窗体上Print方法的对象名可以省略，省略后的形式和原Basic中的Print语句相同。该语句最常用的两个参数是Spc(n)和Tab(n)，其中Spc(n)用来在输出中插入空白字符，n为要插入的空白字符数。Tab(n)用来将插入点定位在绝对列号上，n为列号。
三、实验举例
(实例1)  MsgBox函数的使用。
    Private  Sub Commandl_C1iCk()
    Dim r AS Integer
    MsgBox”最简单的MsgBox”
R = MsgBox(“复杂的MsgBox”，  vbYesNo+vbCritical  + vbDefaultButton2，-
”你看到了么?“）
    Print”你按的值为”；r
    End  Sub
   观察运行结果。
(实例2)  已知圆的半径R，求圆的周长和面积。
(1)选择“文件”菜单上的“新建工程”命令，新建—个工程。
(2)在窗体上创建两个标签(Label)，调整位置和大小，设置标签Labell的Caption属性为“圆的周长是：”、标签Label2的Caption属性为“圆的面积是：”。
(3)打开代码窗口，输入下面程序代码。
Private Sub Form_Click()
Dim  r  as  Integer，  S  as  Single，area as Single
r  =  3
S  =  2  *  3.14159  *  r
Area =  3.14159  *  r  ＾  2
Label1．Caption=“圆的周长是：”+Format(s)
Label2．Caption=“圆的面积是：”，+Format(area)
End Sub
运行程序,求圆的周长和面积。
(实例3)  InputBOx函数的不同用法。
Private Sub Form_CliCk()
    Dim  StrName  AS  String  ，  Title  AS  String
    Dim  Default  AS  String，  MyValue  AS  String
    ，设置提示信息
    StrName = ”请输入数据”
，设置标题
Title = ”InputBox函数使用举例”
’设置缺省值
Default  =  ”2”
’第一种：显示提示信息、标题及缺省值
MyValue  =  InputBox(StrName，  Title，  Default)
，第二种：指定坐标：在1000，1000的位置显示对话框
MyValue  =  InputBox(StrName，  Title，  Default，1000,1000)
，第三种：显示“帮助”按钮，使用帮助文件
MyValue = InputBox(StrName，Title，  ，  ，  ，”DEMO.HLP”，  10)
End Sub
观察结果。