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

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

• 1．在Visual Basic代碼中，將多個語句合并在一行上的并行符是（　　）

  A．撇號（'）

  B．冒號（：）

  C．感嘆號（!）

  D．問號（？）
  組卷：11引用：2難度：0.9

  解析

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

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

  解析

• 3．Visual Basic規定工程文件的擴展名是（　　）

  A．exe

  B．frm

  C．vbp

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

  解析

• 4．在程序中用到某一整型變量的數據范圍為-40000至40000，則該變量類型應該說明為（　　）

  A．Integer

  B．Byte

  C．Long

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

  解析

• 5．用語句Dim A（-3To 3）As Integer 所定義的數組的元素個數是（　　）

  A．3

  B．4

  C．6

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

  解析

• 6．下列邏輯運算結果為“true“的是（　　）

  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．一個程序實現如下功能：在文本框text1中輸入一個數，在文本框text2中輸入需要轉換的進制（小于等于16），點擊轉換按鈕，在標簽Label3輸出轉換后的十進制數，程序運行界面如圖所示：
  （1）請在橫線處填入合適的代碼
  Private Sub Commandl Click
  Dim s As String,k As Integer
  （1）

   

  
  k-Val（Text2Text
  Labl3．Caption=“對應的十進制數：“+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的偶數都可寫成兩個質數之和，是為著名的哥德巴赫猜想。下面VB程序用來驗證4-10000的偶數分解。
  請完善下列程序代碼：
  Function prime（x As Integer） As Boolean’此函數判斷x是否為質數
  prime=True
  For i=2To Int（Sqr（x））
  If

   

   Then prime=False：Exit For
  Next i
  End Function
  Private Sub Command2_Click （　　）
  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

  解析