学编程就是这样简单(五)
开篇：润墨网以专业的文秘视角，为您筛选了一篇学编程就是这样简单(五)范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！
姗姗最近遇到了一个困扰，身边的朋友都在为减肥而疯狂，自己是不是太胖而应该减减肥了……
姗姗：“为什么朋友们说我有点胖应该减肥，可家人却说我太瘦弱应该多吃点好好补补，我到底听谁的呀？”
翔翔：“如果拿不定主意那就听电脑的好了，今天咱们来编写一款可以判断你是否太胖的程序。”
姗姗：“可程序怎么能知道我的体重状况呢？”
预测肥胖程度只要通过一则公式运算就能得出，公式如下：
体重（公斤）×10000÷（身高（厘米）×身高（厘米））
现在我们人工来计算一下，然后用计算出的得数和这张表格的“得数范围”项对照，看看你的体重指数是属于哪个范围的。
知道了原理接下来要做的就是将这则公式和对照表格输入到程序里让电脑自动计算，我们只需输入自己的体重和身高即可知道是否肥胖，下面是程序制作的具体步骤。
首先启动VB新建一个标准EXE工程，点击选中“窗体编辑器”内的空白窗体，设置它的Caption（标题）属性值为“体重预测器”，再为窗体设置一枚漂亮的图标，具体方法前几期说过就不详细介绍了。
1 单击“控件工具箱”上的“输入框”控件按钮，在空白窗体上拖动画出一个输入框，这个输入框用来接收我们输入的体重，VB自动把它命名为Text1，一定要记住它的名字哦，我们以后会用到。
使用同样的方法画出用来输入身高的输入框Text2。删除它们的Text属性右侧的文字，使输入框为空。
2 我们需要一个“标签”控件来显示评估结果，点击“控件工具箱”上的“标签”按钮，在窗体的中间位置画出一个名为Lable1的标签对象，再找到它的Caption属性，将右侧的属性值清空。
3 寻找到Lable1标签对象的Font（字体）属性，点击属性值右侧的“...”设置一下显示的字体和字号。
4 再单击ForeColor（文字颜色）右侧的下拉列表，在“调色板”中选择一种好看的字体颜色。
5窗体上还需要一个确认按钮来判断是否已输入完体重身高，并且要完成体重指数的计算和对比等操作。创建按钮的方法和标签、输入框的创建方法是一样的，同样要在“控件工具箱”里选择按钮控件图标CommandButton（命令按钮）在窗体上拖动出一个按钮，更改它的Caption（标题）属性值。
6 为了防止别人把体重和身高的顺序填反，还要新建两个Lable标签“贴”在输入框上方，可以把批注文字填在标签的Caption属性中。
7 界面设计好 了，下面编写源代码。双击窗体上的“算算我是否太胖”按钮，VB自动使用“代码编辑器”打开该按钮的Click（鼠标单击）过程，然后输入图中的代码。
①代码第一行是命令按钮的Click过程开始标记，而最后一行是Click过程的结束标记。
②Dim Sum As Integer是声明一个叫Sum的Integer类型变量，这个变量用来存储计算出的体重指数，Integer类型的变量只能保存整数，比如123.456存储到Integer类型变量里就会变成123。英文单引号后的文字是说明，不会干扰代码的执行。
③If Text1.Text = "" Or Text2.Text = "" Then是一个分支结构的开始，分支语句是通过条件判断使程序代码有选择性的执行。分支语句的格式有很多，这次介绍“If … Then … Else … End If”分支语句，格式如图。
分支是以If开始，到End If结束，If后的“条件表达式”相当于分叉路口的路标。“条件表达式”只有两种得数：True（真）和False（假），如果是True就执行Then下面“语句块1”里的代码，否则就执行Else下面“语句块2”里的代码。
再来看看本行代码中的条件表达式Text1.Text = "" Or Text2.Text = ""是什么意思，Text1、Text2是体重输入框和身高输入框的名字，Text是保存输入框内容的属性名称，=（等于）是“关系运算符”其中的一个，""代表“空”，而Or是逻辑或的意思，连起来读的意思就是：
④“语句块1”里只有一行报错语句：MsgBox "你还没输入体重或身高", vbOKOnly, "出错了！"
⑤Else下面的“语句块2”的内容比较多。Sum = Text1.Text *10000 / (Text2.Text * Text2.Text)：计算“体重输入框内容×10000÷(身高输入框内容×身高输入框内容)”，并且把计算出的体重指数保存到Sum变量里。
Select Case Sum：是一种分支结构的开始，意思是判断Sum变量值是什么，在这行的下面我们使用Case语句设想了几种情况。
Case 0 To 17：假如Sum变量值是0至17，就执行下面的语句。To是“至”的意思，下面还有几个Case语句块，比如Case 18 To 24，意思都一样，只是数值不同而已。
Label1.Caption = "你的体重过轻，……"：把“你的体重过轻，……”这段话设为Lable1显示评估结果标签的Caption（标题）属性值，也就是让Lable1标签显示这段话，根据Case判断的数值范围不同，显示的评估结果也不同。
Case Else：这行是“其他情况”的意思，有两种可能，体重指数大于40或者是负数，想想有哪个人的体重指数是负数呢？所以只剩下大于40的一种情况。
End Select : Select分支结果结束。
翔翔：“好了，现在运行一下看看效果吧！”
结语：“学编程就是这样简单”系列到这儿就告一段落了，希望我们的讲解对你学习编程会有一定的帮助，同时因为VB编程系统非常庞大，一些知识难以全面介绍，敬请谅解，也欢迎朋友们提出宝贵的建议和意见。
洁丝：我在编辑此文的过程中，了解到作者自学成才的经历，本想把他感人的故事在此与大家分享，无奈版面有限，不过朋友们可在我的博客（.cn）上看到。