2016-2017學(xué)年浙江省“七彩陽光”新高考研究聯(lián)盟高三(下)期初信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)
-
1.2015年12月,鐵道部在12306網(wǎng)站發(fā)布了一則“公告”,如圖所示.
下列說法不正確的是( ?。?/h2>組卷:8引用:2難度:0.9 -
2.小剛想假期和同學(xué)一起去上海迪士尼樂園游玩,他用瀏覽器訪問了上海迪士尼樂園網(wǎng)站https://www.shanghaidisneyresort.jye.ai/,該網(wǎng)站所采用的協(xié)議是( ?。?/h2>
組卷:3引用:4難度:0.9 -
3.Word字處理軟件編輯某文檔后,部分界面如圖所:
對于圖中所示部分的文檔,下列說法不正確的是( ?。?/h2>組卷:12引用:2難度:0.9 -
4.《周易》八卦中隱藏著二進制的計數(shù)原理,其中包含兩個基本元素“-”和“--”.如圖所示,可將八卦中的兩個符號與二進制的“0”和“1”相互對應(yīng),如果“巽”對應(yīng)的二進制數(shù)是“011”,則“震”對應(yīng)的二進制數(shù)是( ?。?/h2>
組卷:24引用:2難度:0.9 -
5.某 Access 數(shù)據(jù)表如圖所示,下列描述中不正確的是( )
組卷:8引用:1難度:0.9
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題4分,第17小題5分,共26分)
-
16.小明設(shè)計了一個VB程序(界面如圖所示),隨機產(chǎn)生n(n<=100)個大于等于a(a<=100)且小于等于b(b<=100)的整數(shù),并在列表框List1中降序顯示.
實現(xiàn)上述功能的VB代碼如下:
請在橫線處填入合適代碼.
Private Sub Command1_Click( ?。〥im a As Integer,b As Integer
Dim n As Integer,t As Integer
Dim m(1To 100)As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
n=Val(Text3.Text)
If a>b Then t=a:a=b:b=t
Randomize
①
For i=2To n
m(i)=Int(Rnd*(b-a+1))+a
If m(i)>m(i-1)Then
②
For j=i-1To 1Step-1
If temp<m(j) Then Exit For
m(j+1)=m(j)
Next j
③
End If
Next i
For i=1To n
List1.AddItem Str(m(i))
Next i
End Sub
程序①處的代碼是
程序②處的代碼是
程序③處的代碼是組卷:11引用:1難度:0.1 -
17.編寫VB程序,實現(xiàn)如下功能:單擊“生成密文”按鈕Command2,在文本框Text3中產(chǎn)生與每個小寫字母對應(yīng)的密文(每個明文字母對應(yīng)1個不重復(fù)的密文字母).在文本框Text1中輸入單詞字符串,單擊“加密”按鈕Command1后,進行逐個字符加密,加密方法:在“明文”中找到相應(yīng)字符,再得到明文對應(yīng)位置的密文,并在文本框Text2中顯示對應(yīng)密文(運行效果如圖所示).實現(xiàn)上述功能的VB代碼如下:
Dim m2As String
Private Sub Command1_Click
Dim flag(1To 26)As Boolean
Dim num As Integer,t As Integer
Randomize
num=1
Text3.Text=““
For i=1To 26
flag(i)=False
Next i
Do While num<=26
x=Int(Rnd*26)+97
①
If flag(t)=False Then
m2=m2+Chr(x)
num=num+1
②
End If
Loop
Text3.Text=m2
End Sub
Private Sub Command2_Click
Dim s As String,m As String,result As String
Dim k As String,c As Integer
s=Text1.Text
m=“abcdefghijklmnopqrstuvwxyz“
For i=1To Len(s)
k=Mid(s,i,1)
If k>=“A“And k<=“Z“Then
k=Chr(Asc(k)+32)
End If
c=1:continue=True
Do While③
If k=Mid(m,c,1)Then
continue=False
End If
c=c+1
Loop
④
Next i
Text2.Text=result
End Sub
程序①處的代碼是
程序②處的代碼是
程序③處的代碼是
程序④處的代碼是組卷:12引用:1難度:0.1