2018-2019學年浙江省紹興市諸暨市牌頭中學高二（上）期中信息技術試卷

一、選擇題（本大題共16小題，每小題2分，共32分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）

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

  A．x+1

  B．x_1

  C．Or

  D．If
  組卷：2引用：2難度：0.9

  解析

• 2．能正確判斷正整數x為偶數的VB表達式是（　　）

  A．x Mod 2=0

  B．Int（x/2）=0

  C．x/2=0

  D．x\2=0
  組卷：1引用：2難度：0.5

  解析

• 3．產生[a,b]（a,b都是整數且a＜b）范圍內某一隨機整數的VB表達式是（　　）

  A．Int（Rnd*a）+b	B．Int（Rnd*b）+a
  C．Int（Rnd*（b-a+1））+a	D．Int（Rnd*（b-a））+a
  組卷：12引用：5難度：0.7

  解析

• 4．【加試題】變量a中存儲了一個字符，能夠正確判斷該字符為數字字符“0”～“9”的VB表達式是（　　）

  A．Asc（a）＞=0Or Asc（a）＜=9

  B．“0”＜=a＜=“9”

  C．a＜=“0”Or a＞=“9”

  D．a＞=“0”And a＜=“9”
  組卷：11引用：3難度：0.7

  解析

• 5．以下程序段運行時出現如圖所示的錯誤提示：
  For i=1To 100
  If Rnd＞0.5Then
  n=n+1
  Else
  m=m+1
  Next i
  分析該程序段，該代碼中缺少了（　　）

  A．For

  B．End If

  C．Next

  D．If
  組卷：10引用：1難度：0.5

  解析

• 6．如下VB程序代碼，
  For i=3to 15step x
  Print“*“
  Next i
  下列說法中正確的是（　　）

  A．若x的值為3，則顯示5個*

  B．若x的值為5，則顯示4個*

  C．若x的值為0，則顯示0個*

  D．若x的值為-2，則顯示1個*
  組卷：2引用：2難度：0.5

  解析

二、填空題（本題共3大題，其中17題4分，18題6分，19題8分，共18分）

• 18．運動會田徑比賽，記分裁判把各賽道運動員的成績表交給錄入員錄入到計算機中，錄入人員編制了如下程序．運行程序，按道次順序依次輸入8個成績，道次號存放在數組a中，相應道次的運動員比賽成績存放于數組b中，并將原始成績顯示在列表框List1中．單擊“成績排序”按鈕（Command1），將原始成績從好到差排序，排序結果顯示在列表框List2中．運行效果如圖所示．
  
  實現上述功能的VB程序如下：
  （1）請在橫線處填入合適代碼．
  Dim a（1To 8）As Integer'存儲道次編號
  Dim b（1To 8）As Single'存儲運動員成績
  Dim num As Integer
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,k As Integer,p As Integer
  Dim t As Single
  For i=1To 7
  k=i
  For j=i+1To 8
  If

   

  Then
  k=j
  End If
  Next j
  If k＜＞i Then
  p=a（i）：a（i）=a（k）：a（k）=p
  t=b（i）：b（i）=b（k）：b（k）=t
  End If
  Next i
  For i=1To 8
  List2．AddItem Str（a（i）） &“道：“& Str（b（i））
  Next i
  End Sub
  Private Sub Text1_KeyPress（KeyAscii As Integer）'按回車鍵錄入比賽成績
  Dim cj As Single
  If KeyAscii=13Then
  num=num+1
  cj=Val（Text1．Text）
  If cj＞0And num＜=8Then
  a（num）=num
  

   

  
  List1．AddItem Str（a（num）） &“道：“& Str（b（num））
  Else
  MsgBox“輸入無效“
  End If
  Text1．Text=““
  End If
  End Sub
  （2）在Command1_Click

   

  事件過程中使用的排序算法是

   

  （選填：冒泡/選擇）排序．
  組卷：5引用：3難度：0.1

  解析

• 19．某編碼由4 個信息位和3 個校驗位組成，通過對編碼信息進行驗算，能夠檢測并糾正一位錯誤代碼。該7 位編碼中b1～b4 為信息位，p1～p3 為校驗位，位置如下：
  

  編碼中位	1	2	3	4	5	6	7
  對位信息	p1	p2	b1	p3	b2	b3	b4

  校驗的方式如下，求校驗值g1、g2、g3：
  g1=p1Xor b1Xor b2Xor b4
  g2=p2Xor b1Xor b3Xor b4
  g3=p3Xor b2Xor b3Xor b4
  其中Xor 為異或運算，規則是：0Xor 0=0，0Xor 1=1，1Xor 0=1，1Xor 1=0，
  p1Xor b1 是將p1、b1 轉換為二進制后按位進行異或運算，如7Xor 12 的結果為11。
  （1）若計算得到的校驗值g1、g2、g3 均為0，說明校驗正確，數據無錯誤。例如：若7 位編碼為1101001，計算校驗值g1、g2、g3 值均為0，驗證正確。
  （2）若校驗值g1、g2、g3 不全為0，說明數據有錯，出錯位置為g3g2g1（二進制數表示），糾錯的方法是對錯誤的位進行取反，即“0”變“1”，“1”變“0”。例如：若7 位編碼為1111001，計算校驗值g1=1、g2=1、g3=0，不全為0，說明數據有錯，錯誤位置在011（二進制數）位，即第3 位，原位置上“1”應為“0”，正確編碼為1101001。
  小明為此編寫了VB 程序，程序運行時，在文本框Text1 中輸入編碼值，單擊“校驗”
  按鈕Command1 后，在文本框Text2 中輸出運行結果，如圖所示。
  實現上述功能的 VB 程序如下，請回答下列問題：
  
  （1）若按上述規則的7 位編碼為1001000，其中一位有錯，則正確的編碼應為

   

  。
  （2）請在橫線處填入合適的代碼。
  Function check（s As String） As Integer
  Dim i As Integer,g1As Integer,g2As Integer,g3As Integer
  Dim c（1To 7）As Integer
  For i=1To 7
  c（i）=Val（Mid（s,i,1））
  Next i
  g1=c（1）Xor c（3）Xor c（5）Xor c（7）
  g2=c（2）Xor c（3）Xor c（6）Xor c（7）
  g3=c（4）Xor c（5）Xor c（6）Xor c（7）
  If g1+g2+g3=0Then check=0Else check=

   

  
  End Function
  Private Sub Command1_Click （　　）
  Dim i As Integer,m As Integer,Outs As String
  m=

   

  
  If m=0Then
  Text2．Text=“驗證正確，數據無錯誤“
  Else
  For i=1To 7
  If i=m Then
  Outs=Outs+Chr（ Asc（Mid（Text1．Text,i,1）） Xor

   

  ）
  Else
  Outs=Outs+Mid（Text1．Text,i,1）
  End If
  Next i
  Text2．Text=“第“+Str（m）+“位上數據有錯誤，正確編碼應為：“+Outs
  End If
  End Sub
  組卷：2引用：1難度：0.5

  解析