浙江省绍兴市2017-2018学年高二下学期选考信息技术适应性考试试卷
年级: 学科:信息技术(信息科技) 类型:月考试卷 来源:91题库
一、选择题 (共12小题)
下列说法正确的是( )
下列说法不正确的是 ( )
下列说法正确的是 ( )
下列描述不正确的是( )
此图像文件的大小约为 ( )
For i=1 To 3
For j=6 To i+1 Step-1
If a(i)<a(j) Then
T=a(i):a(i)=a(i):a(i)=t
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“28,3,15,1,35,7”,执行该程序段,下列说法正确的是 ( )
Key=Val(Text1.Text)
Text2.Text=“”
flag=True
i=1:j=8
Do While i<=j And flag=True
M=(i+j)\2
If key=a(m) Then
flag=False
ElseIf key>a(m)Then
i=m+1
Else
j=m-1
End If
Text2.Text=Text2.Text+Str(m)
Loop
数组元素a(1)到a(8)的值依次为“1,3,5,8,10,13,16,21,在文本框Text1中输入7,执行该程序段,下列说法正确的是( )
二、非选择题 (共5小题)
请回答下列问题:
Private Sub Command1_Click()
Dim i As Integer,count As Integer,length As Integer
Dim ch As String,key As String,s As String
S=Text1.Text
length=Len(s)
key= ①
i=2:count=1
Do While i<=length
ch=Mid(s,i,1)
If ch=key Then
count=count+1
Else
Text2.Text=Text2.Text+Str(count)+key
count=1
key=ch
End If
②
Loop
Text2.Text=Text2.Text+Str(count)+key ‘③
End Sub
① ②
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Const maxn=100
Dim id(1 To maxn)As Integer ‘存储每个学生的学号
Dim tall(1 To maxn)As Single ‘存储每个学生的身高
Dim n As Integer ‘存储学生的个数
Private Sub Form_Load()
‘从数据库得到学生的总人数n
‘从数据库读取学号信息,并存入id数组中
‘从数据库读取身高信息,并存入tall数组中
‘在列表框List1中显示学号与身高
End Sub
Private Sub Command1_Click()
Dim a(1 To maxn)As Integer ‘存储排好队形的学号
Dim b(1 To maxn)As Single ‘存储排好队形的身高
Dim i As Integer,j As Integer
Dim t1 As Integer,tr As Integer,mid As Integer
Dim tmp1 As Single,tmp2 As Integer
For i=1 To n-1
For j=n To i+1 Step-1
If Then ‘(1)
tmp1=tall(j):tall(j)=tall(j-1):tall(j-1)=tmp1
tmp2=id(j):id(j)=id(j-1):id(j-1)=tmp2
End If
Next j
Next i
If n Mod 2=0 Then ‘根据总人数的奇偶性,确定队形的中间位置
mid=n\2+1
Else
mid=(n+1)\2
End If
‘身高第一位的同学,安排在队形的中间位置
a(mid)=id(1)
b(mid)=tall(1)
t1=mid-1
tr=mid+1
For i=2 To n
If Then ‘(2)
a(tr)=id(i)
b(tr)=tall(i)
tr=tr+1
Else
a(t1)=id(i)
b(t1)=tall(i)
t1=t1-1
End If
Next i
List2.AddItem“位置”+“学号 ”+“身高”
For i=1 To n
List2.Addltem Str(i)+” ”+Str(a(i))+” ”+Str(b(i))
Next i
End Sub
输入火柴棍的数量n(n≤24),计算可以拼出多少个“A+B=C”的等式?
要求:
①加号与等号各自需要两根火柴棍。
②A,B,C为非负的整数,且该数非零时,最高位不能是0。
③如果A≠B,则A+B=C与B+A=C视为不同的等式。
④n根火柴棍必须全部用上。
小明发现,数字1用的火柴棍最少,24根火柴棍全部用上的话,能拼出最大的整数A或B不超1111,C不超过2222,他编写了一个VB程序,在文本框Text1中输入火柴棍的数量,单击“统计”按钮Command1,在文本框Text2中输出“A+B=C”的方案数,程序界面如图b所示。
实现上述功能的VB程序如下,请回答下列问题:
Private Sub Command1_Click()
Dim a(0 T0 2 222)As Integer ‘存储每个整数需用的火柴棍数
Dim n As Integer,ans As Integer
Dim i As Integer,j As Integer
n=Val(Text1.Text)
For i=0 To 2 222
a(i)=0
Next i
‘得到0~9中每个数字需用的火柴棍数
a(0)=6:a(1)=2:a(2)=5:a(3)=5:a(4)=4
a(5)=5:a(6)=6:a(7)=3:a(8)=7:a(9)=6
n= ① ‘去掉等号与加号后,剩余的火柴棍数量
For i=10 To 222 ‘计算出10~n中每个数字需用的火柴棍数
a(i)=a( ② )+a(i Mod 10)
Next i
ans=0
‘枚举0~n中任意两个数,判断是否符合A+B=C的火柴棍数量
For i=0 To 1 111
For j=0 To 1 111
If a(i)+a(j)+a( ③ )=n Then
ans=ans+1
End If
Next j
Next i
Text2.Text=Str(ans)
End Sub
① ② ③