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