实验指导三资料

实验三：顺序结构程序设计一．实验目的（1）掌握顺序结构程序设计的特点。（2）掌握VisualBasic数据的输入/输出。（3）掌握赋值语句、用户交互函数InputBox与MsgBox的使用。二．知识要点1.顺序结构：2.赋值语句形式：变量名=<表达式>对象.属性=<表达式>3.数据输入（1）使用文本框控件输入数据：变量名=文本框名。Text(2)InputBox函数变量名=InputBox[$](<提示信息>[,<标题>][,<默认值>][,<x坐标>][<y坐标>])4.数据输出（1）使用文本框控件输出，通过给文本框赋值来显示数据。如：Text.Text=〝您好！〞（2）Print方法：[对象名.]Print[<表达式表>]（3）使用Label控件显示文本如：Label1.Caption=〝您好！〞(4)MsgBox函数：变量[%]=MsgBox(<提示信息>[，<对话框样式>][，<标题>])MsgBox过程：MsgBox<提示信息>[，<对话框样式>][，<标题>]5.其他语句（1）注释语句：Rem<注释内容>或′<注释内容>（2）End语句：End(3)暂停语句：Stop(4)With…EndWith语句With对象名<操作对象的语句组>EndWith三。实验内容及步骤基础实验1.MsgBox函数的使用。窗体界面及运行结果如下图所示。

（1）界面设计在窗体上建立1个命令按钮Command1，在属性窗口中如下设置其属性：对象名属性属性设置Command1Caption“MsgBox函数的使用”（2）过程设计对象名属性属性设置Label1Caption“摄氏温度”Label2Caption“华氏温度”Text1Text清空Text2Text清空Command1Caption“转换为华氏”Command2Caption“转换为摄氏”（2）过程设计转换摄氏：PrivateSubCommand1_Click()DimfAsSingle,cAsSingle′输入华氏温度f=Val(Text1.Text)c=5/9*(f-32)′输出摄氏温度Text2.Text=Str(c)EndSub转换华氏：PrivateSubCommand2_Click()DimfAsSingle,cAsSingle′输入摄氏温度c=Val(Text2.Text)f=9/5*c+32′输出华氏温度Text1.Text=Str(f)EndSub有时候为了方便，需要在文本框输入温度数据后直接按回车键也能实现转换。我们可以为文本框添加KeyPress事件，如下图所示。

“华氏温度”文本框中按回车键转换PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'是否按下回车键DimfAsSingle,cAsSingle'输入华氏温度f=Val(Text1.Text)c=5/9*(f-32)'输出摄氏温度Text2.Text=Str(c)EndIfEndSub“摄氏温度”文本框中按回车键转换PrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'是否按下回车键DimfAsSingle,cAsSingle'