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

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

• 1．在VB中，下列表達式的值為5的是（　　）

  A．Sqr（5.2）

  B．Abs（5.2）

  C．Fix（5.2）

  D．Len（“5.2“）
  組卷：5引用：1難度：0.6

  解析

• 2．假設變量a=4，b=5，執(zhí)行a=a*b：b=a/b：a=a/b語句以后，a和b的值分別是（　?。?/h2>

  A．5 和4

  B．4 和5

  C．20 和20

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

  解析

• 3．在VB中，設整型變量x、y的值分別是3、6，則下列語句中，能實現(xiàn)在標簽Label1中顯示“s=18”的語句是（　　）

  A．Label1．Caption=“s=x*y“

  B．Label1．Caption=“s=“+Str（x*y）

  C．Label1=“s=“（x+y）^2

  D．Label1．Caption=“s=“+Val（x*y）
  組卷：5引用：1難度：0.6

  解析

• 4．在Visual Basic中，能隨機產生一個小寫字母的表達式是（　?。?/h2>

  A．Asc（Int（Rnd（　　）*25+97）

  B．Chr（Int（Rnd（　?。?25+65）

  C．Chr（Int（Rnd（　?。?26+97）

  D．Asc（Int（Rnd（　　）*26+65）
  組卷：4引用：1難度：0.5

  解析

• 5．某算法的流程圖如圖所示。執(zhí)行這部分流程后，輸出S的結果是（　?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201811/280/ec4bd11a.png" style="vertical-align:middle" />

  A．45

  B．6

  C．10

  D．15
  組卷：2引用：1難度：0.3

  解析

二、非選擇題（本大題共3小題，其中第14小題6分，第15小題9分，第16小題9分，共24分）

• 15．編寫VB程序，實現(xiàn)如下功能：有一個四位數(shù)，此數(shù)十位上的數(shù)字是7，且這個四位數(shù)是一個完全平方數(shù)，現(xiàn)要找出符合以上要求的所有四位數(shù)，并統(tǒng)計共有幾個數(shù)。單擊Command1按鈕，將符合要求的四位數(shù)顯示在列表框List1中，統(tǒng)計個數(shù)顯示在標簽Label2中，界面如圖所示。
  （1）若要修改窗體背景顏色，可在其屬性窗口中

   

  屬性的屬性值進行修改。
  （2）解決這個問題采用的算法是

   

  （填字母：A、解析算法  B、枚舉算法）
  實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
  Private Sub Command1_Click （　?。?br />Dim i As Integer,x As Integer,c As Integer
  c=0
  For i=1000To 9999
  x=①

   

  
  If ②

   

   And x=7Then
  ③

   

  '將符合條件的四位數(shù)顯示在列表框中
  num=num+1
  End If
  Next i
  Label2．Caption=“共有：“+④

   

  +“個“
  End Sub
  組卷：21引用：1難度：0.4

  解析

• 16．編寫VB程序，實現(xiàn)如下功能：程序運行時，在文本框Text1中輸入任意字符串，單擊按鈕Command1，刪除字符串中的非字母后，新字符串顯示在Text2中，并找出ASCII碼最小的字母，將其ASCII碼顯示在Text3中。程序運行界面如圖所示。
  （1）將命令按鈕Command1中顯示的文本“Command1”修改為“查找”，可在其屬性窗口中將

   

  屬性的屬性值改為“查找”。
  （2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
  Private Sub Command1_Click （　?。?br />Dim result As String,s As String,c As String
  Dim n As Integer,i As Integer,j As Integer
  s=Text1．Text
  Text2．Text=““
  For i=1To Len（s）
  ①

   

  
  If n＞=65And n＜=90Or n＞=97And n＜=122Then
  ②

   

  
  End If
  Next i
  Text2．Text=result
  j=2
  c=Mid（result,1，1）
  Do While j＜=Len（result）
  If Mid（result,j,1）＜c Then c=Mid（result,j,1）
  ③

   

  
  Loop
  Text3．Text=④

   

  
  （3）如圖所示，在文本框Text3中的ASCII碼是Text2中第

   

  個字符的ASCII碼。
  組卷：2引用：1難度：0.4

  解析