2017-2018学年浙江省绍兴高级中学高一（下）期中信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（18小题，共36分）
-
1．某程序运行界面如图所示：文本框text1和文本框text2分别用于输入和输出，如果要让界面中的“Text1”和“Text2”字样不显示，应该更改文本框的（ ） 属性，并将其属性值清空组卷：17引用：1难度：0.9 -
2．语句Image1．width=Image1．width+5000 中的“width“是（ ）
组卷：17引用：1难度：0.9 -
3．下列能作变量名的是（ ）
组卷：26引用：1难度：0.9 -
4．有如下Visual Basic程序段：
a=“1100101“
b=Mid（a,2，4）+“101“
该程序段运行后，变量b的值为（ ）组卷：3引用：1难度：0.6 -
5．下列VB程序段，说法正确的是（ ）
Private Sub Command1_Click（ ）
Dim ch As String
ch=“abcd“
Label1．Caption=ch
End Sub组卷：16引用：1难度：0.7 -
6．在VB中，某校要将400名高一新生的身高（单位：m）存储在high数组中，则下列high数据定义语句正确的是（ ）
组卷：22引用：1难度：0.5
二、综合题（共14分）
-
19．研究表明，人的身高与遗传有很大关系，其中成年男性的身高预测公式为：身高（cm）=（父亲身高+母亲身高）*1.08/2，女性的身高预测公式为：身高（cm）=（父亲身高*0.923+母亲身高）/2，编辑界面和运行界面分别如下：
（1）应用程序界面设计时，若想要将窗体的标题改为“预测身高”，则应该在窗体中的属性中修改。
（2）运行程序时，在文本框Text1中输入父亲身高，在文本框Text2中输入母亲身高，在文本框Text3中输入性别（输入只限：男或女），单击“预测”按钮Command1，在标签Label4中显示预测身高，程序代码如下：
Dim s As String’s用于存储性别
Dim h1As Single,h2As Single,h As Single,flag as Boolean
h1=Val（Text1．Text）
h2=Val（Text2．Text）
s= ①
if s=“男“then flag=True else ②
If flag Then
h=（h1+h2）*1.08/2
Else
h=（h1*0.923+h2）/2
End if
Label4．caption=“孩子的身高是：“+ ③+“cm“
将程序补充完整：
①横线处应该填入；
②横线处应该填入；
③横线处应该填入组卷：2引用：1难度：0.6 -
20．小明受邀请为绍兴某度假村旅客自助选房程序（共25层，每层20个房间）
（1）其房间有4位数字abcd组成，其中第一位第二位ab为层楼，第三位第四位cd为房间编号（例如1102表示第11层02号房间）。
（2）其层楼装修风格不一样，第1层到12层是“欧式风格”；第13层到18层是“中式装修”；第19到25是“商务套间”。
（3）其房间编号来决定朝南朝北，其中偶数是朝南，奇数朝北。
程序实现：在文本框text1中输入一个4位符合要求的数字字符串，单击按钮“查询”，显示该房间的所有信息。
编辑界面和运行界面分别如图：
若要把这个文件另存为可执行文件，则应该选择
（单选，填字母：A.1．vbp/B.1．frm/C.1．exe）
（2）代码填空
Private Sub Command1_Click （ ）
Dim s As String,ab As Integer,cd As Integer
s=Text1．Text
ab=val（mid（s,1，2））
cd= ①
If ab＜=12Then
Label3．Caption=Str（ab）+“层“+Str（cd）+“号“+“欧式风格“
ElseIf ②Then
Label3．Caption=Str（ab）+“层“+Str（cd）+“号“+“中式装修“
Else
Label3．Caption=Str（ab）+“层“+Str（cd）+“号“+“商务套间“
End If
If ③ Then Label5．Caption=“南“Else Label5．Caption=“北“
End Sub
将程序补充完整：
①横线处应该填入；
②横线处应该填入；
③横线处应该填入。组卷：2引用：1难度：0.6
