2016-2017学年浙江省宁波市慈溪市高二（上）期中信息技术试卷
发布：2024/4/20 14:35:0
一、选择题部分（本大题共15小题，每小题2分，共30分．在每小题给出的四个选项中，只有一个符合题目要求）
-
1．某算法的流程图结构如下图所示，其算法结构属于（ ）
组卷：4引用：1难度：0.9 -
2．某算法流程图如图所示．
当输入值为0时，该算法执行的步骤是（ ）组卷：3引用：3难度：0.9 -
3．某算法的部分流程图如图所示，执行这部分流程后，变量d的值为（ ）
组卷：4引用：2难度：0.7 -
4．某算法流程图如图所示：
执行该算法，输出变量s和变量i的值分别为（ ）组卷：4引用：3难度：0.7 -
5．计算某次考试的平均分的部分算法流程图如图所示，其中s用来记录已输入考生的人数，sum用来计算分数之和，avg用来存储平均分，输入-1时表示输入结束．
图中①处应填入的是（ ）组卷：4引用：1难度：0.7 -
6．在VB中，语句label1．caption=″white″执行后，标签label1的（ ）
组卷：7引用：1难度：0.7
二、填空题部分
-
18．编写VB程序，实现如下功能：在文本框Text1中按“YYYY-MM-DD”（年4位，月2位，日2位）格式输入某一日期，单击“推算”按钮Command1，在文本框Text2中输出该日期对应的星期，运行界面如图所示．
（1）要使标签对象Label1中显示的文本“date”修改为“日期”，可在其属性窗口中将属性的属性值改“日期”．
（2）为实现上述功能，请在横线处填入合适的代码．
Private Sub Command1_Click（ ）Dim s As String'变量s存储输入的日期
Dim s1 As String,s2 As String,s3 As String
Dim y As Integer,y2 As Integer,m As Integer,d As Integer,n As Integer
s1=“622503514624“
s2=“512503514624“
s3=“日一二三四五六“
s=
y=Val（Mid（s,1，4））
m=Val（Mid（s,6，2））
d=Val（Mid（s,9，2））
y2=y Mod 100
n=Int（y2/4）+y2+d
If y Mod 4=0And y Mod 100＜＞0Or y Mod 400=0Then'判断是否为闰年
n=n+Val（Mid（s2，m,1））
Else
n=n+Val（Mid（s1，m,1））
End If
n=n Mod 7+1
'（3）
End Sub
（3）加框处程序代码有错误，请改正．
（4）如果输入日期“2017-02-01”，则输出结果是星期．组卷：7引用：2难度：0.1 -
19．编写VB程序，寻找第1位为2，第5位为5，数字长度为5的完全平方数，并统计个数．要求：单击“寻找”按钮Command1，将符合要求的五位数显示在列表框List1中，统计个数显示在标签Label2中，界面如图所示．
实现上述功能的VB程序代码如下：
Private Sub Command1_Click
Dim i As Integer,n As Integer
Dim x As Integer
n=0
For i=0To 999
x=①
If Int（Sqr（x））=Sqr（x） Then
List1．AddItem ②
③
End If
Next i
Label2．Caption=“共有：“+Str（n）+“个“
End Sub
（1）在设计应用程序界面时，能在窗体上添加标签Label2的操作是（填编号：①单击工具箱中的标签控件 ②双击工具箱中的标签控件）
（2）为实现上述功能，划线①处应填入的代码为；
划线②处应填入的代码为；
划线③处应填入的代码为．组卷：13引用：1难度：0.1
