資源簡介

2016年上學年高二技術期中測試卷
第一部分信息技術
一、選擇題部分（本大題共12小題，每小題2分，共30分。在每小題給出的四個選項中，只有一個符合題目要求）
1.某算法的流程圖結構如下圖所示,其算法結構屬于
(　　)
( http: / / www.21cnjy.com )
A.順序結構
B.選擇結構
C.樹形結構
D.循環結構
2.某算法流程圖如圖所示。
( http: / / www.21cnjy.com )
當輸入值為0時,該算法執行的步驟是(　　)
A.①②③④
B.①②③⑤
C.①②④⑤
D.①②③④⑤
3.某算法的部分流程圖如圖所示，執行這部分流程后，變量d的值為（
）
( http: / / www.21cnjy.com )
A.
0
B.1
C.8
D.9
4.某算法流程圖如圖所示：
執行該算法，輸出變量s和變量i的值分別為
A．16
8
B．28
12
C．10
8
D．18
10
5.計算某次考試的平均分的部分算法流程圖
( http: / / www.21cnjy.com )如圖所示,其中s用來記錄已輸入考生的人數,sum用來計算分數之和,avg用來存儲平均分,輸入-1時表示輸入結束。
( http: / / www.21cnjy.com )
圖中①處應填入的是(　　)
A.sum←sum+x
B.s←s+x
C.sum←sum+s
D.avg←avg+x
6.在VB中,語句label1.caption=″white″執行后,標簽label1的(　　)
A.文字顏色變為白色
B.文字內容變為″white″
C.背景變為白色
D.名稱變為″white″
7.一個VB程序的運行界面如圖所示。下列說法不正確的是(　　)
( http: / / www.21cnjy.com )
A.文本框Text1的Caption屬性值為“H”
B.標簽Label1的Caption屬性值為“輸入字符”
C.命令按鈕Command1的Caption屬性值為“查詢”
D.窗體的Caption屬性值為“查詢字符ASCII碼”
8.有如下程序段：
Dim
i
As
Integer,
ans
As
Integer
Dim
a(1
To
10)
As
Integer
sum
=
0
For
i
=
1
To
10
a(i)
=
i
^2
If
a(i)
Mod
3
=
0
Then
ans
=
ans
+
a(i)
Next
i
Text1.Text
=
Str(ans)
該程序段運行后，文本框Text1中顯示的內容是（
）
A.55
B.
126
C.
259
D.
385
9.下列能作為VB變量名的是(　　)
A.MOD
B.a@1
C.3F
D.no_1
10.觀察如下程序,變量x的數據類型應定義為(　　)
Dim
x
As
　　　　
x=Mid(″computer″,1,3)
A.Integer
B.Single
C.Long
D.String
11.設一個三位數是n,它的個位數字為a,十位數字為b,百位數字為c,則b的Visual
Basic表達式是
(　　)
A.n-a-c
B.(n-a
100-c)/10
C.Int(n/10)-Int(n/100)
10
D.n-Int(n/100)-Int(n/10)
12.下列VB表達式的值等于34的是(　　)
A.Abs(-35)+1
B.Len(″33″)+1
C.Mid(″1234567″,3,4)
D.Int(33.7)+1
13設a=5,b=10,則執行c=Int((b-a)
Rnd+a)+1后,c值的范圍是(　　)
A.5~10
B.6~9
C.6~10
D.5~9
14.某VB代碼如下:
a=″Computer″
b=Mid(a,2,1)
c=Asc(b)
d=Chr(c+1)
程序運行后,d的值是(　　)
A.″p″
B.″D″
C.″C″
D.″o″
15.有如下VB事件處理過程:
Private
Sub
Command1_Click(
)
Dim
i
As
Integer
List1.Clear
For
i=1
To
10
If
i
Mod
2=0
Then
　　List1.Additem
i
　　　　　End
If
Next
i
End
Sub
該事件被執行后,在列表框List1中顯示的數據是
(　　)
　　　　
　　　　　　
　A.
1
2
3
4
5
6
7
8
9
10
B
.1
3
5
7
9
C.
2
4
6
8
10
D.
10
9
8
7
6
5
4
3
2
1
二、填空題部分
16.計算圓周率的近似公式是:=1-+…+(-1)n-1。
某人編寫下面的程序用此公式計算并輸出π的近似值,請在劃線處填上合適的VB語句。
Private
Sub
Command1_Click(
)
pi=1
sign=1
n=20
000
For
k=　　　①　　　　
sign=　　　
②　　　
pi=pi+sign/k
Next
k
Print
pi
4
End
Sub
17.百元百雞問題:假如公雞5元一只,母雞
( http: / / www.21cnjy.com )3元一只,3只小雞一元,現在100元,可買公雞、母雞、小雞各幾只 用VB程序解決百元百雞問題,程序如下:
For
i=1
To
20
For
j=1
To
33
k=　　②　　
If
i+j+k=100
Then
Print
″公雞″+Str(i)
+″母雞″+Str(j)
+″小雞″+Str(k)
Next
j
Next
i
(1)該程序采用的算法是　　　　①　　　　(選填“枚舉算法”或“解析算法”)。
(2)為實現程序功能,在程序畫線處應填寫的表達式是　　　　②　　　　。
18.
編寫VB程序，實現如下功能：在文本
( http: / / www.21cnjy.com )框Text1中按“YYYY-MM-DD”（年4位，月2位，日2位）格式輸入某一日期，單擊“推算”按鈕Command1，在文本框Text2中輸出該日期對應的星期，運行界面如下第14題圖所示。
( http: / / www.21cnjy.com )
第14題圖
（1）要使標簽對象Label1中顯示的文本“date”修改為“日期”,可在其屬性窗口中將_______①____屬性的屬性值改“日期”。
（2）為實現上述功能，請在劃線處填入合適的代碼。
Private
Sub
Command1_Click()
Dim
s
As
String
'變量s存儲輸入的日期
Dim
s1
As
String,
s2
As
String,
s3
As
String
Dim
y
As
In
( http: / / www.21cnjy.com )teger,
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
=
0
And
y
Mod
100
<>
0
Or
y
Mod
400
=
0
Then
'判斷是否為閏年
n
=
n
+
Val(Mid(s2,
m,
1))
Else
n
=
n
+
Val(Mid(s1,
m,
1))
End
If
n
=
n
Mod
7
+
1
Text2.Text
=
Mid(s3,
n,
1)
End
Sub
（3）如果輸入日期“2017-02-01”，則輸出結果是星期
③
。
19.編寫VB程序，尋找第1位為2，第
( http: / / www.21cnjy.com )5位為5，數字長度為5的完全平方數，并統計個數。要求：單擊“尋找”按鈕Command1，將符合要求的五位數顯示在列表框List1中，統計個數顯示在標簽Label2中，界面如第14題圖所示。
實現上述功能的VB程序代碼如下：
Private
Sub
Command1_Click()
Dim
i
As
Integer,
n
As
Integer
Dim
x
As
Integer
n
=
0
For
i
=
0
To
999
x
=
①
If
Int(Sqr(x))
=
Sqr(x)
Then
List1.AddItem
②
③
End
If
Next
i
Label2.Caption
=
"共有："
+
Str(n)
+
"個"
End
Sub
（1）在設計應用程序界面時，能在窗
( http: / / www.21cnjy.com )體上添加標簽Label2的操作是
（填編號：①單擊工具箱中的標簽控件
②雙擊工具箱中的標簽控件）
（2）為實現上述功能，劃線①處應填入的代碼為
①
；
劃線②處應填入的代碼為
②
；
劃線③處應填入的代碼為
③
。
第一部分
信息技術
答題卷
班級
姓名
學號
選擇題(本大題共12小題,每小題2分,共24分。
在每小題給出的四個選項中,只有一個符合題目要求)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
非選擇題(本大題共4小題,其中第16小題4分,第17小題4分,第18小題5分,第19小題7分)
16.
①
（2分）
②
(2分)
17.
①
(2分)
②
(2分)
18.
①
(1分)
②
(2分)
③
(2分)
19.
（1）
(1分)
（2）①
(2分)
②
(2分)
③
(2分)
注：代碼填寫不區分大小寫
N
s<=10
s←s+i
i←i+2
s←0:i←4
Y
輸出s、i
第14題圖

展開更多......

收起↑