2016-2017學(xué)年浙江省溫州市平陽二中高二（上）期中信息技術(shù)試卷

一、選擇題（本大題共12小題，每小題2分，共24分）

• 1．在Visual Basic中，語句Text1．Text=“red”執(zhí)行后，文本框Text1（　?。?/h2>

  A．名稱變?yōu)椤皉ed”	B．文字內(nèi)容變?yōu)椤皉ed”
  C．背景色變?yōu)榧t色	D．文字顏色變?yōu)榧t色
  組卷：7引用：1難度：0.9

  解析

• 2．在VB中，某兩個(gè)對(duì)象的屬性窗口如圖所示：由圖可知，這兩個(gè)對(duì)象的（　?。?br />

  A．對(duì)象名稱相同	B．所屬類相同
  C．字面內(nèi)容相同	D．背景顏色相同
  組卷：7引用：1難度：0.9

  解析

• 3．有如下的程序段：
  x=5：y=9
  If  Not（x＞y） then
  x=x+y
  else
  x=x-y
  End if
  執(zhí)行結(jié)束后，變量x的值為（　?。?/h2>

  A．-4

  B．4

  C．14

  D．5
  組卷：19引用：2難度：0.9

  解析

• 4．有如下VB程序段：
  a=3：b=4：c=5
  If a＞=b And a＞=c Then
  y=a
  ElseIf b＞=c Then
  y=b
  Else
  y=c
  End If
  執(zhí)行以上程序后，變量y值為（　?。?/h2>

  A．5

  B．3

  C．4

  D．0
  組卷：22引用：2難度：0.5

  解析

• 5．想產(chǎn)生區(qū)間[10，50]的隨機(jī)整數(shù)，以下函數(shù)正確的是（　?。?/h2>

  A．Int（Rnd（　　）*40+10）	B．Int（Rnd（　?。?40+11）
  C．Int（Rnd（　　）*41+10）	D．Int（Rnd（　?。?41+9）
  組卷：8引用：1難度：0.7

  解析

二、非選擇題（本大題共5小題，其中第13小題4分，第14小題4分，第15小題4分，第16小題8分，第17小6題分，共26分）

• 16．現(xiàn)要求編寫VB程序，編輯界面如圖1所示，運(yùn)行界面如圖2所示，程序功能如下：在文本框Text1中輸入n的值，單擊“求和”按鈕Command1，完成n以內(nèi)奇數(shù)和的計(jì)算，并在文本框Text2中顯示計(jì)算結(jié)果．
  
  （1）觀察編輯界面和運(yùn)行界面，發(fā)現(xiàn)圖1缺少控件，需要添加的對(duì)象為

   

  （填寫對(duì)象名稱）．
  （2）請(qǐng)根據(jù)題意將下列程序補(bǔ)充完整．
  Private Sub Command1_Click （　?。?br />Dim n As Integer,s As Integer,i As Integer
  ①

   

  
  For i=1To n Step 2
  ②

   

  
  Next i
  Text2．Text=Str（s）
  End Sub
  （3）該程序?qū)儆?!--BA-->

   

  算法（選填：枚舉/解析）
  組卷：5引用：1難度：0.3

  解析

• 17．編寫一個(gè)具有下列功能的VB程序：在文本框Text1中輸入18位身份證號(hào)，單擊“提取”按鈕Command1，并在文本框Text2中顯示出生日期．編輯界面如圖1所示，運(yùn)行界面如圖2所示：
  
  （1）按鈕顯示內(nèi)容修改為“提取”，是通過修改

   

  屬性完成的．
  （2）請(qǐng)根據(jù)題意將下列程序補(bǔ)充完整．
  Private Sub Command1_Click （　?。?br />Dim s As String,x As Integer
  S=Text1．Text
  x=Len（Text1．Text）
  If ①

   

  Then
  Text2．Text=②

   

  
  Else
  Label2．Caption=”輸入的身份證號(hào)位數(shù)有誤，請(qǐng)重新輸入”
  End If
  End Sub.
  組卷：6引用：1難度：0.1

  解析