2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷(11)
發(fā)布:2024/4/20 14:35:0
一、操作題(每題10分,8題共80分)
-
1.打開文件“考生文件夾\863\細(xì)胞分裂.vbp”,完善程序?qū)崿F(xiàn)如下功能并保存:
有一種細(xì)胞每3分鐘分裂一次,每次分裂時(shí)每個(gè)細(xì)胞分裂成2個(gè),30分鐘后有2048個(gè)細(xì)胞.問開始時(shí)有多少個(gè)細(xì)胞?
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”,完善程序?qū)崿F(xiàn)如下功能并保存:
在數(shù)組中輸入5個(gè)整數(shù),找出最大數(shù)(max)和最小數(shù)(min),并分別在Label1和Label2中顯示.
Private Sub Command1_Click ( ?。?br />Dim x(5)As Integer,i As Integer
Dim max As Integer,min As Integer
For i=1To 5
①=InputBox(“輸入一個(gè)數(shù)“)
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.密碼的原理是將“明文”中的每個(gè)字符用另外一個(gè)字符替換,這樣就形成“密文”.如果將數(shù)字進(jìn)行加密,其對(duì)應(yīng)關(guān)系如下所示:
明文:0123456789 密文:9876543210
打開文件“Z:\1\工程1.vbp”,完善程序,使實(shí)現(xiàn)以下功能后保存:
若在文本框text1中輸入待加密的數(shù)字,單擊“command1命令按鈕”后,在文本框text2中輸出密文.(數(shù)值型與字符型不能進(jìn)行數(shù)學(xué)運(yùn)算)
Private Sub Command1_Click ( ?。?br />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事件代碼并保存.
實(shí)現(xiàn)功能:輸入10個(gè)數(shù),存放在數(shù)組中,并按輸入的逆序輸出在窗體上.
Private Sub Command1_Click ( )
Dim s(9)As Single
For i=0To 9
①=Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)“))
Next i
For i=9To 0Step ②
Print ③
Next i
End Sub.組卷:9引用:1難度:0.1