vb实验报告Word文件下载.docx

1、离开实验室离开时仪器机器号15:25正常17:003-2实验项目名称实验二 顺序结构一、实验目的1. 掌握正确书写表达式、赋值语句的规则；2. 掌握常用函数的使用；3. 掌握InputBox和MsgBox的使用；4. 掌握Print方法和Format格式的使用。2、实验内容 1. 从以下内容中自选三个题： 2. 做实验二中实验内容； 3. 教材中的例题及习题； 4. 符合本次实验要求的自选题。三、实验过程（步骤、命令）及结果（截图、源程序） （一）做自行选题1（1）设置用户界面并进行属性设置创建一个新的窗体，在窗体中加入控件并设置相应的属性，详见控件及属性设置表。控件及属性设置表控件名属性La

2、bel1Caption=”身高”；Font属性：字号为二号，字体为隶书Label2Caption=”体重”；Command1Capion=”BMI指数”Text1Text=”Text2Text3 设置后的界面如下图（2）设置代码 对Command1的Click（单击）事件添加如下代码： Dim h ! , t ! , bmi ! h = Val （Text1 . Text） T = Val （Text2 .Text） Bmi = Round（t / （h * h）, 2） Text3.Text = Str（bmi） 设置后详见下图： 运行后在文本框中输入“1.70”，“85”单击按钮后的界面图

3、如下： （二）做自行选题2Caption=”商品1”；Caption=”商品2”；Label3Caption=”商品3”；Label4Caption=”单价”；Label5Caption=”数量”；Label6Caption=”总计”；Label7Caption=”0”；Capion=”计算”Text4Text5Text6 （2）设置代码对Command1的Click（单击）事件添加如下代码： Private sub cmd_click（） Dim al As Single, b1 As Single, c1 As Single Dim a2 As Integer, b2 As Integer

4、, c2 As Integer Dim x As Single al = Val（Text1.Text） a2 = Val（Text2.text） b1 = Val（Text3.text） b2 = Val（Text4.text） c1= Val（Text5.text） c2 = Val（Text6.text） x = a1 * a2 + a1 * b1 + c1 *c2 Lb17.Caption = Val（Lb17.caption） + xEnd Sub设置后详见下图： 运行后在文本框中输入“15”，“13”，“24,271单击按钮后的界面图如下：（三）做自行选题3Capion=”比较”C

5、aption=”A”；Caption=”B”；Caption=”C”；Caption=”D”；设置后的界面如下图 Dim S1!, s2!, AB!, BD!, AC!, CD! AB = Val（Text1.Text） BD = Val（Text2.Text） AC = Val（Text2.Text） CD = Val（Text2.Text） S1 = AB + BD S2 = AC + CD If S1 S2 Then Text5.Text = 经C城到D城快“ Else Text5.Text = 经B城到D城快“ End If End Sub 运行后在文本框中输入“223”，“155”，

6、“200143四、存在问题及解决方法存在问题：码编写过程中，出现数据不完整红字提示。解决办法：仔细检查并与书中例题相对照查处错因在代码末尾多加了一个逗号。 以后应该多看书，多与同学交流。5、思考题解答1. 如何使用InputBox函数输入一个数?InputBox（，对话框坐标 说明：1）提示信息：用于提示用户在输入框内输入什么样的信息，该项不能省略，长度不能超过1024个字符。2）对话框标题：用于显示输入对话框的标题信息。3）输入区的默认值：该信息显示在输入框内，如果用户不输入新值，当用户单击“确定”钮后，该值被当做默认只返回。4）对话框坐标：用于确定对话框的位置，表示对话框的左上角到屏幕左边界和上边界的距离，必须成对出现，用个逗号分隔。2. 如何使用Msgbox函数或Msgbox过程输出一行提示信息?MsgBox（, , ）3. Print方法中的“,”与“;”有什么区别?如何输出一个空行？语句尾部加分号“；”代表将光标定位在上一个显示的字符之后。逗号“，”代表将光标定位在下一个打印区的开始位置。表达式列表如果省略则打印一个空白行。