2019-2020學年浙江省金華市東陽中學高二（下）期中信息技術試卷
發布：2024/4/20 14:35:0
一.單選題（本大題共12小題，每小題4分，共24分，每小題列出的四個選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列關于信息的相關說法不正確的是（ ）
組卷：16引用：2難度：0.7 -
2．下列關于網頁及電子郵件的描述，正確的是（ ）
組卷：1引用：1難度：0.6 -
3．如圖所示Access數據庫文件的界面，下列說法正確的是（ ）
組卷：8引用：2難度：0.6 -
4．使用Word軟件編輯某文檔，部分界面如圖所示。下列說法正確的是（ ）
組卷：11引用：3難度：0.5 -
5．使用UltraEdit軟件觀察字符“Plus版紅綠燈！”的內碼，部分界面如圖所示，以下說法正確的是（ ）
組卷：3引用：2難度：0.6
二.非選擇題(本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分)
-
15．在一個數組中存儲了若干個同學的技術成績小題分，其中a（1）存儲學生個數，a（2）開始按順序存儲小題分數據。每個學生有33個小題的數據，例：a（2）～a（13）是學生1的信息選擇題得分，a（27）～a（30）是學生1的信息4個主觀題得分。具體如表
小李根據上述描述，設計了一個統計所有同學信息各題得分率的算法。程序運行后首先在列表框List1顯示信息技術各小題得分，單擊“計算”按鈕“Command1”，在列表框List2顯示信息各題的題號和得分率，在文本框Text1輸出所有同學的信息平均分（平均分=各題得分率*分值之和）。算法的VB程序如下，回答下列問題題號 1-12 13-25 26-29 30-33 科目題型 信息客觀題 通用客觀題 信息主觀題 通用主觀題 滿分分值 每題2分 每題2分 4/8/7/7 6/9/3/6 
（1）根據題目描述，使用如圖所示數據，a（95）的數值是。
（2）在程序橫線處填上合適代碼，使程序完整
Dima（1To1000）AsInteger,nAsInteger
PrivateSubCommand1_Click（ ）
DimiAsInteger,jAsInteger
Dimfz（1To16）AsInteger′fz數組存儲信息各題滿分值
Dimb（1To33）AsDouble′數組b存儲全卷各題的平均得分Fori=1To16‘數組fz存儲信息16個小題的滿分值
Ifi＜=12Thenfz（i）=2
fz（13）=4：fz（14）=8：fz（15）=7：fz（16）=7Nexti
Fori=2Ton'把數組a數據分別統計到各題中
①
b（j）=a（i）+b（j）Nexti
Fori=1To33′僅處理信息各題的平均分
Ifi＜=12Then
b（i）=b（i）/（a（1）*fz（i））'計算信息選擇題各題的得分率ElseIfi＞=26Andi＜=29Then
b（i）=②
EndIf
Nexti
Fori=1To16
Ifi＞12Thenj=i+13Elsej=i
b（j）=Int（b（j）*1000+0.5）/10′對結果四舍五入保留1位小數List2．AddItemStr（i）+Str（b（j））+″%'
ave=③
Nexti
Text1．Text=Str（ave/100）EndSub
PrivateSubForm _Load（ ）
‘讀入數據到數組a,數據個數n,代碼略
EndSub組卷：0引用：1難度：0.3 -
16．幻方是一種將數字安排在正方形格子中，使每行、列和對角線上的數字和都相等的方法。n階幻方是由1～n2之間的自然數組成的一個n階方陣，其各行、各列及對角線所含的數字之和均相等。例如3階幻方（如圖1），幻和為15。
奇數階幻方的構造是所有幻方中最簡單的，可以按照如下規則來實現：
（1）將1放在第一行中間一列；（如圖2）
（2）從2開始直到n*n為止，各數按下列規則存放：假設當前要存放的數為k,則k存放在（k-1）數的右上方并按照規則：
①若（k-1）放在第1行且不是最后一列，則將k存放在n行，（k-1）所在列右側；（如圖3）
②若（k-1）放在第n列且不是第一行，則將k存放在第1列，（k-1）的上1行；（如圖4）
③若（k-1）即不在第1行也不在最后1列：
若（k-1）右上方有數，則將k放在（k-1）的下1行的同一列。（如圖5）
若（k-1）右上方沒有數，則將k放在（k-1）的右上方；（如圖6）
④若（k-1）在第1行第n列，將k填在（k-1）的正下方（如圖7）
1．用如圖8的程序生成5階幻方后，List1中的第一行顯示的是。
2.30階以內的幻方程序如圖，代碼如下，請完成代碼填空：
PrivateSubCommand1_Click（ ）
DimiAsInteger,jAsInteger,nAsInteger'i表示行，j表示列
Dima（1To1000）AsInteger,kAsInteger'數組a依次保存幻方中的數DimsAsString
n=Val（Text1．Text）
j=①
a（j）=1
i=1
Fork=2Ton*n
Ifi=1Andj＜＞nThen
i=n：j=j+1
a（（i-1）*n+j）=k
ElseIfj=nAndi＜＞1Then
②j=1
a（（i-1）*n+j）=k
ElseIfi=1Andj=nThen
i=i+1
a（（i-1）*n+j）=k
ElseIfi＜＞1Andj＜＞nThen
If
③Then
i=i-1：j=j+1
a（（i-1）*n+j）=k
Else
i=i+1
a（（i-1）*n+j）=k
EndIf
EndIfNextk
List1．Clear
Fori=1Ton
s=″″
Forj=1Ton
s=s+format（a（（i-1）*n+j））
Nextj
List1．AddItemsNexti
EndSub
Functionformat（xAsInteger）AsString'將數字字符串格式化為4個字符長度DimnAsInteger,iAsInteger
format=Str（x）
n=Len（format）
Fori=1To④
④format=““+formatNexti
EndFunction組卷：2引用：1難度：0.2