2018-2019學(xué)年浙江省紹興市諸暨中學(xué)高二（上）月考信息技術(shù)試卷（10月份）
發(fā)布：2024/11/4 9:30:2
一、選擇題（本大題共13小題，每小題2分，共26分，每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、錯(cuò)選、多選均不得分．）
-
1．在VB中，下列表達(dá)式的值為5的是（ ?。?/h2>
組卷：5引用：1難度：0.6 -
2．假設(shè)變量a=4，b=5，執(zhí)行a=a*b：b=a/b：a=a/b語(yǔ)句以后，a和b的值分別是（ ）
組卷：7引用：1難度：0.5 -
3．在VB中，設(shè)整型變量x、y的值分別是3、6，則下列語(yǔ)句中，能實(shí)現(xiàn)在標(biāo)簽Label1中顯示“s=18”的語(yǔ)句是（ ）
組卷：5引用：1難度：0.6 -
4．在Visual Basic中，能隨機(jī)產(chǎn)生一個(gè)小寫(xiě)字母的表達(dá)式是（ ?。?/h2>
組卷：4引用：1難度：0.5 -
5．某算法的流程圖如圖所示。執(zhí)行這部分流程后，輸出S的結(jié)果是（ ?。?img alt src="http://img.jyeoo.net/quiz/images/201811/280/ec4bd11a.png" style="vertical-align:middle" />
組卷：2引用：1難度：0.3
二、非選擇題（本大題共3小題，其中第14小題6分，第15小題9分，第16小題9分，共24分）
-
15．編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：有一個(gè)四位數(shù)，此數(shù)十位上的數(shù)字是7，且這個(gè)四位數(shù)是一個(gè)完全平方數(shù)，現(xiàn)要找出符合以上要求的所有四位數(shù)，并統(tǒng)計(jì)共有幾個(gè)數(shù)。單擊Command1按鈕，將符合要求的四位數(shù)顯示在列表框List1中，統(tǒng)計(jì)個(gè)數(shù)顯示在標(biāo)簽Label2中，界面如圖所示。
（1）若要修改窗體背景顏色，可在其屬性窗口中屬性的屬性值進(jìn)行修改。
（2）解決這個(gè)問(wèn)題采用的算法是（填字母：A、解析算法 B、枚舉算法）
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
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=“共有：“+④+“個(gè)“
End Sub組卷：21引用：1難度：0.4 -
16．編寫(xiě)VB程序，實(shí)現(xiàn)如下功能：程序運(yùn)行時(shí)，在文本框Text1中輸入任意字符串，單擊按鈕Command1，刪除字符串中的非字母后，新字符串顯示在Text2中，并找出ASCII碼最小的字母，將其ASCII碼顯示在Text3中。程序運(yùn)行界面如圖所示。
（1）將命令按鈕Command1中顯示的文本“Command1”修改為“查找”，可在其屬性窗口中將屬性的屬性值改為“查找”。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
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中第個(gè)字符的ASCII碼。組卷：2引用：1難度：0.4