2010年浙江省高中信息技術(shù)會考試卷(2)
發(fā)布:2024/4/20 14:35:0
一、填空題(共4小題,每小題3分,滿分12分)
-
1.有如下Visual Basic程序段:
m=“sch”
n=Mid(“tools”,2,3)
s=m+n
該程序段運(yùn)行后,變量s的值為組卷:6引用:2難度:0.9 -
2.有如下Visual Basic程序段:
a=3:b=4:c=5
If a>b And b>c Then
Label1.Caption=“happy“
Else
Label1.Caption=“better“
End If
該程序段運(yùn)行后,在標(biāo)簽Label1上顯示的是組卷:0引用:1難度:0.7
二、填空題(共4小題,每小題3分,滿分12分)
-
7.有如下Visual Basic程序段:
s=10
For i=1To 20Step 3
s=s+i
Next i
For j=1To 3
s=s*j
Next j
問:該程序段運(yùn)行后,
(1)語句“s=s*j“執(zhí)行的次數(shù)為
(2)變量s的值為組卷:11引用:2難度:0.5 -
8.某協(xié)會進(jìn)行釣魚比賽,最后有十人進(jìn)入決賽,錄入員編制了如下Visual Basic程序,功能是根據(jù)成績進(jìn)行排序,程序中數(shù)組a保存所有參賽者的成績,數(shù)組b保存此成績對應(yīng)的姓名,第i位參賽者的成績保存在a(i)中,姓名保存在b(i)中。
程序界面如圖所示,左邊列表框List1中顯示原始數(shù)據(jù)(成績和相應(yīng)的姓名),單擊“排序“按鈕(Command1),排序后的結(jié)果按成績從高到低顯示在列表框List2中。
解決此問題的算法流程圖如圖所示,排序部分的程序段如下:
Dim a(1To 10)As Single
Dim b(1To 10)As String
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,k As Integer,x As Single,y As String
For i=1To 9
k=i
For j=i+1To 10
If ① Then k=j
Next j
If k<>i Then
x=a(i):a(i)=a(k):②
y=b(i):b(i)=b(k):b(k)=y
End If
Next i
For i=1To 10
List2.AddItem Str(a(i))+““+b(i)
Next i
End Sub
Private Sub Form_Load ( ?。?br />'此過程用于對數(shù)組a和數(shù)組b進(jìn)行初始賦值,代碼略
End Sub
(1)解決此問題的算法是
在程序①和②橫線處,填入適當(dāng)?shù)恼Z句或表達(dá)式,把程序補(bǔ)充完整:
(2)程序中①橫線處應(yīng)填入
(3)程序中②橫線處應(yīng)填入組卷:0引用:1難度:0.1