資源簡介

平橋中學2014學年第二學期第二次診斷性測試試題
高一信息技術
2015.5
本卷共8頁，兩大題,滿分100分，考試時間60分鐘；
用藍.黑色水筆書寫答案，考試結束只需將答題卡和答案紙交回。
選擇題部分答在答題卡上。
一.選擇題（本大題共35小題，每小題2分，共70分。在每小題給出的四個選項中，只有一個是符合題目要求的。）
1.在赤壁之戰時，蔣干從周瑜處偷走了人家 ( http: / / www.21cnjy.com )事前偽造好的蔡瑁.張允的投降書，交給曹操，結果曹操將二人斬首示眾，致使曹操失去了僅有的水軍將領；最后落得“火燒三軍命喪盡”的下場。這說明信息具有（ ）
A.共享性 B.時效性 C.真偽性 D.價值相對性
2.進入高考評卷場，評卷老師“憑臉進場”。 ( http: / / www.21cnjy.com )評卷老師只要往人臉識別器前一站，機器就能準確識別出該老師的名字，這種人工智能技術是（ ）
A.虛擬現實技術 B.模式識別技術 C.語音識別技術 D.信息的編程加工
3.林華同學想深入了解“辛亥革命”，他可以通過（ ）途徑獲得相關信息。
①上網獲取信息 ②咨詢相關專家 ③查閱相關報刊文獻 ④參觀武昌起義紀念館
A.①②③ B.①②④ C.②③④ D.①②③④
4.瀏覽網頁時，如果你對網頁上的一張圖片感興趣，想保存到本地硬盤，最好的方法是（ ）　
A.選中這個圖片，然后單擊右鍵，選擇“圖片另存為”，保存到本地硬盤
B.在瀏覽器菜單中，選擇“文件”\“另存為”選項，保存為Web頁格式
C.選中這個圖片，然后復制，粘貼到本地硬盤
D.保存這個網頁的網址即可
5.在Excel工作表中，如果要計算單元格B2.B4和B6 三個單元格的平均值，可以使用下面那個式子（ ）
A. =average(B2:B6) B. =(B2+B4+B6)/3
C.average(B2:B6) = D. (B2+B4+B6)/3 =
6．小王同學在上網時，打開了下圖所示的網頁進行搜索，然后按層次逐級查找自己所需要的信息，這種搜索方法屬于（ ） ( http: / / www.21cnjy.com )A. 關鍵詞檢索 B. 全文檢索 C. 自動檢索 D.主題目錄檢索7．小艾想為媽媽辦一次生日聚會，她在一家陌生的團購網站上看到某餐廳推出了一款套餐，下列行為不恰當的是（ ）
A．因為價格特別便宜，立刻付款買下該套餐
B．根據這家團購網站的信譽來決定是否購買該套餐
C．購買前與這家餐廳聯系，確認是否有此團購活動
D．先了解他人對此套餐的評價，再決定是否購買
8.工作表中A2：D3區域總共包含幾個單元格（ ）
A.5 B．6 C.7 D.8
9.使用電子表格軟件Excel時，在D1單元格中輸入下列式子，錯誤的是（ ）
A．=A1+B1+C1 B．=A1-B1+ ( http: / / www.21cnjy.com )C1 C．=A1+B1-$C1$ D．=sum(A1:C1)／3
10.在Excel工作表的某個單元格中輸入“5+2*3”（不包括引號），按回車后顯示結果是（ ）
A． 11 B. ＝５+２*３ C. ５+２*３ D. ２１
11.如下圖所示，單元格K14的求平均公式為：“=AVERAGE(E14:I14)”，則單元格K15的求平均函數為（ ）
( http: / / www.21cnjy.com )
A.=AVERAGE(E15:I15) B.=AVERAGE(F14:J14)
C.=AVERAGE(E13:I13) D.=AVERAGE(F13:J13)
12.下列流程圖符號屬于判斷框的是 ( )
A. B. C. D.
13.下列問題不能用算法描述的是（ ）
A.已知a.b.c的值，求一元二次方程ax2+bx+c=0（a≠0）的實數解
B.計算某個班級英語成績的平均分
C.列出方程y=2x+1的所有實數解
D.根據矩形的長和寬求面積
14.程序的三種基本結構是 ( )
A.選擇結構.循環結構.樹型結構
B.順序結構.選擇結構.循環結構
C.順序結構.循環結構.樹型結構
D.樹型結構.順序結構.選擇結構
15.“某商場的店慶促銷活 ( http: / / www.21cnjy.com )動之一：店慶日購物滿500元可在5折優惠后再減100元，否則只打5折”。用算法描述這一問題，可采用的算法結構是（ ）
A.順序結構 B.選擇結構 C.循環結構 D.樹形結構
16.下列四段程序中，主要控制結構屬于循環結構的是 （ ）
A. A= 5 　B= A 　A= A + B B.IF X > K THEN　PRINT "Big" 　
C. DO WHILE I<=10 　　 J = I * I 　　 S=S + J I=I + 1LOOP D.IF INT(X/2) = X/2 THEN PRINT "偶數" ELSE 　　 PRINT "奇數" 　　END IF
17.在Visual Basic中，語句Dim x As Single所說明的變量x屬于( )
A.整數型 B.邏輯型 C.字符串型 D.單精度實數型
18.下列可以作為VB變量名的是（ ）
A. A&s B. 2AS C. AS D. A_s
19.在VB集成環境下編制了含一個窗體的VB應用程序并保存在磁盤上，運行測試后編譯成可執行程序，整個過程中肯定會產生的文件類型是（ ）
A.．vbp.．frm.．exe B.．vbp.．exe.．txt
C.．txt.．exe.．frm D.．frm.．txt.．vbp
20.窗體裝載事件過程可以對程序進行初始化。VB窗體裝載事件過程的名稱是（ ）
A.Command1_Click B.Form_Click C.Form_Load D.Form_DblClick
21.VB語句Label1.Caption="結果"用于在標簽中顯示字符串，該語句中“Caption”是（ ）
A．屬性名 B．對象名 C．屬性值 D．類名
22.“如果a，b中任意一個為0，那么y=y+l”。能實現該功能的VB語句是（ ）
A.If a=0 And b=0 Then y=y+1 B.If a*b=0 Then y=y+1
C.If a=0,b=0 Then y=y+1 D.If a,b=0 Then y=y+1
23.VB標準函數Rnd的作用是返回一個大于等于0且小于1的隨機數。只能產生大于等于10且小于100隨機的VB表達式是（ ）
A.Int(Rnd*100) B.Int(Rnd*90+10) C.Int(Rnd*99+1) D.Int(Rnd*99+10)
24.讀下列程序段，運行該段程序之后，變量a的值是（ ）
a=3:b=4
if aA.3 B.4 C.0 D.1
25.某VB的事件過程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a = 2 * a + 1
Text1.Text = Str(a)
End Sub
程序運行時，在文本框Text1中輸入1，連續兩次單擊命令按鈕Command1后，Text1中顯示的內容是（ ）
A. 7 B.5 C. 3 D. 1
26．下列Visual Basic程序段運行后，變量Max的值為
a=3: b=10: max=0
if a>0 then max=3
if b>0 then max=10
A. 0 B.3 C. 10 D.無法確定
27.在Visual Basic中，表達式Mid("20110617", 4, 3)的值是（ ）
A."106" B."110" C."617" D."1106"
28.有如下Visual Basic 程序段：
s = 0
For i = 1 To 5
s = s + 3
Next i
該程序段運行后，變量s的值是（ ）
A.10 B.15 C.20 D.25
29.有如下VB程序段：（ ）
Dim k As Integer,s As Integer
k＝0:s＝0
Do While k＞＝10
k＝k＋1
s＝s＋k
Loop
該程序段執行后，變量s的值是
A.0 Ｂ.1 Ｃ.10 Ｄ.11
30.在數組a中尋找最大值的VB程序段如下：（ ）
max＝a(1) ′變量max用于存放最大值
For i=2 To 10
Next i
方框中最合適的語句是
A.If a(i)＜max Then max=a(i) B.If a(i)＜max Then a(i)=max
C.If a(i)＞max Then max=a(i) 　 D.If a(i) ＞max Then a(i)=max
31．在右圖所示Visual Basic程序截圖中，類和對象的數量分別為
A．6、3
B．4、6
C．6、4
D．4、7
32.下列Visual Basic表達式的值等于127的是（ ）
A.Val("123") + 4 B.Len("123") + 4
C.Sqr(123) + 4 D.Str("123") + "4"
33.小金編寫了一個統計隨機數分布的VB程序，部分程序如下所示。在調試程序時出現如圖所示的錯誤信息。
n=0
m=0
for I = 1 to 100
if Rnd>0.5 Then
n=n+1
else
m=m+1
next i
小金仔細分析該程序段后，發現其中缺少了（ ）
A.for B.end if
C.next D.if
34.下列是VB控件工具箱的部分截圖，其中“標簽”控件工具是（ ）
A.1 B.2 C.3 D.4
35.某Visual Basic程序的一個事件過程如下：
Private Sub Command1_Click()
Dim ch As String
ch = "abcd"
Label1.Caption = ch
End Sub
窗體中標簽對象的屬性設置如圖所示。運行程序，單擊命令按鈕Command1，出現“要求對象”的出錯信息提示。引起該錯誤的語句是（ ）
A.Dim ch As String
B.ch = "abcd"
C.Label1.Caption = ch
D.End Sub
二.綜合題（本大題共5小題，其中第36小題4分，第37小題10分，第38小題6分，第39小題4分，第40小題6分，共30分。）
36.某超市經歷使用Excel軟件對飲料銷售數據進行分析，界面如第36題圖所示，請回答下列問題：
( http: / / www.21cnjy.com )
第36題圖
（1）當前工作表的名稱是 （2分）
（2）正確計算各種飲料占銷售總額百 ( http: / / www.21cnjy.com )分比的值，需在H2單元格中輸入公式 （2分）（計算公式：占銷售總額百分比=銷售額（元）/銷售總額（元）），并從H2單元格自動填充到H13單元格。
37. 如圖所示是5.2—5.8杭州車城一周汽車銷量數據，放置于Excel工作薄“Sheet1”工作表中。
( http: / / www.21cnjy.com )
（1）要計算一周汽車的總銷售量，應 ( http: / / www.21cnjy.com )先選擇 （2分）單元格為活動單元格，然后在編輯欄中輸入 （2分），并按回車鍵確認，則將計算出一周總銷售量為“276”。
（2）要計算“平均價格”，小明在單元格D3中 ( http: / / www.21cnjy.com )應輸入公式“=C3/B3”，小明利用自動填充句柄快速將D3單元格中的公式復制到D4：D22中，求出了其他車輛的平均價格，請推斷D15單元格中使用的公式為 （2分）。
（3）小明在計算“銷量百分 ( http: / / www.21cnjy.com )比”時（計算公式為：銷量百分比=銷售量/一周總銷售量*100），先在單元格E3中輸入了公式“=B3/B23*100”，然后利用了自動填充功能來快速計算E4：E22，但是在自動填充后發現沒有得到正確結果，在E4：E22單元格中全部顯示了“#DIV/0！”（如圖1所示），請你分析E4：E22單元格出現“#DIV/0！”的原因：
（2分）；若要得到正確結果，則E3單元格中的公式應修改為
（2分），然后才能自動填充E4：E22。
38.下面程序的功能是：計算表達式1×2×3×……×10的值，并在文本框Text1中輸出表達式的值。為了實現這一功能，則程序中劃線處的語句應更正為
（1） （2分）
（2） （2分）
（3） （2分）
Private Sub Command1_Click()
Dim I As Integer, t As Long
t = 0 （1）
For i = 1 To 10
t = t + i （2）
Next i
Text1.caption = Str( t ) （3）
End Sub
39.下列VB程序運行時 ( http: / / www.21cnjy.com )界面如下圖所示，單擊“開始”按鈕Command1后，文本框Text1中顯示的內容是 （2分），文本框Text2中顯示的內容是 （2分）。
Dim a(1 To 10) As Integer
Private Sub Form_Load()
Randomize
For i = 1 To 10
a(i) = Int(Rnd() * 100)
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = 0
n = 0
For i = 1 To 10
If a(i) > m Then
m = a(i)
End If
If a(i) > 50 Then n = n + 1
Next i
Text1.Text = Str(m)
Text2.Text = Str(n)
End Sub
40．利用輾轉相除法求最大公約數。
輾轉相除法，又名歐幾里德算法，是求兩 ( http: / / www.21cnjy.com )個正整數最大公約數的算法，它的出現可追溯至3000年前。輾轉相除法并不需要把數作質因子分解。用輾轉相除法求正整數a、b的最大公約數運算過程為：
第一步：用被除數a除以除數b，得到余數c；
第二步：如果余數c不為0，則用上一步的除數b替換被除數a，用上一步的余數c替換除數b，再次執行第一步；如果余數為0則執行下一步；
第三步：則此時的除數即是a、b最大公約數。
例如a=60，b=25，運算過程為：
①60÷25=2…10； ②25÷1 ( http: / / www.21cnjy.com )0=2…5； ③10÷5=2…0。 第③步時，余數為0，運算結束，則此步的除數5即是60和25的最大公約數。
Visual Basic代碼實現：　　Private Sub Command1_Click() Dim a As Integer, b As Integer Dim ① a = Val(Text1.Text) b = Val(Text2.Text) c = a Mod b Do While ② a = b b = c c = a Mod b Loop Text3.Text = Str(b)End Sub其中①、②空白處應填的代碼分別是：（6分）　　　　　　?。?分）；②　　　　　　?。?分）。 ( http: / / www.21cnjy.com )
第31題圖
1
3
2
4