2011-2012學年浙江省寧波市余姚中學高一（下）期中信息技術試卷

一、單項選擇題（60分）本題共30個小題，每小題2分；只有一個答案是正確的．

• 1．在Visual Basic中，下列能作為變量名的是（　　）

  A．If

  B．Not

  C．Int

  D．Flag
  組卷：7引用：3難度：0.9

  解析

• 2．在Visual Basic中，語句Lab.Caption=“你好“中的“Lab”是（　　）

  A．屬性值

  B．對象名

  C．屬性名

  D．類名
  組卷：14引用：6難度：0.7

  解析

• 3．計算兩個并聯電阻總電阻值的算法如下：
  ①輸入兩電阻R₁、R₂ 的值
  ②計算總電阻R=

  R

  1

  R

  2

  R

  1

  +

  R

  2

  
  ③輸出總電阻R
  上述算法屬于（　　）

  A．枚舉算法

  B．解析算法

  C．排序算法

  D．查找算法
  組卷：27引用：4難度：0.9

  解析

• 4．將數學表達式

  1

  2

  sinxcosx（x的單位：弧度）寫成Visual Basic表達式，正確的是（　　）

  A．SinxCosx/2	B．Sinx*Cosx/2
  C．Sin（x）Cos（x）/2	D．Sin（x）*Cos（x）/2
  組卷：7引用：2難度：0.9

  解析

• 5．在Visual Basic中，用變量存儲560位學生的身高數據（如：1.76），下列最合適的變量說明是（　　）

  A．將560個變量說明為整數型

  B．將560個變量說明為單精度實數型

  C．將一個元素個數為560的一維數組說明為整數型

  D．將一個元素個數為560的一維數組說明為單精度實數型
  組卷：8引用：3難度：0.9

  解析

• 6．在求解“一元二次方程實數根”的算法中，如果方程不存在實數解，也要求輸出結果“無實數根”．此要求主要體現了算法特征中的（　　）

  A．有窮性

  B．有輸出

  C．確定性

  D．唯一性
  組卷：18引用：5難度：0.7

  解析

• 7．在Visual Basic代碼編輯窗口中，輸入了“Text1．”后出現了如圖所示的信息：其中的“Text”是Text1的（　　）

  A．屬性名

  B．事件名

  C．對象名

  D．方法
  組卷：9引用：3難度：0.9

  解析

• 8．有如下Visual Basic自定義函數：
  Function max（a As Integer,b As Integer） As Integer
  If a＞b Then max=a  Else  max=b
  End Function
  該函數的函數名是（　　）

  A．a

  B．b

  C．max

  D．Function
  組卷：6引用：2難度：0.9

  解析

• 9．“下列問題適合使用枚舉算法解決的是（　　）

  A．計算已知半徑的圓面積

  B．計程車計費

  C．校園歌曲大賽的成績排名

  D．找出1000以內的所有素數
  組卷：12引用：2難度：0.7

  解析

• 10．在Visual Basic中，若需將150位員工工號（如“B01036”）分別存儲在數組n的n（1）～n（150）元素中，則下列說明語句最合適的是（　　）

  A．Dim n（1 To 150）As Single

  B．Dim n（1 To 150）As String

  C．Dim n（1 To 150）As Integer

  D．Dim n（1 To 150）As Boolean
  組卷：18引用：3難度：0.9

  解析

• 11．下列Visual Basic表達式中，只能產生[1，8]中的隨機實數的是（　　）

  A．Rnd（　　）*8	B．Rnd（　　）*9
  C．Int（Rnd（　　）*8）+1	D．Int（Rnd（　　）*9）+1
  組卷：6引用：1難度：0.9

  解析

• 12．下圖是Visual Basic窗體中某對象的屬性窗口：從圖中可以看出，該對象名是（　　）

  A．Tex

  B．TextBox

  C．True

  D．Text3
  組卷：4引用：2難度：0.9

  解析

三、程序填空（25分）本題共3個小題．

• 36．為了找出QQ在線時間最長的5名學生，李風設計了一個排序程序．程序運行界面如圖所示：
  
  左邊列表框List1中顯示排序前數據，單擊“排序”按鈕Command1，在右邊列表框List2中顯示在線時間從高到低排名前5名的數據．程序中數組a和數組b分別存儲學生的QQ昵稱和對應的QQ在線時間．
  程序代碼如下：
  Const n As Integer=14'n為學生數
  Dim a（1To n） As String'數組a用于存儲學生的QQ昵稱
  Dim b（1To n） As Integer'數組b用于存儲學生的QQ在線時間
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t As String,p As Integer
  For i=1To n-1
  For j=n To i+1Step-1
  If  ①Then
  t=a（j-1）：a（j-1）=a（j）：a（j）=t
  p=b（j-1）：b（j-1）=b（j）：b（j）=p
  End If
  Next j
  Next i
  For i=1To 5
  List2．AddItem SpaceEx（a（i））+Str（b（i））+“分鐘“
  Next i
  End Sub
  '以下函數用于在字符串后補插空格
  Function SpaceEx（s As String） As String
  Dim t As String,d As Integer,i As Integer
  t=s：d=Len（s）
  For i=1To 5-d
  t=t+““
  Next i
  SpaceEx=②
  End Function
  Private Sub Form_Load （　　）
  '此過程用于對數組a和數組b進行賦值，并顯示在List1中，代碼略
  End Sub
  （1）解決此問題采用的算法是

   

  ．（填：選擇排序/冒泡排序）
  （2）在程序①和②填入適當的語句或表達式，將程序補充完整：
  程序中①應填入

   

  ．程序中②處應填入

   

  ．
  組卷：21引用：2難度：0.1

  解析

• 37．張強喜歡研究汽車，他編寫了一個模擬選汽車牌照號碼的Visual Basic程序．程序運行界面如圖所示，單擊“開始”按鈕Command1后，隨機產生6個汽車牌照號碼，并按序顯示在列表框List1中，單擊其中的一個號碼后，該號碼顯示在文本框Text1中．每個號碼的后5位是從0-9、A-Z的36個字符中隨機產生．
  程序代碼如下：
  Private Sub Command1_Click （　　）
  Dim p（1To 6）As String'數組p用于存儲6個車牌號碼
  Dim i As Integer,j As Integer,t As Integer
  Dim c As String,s As String
  Randomize'初始化隨機數種子
  List1．Clear'清除列表框List1中的內容
  '隨機產生6個5位號碼
  For i=1To 6
  s=““
  For j=1To 5
  t=Int（Rnd（　　）*36）'產生一個0到35的隨機整數
  If t＜=9Then
  c=Chr（t+48）'將t轉換為相應的字符后賦值給c
  Else
  c=Chr（t-10+65）'將t轉換為對應的英文大寫字母后賦值給c
  End If
  s=①
  Next j
  p（i）=s
  Next i
  '對數組中的5位車牌號碼按字符串先后順序進行排序
  For i=1To 5
  k=i
  For j=i+1To 6
  If p（k）＞p（j） Then k=j
  Next j
  If i＜＞k then s=p（i）：p（i）=p（k）：p（k）=s
  Next i
  '在6個隨機號碼前添加“浙A”
  For i=1To 6
  p（i）=“浙A“+p（i）
  List1．AddItem ②
  Next i
  End Sub
  '將選中的號碼顯示在文本框中
  Private Sub List1_Click （　　）
  Text1．Text=List1．List（List1．ListIndex）
  End Sub
  （1）對候選字符串進行排序時采用的是

   

  ．（填：冒泡排序/選擇排序）
  （2）在程序①和②處，填入適當的語句或表達式，把程序補充完整：
  程序中①應填入

   

  ．程序中②處應填入

   

  ．
  組卷：2引用：1難度：0.1

  解析