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