2016-2017學年浙江省寧波市慈溪市高二（上）期中信息技術試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題部分（本大題共15小題，每小題2分，共30分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．某算法的流程圖結構如下圖所示，其算法結構屬于（ ?。?br />
組卷：4引用：1難度：0.9 -
2．某算法流程圖如圖所示．
當輸入值為0時，該算法執(zhí)行的步驟是（ ?。?/h2>組卷：3引用：3難度：0.9 -
3．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，變量d的值為（ ?。?br />
組卷：4引用：2難度：0.7 -
4．某算法流程圖如圖所示：
執(zhí)行該算法，輸出變量s和變量i的值分別為（ ?。?/h2>組卷：4引用：3難度：0.7 -
5．計算某次考試的平均分的部分算法流程圖如圖所示，其中s用來記錄已輸入考生的人數，sum用來計算分數之和，avg用來存儲平均分，輸入-1時表示輸入結束．
圖中①處應填入的是（ ）組卷：4引用：1難度：0.7 -
6．在VB中，語句label1．caption=″white″執(zhí)行后，標簽label1的（ ?。?/h2>
組卷：7引用：1難度：0.7
二、填空題部分
-
18．編寫VB程序，實現如下功能：在文本框Text1中按“YYYY-MM-DD”（年4位，月2位，日2位）格式輸入某一日期，單擊“推算”按鈕Command1，在文本框Text2中輸出該日期對應的星期，運行界面如圖所示．
（1）要使標簽對象Label1中顯示的文本“date”修改為“日期”，可在其屬性窗口中將屬性的屬性值改“日期”．
（2）為實現上述功能，請在橫線處填入合適的代碼．
Private Sub Command1_Click（ ?。〥im s As String'變量s存儲輸入的日期
Dim s1 As String,s2 As String,s3 As String
Dim y As Integer,y2 As Integer,m As Integer,d As Integer,n As Integer
s1=“622503514624“
s2=“512503514624“
s3=“日一二三四五六“
s=
y=Val（Mid（s,1，4））
m=Val（Mid（s,6，2））
d=Val（Mid（s,9，2））
y2=y Mod 100
n=Int（y2/4）+y2+d
If y Mod 4=0And y Mod 100＜＞0Or y Mod 400=0Then'判斷是否為閏年
n=n+Val（Mid（s2，m,1））
Else
n=n+Val（Mid（s1，m,1））
End If
n=n Mod 7+1
'（3）
End Sub
（3）加框處程序代碼有錯誤，請改正．
（4）如果輸入日期“2017-02-01”，則輸出結果是星期．組卷：7引用：2難度：0.1 -
19．編寫VB程序，尋找第1位為2，第5位為5，數字長度為5的完全平方數，并統計個數．要求：單擊“尋找”按鈕Command1，將符合要求的五位數顯示在列表框List1中，統計個數顯示在標簽Label2中，界面如圖所示．
實現上述功能的VB程序代碼如下：
Private Sub Command1_Click
Dim i As Integer,n As Integer
Dim x As Integer
n=0
For i=0To 999
x=①
If Int（Sqr（x））=Sqr（x） Then
List1．AddItem ②
③
End If
Next i
Label2．Caption=“共有：“+Str（n）+“個“
End Sub
（1）在設計應用程序界面時，能在窗體上添加標簽Label2的操作是（填編號：①單擊工具箱中的標簽控件 ②雙擊工具箱中的標簽控件）
（2）為實現上述功能，劃線①處應填入的代碼為；
劃線②處應填入的代碼為；
劃線③處應填入的代碼為．組卷：13引用：1難度：0.1