2. 计算机
  3. 下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As Integer,x2 As Integ

下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As Integer,x2 As Integ

admin2009-02-13  51
问题 下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。
   Option Explicit
   Private Sub Form_Click()
   Dim x1 As Integer,x2 As Integer,x3 As Integer
   【  】
   For i=100 To 999
         x=i
      x1=【  】个位数字
      x2=x\10 Mod 10
      x3=x\100
    If【  】Then
       Print i
   End If
   Next i
   End Sub
选项
答案Dim x As Integer,i As Integer , x Mod 10 , x1^3+x2^3+x3^3=i
解析 本程序中使用了“Option Explicit”语句，因此程序中使用的所有变量都必须先定义，故[9]处应填变量定义语句“Dim x As Integer,i As Integer”。要判断x是否为水仙花数，可首先把x的各位数字分离出来，[10]处显然是分离出个位数字，应填“x Mod 10”。然后判断各位数字的立方和是否与i相等，如果相等，则是水仙花数，所以[11]处应填“x1^3+x2^3+x3^3=i”。
转载请注明原文地址:https://kaotiyun.com/show/Nn1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)