2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷(10)
發(fā)布:2024/4/20 14:35:0
一、操作題(每題10分,8題共80分)
-
1.打開文件“考生文件夾\862\完數(shù)。vbp”,完善程序?qū)崿F(xiàn)如下功能并保存:
輸入一個(gè)數(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 ( ?。?br />Dim m As Integer
Dim sum As Integer
Dim s As String
Dim i As Integer
s=“1“
sum=1
①=Val(InputBox(“輸入一個(gè)正整數(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)如下功能并保存:
如果一個(gè)4位數(shù)等于它的各位數(shù)字的4次方和,則這個(gè)4位數(shù)稱為“玫瑰花”數(shù),例如1634就是一個(gè)玫瑰花數(shù)。試編程求出所有的玫瑰花數(shù),結(jié)果如圖所示。
Private Sub cmdDemoRose_Click ( ?。?br />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”,完善程序并保存.
實(shí)現(xiàn)功能:假設(shè)有一個(gè)5位數(shù)密碼.只記得密碼為67□□8,其中百位和十位的數(shù)字記不清了,但知道該密碼能夠被78整除,也能被67整除.請完善算法幫忙找出這個(gè)密碼.
''請不要更改源程序的結(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事件代碼并保存.
實(shí)現(xiàn)功能:若一個(gè)三位數(shù)abc,滿足:abc=a3+b3+c3,則稱abc為水仙花數(shù).如三位數(shù)153滿足:13+53+33=1+125+27=153,則153是水仙花數(shù).結(jié)果輸出在窗體上.
Private Sub Command1_Click ( ?。?br />Dim i As Integer
Dim a As Integer'百位數(shù)
Dim b As Integer'十位數(shù)
Dim c As Integer'個(gè)位數(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