2022-2023學(xué)年云南省昭通市巧家一中高一(上)過關(guān)信息技術(shù)試卷(選修1)
發(fā)布:2024/4/20 14:35:0
一、選擇題
-
1.在程序流程圖中,表示處理框的是( )
組卷:5引用:2難度:0.9 -
2.設(shè)計(jì)算法的目的是( ?。?/h2>
組卷:13引用:3難度:0.7 -
3.用計(jì)算機(jī)解決問題的基本步驟一般有三個(gè)階段:分析問題、尋找解題途徑和方法、用計(jì)算機(jī)處理。小明打算用計(jì)算機(jī)把爺爺、奶奶年青時(shí)的照片做成婚紗照作為慶祝他們金婚的禮物。請(qǐng)分析,小明的問題類型屬于( ?。?/h2>
組卷:0引用:1難度:0.7 -
4.( ?。┦浅绦虻幕究刂平Y(jié)構(gòu)。
組卷: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.關(guān)于算法,以下表述錯(cuò)誤的是( )
組卷:2引用:1難度:0.8 -
8.有如下VB程序,實(shí)現(xiàn)從26個(gè)英文字母中隨機(jī)取4個(gè)顯示在列表框Listl中。
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)容是( )組卷:1引用:2難度:0.6 -
9.以下表達(dá)式中,是關(guān)系表達(dá)式的有( ?。?/h2>
組卷:0引用:1難度:0.7 -
10.以下只能用解析算法求解的是( ?。?/h2>
組卷:0引用:1難度:0.7
三、操作題
-
31.編“字符串生成”程序,實(shí)現(xiàn)如下功能:在文本框Text1中(字符位置)輸入多個(gè)正整數(shù) (以“,”為分割符和結(jié)束符),單擊“生成”按鈕Command1,程序以這些整數(shù)為位置信息,依次從文本框Text2中(字典內(nèi)容)提取字符并連接成字符串,最后將字符串顯示在標(biāo)簽Label1中(生成內(nèi)容)。程序運(yùn)行界面如圖所示。
(1)要使程序運(yùn)行時(shí),窗體Form1標(biāo)題顯示“字符串生成”,可在Form_Load事件過程中添加語句
(2)實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click ( )
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)容的結(jié)束符缺失(即輸入內(nèi)容為1,18,9,9),單擊“生成”按鈕后,標(biāo)簽Label1中顯示的內(nèi)容是組卷:8引用:6難度:0.3 -
32.數(shù)組 a 存儲(chǔ) n 個(gè)地區(qū)的所屬省份、城市及防疫物資缺口數(shù)據(jù),其存儲(chǔ)結(jié)構(gòu)如下表所示:
1 2 3 4 5 6 7 8 9 … 3n-2 3n-1 3n 省份 城市 物資缺口 省份 城市 物資缺口 省份 城市 物資缺口 … 省份 城市 物資缺口
實(shí)現(xiàn)上述功能的 VB 程序如下,請(qǐng)回答下列問題。
Const n=10
Dim a(1 To 3*n) As String Private Sub Form_Load
'讀取省份、城市和防疫物資缺口數(shù)據(jù),存儲(chǔ)在數(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)“排序”按鈕的對(duì)象名為
(2)程序代碼中,將下橫線處語句補(bǔ)充完整。
(3)程序代碼中,加框處有錯(cuò)誤,請(qǐng)改正。組卷:0引用:1難度:0.4