活动一判断输入的数是否为3的倍数_程序设计与实践（VB.NET）-QQ阅读男生轻小说网

书名：程序设计与实践（VB.NET）
作者名：夏耘主编
本章字数：1265字
更新时间：2020-08-27 11:30:36

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

活动简介

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

图3-16 判断是否为3的倍数程序界面

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

活动实施

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

图3-17 程序输入界面

图3-18 程序报错输出界面

表3-5 判断输入数是否为3的倍数程序界面对象的主要属性

本活动要求计算正整数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所示。