2017-2018學年浙江省紹興市諸暨市牌頭中學高二(下)月考信息技術試卷(5月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分.)
-
1.下列有關移動設備的使用行為,安全隱患最小的是( ?。?/h2>
組卷:17引用:2難度:0.9 -
2.如圖所示為撰寫電子郵件時的部分操作界面。下列描述正確的是( ?。?img alt src="https://img.jyeoo.net/quiz/images/201806/196/8eecfa9e.png" style="vertical-align:middle" />
組卷:25引用:1難度:0.9 -
3.使用Word軟件編輯某文檔,部分界面如圖所示。下列說法正確的是( )
組卷:0難度:0.4 -
4.使用Access軟件創(chuàng)建某數據表,并在該數據表中錄入了部分數據。下列說法正確的是( ?。?/h2>
組卷:10引用:2難度:0.5 -
5.某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量s的值是( )
組卷:0引用:2難度:0.7
【加試題】
-
16.某一條形碼是由13位數字組成的編碼,其末位是校驗碼。條形碼校驗的方法如下:
①除校驗碼之外,求其余12位編碼中的奇數、偶數的數字之和;
②將偶數的數字之和乘以3,加上奇數的數字之和;
③取第②步得到結果的個位數字,用10減去該數字,將得到的結果存入變量m;
④若m的值為10,則將m的值修改為0,否則不變;
⑤若m和校驗碼相等則輸出“校驗碼正確!”,否則輸出“校驗碼錯誤!”。
現編寫一個VB程序,實現如下功能:在文本框Text1中產生條形碼數字序列,單擊“校驗”按鈕Command1,在標簽Label1中輸出對應的校驗信息,界面如圖所示。
實現上述功能的VB程序如下,但加框處代碼有錯,請改正。
Private Sub Command1_Click ( ?。?br />Dim s As String,x As Integer
Dim n As Integer,jsAs Integer,os As Integer,m As Integer
Js=0:Os=0
s=Text1.Text
If n<>13Then
Label1.Caption=“條形碼位數錯誤!“
Else
For i=1To 12
If x Mod 2<>0Then
js=js+x
Else
os=os+x
End If
Next i
m=os*3+js
m=10-m Mod 10
Ifm=10 Then m=0
If m=Val(Mid(s,n,1)) Then
Label1.Caption=“校驗碼正確!“
Else
Label1.Caption=“校驗碼錯誤!“
End If
End If
End Sub組卷:2引用:2難度:0.5
【加試題】
-
17.小明編寫了一個統(tǒng)計成績的VB程序:編寫一個過程,該過程從數據庫讀取學生的物理,化學,生物科目成績,分別存儲到數組a、b、c中;另又編寫一個過程,該過程依據數組a,b,c中的相關數據統(tǒng)計班級物理、化學、生物三門成績大于等于85分的學號。部分學號的成績統(tǒng)計如圖所示。
門數 學號 說明 只有一門>=85分 1,10 d(i)存放每個學號對應的大于等于85分科次 只有兩門>=85分 2,3,4,6,12 只有三門>=85分 7,8,9,11
List1、List2、List3中。程序運行界面如圖所示。
(1)在Command1_Click
(2)請在橫線處填入合適的代碼。
Dim a(1to 600)as integer'數組a存放物理成績
Dim b(1to 600)as integer'數組b存放化學成績
Dim c(1to 600)as integer'數組c存放生物成績
Dim n as integer
Private Sub Command1_Click ( )
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn ConnectionString=“provider=Microsoft.ACE.OLEDB.12.0;data source=“+“Score.jye.ai“
Conn.Open
Set rs.ActiveConnection=conn
rs.Open“SELECT*FROM whs“
n=0
Do While Not rs.EOF'從數據表中讀取各科的數據賦值到相應數組
n=n+1
a(n)=rs.Fields(“物理“)
b(n)=rs.Fields(“化學“)
c(n)=rs.Fields(“生物“)
rs.MoveNext
Loop
'本過程的其他語句略
End sub
Private Sub Command2_Click ( ?。?br />'依據數組a中的相關數據統(tǒng)計各學生每門課大于等于85分的學號
Dim i As Integer
Dim d(1to n) As Integer
For i=1to n
Next i
List1.AddItem“三門學科>=85分的學號有:“
List2.AddItem“兩門學科>=85分的學號有:“
List3.AddItem“一門學科>=85分的學號有:“
For i=1To n
If a(i)>=85Then
d(i)=d(i)+1
End If
If b(i)>=85Then d(i)=
If
d(i)=d(i)+1
End If
Next i
For i=1To n
If d(i)=3Then List1.AddItem Str(i)
If d(i)=2Then List2.AddItem Str(i)
If d(i)=1Then List3.AddItem Str(i)
Next i
End Sub組卷:4引用:1難度:0.5