2018-2019學(xué)年浙江省“七彩陽(yáng)光”新高考研究聯(lián)盟高三(上)期初信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分,每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的,不選、錯(cuò)選、多選均不得分.)
-
1.下列有關(guān)信息的說(shuō)法錯(cuò)誤的是( ?。?/h2>
組卷:19引用:2難度:0.9 -
2.下列有關(guān)信息技術(shù)術(shù)語(yǔ)的說(shuō)法,正確的一項(xiàng)是( )
組卷:7引用:1難度:0.4 -
3.使用Word軟件編輯某文檔,部分界面如圖所示。
下列說(shuō)法正確的是( )組卷:9引用:4難度:0.5 -
4.使用 Access 軟件創(chuàng)建一張數(shù)據(jù)表,其設(shè)計(jì)視圖如圖所示。
下列說(shuō)法正確的是( ?。?/h2>組卷:11引用:3難度:0.4 -
5.使用 UltraEdit 軟件觀察字符內(nèi)碼,部分界面如圖所示。
則“Python 學(xué)習(xí)”的內(nèi)碼可能是( ?。?/h2>組卷:12引用:2難度:0.6
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題3分,第17小題6分,共26分)
-
16.有一組正整數(shù),要求對(duì)其中的數(shù)據(jù)進(jìn)行排列,排列后奇數(shù)在前,偶數(shù)在后。其中最后 一個(gè)數(shù)據(jù)排到奇數(shù)與偶數(shù)交接處;自前到后的第一個(gè)偶數(shù)排到最后一個(gè)位置,空出的位置排列自后 向前的第一個(gè)奇數(shù),依此類(lèi)推。排序示例如下。
排序前 71 85 64 55 42 62 33 17 34 30 排序后 71 85 17 55 33 30 62 42 34 64
Const n=10
Dim a(1 To n) As Integer
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer
Dim temp As Integer,flag As Boolean
'讀取一組正整數(shù),存儲(chǔ)在數(shù)組 a 中,代碼略
i=1:j=n
temp=a(j):flag=True
Do While i<j
If flag Then
If a(i) Mod 2=0 Then a(j)=a(i)
j=j-1
flag=Not flag
Else
'(1)
End If
Else
If a(j) Mod 2=1 Then
a(i)=a(j)
flag=Not flag
Else
j=j-1
End If
End If
Loop
'(2)
'依次輸出排序后的數(shù)據(jù),代碼略。
End Sub組卷:3引用:1難度:0.5 -
17.某程序功能如下:數(shù)組a中存放了n*n個(gè)兩位隨機(jī)正整數(shù),按n行n列在列表框List1 中 顯示(即第一行自左向右依次顯示a(1)~a(n),第二行自左向右依次顯示a(n+1)~a(2*n),??)。按(行號(hào),列號(hào))的形式在文本框Text1 中輸入某矩形區(qū)域的左上角位置(x1,y1),在文本框Text2 中 輸入右下角位置(x2,y2),單擊“水平翻轉(zhuǎn)”按鈕Command1,對(duì)以(x1,y1)和(x2,y2)為對(duì)角頂點(diǎn)的矩 形區(qū)域中的數(shù)據(jù)進(jìn)行水平翻轉(zhuǎn),并將變換后的n*n個(gè)數(shù)據(jù)保存到數(shù)組b中,最后在列表框list2 中按照 List1的格式顯示數(shù)組b中的數(shù)據(jù)。程序運(yùn)行界面如圖所示。
(1)對(duì)于有8*8個(gè)元素構(gòu)成的數(shù)組a,如果輸入左上角位 置是(2,3),右下角位置是(7,5),水平翻轉(zhuǎn)后,則 元素a(27)的值在新數(shù)組保存在元素b(
(2)依據(jù)上述描述設(shè)計(jì)的VB 程序如下,請(qǐng)?jiān)跈M線處填 入合適代碼。
Const n=6
Dim a(1 To n^2)As Integer,b(1 To n^2)As Integer
Private Sub Form_Load ( ?。?br />'產(chǎn)生n*n個(gè)兩位隨機(jī)正整數(shù),保存數(shù)組a,顯示在List1中,代碼略。
End Sub
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,xy(1 To 4)As Integer
Dim s As String,tmp As String,c As String s=Text1.Text+“,“+Text2.Text+“,“
tmp=““:j=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c>=“0“And c<=“9“Then tmp=tmp+c
Else
j=j+1
tmp=““
End If
Next i
For i=1 To n
For j=1 To n
If i>=xy(1)And i<=xy(3)And j>=xy(2)And j<=xy(4)Then b((i-1)*n+j)=
Else
b((i-1)*n+j)=a((i-1)*n+j)
End If
Next j
Next i
List2.Clear:c=““
For i=1 To n*n c=c+Str(b(i))
If
List2.AddItem c c=““
End If
Next i
End Sub組卷:2引用:1難度:0.4