資源簡介

上海交大附中09-10學年高一上學期期終試卷
高一信息科技
（滿分100分，90分鐘完成，答案一律寫在答題紙上。）
命題：房詩林 審核：胡志洪 校對：劉文遷
說明：本試卷所有程序的運行環境為：Windows 2000（XP）、Visual Basic
6.0企業版或以上。
一、填充題
1、早期程序設計的基本思想是通過一系列程序語句來處理數據，這種思想被稱為是面向 （1） 的程序設計，到了20世紀80年代，出現了一種新穎的編程思想，這就是面向 （2） 的程序設計。
2、通常用 （3） 、 （4） 、程序來描述算法。
3、用 （5） 語言和 （6） 語言編制的程序，計算機是不能直接執行的。
4、在VB中，窗體文件的擴展名為 （7） ，每個窗體對應一個窗體文件，窗體及其控件的屬性和其它信息（包括代碼）都存放在該窗體文件中。建立一個應用程序即創建一個工程，工程文件的擴展名為 （8） ，若需要，可以創建可執行文件，可執行文件的擴展名為 （9） 。
5、數學表達式 ，在計算機程序設計語言中一般表示為 （10） 。
二、選擇題（每題只有一個正確答案）
1、從在計算機中執行的過程來看，用 編寫的程序，在計算機中執行得最快。
A、機器語言 B、匯編語言 C、高級語言 D、無法比較
2、計算機程序，指計算機如何去解決問題或完成任務的一組可執行的指令，一個程序一般由 組成。
A、指令 B、指令和數據 C、過程和數據 D、數據
3、以下操作中，涉及對程序解釋執行的是 。
A、雙擊一個VB工程文件FORM1.VBP的圖標，啟動一個VB程序
B、點擊“開始”按鈕，選擇“運行”，輸入NOTEPAD.EXE，點擊“確定”按鈕
C、雙擊文件INDEX.HTM的圖標，顯示一個頁面
D、雙擊圖像文件Waves.bmp，打開圖像文件Waves.bmp
4、某同學在用“偽代碼”表示一個算法中有如下語句：
輸出： X/自然數；
請問，他違反了算法的 原則 。
A、有一個或多個輸出 B、有窮性
C、可行性 D、確定性
5、下面 語言不屬于面向對象的程序設計語言。
A、Visual C++ B、Visual Basic C、Java D、AutoCAD
6、流程圖的符號中，矩形框一般作為 。
A、 連接圈 B、輸入輸出框 C、處理框 D、起止框
7、 不屬于算法的基本結構。
A、順序結構 B、倒序結構 C、分支結構 D、循環結構
8、 不全是程序設計中的高級語言。
A、C++、VB、Flash B、C++、VB、Delphi
C、VC、VB、Delphi D、Turbo C、VB、Pascal
9、以下各項，可以作為Visual Basic變量名的是 。
A、Flag B、 2_seek C、123.58 D、While
10、若變量x、y的值分別為4、2，則表達式 Int(2.5+y/x) Mod -3 的值是 。
A、1 B、0 C、-1 D、3
11、計算機執行變量賦值：a ← a+2 的過程是 。
A．讀取變量a的值 → 將運算結果寫入變量a → 將a的值加2
B．讀取變量a的值 → 將a的值加2 → 將運算結果寫入變量a
C．將a的值加2 → 讀取變量a的值 → 將運算結果寫入變量a
D．將a的值加2 → 將運算結果寫入變量a → 讀取變量a的值
12、For-Next循環中， 情況下循環體只執行一次。
初值大于終值，且步長大于零
B、初值等于終值
C、初值小于終值，且步長小于零
D、初值小于終值，步長小于終值與初值之差
13、確定一個控件在窗體上的位置的屬性是 。
A、Width和Height B、Width或Height
C、Top或Left D、Top和Left
14、以下敘述中錯誤的是：
A、打開一個工程文件時，系統自動裝入與該工程有關的窗體文件
B、保存Visual Basic程序時，可以分別保存窗體文件及工程文件
C、Visual Basic應用程序只能以解釋方式執行
D、窗體文件包含該窗體及控件的屬性
15、某同學在設計一個VB程序過程中，想保存程序，但發現鼠標有故障，最快捷的保存方法是 。
A、按快捷鍵Alt+F4，選“否”，再保存。
B、按快捷Ctrl+Q，再保存。
C、按快捷Ctrl+Break，再按快捷Alt+Q，選“是”，保存。
D、按快捷鍵Alt+E，再保存。
三、閱讀下列流程圖，寫出結果
1、 輸出結果為_______。A、104 B、13C、9 D、30 2、若輸入的值是-4，則輸出結果是 。A、0 B、4 C、-4 D、8
3、該算法的功能是 。A、求輸入的5個數的積 B、求輸入的6個數的最大值C、求輸入的6個數的積 D、統計輸入的數的個數 4、該算法的功能是 。A、輸出 [2，1000]中能被3整除的偶數B、輸出 [2，1000]中能被3整除的奇數C、輸出 [2，1000]中的偶數D、輸出 [2，1000]中的奇數
四、閱讀下列程序，寫出執行結果或描述功能
1、下面程序段：
a=1
b=2
If a>b Then
a=a+1
End If
Print a
執行結果是： 。
2、有如下程序：
Private Sub Form_Click()
Dim n As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
程序運行后，單擊窗體，輸出結果為 。
3、 假定有如下事件過程：
Private Sub Form_Click()
Dim x as Integer, n As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x,n
End Sub
程序運行后，單擊窗體，輸出結果是 。
4、下面程序段：
Private Sub Command2_Click()
Dim a As Integer, b As Integer, c As Integer
Randomize
Do
a = Int(Rnd * 9) + 1
b = Int(Rnd * 9) + 1
c = Int(Rnd * 9) + 1
Loop Until a +b+c=24
Print a, b, c
End Sub
以上程序的功能是 。
5、下面程序執行后，x的值為 。
Dim x As Integer,i As Integer
x=0
For i=20 To 1 Step –2
x=x+i\5
Next i
Print x
A、16 B、17 C、18 D、19
五、讀下列程序，找出錯誤
1、為交換兩個變量的值，某同學編了以下程序段（七條語句）：
（1）Dim x As Integer,y As Integer,t As Integer
（2）x=3
（3）y=8
（4）x=t
（5）x=y
（6）t=y
（7）print x,y
請問，運行上述程序后：
（1）結果（x，y的值）為： ；
（2）若要輸出（x，y的值）：8 3，應怎樣修改語句（必須在原語句上修改）：
第 行，應改為
第 行，應改為
第 行，應改為
注意：以上給出三行，未必有三個錯！
2、某同學編了一個程序，其功能是：輸入三個數，輸出其中最大值。界面如下圖所示：有兩個標簽，一個名稱為Label1、標題為“請你輸入三個數:”，另一個名稱為Label2、標題為空，三個文本框，名稱分別為Text1和Text2、Text3，標題均清空，三個按鈕，標題分別為“清除”、“最大值” 和“退出”。
程序運行后，在三個文本框中輸入三個數，單擊“最大值”按鈕，則Label2標簽中顯示最大值，單擊“清除”按鈕，則清空三個文本框且光標停在Text1中，單擊“退出”按鈕則退出程序。
下面是求最大值的程序：
（1）Private Sub Command2_Click()
（2） Dim a As Integer,b As Integer, Dim c As Integer
（3） Dim Max As String
（4） a = Val(Text1.Text)
（5） b = Val(Text2.Text)
（6） c = Val(Text3.Top)
（7） If a >=b And b>=c Then
（8） Max = a
（9） Else
（10） If b >=c Then
（11） Max=b
（12） Else
（13） Max=c
（14） End If
（15） End If
（16） Label2.Caption = "Max=" + Max
（17）End Sub
請你找出錯誤，并寫出正確的程序（必須在原程序上改），使之運行正確。
第 行錯，正確的程序為
第 行錯，正確的程序為
第 行錯，正確的程序為
第 行錯，正確的程序為
第 行錯，正確的程序為
第 行錯，正確的程序為
注意：以上給出六行，未必有六個錯！
六、編程
設計一個搖獎程序，界面如下圖所示：有三個標簽，一個名稱為Label1、標題為“搖獎程序”，另一個名稱為Label2，標題為“請輸入人數：”，第三個名稱為Label3、標題為空，一個文本框，名稱為Text1，標題清空，三個按鈕，標題分別為“開始”和“清除”和“結束”。
要求：
程序運行后，在文本框中輸入班級人數，單擊“開始”按鈕，則Label3標簽中按樣張顯示三個不同的隨機學號，單擊“清除”按鈕，則清空文本框和Label3且光標停在Text1中，單擊“退出”按鈕則退出程序。下面是實現該功能的部分程序，請你在
處填上適當語句，使之完整 。
Private Sub Command2_Click() ‘清除
（1）
（2）
Text1.SetFocus
End Sub
Private Sub Command3_Click() ‘結束
End
End Sub
Private Sub Command1_Click() ‘產生3個中獎學號
Dim a As Integer, b As Integer ,c As Integer, s As Integer
Form1.Cls
s = Val(Text1.Text) ‘取班級人數
（3）
（4）
（5）
（6）
（7）
（8）
Label3.Caption = " 中獎學號為：" & a & "號、 " & b & "號、 " & c & "號 "
End Sub

展開更多......

收起↑