2018-2019學(xué)年浙江省紹興市諸暨中學(xué)高二（上）期中信息技術(shù)試卷

一、單選題（每題2分，共28分）

• 1．在Visual Basic代碼中，將多個(gè)語(yǔ)句合并在一行上的并行符是（　?。?/h2>

  A．撇號(hào)（'）

  B．冒號(hào)（：）

  C．感嘆號(hào)（!）

  D．問號(hào)（？）
  組卷：11引用：2難度：0.9

  解析

• 2．下列控件中可用于接受用戶輸入文本，又可用于顯示文本的是（　?。?/h2>

  A．Label 控件	B．TextBox 控件
  C．Timer 控件	D．CommandButton 控件
  組卷：12引用：4難度：0.7

  解析

• 3．Visual Basic規(guī)定工程文件的擴(kuò)展名是（　?。?/h2>

  A．exe

  B．frm

  C．vbp

  D．bas
  組卷：7引用：2難度：0.5

  解析

• 4．在程序中用到某一整型變量的數(shù)據(jù)范圍為-40000至40000，則該變量類型應(yīng)該說明為（　?。?/h2>

  A．Integer

  B．Byte

  C．Long

  D．Boolean
  組卷：8引用：1難度：0.7

  解析

• 5．用語(yǔ)句Dim A（-3To 3）As Integer 所定義的數(shù)組的元素個(gè)數(shù)是（　　）

  A．3

  B．4

  C．6

  D．7
  組卷：4引用：1難度：0.7

  解析

• 6．下列邏輯運(yùn)算結(jié)果為“true“的是（　?。?/h2>

  A．flase or not true	B．flase and not true
  C．true or not true	D．true and not true
  組卷：11引用：2難度：0.7

  解析

二、填空題（15題4分，16題6分，17題6分，18題6分，共22分）

• 17．一個(gè)程序?qū)崿F(xiàn)如下功能：在文本框text1中輸入一個(gè)數(shù)，在文本框text2中輸入需要轉(zhuǎn)換的進(jìn)制（小于等于16），點(diǎn)擊轉(zhuǎn)換按鈕，在標(biāo)簽Label3輸出轉(zhuǎn)換后的十進(jìn)制數(shù)，程序運(yùn)行界面如圖所示：
  （1）請(qǐng)?jiān)跈M線處填入合適的代碼
  Private Sub Commandl Click
  Dim s As String,k As Integer
  （1）

   

  
  k-Val（Text2Text
  Labl3．Caption=“對(duì)應(yīng)的十進(jìn)制數(shù)：“+St（toD（s,k））
  End Sub
  Function toD（s As String,k As Integer） As Integer
  Dim ans As Integer,x As Integer
  ans=o
  For i-I To Len（s）
  If Mid（s,i,1）＞=“A“And Mid （s,i,1）＜=“F”Then
  x=Asc（Mid（s,i,1）-Asc（A“）+10
  x=Val（Mid（s,i,1））
  End If
  （2）

   

  
  Next i
  （3）

   

  。
  End Function
  組卷：2引用：1難度：0.5

  解析

• 18．哥德巴赫1742年給歐拉的信中提出了以下猜想：任一大于2的偶數(shù)都可寫成兩個(gè)質(zhì)數(shù)之和，是為著名的哥德巴赫猜想。下面VB程序用來驗(yàn)證4-10000的偶數(shù)分解。
  請(qǐng)完善下列程序代碼：
  Function prime（x As Integer） As Boolean’此函數(shù)判斷x是否為質(zhì)數(shù)
  prime=True
  For i=2To Int（Sqr（x））
  If

   

   Then prime=False：Exit For
  Next i
  End Function
  Private Sub Command2_Click （　?。?br />Dim a As Integer,b As Integer
  Dim n As Integer
  

   

  
  For a=2To n\2
  b=n-a
  If

   

   Then
  List1．AddItem Str（a）+““+Str（b）+““+Str（n）
  End If
  Next
  End Sub
  組卷：2引用：1難度：0.5

  解析