2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷（10）

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

• 1．打開文件“考生文件夾\862\完數(shù)。vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
  輸入一個數(shù)，判斷該數(shù)是否為完數(shù)。所謂完數(shù)即該數(shù)等于其因子之和。例如：6=1+2+3；28=1+2+4+7+14．若是完數(shù)則輸出該數(shù)及該數(shù)等于因子之和的公式；若不是完數(shù)則輸出該數(shù)不是完數(shù)。
  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（“輸入一個正整數(shù)：“））
  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；“是完數(shù)“
  Print m；“=“； ③'輸出因子之和
  Else
  Print m；“不是完數(shù)“
  End If
  End Sub。
  組卷：1引用：1難度：0.5

  解析

• 2．打開文件“考生文件夾\859\玫瑰花數(shù)。vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
  如果一個4位數(shù)等于它的各位數(shù)字的4次方和，則這個4位數(shù)稱為“玫瑰花”數(shù)，例如1634就是一個玫瑰花數(shù)。試編程求出所有的玫瑰花數(shù)，結(jié)果如圖所示。
  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”，完善程序并保存．
  實現(xiàn)功能：假設(shè)有一個5位數(shù)密碼．只記得密碼為67□□8，其中百位和十位的數(shù)字記不清了，但知道該密碼能夠被78整除，也能被67整除．請完善算法幫忙找出這個密碼．
  ''請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  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事件代碼并保存．
  實現(xiàn)功能：若一個三位數(shù)abc,滿足：abc=a³+b³+c³，則稱abc為水仙花數(shù)．如三位數(shù)153滿足：1³+5³+3³=1+125+27=153，則153是水仙花數(shù)．結(jié)果輸出在窗體上．
  Private Sub Command1_Click （　　）
  Dim i As Integer
  Dim a As Integer'百位數(shù)
  Dim b As Integer'十位數(shù)
  Dim c As Integer'個位數(shù)
  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

  解析