2017年江苏省信息技术学业水平试卷（10）

一、操作题（每题10分，8题共80分）

• 1．打开文件“考生文件夹\862\完数。vbp”，完善程序实现如下功能并保存：
  输入一个数，判断该数是否为完数。所谓完数即该数等于其因子之和。例如：6=1+2+3；28=1+2+4+7+14．若是完数则输出该数及该数等于因子之和的公式；若不是完数则输出该数不是完数。
  Private Sub cmdPerfect_Click （　　）
  Dim m As Integer
  Dim sum As Integer
  Dim s As String
  Dim i As Integer
  s=“1“
  sum=1
  ①=Val（InputBox（“输入一个正整数：“））
  For i=2To m-1
  If m Mod i=0Then
  sum=②
  s=s &“+“& Str（i）
  End If
  Next i
  If sum=m Then
  Print m；“是完数“
  Print m；“=“； ③'输出因子之和
  Else
  Print m；“不是完数“
  End If
  End Sub。
  组卷：1引用：1难度：0.5

  解析

• 2．打开文件“考生文件夹\859\玫瑰花数。vbp”，完善程序实现如下功能并保存：
  如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634就是一个玫瑰花数。试编程求出所有的玫瑰花数，结果如图所示。
  Private Sub cmdDemoRose_Click （　　）
  Dim i As Integer
  Dim s As Integer
  Dim m As Integer
  For i=1000To 9999
  s=0
  For j=①To 4
  m=Mid（i,j,1）
  s=s+②
  Next j
  If i=s Then Print i
  ③
  End Sub。
  组卷：1引用：1难度：0.5

  解析

一、操作题（每题10分，8题共80分）

• 7．打开“考生文件夹\96\工程1．vbp”，完善程序并保存．
  实现功能：假设有一个5位数密码．只记得密码为67□□8，其中百位和十位的数字记不清了，但知道该密码能够被78整除，也能被67整除．请完善算法帮忙找出这个密码．
  ''请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  Private Sub Command1_Click （　　）
  Dim x As Long
  For x=①To 67998Step 10
  If （x Mod 67=0）And （x Mod 78=0）Then
  Print ②
  End If
  ③
  End Sub.
  组卷：2引用：2难度：0.1

  解析

• 8．打开文件“考生文件夹\51\工程1．vbp”，完善Command1_Click事件代码并保存．
  实现功能：若一个三位数abc,满足：abc=a³+b³+c³，则称abc为水仙花数．如三位数153满足：1³+5³+3³=1+125+27=153，则153是水仙花数．结果输出在窗体上．
  Private Sub Command1_Click （　　）
  Dim i As Integer
  Dim a As Integer'百位数
  Dim b As Integer'十位数
  Dim c As Integer'个位数
  For i=100To ①
  a=i\100
  b=（i-a*100）\10
  c=②
  If a*a*a+b*b*b+c*c*c=i Then
  Print i
  ③
  Next i
  End Sub.
  组卷：9引用：1难度：0.1

  解析