2017-2018學(xué)年浙江省紹興高級(jí)中學(xué)高一（下）期中信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（18小題，共36分）
-
1．某程序運(yùn)行界面如圖所示：文本框text1和文本框text2分別用于輸入和輸出，如果要讓界面中的“Text1”和“Text2”字樣不顯示，應(yīng)該更改文本框的（ ） 屬性，并將其屬性值清空組卷：17引用：1難度：0.9 -
2．語(yǔ)句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“
該程序段運(yùn)行后，變量b的值為（ ）組卷：3引用：1難度：0.6 -
5．下列VB程序段，說(shuō)法正確的是（ ）
Private Sub Command1_Click（ ）
Dim ch As String
ch=“abcd“
Label1．Caption=ch
End Sub組卷：16引用：1難度：0.7 -
6．在VB中，某校要將400名高一新生的身高（單位：m）存儲(chǔ)在high數(shù)組中，則下列high數(shù)據(jù)定義語(yǔ)句正確的是（ ）
組卷：22引用：1難度：0.5
二、綜合題（共14分）
-
19．研究表明，人的身高與遺傳有很大關(guān)系，其中成年男性的身高預(yù)測(cè)公式為：身高（cm）=（父親身高+母親身高）*1.08/2，女性的身高預(yù)測(cè)公式為：身高（cm）=（父親身高*0.923+母親身高）/2，編輯界面和運(yùn)行界面分別如下：
（1）應(yīng)用程序界面設(shè)計(jì)時(shí)，若想要將窗體的標(biāo)題改為“預(yù)測(cè)身高”，則應(yīng)該在窗體中的屬性中修改。
（2）運(yùn)行程序時(shí)，在文本框Text1中輸入父親身高，在文本框Text2中輸入母親身高，在文本框Text3中輸入性別（輸入只限：男或女），單擊“預(yù)測(cè)”按鈕Command1，在標(biāo)簽Label4中顯示預(yù)測(cè)身高，程序代碼如下：
Dim s As String’s用于存儲(chǔ)性別
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“
將程序補(bǔ)充完整：
①橫線(xiàn)處應(yīng)該填入；
②橫線(xiàn)處應(yīng)該填入；
③橫線(xiàn)處應(yīng)該填入組卷：2引用：1難度：0.6 -
20．小明受邀請(qǐng)為紹興某度假村旅客自助選房程序（共25層，每層20個(gè)房間）
（1）其房間有4位數(shù)字abcd組成，其中第一位第二位ab為層樓，第三位第四位cd為房間編號(hào)（例如1102表示第11層02號(hào)房間）。
（2）其層樓裝修風(fēng)格不一樣，第1層到12層是“歐式風(fēng)格”；第13層到18層是“中式裝修”；第19到25是“商務(wù)套間”。
（3）其房間編號(hào)來(lái)決定朝南朝北，其中偶數(shù)是朝南，奇數(shù)朝北。
程序?qū)崿F(xiàn)：在文本框text1中輸入一個(gè)4位符合要求的數(shù)字字符串，單擊按鈕“查詢(xún)”，顯示該房間的所有信息。
編輯界面和運(yùn)行界面分別如圖：
若要把這個(gè)文件另存為可執(zhí)行文件，則應(yīng)該選擇
（單選，填字母：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）+“號(hào)“+“歐式風(fēng)格“
ElseIf ②Then
Label3．Caption=Str（ab）+“層“+Str（cd）+“號(hào)“+“中式裝修“
Else
Label3．Caption=Str（ab）+“層“+Str（cd）+“號(hào)“+“商務(wù)套間“
End If
If ③ Then Label5．Caption=“南“Else Label5．Caption=“北“
End Sub
將程序補(bǔ)充完整：
①橫線(xiàn)處應(yīng)該填入；
②橫線(xiàn)處應(yīng)該填入；
③橫線(xiàn)處應(yīng)該填入。組卷：2引用：1難度：0.6