2015-2016學(xué)年浙江省金華十校高二（上）調(diào)研信息技術(shù)試卷（A卷）
發(fā)布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．如圖所示，某用戶正通過智能手機(jī)客戶端應(yīng)用軟件獲取二維碼圖片中的內(nèi)容和信息．下列說法中不正確的是（ ）組卷：3引用：1難度：0.9 -
2．小王正在家中使用IE瀏覽器瀏覽一個圖文并茂的網(wǎng)頁，如圖所示，為了便于下次訪問，他使用了收藏夾功能．下列說法正確的是（ ）組卷：4引用：1難度：0.9 -
3．某公司的客戶信息管理系統(tǒng)中有一張用Access軟件創(chuàng)建的數(shù)據(jù)表，其結(jié)構(gòu)如圖所示，下列說法正確的是（ ）組卷：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”．能實現(xiàn)該功能的VB語句是（ ?。?/h2>
組卷：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）中．
實現(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ù)庫，將考生各項數(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的值，點擊“求解”按鈕，在2到三個數(shù)中的最小值之間，逐個檢測是否存在符合條件的值．如果存在符合條件的值，則在文本框Text4中輸出結(jié)果，結(jié)果不存在，則在文本框Text4中輸出“找不到符合條件的值”．
實現(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