2020-2021學(xué)年浙江省稽陽聯(lián)誼學(xué)校高三(下)月考信息技術(shù)試卷(4月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分。在每小題給出的四個選項中,只有一個符合題目要求)
-
1.下列關(guān)于信息和信息技術(shù)的描述,正確的是( ?。?/h2>
組卷:12引用:1難度:0.7 -
2.下列有關(guān)網(wǎng)頁和電子郵件的說法,正確的是( ?。?/h2>
組卷:2引用:1難度:0.7 -
3.用Access軟件設(shè)計一個數(shù)據(jù)表,存儲下表所示的用戶數(shù)據(jù)。
會員編號 姓名 聯(lián)系方式 注冊日期 性別 余額 1 徐文杰 17886262123 2021-1-1 男 202.30 2 張樂 2021-1-5 男 15.86 3 王燕飛 15957554321 2021-2-3 女 500.00 組卷:1引用:1難度:0.7 -
4.利用軟件UltraEdit觀察字符內(nèi)碼,界面如圖所示,下列說法正確的是( ?。?br />
組卷:3引用:1難度:0.4 -
5.用photoshop軟件制作“建黨百年”作品,如圖所示。當(dāng)前狀態(tài)下,下列說法正確的是( ?。?br />
組卷:1引用:1難度:0.6
二、非選擇題(本大題共4小題,其中第13題4分,第14題8分,第15題7分,第16小題7分,共26分。)
-
15.某店鋪銷售運動類商品,根據(jù)銷售單售賣商品,然后更新庫存和統(tǒng)計銷售額。小商同學(xué)根據(jù)上述算法設(shè)計VB程序,讀入銷售清單數(shù)據(jù)(銷售清單存在數(shù)組sale,其中奇數(shù)位是商品名,偶數(shù)位是購買數(shù)量),單擊“計算”按鈕command1,若庫存充足則銷售成功,否則該單號作廢,最后在列表框list1降序輸出各商品剩余庫存和總銷售額。程序界面和代碼如下,回答下列問題:
Dim goods(1 To 11)As String‘商品名,共11種
Dim num(1 To 11)As Integer‘庫存數(shù)
Dim prize(1 To 11)As Integer‘商品單價
Dim sale(1 To 160)As String‘共80個銷售單號
Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,t2 As Integer
Dim total As Integer,s as string,t1 As String
total=0
For i=1 To 80
For j=1 To 11
If Then Exit For
Next j
If
num(j)=num(j)-Val(sale(i*2))
total=total+Val(sale(i*2))*prize(j)
For k=1 To 10
If
t1=goods(k):goods(k)=goods(k+1):goods(k+1)=t1
t2=num(k):num(k)=num(k+1):num(k+1)=t2
t2=prize(k):prize(k)=prize(k+1):prize(k+1)=t2
End If
Next k
Else
List1.AddItem Str(i)+“號單庫存不足“
End If
Next i
‘在列表框list1輸出各商品剩余庫存,代碼略
List1.AddItem“總銷售額“+
End Sub
Private Sub Form_Load
‘讀入數(shù)據(jù),存在各個數(shù)組,代碼略
End Sub
(1)根據(jù)代碼和程序界面,本程序沒有哪類對象
(2)加框處代碼有錯,請改正
(3)在程序橫線處填入合適代碼,使程序完整。組卷:1引用:1難度:0.4 -
16.有60個人要組建一個聚會,每人的喜好是一個數(shù)值,為提升聚會效果,會務(wù)組要把參會人員進(jìn)行分組,分組原則是:
(1)每組不超過8人
(2)組內(nèi)新增人員的喜好值必須與現(xiàn)有組內(nèi)人員的平均喜好值相差在5以內(nèi)
(3)若新增人員無法加入現(xiàn)有小組,則被分入新組建小組
小V同學(xué)根據(jù)上述算法設(shè)計編寫了VB程序,界面如圖所示,單擊“分組”按鈕后,在列表框list1輸出分組結(jié)果,每組一行,回答下列問題:
Dim a(1 To 60)As Integer'各人的喜好值
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,c As Integer,s as String
Dim b(1 To 480)As Integer'分組后喜好值
Dim ave(1 To 60)As Integer,num(1 To 60)As Integer
For i=1 To 60‘預(yù)設(shè)60個分組
num(i)=1
ave(i)=0
Next i
c=1:ave(1)=a(1):b(1)=a(1)
For i=2 To 60
For j=1 To c
If Abs(a(i)-ave(j))<=5 And num(j)<8 Then
ave(j)=
num(j)=num(j)+1
b(j*8-8+num(j))=a(i)
Exit For
End If
Next j
If
b(c*8+1)=a(i)
ave(j)=a(i)
c=c+1
End If
Next i
s=““
For i=1 To c
For j=1 To
s=s+Str(b((i-1)*8+j))
Next j
List1.AddItem s
s=““
Next i
End Sub
Private Sub Form_Load
‘生成60個原始數(shù)據(jù),存入數(shù)組a,數(shù)組b各元素初始化為0,代碼略
End Sub
(1)如圖所示,當(dāng)前數(shù)據(jù)已被分組,若再新增一個數(shù)“64”,會被分在第
(2)在程序橫線處填入合適代碼,使程序完整。組卷:1引用:1難度:0.3