2011-2012學(xué)年浙江省寧波市余姚中學(xué)高一（下）期中信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、單項選擇題（60分）本題共30個小題，每小題2分；只有一個答案是正確的．
-
1．在Visual Basic中，下列能作為變量名的是（ ?。?/h2>
組卷：7引用：3難度：0.9 -
2．在Visual Basic中，語句Lab.Caption=“你好“中的“Lab”是（ ）
組卷：14引用：6難度：0.7 -
3．計算兩個并聯(lián)電阻總電阻值的算法如下：
①輸入兩電阻R1、R2 的值
②計算總電阻R=R1R2R1+R2
③輸出總電阻R
上述算法屬于（ ?。?/h2>組卷：27引用：4難度：0.9 -
4．將數(shù)學(xué)表達式
sinxcosx（x的單位：弧度）寫成Visual Basic表達式，正確的是（ ?。?/h2>12組卷：7引用：2難度：0.9 -
5．在Visual Basic中，用變量存儲560位學(xué)生的身高數(shù)據(jù)（如：1.76），下列最合適的變量說明是（ ）
組卷：8引用：3難度：0.9 -
6．在求解“一元二次方程實數(shù)根”的算法中，如果方程不存在實數(shù)解，也要求輸出結(jié)果“無實數(shù)根”．此要求主要體現(xiàn)了算法特征中的（ ?。?/h2>
組卷：18引用：5難度：0.7 -
7．在Visual Basic代碼編輯窗口中，輸入了“Text1．”后出現(xiàn)了如圖所示的信息：其中的“Text”是Text1的（ ?。?/h2>組卷：9引用：3難度：0.9 -
8．有如下Visual Basic自定義函數(shù)：
Function max（a As Integer,b As Integer） As Integer
If a＞b Then max=a Else max=b
End Function
該函數(shù)的函數(shù)名是（ ?。?/h2>組卷：6引用：2難度：0.9 -
9．“下列問題適合使用枚舉算法解決的是（ ?。?/h2>
組卷：12引用：2難度：0.7 -
10．在Visual Basic中，若需將150位員工工號（如“B01036”）分別存儲在數(shù)組n的n（1）～n（150）元素中，則下列說明語句最合適的是（ ?。?/h2>
組卷：18引用：3難度：0.9 -
11．下列Visual Basic表達式中，只能產(chǎn)生[1，8]中的隨機實數(shù)的是（ ?。?/h2>
組卷：6引用：1難度：0.9 -
12．下圖是Visual Basic窗體中某對象的屬性窗口：從圖中可以看出，該對象名是（ ）組卷：4引用：2難度：0.9
三、程序填空（25分）本題共3個小題．
-
36．為了找出QQ在線時間最長的5名學(xué)生，李風(fēng)設(shè)計了一個排序程序．程序運行界面如圖所示：
左邊列表框List1中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Command1，在右邊列表框List2中顯示在線時間從高到低排名前5名的數(shù)據(jù)．程序中數(shù)組a和數(shù)組b分別存儲學(xué)生的QQ昵稱和對應(yīng)的QQ在線時間．
程序代碼如下：
Const n As Integer=14'n為學(xué)生數(shù)
Dim a（1To n） As String'數(shù)組a用于存儲學(xué)生的QQ昵稱
Dim b（1To n） As Integer'數(shù)組b用于存儲學(xué)生的QQ在線時間
Private Sub Command1_Click （ ?。?br />Dim i As Integer,j As Integer,t As String,p As Integer
For i=1To n-1
For j=n To i+1Step-1
If ①Then
t=a（j-1）：a（j-1）=a（j）：a（j）=t
p=b（j-1）：b（j-1）=b（j）：b（j）=p
End If
Next j
Next i
For i=1To 5
List2．AddItem SpaceEx（a（i））+Str（b（i））+“分鐘“
Next i
End Sub
'以下函數(shù)用于在字符串后補插空格
Function SpaceEx（s As String） As String
Dim t As String,d As Integer,i As Integer
t=s：d=Len（s）
For i=1To 5-d
t=t+““
Next i
SpaceEx=②
End Function
Private Sub Form_Load （ ?。?br />'此過程用于對數(shù)組a和數(shù)組b進行賦值，并顯示在List1中，代碼略
End Sub
（1）解決此問題采用的算法是．（填：選擇排序/冒泡排序）
（2）在程序①和②填入適當?shù)恼Z句或表達式，將程序補充完整：
程序中①應(yīng)填入．程序中②處應(yīng)填入．組卷：21引用：2難度：0.1 -
37．張強喜歡研究汽車，他編寫了一個模擬選汽車牌照號碼的Visual Basic程序．程序運行界面如圖所示，單擊“開始”按鈕Command1后，隨機產(chǎn)生6個汽車牌照號碼，并按序顯示在列表框List1中，單擊其中的一個號碼后，該號碼顯示在文本框Text1中．每個號碼的后5位是從0-9、A-Z的36個字符中隨機產(chǎn)生．
程序代碼如下：
Private Sub Command1_Click （ ?。?br />Dim p（1To 6）As String'數(shù)組p用于存儲6個車牌號碼
Dim i As Integer,j As Integer,t As Integer
Dim c As String,s As String
Randomize'初始化隨機數(shù)種子
List1．Clear'清除列表框List1中的內(nèi)容
'隨機產(chǎn)生6個5位號碼
For i=1To 6
s=““
For j=1To 5
t=Int（Rnd（ ?。?36）'產(chǎn)生一個0到35的隨機整數(shù)
If t＜=9Then
c=Chr（t+48）'將t轉(zhuǎn)換為相應(yīng)的字符后賦值給c
Else
c=Chr（t-10+65）'將t轉(zhuǎn)換為對應(yīng)的英文大寫字母后賦值給c
End If
s=①
Next j
p（i）=s
Next i
'對數(shù)組中的5位車牌號碼按字符串先后順序進行排序
For i=1To 5
k=i
For j=i+1To 6
If p（k）＞p（j） Then k=j
Next j
If i＜＞k then s=p（i）：p（i）=p（k）：p（k）=s
Next i
'在6個隨機號碼前添加“浙A”
For i=1To 6
p（i）=“浙A“+p（i）
List1．AddItem ②
Next i
End Sub
'將選中的號碼顯示在文本框中
Private Sub List1_Click （ ?。?br />Text1．Text=List1．List（List1．ListIndex）
End Sub
（1）對候選字符串進行排序時采用的是．（填：冒泡排序/選擇排序）
（2）在程序①和②處，填入適當?shù)恼Z句或表達式，把程序補充完整：
程序中①應(yīng)填入．程序中②處應(yīng)填入．組卷：2引用：1難度：0.1