2022-2023学年云南省昭通市巧家一中高一（上）过关信息技术试卷（选修1）
发布：2024/4/20 14:35:0
一、选择题
-
1．在程序流程图中，表示处理框的是（ ）
组卷：5引用：2难度：0.9 -
2．设计算法的目的是（ ）
组卷：13引用：3难度：0.7 -
3．用计算机解决问题的基本步骤一般有三个阶段：分析问题、寻找解题途径和方法、用计算机处理。小明打算用计算机把爷爷、奶奶年青时的照片做成婚纱照作为庆祝他们金婚的礼物。请分析，小明的问题类型属于（ ）
组卷：0引用：1难度：0.7 -
4．（ ）是程序的基本控制结构。
组卷：3引用：1难度：0.8 -
5．控制工具箱中的工具
是（ ）组卷：6引用：4难度：0.7 -
6．执行下列程序段后，整型变量 a 和 b 的值分别为（ ）
a=5
b=8
a=b-a
b=a+b组卷：1引用：2难度：0.6 -
7．关于算法，以下表述错误的是（ ）
组卷：2引用：1难度：0.8 -
8．有如下VB程序，实现从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
执行该程序段后，列表框Listl中不可能显示的内容是（ ）组卷：1引用：2难度：0.6 -
9．以下表达式中，是关系表达式的有（ ）
组卷：0引用：1难度：0.7 -
10．以下只能用解析算法求解的是（ ）
组卷：0引用：1难度：0.7
三、操作题
-
31．编“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置）输入多个正整数 （以“，”为分割符和结束符），单击“生成”按钮Command1，程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。程序运行界面如图所示。
（1）要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事件过程中添加语句（单选，填字母：A．Form1=“字符串生成“/B．Forml.Text=“字符串生成“/C．Form1．Caption=“字符串生成“）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
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中输入内容的结束符缺失（即输入内容为1，18，9，9），单击“生成”按钮后，标签Label1中显示的内容是。组卷：8引用：6难度：0.3 -
32．数组 a 存储 n 个地区的所属省份、城市及防疫物资缺口数据，其存储结构如下表所示：
为 n 个地区调配防疫物资：湖北省全部在前面，从高到低排序；其它省份全部在后面，从高到低排（所有地区的防控物资h 为整数，单位万），排序前显示于 List1，排序后显示于 List2，如图所示：1 2 3 4 5 6 7 8 9 … 3n-2 3n-1 3n 省份 城市 物资缺口 省份 城市 物资缺口 省份 城市 物资缺口 … 省份 城市 物资缺口 
实现上述功能的 VB 程序如下，请回答下列问题。
Const n=10
Dim a（1 To 3*n） As String Private Sub Form_Load
'读取省份、城市和防疫物资缺口数据，存储在数组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
