2017年江蘇省信息技術學業水平試卷（11）
發布：2024/4/20 14:35:0
一、操作題（每題10分，8題共80分）
-
1．打開文件“考生文件夾\863\細胞分裂．vbp”，完善程序實現如下功能并保存：
有一種細胞每3分鐘分裂一次，每次分裂時每個細胞分裂成2個，30分鐘后有2048個細胞．問開始時有多少個細胞？
Private Sub cmdDivision_Click （ ）
Dim f（10）As Integer'30分鐘共分裂10次
Dim i As Integer
f（10）=①
For i=9To 0Step ②
f（i）=f（i+1）/2
Next i
Print ③
End Sub.組卷：8引用：1難度：0.7 -
2．打開文件“考生文件夾\853\工程1．vbp”，完善程序實現如下功能并保存：
在數組中輸入5個整數，找出最大數（max）和最小數（min），并分別在Label1和Label2中顯示．
Private Sub Command1_Click （ ）
Dim x（5）As Integer,i As Integer
Dim max As Integer,min As Integer
For i=1To 5
①=InputBox（“輸入一個數“）
Next i
max=②
min=x（1）
For i=2To 5
If x（i）＞max Then max=x（i）
If x（i）＜min Then ③=x（i）
Next i
Label1．Caption=Str（max）
Label2．Caption=Str（min）
End Sub.組卷：7引用：1難度：0.5
一、操作題（每題10分，8題共80分）
-
7．密碼的原理是將“明文”中的每個字符用另外一個字符替換，這樣就形成“密文”．如果將數字進行加密，其對應關系如下所示：
明文：0123456789 密文：9876543210
打開文件“Z：\1\工程1．vbp”，完善程序，使實現以下功能后保存：
若在文本框text1中輸入待加密的數字，單擊“command1命令按鈕”后，在文本框text2中輸出密文．（數值型與字符型不能進行數學運算）
Private Sub Command1_Click （ ）
Dim x As String,y As String
Dim i As Integer
Dim temp1As String,temp2As String
x=Text1．Text
y=““
For i=1To ①（Text1．Text）
temp1=Mid（x,i,1）
temp2=②
y=y+temp2
Next i
Text2．Text=③
End Sub.組卷：8引用：2難度：0.5 -
8．打開文件“考生文件夾\9\工程1．vbp”，完善Command1_Click事件代碼并保存．
實現功能：輸入10個數，存放在數組中，并按輸入的逆序輸出在窗體上．
Private Sub Command1_Click （ ）
Dim s（9）As Single
For i=0To 9
①=Val（InputBox（“請輸入一個數“））
Next i
For i=9To 0Step ②
Print ③
Next i
End Sub.組卷：9引用：1難度：0.1