試卷征集
加入會(huì)員
操作視頻
當(dāng)前位置: 試卷中心 > 試卷詳情

2012年浙江省溫州市高考信息技術(shù)一模試卷.(選考A)

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

一、選擇題(共13小題,每小題2分,滿分26分)

  • 1.下列作為VB變量名正確的是( ?。?/h2>

    組卷:5引用:1難度:0.9
  • 2.將扇形面積公式s=
    a
    360
    πr2寫成VB表達(dá)式,正確的是( ?。?/h2>

    組卷:5引用:1難度:0.9
  • 3.已知a=1,b=2,下列VB表達(dá)式的值為False的是( ?。?/h2>

    組卷:4引用:1難度:0.9
  • 4.使用表達(dá)式產(chǎn)生幸運(yùn)號(hào)為[1,50]范圍中的整數(shù),下列表達(dá)式正確的是(  )

    組卷:7引用:1難度:0.7
  • 5.在VB中與程序段z=a:a=b:b=z 功能相同的序號(hào)段是( ?。?/h2>

    組卷:8引用:1難度:0.7
  • 6.有如下VB程序:
    Private Sub Commandl Click( ?。?br /> Dim x As Double
     x=“Computer!“
     jye.ail.jye.ai=“Hello“+“”+x
     End Sub
    這個(gè)程序運(yùn)行的時(shí)候出現(xiàn)“類型不匹配”的錯(cuò)誤,應(yīng)把橫線處改為( ?。?/h2>

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

二、綜合題(共5小題,滿分19分)

  • 17.下列VB程序運(yùn)行時(shí),將x插入已經(jīng)按首字母從小到大排序的數(shù)組a(1  to 5)中,閱讀下列程序,請(qǐng)?jiān)跈M線處填入合適代碼。
    Private Sub Commandl-Click( ?。?br />本程序?qū)插入已經(jīng)按首字母從小到大排序的數(shù)組a(1 to 5)中。
    Dim a(1 to 5)As String,k As Integer,I As Integer,s As Integer
    x=“China“
    a(1)=“Amerincan“;a(2)=“England“;a(3)=“Geermane“;a(4)=“Japan“;a(5)=““
    For k=1 to 4
       If x>a(k) Then
         s=s+1
         if  k=4 then
         a(k+1)=x
         endif
      Else
       s=s+1
       For 1=5 to k+1 Step
     

       a(I)=a(I-1)
       Next 1
       a(k)=
     

      End If
    Next k
    Textl.Text=“比較的次數(shù)是”+str(s)
    Text2.text=a(k)
    End Sub。

    組卷:0引用:1難度:0.3
  • 菁優(yōu)網(wǎng)18.中國(guó)福利彩票雙色球中獎(jiǎng)號(hào)碼由(1~33)紅球中的6個(gè)號(hào)碼和1個(gè)藍(lán)球號(hào)碼組成,如果使用程序來產(chǎn)生6個(gè)紅球號(hào)碼,小張用VB設(shè)計(jì)了該程序,界面如圖所示,請(qǐng)?jiān)诔绦虻臋M線處將代碼補(bǔ)充完整.
    Dim d(1 to 6)As Integer,i As Integer′在通用里定義全局變量,
    Private Sub Commandl- Click( ?。?br />′產(chǎn)生6個(gè)[1,33]之間的不同整數(shù)存放于d數(shù)組中,在listl中輸出
    Dim k As Integer
    Randomize
    Listl.Clear
    d(1)=Int(Rnd( ?。?33+1)
    Listl.Addltem d(1)
    For i=2 to 6′產(chǎn)生不重復(fù)的紅球號(hào)碼
    k=1
    Do While k=1
    d(i)=Int(Rnd( ?。?33+1)
        For j=I to i-1
          Uf d(i)=d(j) Then
          Exit For
          End If
        Next j
      If j=i Then k=0
    Loop
     
    '將產(chǎn)生的紅球號(hào)碼添加到Listl中
    Next i
    End Sub
    Private Sub Command2-Click( ?。?“初始化”清空兩列表框
    Listl.Clear
    List2.Clear
    End Sub
    Provate Sub Command3-Click(  )'“排序號(hào)碼”實(shí)現(xiàn)將Listl中的內(nèi)容進(jìn)行排序輸出
    Dim j As Integer,t As Integer,k As Integer
    List2.Clear
    For i=1 to 5
     For j=i+1 to 6
       If
     
    Then'判斷是否需要進(jìn)行交換數(shù)據(jù)
         t=d(j):d(j)=d(i):d(i)=t
       End If
      Next j
    Next i
    '以下是將排序后的數(shù)依次在List2中輸出
    For k=1 to 6
    List2.Addltem Str(d(k))
    Next k
    End Sub.

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