活动一 判断输入的数是否为3的倍数

活动简介

从键盘上输入一个正整数x（不超过3位），单击“验证”命令按钮，判断该数是否为3的倍数。输出界面如图3-16所示。

判断一个数是否为3的倍数，可以通过判断这个数的各位和是否为3的倍数：若各位和是3的倍数，则这个数也是3的倍数；否则不成立。本活动就是基于这个思想进行编程的。

活动实施

在窗体上添加3个标签，3个命令按钮，执行界面见图3-16。程序开始运行，单击“输入数x”按钮，打开输入对话框，在输入框中输入一个数，单击“确定”按钮。若输入的数超过3位，则显示输入错误的输出对话框，如图3-17所示。单击“验证”按钮，将每位数字相加，判断结果是否为3的倍数，结果显示在相应的控件上，如图3-18所示。单击“退出”按钮或按下Alt+E组合键，结束程序运行。本程序界面中各个对象的属性见表3-5。

本活动要求计算正整数x各位上的数字，若x的值为123，通过语句a = x \ 100，b = x \ 10 Mod 10，c = x Mod 10可以分别计算出其百位、十位和个位上的数字。其中语句b = x \ 10 Mod 10的计算过程是：先计算123 \ 10，得到值12，然后计算12 Mod 10，结果为2，最后把2赋给变量b。注意，这里的整除运算符为“\”，不能使用除法运算符“/”。

本活动中使用了赋值语句、InputBox函数、MsgBox函数、If条件语句。

代码设计

程序全部代码如下。

    Public Class Form1
    Dim x As Integer

提示：为了使得输入数x的值能够在另一个事件过程（单击“计算”按钮的事件过程）中使用，应在窗体声明段中先声明变量。

    Private Sub Button1_Click（ByVal sender As System.Object，ByVal e As
      System.EventArgs）Handles Button1.Click
      x = Val（InputBox（"请输入待判断的数（不超过3位）：" & vbCrLf & "输入后按回车" &
              vbCrLf & "或单击""确定""按钮"））
    End Sub
    Private Sub Button2_Click（ByVal sender As System.Object，ByVal e As
      System.EventArgs）Handles Button2.Click
      Dim sum，a，b，c AsInteger
    If x > 1000 Then
      MsgBox（"请确保输入值不超过3位！"）
    Else
      a = x \ 100
      b = x \ 10 Mod 10
      c = x Mod 10
    EndIf
      sum = a + b + c
      Label1.Text = "输入的数是："& x
      If sum = 0 Then
      Label2.Text = "输入错误，请重新输入！"
    Else
      Label2.Text = "输入数的各位和是："& sum
      If sum Mod 3 = 0 Then
        MsgBox（x &"是的倍数！"）
      Else
        MsgBox（x &"不是的倍数！"）
      EndIf
      EndIf
    EndSub
    EndClass

试一试

1．编写程序，实现以下功能：输入球半径后计算球表面积和球体积。如图3-19所示。

提示

球表面积S = 4πr2，球体积V = 4/3πr3。设计中用到了GroupBox组件。

2．编写程序实现如下功能：在一个文本框中输入一段英文，单击“转换成大写”或“转换成小写”按钮，将文本中的英文字母全都转换成大写或小写，并显示在另一个文本框中。要求两个文本框可以多行显示并有垂直滚动条，并且转换后的文本框只能显示文字，不能编辑文本。如图3-20所示。

提示

① 设计竖排标签“输入文字”，应将标签的AutoSize属性值改为False，然后改变标签的大小，使得一行只能显示一个汉字。

② 大小写转换函数为Ucase和Lcase。

3．编写程序，计算脂肪、糖和蛋白质卡路里的总量。一克脂肪含有9卡路里的热量；一克蛋白质或一克糖含有4卡路里热量。程序界面如图3-21所示。

提示：界面使用了GroupBox控件，使用后有助于界面的整洁美观。