2018-2019學(xué)年浙江省紹興市諸暨中學(xué)高二（上）月考信息技術(shù)試卷（10月份）
發(fā)布：2024/11/4 9:30:2
一、選擇題（本大題共13小題，每小題2分，共26分，每小題列出的四個備選項中只有一個是符合題目要求的，不選、錯選、多選均不得分．）
-
1．在VB中，下列表達(dá)式的值為5的是（ ）
組卷：5引用：1難度：0.6 -
2．假設(shè)變量a=4，b=5，執(zhí)行a=a*b：b=a/b：a=a/b語句以后，a和b的值分別是（ ）
組卷：7引用：1難度：0.5 -
3．在VB中，設(shè)整型變量x、y的值分別是3、6，則下列語句中，能實現(xiàn)在標(biāo)簽Label1中顯示“s=18”的語句是（ ）
組卷：5引用：1難度：0.6 -
4．在Visual Basic中，能隨機產(chǎn)生一個小寫字母的表達(dá)式是（ ）
組卷：4引用：1難度：0.5 -
5．某算法的流程圖如圖所示。執(zhí)行這部分流程后，輸出S的結(jié)果是（ ）
組卷：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ù)顯示在標(biāo)簽Label2中，界面如圖所示。
（1）若要修改窗體背景顏色，可在其屬性窗口中屬性的屬性值進(jìn)行修改。
（2）解決這個問題采用的算法是（填字母：A、解析算法 B、枚舉算法）
實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ）
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 （ ）
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