2015-2016學(xué)年浙江省金華十校高二(上)調(diào)研信息技術(shù)試卷(A卷)
發(fā)布:2024/4/20 14:35:0
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.如圖所示,某用戶正通過智能手機(jī)客戶端應(yīng)用軟件獲取二維碼圖片中的內(nèi)容和信息.下列說法中不正確的是( ?。?/h2>
組卷:3引用:1難度:0.9 -
2.小王正在家中使用IE瀏覽器瀏覽一個圖文并茂的網(wǎng)頁,如圖所示,為了便于下次訪問,他使用了收藏夾功能.下列說法正確的是( ?。?/h2>
組卷:4引用:1難度:0.9 -
3.某公司的客戶信息管理系統(tǒng)中有一張用Access軟件創(chuàng)建的數(shù)據(jù)表,其結(jié)構(gòu)如圖所示,下列說法正確的是( ?。?/h2>
組卷:5引用:3難度:0.7 -
4.小羽喜歡寫作,他使用Word軟件花了很長時間完成了一部中篇小說,但發(fā)現(xiàn)文中所有的“別出心裁”都寫成了“別處新裁”.下列操作能幫助他又快又準(zhǔn)確的進(jìn)行修改的是( ?。?/h2>
組卷:5引用:3難度:0.7 -
5.“如果a,b中任意一個為0,那么y=y+1”.能實(shí)現(xiàn)該功能的VB語句是( )
組卷:6引用:2難度:0.7
二、解答題(共5小題,滿分26分)
-
16.某高校自主招生考試后,為了便于查詢考生信息,開發(fā)了一套考生信息查詢軟件.程序界面如圖所示,在文本框Text1和文本框Text2分別輸入自己的身份證和密碼,單擊“查詢”按鈕后,如果身份信息和密碼都正確,在標(biāo)簽Label4中顯示成績,否則在Label4中顯示相關(guān)提示信息.
運(yùn)行程序,程序啟動時自動讀取數(shù)據(jù)庫中數(shù)據(jù),將所有考生的身份證號、密碼及成績按身份證號碼從小到大的順序,分別存放在數(shù)組sfz、mm和cj中.第i個考生的身份號在sfz(i),密碼信息在mm(i)中,成績在cj(i)中.
實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯,請改正.
Dim sfz(1 To 4000)As String'身份證信息
Dim cj(1 To 4000)As Integer'成績信息
Dim mm(1 To 4000)As String'密碼信息
Private Sub Form_Load( ?。?br />‘連接數(shù)據(jù)庫,將考生各項(xiàng)數(shù)據(jù)按身份證號從小到大存在數(shù)組sfz、mm、cj中
‘代碼略
End Sub
Private Sub Command1_Click( ?。?br />Dim stu As String,pwd As String
Dim i As Integer,j As Integer,m As Integer,p As Integer
stu=Text1.Text
pwd=Text2.Text
i=1:j=4000:p=0
Do While i<=j And p=0
m=(i+j)\2
If sfz(m)<>stu Then
If thenj=m-1 else i=m+1'(1)
Else
p=m
End If
Loop
If p=0 Then
Label4.Caption=“沒有找到該身份證的考生數(shù)據(jù)“
ElseIfmm(p)<>pwdThen
Label4.Caption=“密碼錯誤,請核對密碼后再次登錄“
Else
Label4.Caption=“成績:“+'(2)
End If
End Sub.組卷:1引用:1難度:0.3 -
17.小明設(shè)計了一個VB程序解決如下數(shù)學(xué)趣味問題:
已知三個正整數(shù)a,b,c.
現(xiàn)有一個大于1的整數(shù)x,將其作為除數(shù)分別除a,b,c,得到的余數(shù)相同.
求滿足上述條件的x的最小值是多少?
程序界面如圖所示,在文本框Text1中輸入a的值,在文本框Text2中輸入b的值,在文本框Text3中輸入c的值,點(diǎn)擊“求解”按鈕,在2到三個數(shù)中的最小值之間,逐個檢測是否存在符合條件的值.如果存在符合條件的值,則在文本框Text4中輸出結(jié)果,結(jié)果不存在,則在文本框Text4中輸出“找不到符合條件的值”.
實(shí)現(xiàn)上述功能的程序如下,請在橫線處填入合適代碼.
Private Sub Command1_Click( ?。?br />Dim a As Long,b As Long,c As Long
Dim d As Long,min As Long
'處理3個輸入數(shù)據(jù),并求出3個數(shù)的最小值
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
min=
'在2到三個數(shù)中的最小值之間,逐個檢測是否存在符合條件的值
d=2
x=0
Do While d<=min And x=0
If ISOK(a,b,c,d) Thenx=d
Loop
If x=0 Then
Text4.Text=“找不到符合條件的值“
End If
End Sub
'求三個數(shù)的最小值
Public Function GetMin(x As Long,y As Long,z As Long) As Long
If x>y Then GetMin=y Else GetMin=x
If z<GetMin Then GetMin=z
End Function.組卷:0引用:1難度:0.4