試卷征集
加入會員
操作視頻
當前位置: 試卷中心 > 試卷詳情

2017-2018學年浙江省紹興高級中學高一(下)期中信息技術試卷

發(fā)布:2024/4/20 14:35:0

一、選擇題(18小題,共36分)

  • 菁優(yōu)網(wǎng)1.某程序運行界面如圖所示:文本框text1和文本框text2分別用于輸入和輸出,如果要讓界面中的“Text1”和“Text2”字樣不顯示,應該更改文本框的( ?。?nbsp;屬性,并將其屬性值清空

    組卷:17引用:1難度:0.9
  • 2.語句Image1.width=Image1.width+5000 中的“width“是( ?。?/h2>

    組卷:17引用:1難度:0.9
  • 3.下列能作變量名的是( ?。?/h2>

    組卷:26引用:1難度:0.9
  • 4.有如下Visual Basic程序段:
    a=“1100101“
    b=Mid(a,2,4)+“101“
    該程序段運行后,變量b的值為( ?。?/h2>

    組卷:3引用:1難度:0.6
  • 5.下列VB程序段,說法正確的是( ?。?br/>Private Sub Command1_Click( ?。?br/>Dim ch As String
    ch=“abcd“
    Label1.Caption=ch
    End Sub

    組卷:16引用:1難度:0.7
  • 6.在VB中,某校要將400名高一新生的身高(單位:m)存儲在high數(shù)組中,則下列high數(shù)據(jù)定義語句正確的是(  )

    組卷:22引用:1難度:0.5

二、綜合題(共14分)

  • 19.研究表明,人的身高與遺傳有很大關系,其中成年男性的身高預測公式為:身高(cm)=(父親身高+母親身高)*1.08/2,女性的身高預測公式為:身高(cm)=(父親身高*0.923+母親身高)/2,編輯界面和運行界面分別如下:
    菁優(yōu)網(wǎng)
    (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位數(shù)字abcd組成,其中第一位第二位ab為層樓,第三位第四位cd為房間編號(例如1102表示第11層02號房間)。
    (2)其層樓裝修風格不一樣,第1層到12層是“歐式風格”;第13層到18層是“中式裝修”;第19到25是“商務套間”。
    (3)其房間編號來決定朝南朝北,其中偶數(shù)是朝南,奇數(shù)朝北。
    程序?qū)崿F(xiàn):在文本框text1中輸入一個4位符合要求的數(shù)字字符串,單擊按鈕“查詢”,顯示該房間的所有信息。
    編輯界面和運行界面分別如圖:
    菁優(yōu)網(wǎng)
    若要把這個文件另存為可執(zhí)行文件,則應該選擇
     

    (單選,填字母:A.1.vbp/B.1.frm/C.1.exe)
    (2)代碼填空
    Private Sub Command1_Click ( ?。?br />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
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應用名稱:菁優(yōu)網(wǎng) | 應用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務條款
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正