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

2018-2019學年浙江省臺州市溫嶺市箬橫中學高二(上)月考信息技術試卷(10月份)

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

一、選擇題(共24分,其中1-10題每題2分,11題4分)

  • 1.將數(shù)學表達式:x2+5x+3寫成VisualBasic表達式,正確的是( ?。?/h2>

    組卷:0引用:1難度:0.4
  • 2.下列VB表達式的值等于3的是( ?。?/h2>

    組卷:4引用:1難度:0.4
  • 3.有如下VB程序段:
    a=12
    b=54
    t=a
    a=b
    b=t
    該程序執(zhí)行后,變量a,b的值分別是(  )

    組卷:8引用:1難度:0.6
  • 4.如下VB程序段:
    a=3:b=6:c=5
    if a>=b and a>=c then
    y=a
    else if b>=c then
    y=b
    else
    y=c
    end if
    該程序運行之后,整數(shù)型變量y的值( ?。?/h2>

    組卷:13引用:1難度:0.5
  • 5.在VB中,若用a,b,c分別代表對象名,屬性名,屬性值,則下列表達形式正確的是(  )

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

二、填空題(共26分,其中第1題每空1分,其余每空2分)

  • 15.統(tǒng)計“英文句子單詞平均長度”的程序,其實現(xiàn)功能為:在文本框Text1中輸入要統(tǒng)計的英文句子,單擊“統(tǒng)計”按鈕Command1.進行統(tǒng)計,求出句子中共有幾個單詞、句子單詞的平均長度,并顯示在標簽框Label1中。程序運行界面如圖所示。
    菁優(yōu)網(wǎng)
    (1)代碼“Private Sub Command1_Click ( ?。敝械腃ommand1_Click是
     
     (單選,填字母:A.對象名/B.事件名/C.事件處理過程名)。
    (2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。
    Private Sub Command1_Click (  )
    Dim s As String
    Dim n As Integer
    Dim cnt As Integer
    Dim i As Integer
    Dim num As Single
    Dim cd As Single
    Dim ave As Single
    s=Text1.Text
    n=Len(s)
    num=0
    cd=0
    cnt=0
    For i=1To n
     

    If c>=“a“And c<=“z“or c>=“A“And c<=“Z“Then
    cnt=cnt+1
    ElseIf c>=“0“And c<=“9“Then‘單詞中可能有數(shù)字,也進行統(tǒng)計
    cnt=cnt+1
    Else
    If cnt>0Then
    num=num+1
    cd=cd+cnt
     

    End If
    End If
    Next i
    ave=cd/num
    Label1.Caption=“總共有“+Str(num)+“個單詞,平均長度為“+Str(ave)
    End Sub

    組卷:2引用:1難度:0.5
  • 菁優(yōu)網(wǎng)16.某數(shù)字加密算法描述如下:將某位數(shù)字與其位置相加得到num,num除以11的余數(shù)即為編號,若余數(shù)為0編號為11,從密碼表中找出與編號對應的加密字符完成加密。密碼表如下:
    編號 1 2 3 4 5 6 7 8 9 10 11
    加密字符 V i s u a l B A S I C
    小明按照上述方法,設計了一個數(shù)字加密的VB程序,功能如下:單擊“加密”按鈕Commandl,程序依次將文本框Text1中每個數(shù)字進行加密,并將加密后的密文在文本框Text2中輸出。下表顯示了數(shù)字“2018”的加密過程:
    數(shù)字 2 0 1 8
    位置 1 2 3 4
    編號 3 2 4 1
    加密字符 s i u V
    程序運行效果如圖所示。
    (1)設計如圖所示的程序界面,至少要使用
     
    個類(填數(shù)字)。
    (2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適代碼。
    Private Sub Command1_Click(  )
    Dim s As String,s1As String,s2As String,num As Integer
    s=“VisualBASIC“
    s1=Text1.Text
    s2=““
    i=1
    Do While①
     

    num=Val(Mid(s1,i,1))+i
    num=num Mod 11
    If num=0Then num=11
    s2=②
     

    i=i+1
    Loop
    Text2.Text=s2
    End Sub
    (3)若密文是“uAV”,則明文是
     
    。

    組卷:2引用:2難度:0.5
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應用名稱:菁優(yōu)網(wǎng) | 應用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務條款
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內改正