2011年浙江省高中信息技術(shù)會(huì)考試卷（15）
發(fā)布：2024/4/20 14:35:0
一、選題題（算法）
-
1．在Visual Basic中，下列能作為變量名的是（ ?。?/h2>
組卷：2引用：1難度：0.9 -
2．在Visual Basic中，表達(dá)式Str（100）+“20“的值是（ ）
組卷：1引用：1難度：0.9 -
3．在Visual Basic中，下列屬于窗體文件的是（ ?。?/h2>
組卷：1引用：1難度：0.7
二、填空部分
-
10．為了找出QQ在線時(shí)間最長的5名學(xué)生，李風(fēng)設(shè)計(jì)了一個(gè)排序程序．程序運(yùn)行界面如圖所示：
左邊列表框List1中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Command1，在右邊列表框List2中顯示在線時(shí)間從高到低排名前5名的數(shù)據(jù)．程序中數(shù)組a和數(shù)組b分別存儲(chǔ)學(xué)生的QQ昵稱和對(duì)應(yīng)的QQ在線時(shí)間．
程序代碼如下：
Const n As Integer=14'n為學(xué)生數(shù)
Dim a（1To n） As String'數(shù)組a用于存儲(chǔ)學(xué)生的QQ昵稱
Dim b（1To n） As Integer'數(shù)組b用于存儲(chǔ)學(xué)生的QQ在線時(shí)間
Private Sub Command1_Click （ ）
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ù)用于在字符串后補(bǔ)插空格
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 />'此過程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行賦值，并顯示在List1中，代碼略
End Sub
（1）解決此問題采用的算法是．（填：選擇排序/冒泡排序）
（2）在程序①和②填入適當(dāng)?shù)恼Z句或表達(dá)式，將程序補(bǔ)充完整：
程序中①應(yīng)填入．程序中②處應(yīng)填入．組卷：21引用：2難度：0.1
三、操作題
-
11．打開考生文件夾下“VB”文件夾中的“test.jye.ai”，該VB程序的功能是：在列表框List1中顯示10位工人完成的零件數(shù)，單擊“計(jì)算”按鈕Command1，計(jì)算10位工人完成的零件總數(shù)，并顯示在文本框Text1中。程序運(yùn)行界面如圖所示：
完成以下操作：
（1）將命令按鈕Command1的Caption屬性值設(shè)置為“計(jì)算”。
（2）運(yùn)行程序，發(fā)現(xiàn)統(tǒng)計(jì)出的完成總數(shù)沒有顯示在Text1中，修改程序中的一處代碼修正此問題。調(diào)試程序正確，并保存窗體文件test。frm與工程文件test。vbp。組卷：0引用：1難度：0.9