2017年浙江省普通高校高考信息技術(shù)模擬試卷(5)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共9小題,每小題2分,共24分.每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)符合題目要求,不選、多選、錯(cuò)選均不得分)
-
1.小葉利用手機(jī)12306軟件網(wǎng)上購(gòu)買火車票,部分界面如圖所示,從圖中可以獲取到的正確信息是( ?。?nbsp;
組卷:10引用:1難度:0.9 -
2.小敏查看了某購(gòu)物網(wǎng)站賣家的信用評(píng)價(jià)等信息,其部分頁(yè)面如圖所示,圖中好評(píng)率“99.19%”代表的含義是( ?。?/h2>
組卷:8引用:4難度:0.9 -
3.如圖所示,由圖a得到圖b,采用的操作是( ?。?br />
組卷:6引用:1難度:0.9 -
4.字符“A”比“a”的ASCII碼值小32(十進(jìn)制),已知字符“K”的二進(jìn)制為1001011,則字符“k”的二進(jìn)制ASCII碼值是( )
組卷:16引用:6難度:0.7 -
5.如圖所示是一個(gè)使用Access軟件創(chuàng)建的數(shù)據(jù)表,該表記錄了部分教材的情況.
下列說(shuō)法正確的是( ?。?/h2>組卷:9引用:2難度:0.5
四、解答題(共2小題,滿分13分)
-
16.有序序列合并.
將兩個(gè)不下降有序序列合并為一個(gè)不下降有序序列.下面程序模擬該功能,程序界面如圖所示,單擊“生成序列一”按鈕Command1生成10個(gè)有序數(shù)字,并在List1中顯示,單擊“生成序列二”按鈕Command2生成10個(gè)有序數(shù)字,并在List2中顯示,單擊“序列合并”按鈕Command3,將兩組數(shù)據(jù)進(jìn)行合并,并在List3中顯示.
序列一中的數(shù)據(jù)存儲(chǔ)在a數(shù)組中,序列二中的數(shù)據(jù)存儲(chǔ)在b數(shù)組中,合并后的數(shù)據(jù)存儲(chǔ)在c數(shù)組中.
實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正.
Dim a(1To 10)As Integer
Dim b(1To 10)As Integer
Dim c(1To 20)As Integer
Private Sub Command1_Click
'生成10個(gè)不下降有序數(shù)字,存儲(chǔ)在a(1)到a(10)中,并在List1中顯示
'代碼略
End Sub
Private Sub Command2_Click
'生成10個(gè)不下降有序數(shù)字,存儲(chǔ)在b(1)到b(10)中,并在List2中顯示
'代碼略
End Sub
Private Sub Command3_Click
Dim i As Integer,j As Integer,k As Integer
i=1'變量i表示a數(shù)組中第1個(gè)未處理的數(shù)
j=1'變量j表示b數(shù)組中第1個(gè)未處理的數(shù)
t=0'變量t表示c數(shù)組中已加入的數(shù)的個(gè)數(shù)
Do While'第(1)處錯(cuò)誤
t=t+1
If a(i)<b(j)Then
c(t)=a(i)
i=i+1
Else
c(t)=b(j)
j=j+1
End If
Loop
If i<=10Then
For k=i To 10
t=t+1
'第(2)處錯(cuò)誤
Next k
End If
If j<=10Then
For k=j To 10
t=t+1
c(t)=b(k)
Next k
End If
List3.Clear
For i=1To 20
List3.AddItem(Str(c(i)))
Next i
End Sub.組卷:11引用:1難度:0.1 -
17.小明想用VB編程制作一個(gè)名次計(jì)算器,首先將同學(xué)的成績(jī)錄入到計(jì)算機(jī)中,同時(shí)存放在數(shù)組a中,顯示在左邊列表框中.點(diǎn)擊“排序”按鈕后,程序會(huì)將成績(jī)從高到低依次排序顯示在右邊的列表框中.運(yùn)行界面如圖所示,請(qǐng)?jiān)趦蓚€(gè)橫線處填入代碼.
Dim a(1To 100)As Single
Dim shu As Integer
Private Sub Command1_Click
Dim i,j,k As Integer
Dim t As Single
For i=1To shu-1
k=i
For j=i+1 To shu
If ①
t=a(j):a(j)=a(k):a(k)=t
End If
Next j
Next i
For i=1 To shu
List2.AddItem“第“& Str(i) &“名:“& Str(a(i))
Next i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim cj As Single
If KeyAscii=13Then
cj=Val(Text1.Text)
If cj>0Then
②
List1.AddItem Str(shu) &“:“& Str(cj)
a(shu)=cj
End If
Text1.Text=““
End If
End Sub.組卷:9引用:2難度:0.1