2016-2017學年浙江省紹興市諸暨市牌頭中學高二（上）期中信息技術試卷
發布：2024/10/25 17:0:39
一、選擇題（每題2分，共24分）選擇題填涂在答題卡1-12
-
1．下列有關算法的描述，正確的是（ ）
組卷：26引用：2難度：0.7 -
2．小周定義了一個變量rs來存儲超市里商品條形碼，變量的數據類型應是（ ）
組卷：10引用：3難度：0.9 -
3．下列可作為VB變量名的是（ ）
組卷：6引用：2難度：0.9 -
4．模擬剪刀石頭布的游戲，用1-3這3個數字分別代表剪刀、石頭、布這三種情況，使用Rnd函數可以表示為（ ）
組卷：22引用：6難度：0.7 -
5．某VB程序的一個事件過程如下：
Private Sub Command1_Click（ ）
Dim a As Integer
a=Val（Text1．Text）
Text1．Text=Str（Sqr（a））
End Sub
程序運行時，單擊命令按鈕command1后彈出如圖所示的錯誤信息提示．出現錯誤的原因是（ ）組卷：8引用：2難度：0.7
二、程序設計題（共4大題，每空2分．答案寫在答題紙上）
-
15．商品條形碼是一個13 位數，它是商品的“身份證”．條形碼中前8位是廠商識別代碼，接著4 位是商品項目代碼，最后一位是校驗碼．校驗碼是由前12 位數按一定公式計算而得出的，其計算公式見下表
小明編寫了一個VB程序，輸入一個二維碼后，點擊“驗證”按鈕后，程序根據如上算法驗證
條形碼的驗證碼是否正確，代碼如下所示：
Private Sub Command1_Click （ ）
Dim s As String,x As String
Dim js As Integer,os As Integer,jy As Integer
s=Text1．Text
n=Len（s）
If n＜＞13Then
Label1．Caption=“條形碼位數錯誤“
Else
For i=1To 12
x=Val（Mid（s,i,1））
If ①Then
js=js+x
Else
os=os+x
End If
Next i
End If
jy=os*3+js
jy=②
If jy=10 Then jy=0
If jy=Val（Mid（s,13，1）） Then
Label1．Caption=“驗證碼正確“
Else
Label1．Caption=“驗證碼錯誤“
End If
End Sub
（1）要實現如上VB程序，在窗體上至少有個控件對象（窗體除外）．
（2）要實現上述功能，程序中橫線處①位置應填寫的表達式是
（3）要實現上述功能，程序中橫線處②位置應填寫的表達式是
（4）若在該程序運行時，輸入的待檢測的二維碼是“6921734953025”，執行上述程序，輸出的
結果是．組卷：7引用：1難度：0.1 -
16．任意一個大于等于4 的偶數，都可以用兩個素數之和表示，這就是哥德巴赫猜想．如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79．
編寫一個驗證哥德巴赫猜想的VB 程序：程序運行時，在文本框Text1 中輸入一個大于等于4 的偶數，單擊“驗證”按鈕Command1 后，如果哥德巴赫猜想驗證成功，則在文本框Text2 中顯示“Yes”，并在列表框List1 中顯示用兩個素數表示該偶數的等式，否則顯示“No”．程序運行結果如圖所示．實現上述功能的VB 代碼如下，但加框處代碼有錯，請改正．
函數judge的功能是判斷整數x是否為素數，若是素數則返回True,否則返回False
Function judge（x As Integer）As Boolean
Dim j As Integer
judge=True
j=2
Do While j＜=x-1And judge=True
If x Mod j=0Then
judge=False
Else
judge=true‘①
End If
Loop
End Function
Private Sub Command1_Click （ ）
Dim n As Integer,p As Integer,q As Integer,flag As Boolean
n=Val（Text1．Text）
p=1
flag=False
Do While flag=True And p＜n‘②
p=p+1
q=q+1‘③
If judge（p） And judge（q） Then
Text2．Text=“Yes“
flag=True
List1．AddItem Str（n）+“=“+Str（p）+“+“+Str（q）
End If
Loop
If flag=False Then Text2．Text=“No“
End Sub.組卷：25引用：2難度：0.1