2016-2017學(xué)年浙江省“七彩陽(yáng)光”新高考研究聯(lián)盟高二(上)期中信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個(gè)選項(xiàng)中,只有一個(gè)符合題目要求)
-
1.下列關(guān)于信息的說(shuō)法,不正確的是( )
組卷:7引用:2難度:0.9 -
2.下列關(guān)于網(wǎng)站和網(wǎng)頁(yè)說(shuō)法不正確的是( )
組卷:3引用:3難度:0.9 -
3.下列應(yīng)用中,沒(méi)有使用光學(xué)字符識(shí)別(OCR)技術(shù)的是( ?。?/h2>
組卷:6引用:2難度:0.9 -
4.關(guān)于Access數(shù)據(jù)庫(kù)的說(shuō)法,不正確的是( ?。?/h2>
組卷:3引用:2難度:0.7 -
5.某算法流程圖如圖所示:執(zhí)行該算法,輸出變量s和變量i的值分別為( ?。?/h2>
組卷:0引用:2難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題4分,第17小題5分,共26分
-
16.刪除重復(fù)字符的程序。程序功能如下:在文本框Text1中輸入字符串,單擊“刪除重復(fù)字符”按鈕,在文本框Text2中輸出處理后的結(jié)果。程序運(yùn)行效果如圖所示。實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正。
Private Sub Command1_ Click ( ?。?br />x=TextI Text
n=Len(x)
s=s+Mid(x,1.1)
For i=2 To n
flag=0
For j=1 To Len(s)
If Then
flag=1:Exit For
End If
Next j
If Then
s=s+Mid(x,i.D
End If
Next i
Text2,Text=s
End Sub組卷:0引用:1難度:0.3 -
17.小明編寫(xiě)了一個(gè)查名次的程序。程序功能如下:運(yùn)行程序,讀取數(shù)據(jù)庫(kù),將相關(guān)信息讀入到數(shù)組中(xh存放學(xué)號(hào),xm存放姓名,zf存放總分,mc存放名次)并在列表框 list I中顯示學(xué)生的相關(guān)信息,單擊“排名次”按鈕,在列表框list2中顯示帶有名次的學(xué)生相關(guān)信息(總分相同的名次一樣)。在文本框中輸入學(xué)生的學(xué)號(hào),單擊“查名次”按鈕,則在窗體中顯示該學(xué)號(hào)對(duì)應(yīng)的學(xué)生姓名與名次。程序運(yùn)行效果如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下:
(1)通過(guò)分析代碼可知該數(shù)據(jù)表的名稱為
(2)實(shí)現(xiàn)上述功能的VB程序如下:請(qǐng)?jiān)跈M線處填入合適代碼。
Dim xh(n) As Strin
Dim xm(n)As String
Dim zf(n) As Integer
Dim mc(n) As Integer
Private Sub Form _Load ( ?。?br />Dim conn As New AlXODB Connection
Dim rs as new adodb,recordset
Dim n As Integer i As Integer,k As Integer
conn,ConncctionString-“Provider=Microsoft.ACE OLEDB,12.0:Data Source=
+App.Path+“\student.jye.ai”
conn open
Set rs,ActiveConnection=conn
rs,“Open SELECT*FROM score“
ListI.Additem“學(xué)號(hào)”+“”+“姓名”+”“”+“總分“
n=0
Do While not rs EOF'到最后一條記錄后退出循環(huán)
n=n+1
xh(n)=rs.Fields(“學(xué)號(hào)”)
xm(n)=s.Fields(“姓名“)
zf(n)=rs.Fields(“總分“)
ListI,AddItem xh(i)+“”+xm(i)+“”+Str(zf(i))
Loop
rs Close
conn.Close
Set rs=Nothing
Set conn=Nothing
Private Sub Commandl Click( )
For i=I To n
k=i
For j=i+I To n
If zf(j)<zf(k) Then k=j
Next j
If
Templ xh(i):xh(i)=xh(k):xh(k)=Templ
Temp2=xm(i):xm(i)=xm(k):xm(k)=Temp2
Temp3=zf(i):zf(i)=zf(k):zf(k)=Temp3
End If
Next i
mc(1)=1
For i=2 To n
If zf(i)=zf(i-1)Then
Else
mc(i)=i
End If
Next i
List2.AddItem“學(xué)號(hào)“+“”+“姓名”+“總分”+“名次”
For i=I To n
List2 AddItem xh(i)+“”+xm(i)+“”+Str(zf(i))+“”+
Next i
End Sub組卷:0引用:1難度:0.5