2022-2023學年云南省昭通市巧家一中高一（上）過關信息技術試卷（選修1）
發(fā)布：2024/4/20 14:35:0
一、選擇題
-
1．在程序流程圖中，表示處理框的是（ ?。?/h2>
組卷：5引用：2難度：0.9 -
2．設計算法的目的是（ ）
組卷：13引用：3難度：0.7 -
3．用計算機解決問題的基本步驟一般有三個階段：分析問題、尋找解題途徑和方法、用計算機處理。小明打算用計算機把爺爺、奶奶年青時的照片做成婚紗照作為慶祝他們金婚的禮物。請分析，小明的問題類型屬于（ ?。?/h2>
組卷：0引用：1難度：0.7 -
4．（ ?。┦浅绦虻幕究刂平Y構。
組卷：3引用：1難度：0.8 -
5．控制工具箱中的工具
是（ ?。?/h2>組卷：6引用：4難度：0.7 -
6．執(zhí)行下列程序段后，整型變量 a 和 b 的值分別為（ ?。?br />a=5
b=8
a=b-a
b=a+b組卷：1引用：2難度：0.6 -
7．關于算法，以下表述錯誤的是（ ?。?/h2>
組卷：2引用：1難度：0.8 -
8．有如下VB程序，實現(xiàn)從26個英文字母中隨機取4個顯示在列表框Listl中。
st=″ABCDEFGHIJKLMNOPQRSTUVWXYZ″1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 A B C D E F G H 1 J K L M N 0 P Q R S T U V W X Y Z
s=″″
Fori=1To4
t=Int（Rnd*8）*2+11
Ift\10=2Then
t=t+1
Else
t=t-1
EndIf
s=s+Mid（st,t,1）
Nexti
Listl.AddItems
執(zhí)行該程序段后，列表框Listl中不可能顯示的內(nèi)容是（ ?。?/h2>組卷：1引用：2難度：0.6 -
9．以下表達式中，是關系表達式的有（ ?。?/h2>
組卷：0引用：1難度：0.7 -
10．以下只能用解析算法求解的是（ ）
組卷：0引用：1難度：0.7
三、操作題
-
31．編“字符串生成”程序，實現(xiàn)如下功能：在文本框Text1中（字符位置）輸入多個正整數(shù) （以“，”為分割符和結束符），單擊“生成”按鈕Command1，程序以這些整數(shù)為位置信息，依次從文本框Text2中（字典內(nèi)容）提取字符并連接成字符串，最后將字符串顯示在標簽Label1中（生成內(nèi)容）。程序運行界面如圖所示。
（1）要使程序運行時，窗體Form1標題顯示“字符串生成”，可在Form_Load事件過程中添加語句（單選，填字母：A．Form1=“字符串生成“/B．Forml.Text=“字符串生成“/C．Form1．Caption=“字符串生成“）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ?。?br />Dim s As String,t As String,c As String
Dim i As Integer,p As Integer
s=““：t=““
For i=1To Len（Text1．Text）
c=Mid（Text1．Text,i,1）
If c=“，“Then
p=Val（t）
s=s+Mid（Text2．Text,p,1）
t=““
Else
t=
End If
Next i
Label1．Caption=
End Sub
（3）若文本框Text1中輸入內(nèi)容的結束符缺失（即輸入內(nèi)容為1，18，9，9），單擊“生成”按鈕后，標簽Label1中顯示的內(nèi)容是。組卷：8引用：6難度：0.3 -
32．數(shù)組 a 存儲 n 個地區(qū)的所屬省份、城市及防疫物資缺口數(shù)據(jù)，其存儲結構如下表所示：
為 n 個地區(qū)調(diào)配防疫物資：湖北省全部在前面，從高到低排序；其它省份全部在后面，從高到低排（所有地區(qū)的防控物資h 為整數(shù)，單位萬），排序前顯示于 List1，排序后顯示于 List2，如圖所示：1 2 3 4 5 6 7 8 9 … 3n-2 3n-1 3n 省份 城市 物資缺口 省份 城市 物資缺口 省份 城市 物資缺口 … 省份 城市 物資缺口 
實現(xiàn)上述功能的 VB 程序如下，請回答下列問題。
Const n=10
Dim a（1 To 3*n） As String Private Sub Form_Load
'讀取省份、城市和防疫物資缺口數(shù)據(jù)，存儲在數(shù)組a 中，并顯示于列表框 List1 中'代碼略
End Sub
Private Sub Comd1_Click
Dim t As Integer,i As Integer,j As Integer,k As Integer
For i=1 To n-1
①
For j=i+1 To nIf a（3*j-2 ）=“湖北“Then
If
Then k=j
Else If
a（3*k-2）＜＞“湖北“And a（3*j）＞a（3*k） Then k=j
End If
Next j
If k＜＞i Then
t=a（3*i）： ②：a（3*k）=t
t=a（3*i-1）：a（3*i-1）=a（3*k-1）：a（3*k-1）=t
t=a（3*i-2）：a（3*i-2）=a（3*k-2）：a（3*k-2）=t End If
Next i
For i=1 To n
List2.AddItem a（3*i-2）+a（3*i-1）+a（3*i）
Next i
End Sub
（1）“排序”按鈕的對象名為。
（2）程序代碼中，將下橫線處語句補充完整。
（3）程序代碼中，加框處有錯誤，請改正。組卷：0引用：1難度：0.4