2020年浙江省普通高校招生选考信息技术模拟试卷(一)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列有关信息和信息技术的说法,不正确的是( )
组卷:1引用:1难度:0.4 -
2.下列有关网页与浏览器的说法,不正确的是( )
组卷:1引用:1难度:0.6 -
3.使用Word软件编辑某文档,部分界面如图所示:下列说法正确的是( )
组卷:2引用:1难度:0.5 -
4.某Access数据表的数据表视图与设计视图部分截图如图所示,下列描述正确的是( )
组卷:1引用:1难度:0.6 -
5.使用GoldWave软件打开某音频文件,其部分编辑界面如图所示。
下列说法正确的是( )组卷:1引用:1难度:0.2
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共26分)
-
15.小林编写了一个用于1至9之间整数加减乘除运算的小程序,具体功能如下:在文本框Text1中输入一个算术表达式(该表达式仅包含1至9之间的整数和加减乘除运算符,其中最后一个运算符肯定是乘或除,且乘或除运算符的前和后一个运算符仅可能为加减或没有),单击“计算”按钮Command1,将运算结果显示在Label2中。程序运行界面如图所示,实现上述功能的VB程序如下,请回答下列问题:
(1)将窗体标题更改为“简单算术运算”,应修改窗体的
(2)请在横线处填入合适的代码。
(3)加框处的代码有错误,请改正。
PrivateSubCommandl_Click ( )
DimsAsString,cAsString,iAsInteger
DimsumAsSingle,sumlAsSingle,sum2AsSingle,kAsInteger,jAsInteger
s=Text1.Text:sum2=0:k=1
Fori=IToLen(s)
c=
Ifc=“*”Orc=“/”Then
Ifc=“*”Then
sum=Val(Mid(s,i+1.1))*Val(Mid(s,i-1,1))
Else
sum=Val(Mid(s,i-1,1))/Val(Mid(s,i+1,1))
EndIf
j=i-2
DoWhile
c=Mid(s,j,D)
Ifc=“+”Thensuml-Val(Mid(s,j-1,1))+sum
Ifc=“-”Thensuml-Val(Mid(s,j-1,i))-sum
sum=sum1
j=j-1
Loop
Ifk=1Then
sum2=sum2+sum
Else
c=Mid(s,k,1)
Ifc=“+”Thensum2=sum2+sum
Ifc=“-”Thensum2=sum2-sum
EndIf
k=
EndIf
sum=0
Nexti
Label2.Caption=sum2
EndSub组卷:0引用:1难度:0.5 -
16.小杨同学编写了一个VB程序用于学校里7选3选课情况统计。该程序主要功能有:1.点击“生成选课组合”按钮Commandl,生成35种选课组合;2.点击“统计选课情况”按钮Command2,统计出各种组合的选课人数;运行界面如图。实现上述功能的VB程序如下,请回答下列问题:
(1)分析程序代码,如图里“选课组合”序号为30的组合名称为:
(2)请在横线处填入合适的代码。请回答下列问题:
Dimzh(1To16)AsString,zrsAsInteger
Dimxk(1To1000)AsString'存放同学的选课科目组合,已知学生人数少于1000人
Dimzh2(1To35)AsString'存放35种选课科目组合
Dimrstj(1To35)AsInteger'存放各种选课组合选课人数
PrivateSubForm_Load ( )
‘本过程从数据库中读取学生的选课情况数据,存放在数组xk中,学生的总人数存放在变量zrs。’代码略
EndSub
PrivateSubCommandl_Click ( )
DimiAsInteger,jAsInteger,mAsInteger,nAsInteger,kAsInteger
Dimkm(1To7)AsString
Listl.Clear
List1.AddIton“序号”+“”+“组合名称”
km(1)=“物”:km(2)=“化”:km(3)=“生”km(4)=“政”
km(5)=“史”km(6)=“地”:km(7)=“技”
m=1
Fori=1To5
Fork=i+1To6
zh(m)=km(i)+km(k)
m=m+1
Nextk
Nexti
j=3:n=1:y=j
Fori=1Tom
Fork=yTo7
zh2(n)=
Ifn<=9Then
Listl.AddItemn&″″&″″&zh2(n)
Else
Listl.AddItemn&″″&zh2(n)
EndIf
n=n+1
Nextk
y=y+1
Ify=8Then
j=
EndIf
Nexti
Endsub
PrivateSubCommand2_Click ( )
DimiAsInteger
List2.Clear
List2,Additon″组合名称″+″″+″选课人数″
Fori=1To35
rstj(i)=
List2AddItemzh2(i)+““+Str(rstj(i))
Nexti
EndSub
Functiontj(zhmcAsString)AsInteger'统计某种选课组合的选课人数
DimiAsInteger,rsAsInteger
rs=0
Fori=ITozrs
Ifzhmc=xk(i)Then
rs=rs+1
EndIf
Nexti
tj=rs
EndFunction组卷:0引用:1难度:0.6