2019-2020學(xué)年浙江省紹興市諸暨中學(xué)高二(上)月考信息技術(shù)試卷(10月份)
發(fā)布:2024/4/20 14:35:0
一、單選題(每題2分)
-
1.有一個(gè)對(duì)象屬性面板如圖所示,回答1-3題。
這是( ?。?/h2>組卷:1引用:0難度:0.50 -
2.有一個(gè)對(duì)象屬性面板如圖所示,回答1-3題。
該對(duì)象名為( ?。?/h2>組卷:1引用:0難度:0.50 -
3.有一個(gè)對(duì)象屬性面板如圖所示,回答1-3題。
若欲其中的屬性名 caption 獲得賦值為“轉(zhuǎn)換”正確的是( )組卷:1引用:0難度:0.40 -
4.“如果 a,b,c 中任意一個(gè)為 0,那么 y=y2+1”。能實(shí)現(xiàn)該功能的 VB 語句是( ?。?/h2>
組卷:5引用:1難度:0.5
二、填空題
-
15.素?cái)?shù)只能被 1 和它本身整除,不能被其他自然數(shù)整除。編寫 VB 程序?qū)崿F(xiàn)如下功能:?jiǎn)螕簟爱a(chǎn) 生奇數(shù)并判斷”按鈕 Command1,隨機(jī)產(chǎn)生一個(gè)三位正奇數(shù)顯示在文本框 Text1 中,并在文本框 Text2 中顯示其是否為素?cái)?shù)的判斷結(jié)果。例如,當(dāng)隨機(jī)產(chǎn)生的三位正奇數(shù)為 953 時(shí),程序運(yùn)行界面如圖 a 所示。
(1)在設(shè)計(jì)程序界面時(shí),應(yīng)使用第 11 題圖 b 所示“控件工具箱”中的
(2)實(shí)現(xiàn)上述功能的 VB 程序如下,請(qǐng)?jiān)跈M線處填寫合適的代碼。
Private Sub Command1Click( )
Dim n As Integer,i As Integer
Dim flag As Boolean‘用于標(biāo)記是否為素?cái)?shù)
Randomize
n=①
Text1.Text=Str(n):flag=True:i=3
Do While i<=n-1 And flag=True
Ifn Mod i=0Then flag=False
End If
i=i+2
Loop
If ②
Text2.Text=Str(n)+“是素?cái)?shù)”
Else
Text2.Text=Str(n)+“不是素?cái)?shù)”
End If
End Sub
(3)以下選項(xiàng)中,與加框處表達(dá)式“n Mod i=0”等價(jià)的是
A.n\i=Int(n/i)B.n\i=n/iC.n Mod i=n\i組卷:0引用:2難度:0.6 -
16.某英文字符加密算法,對(duì)明文中的每個(gè)字符進(jìn)行下列加密處理:
(1)將該字符 ASCII 碼轉(zhuǎn)換成對(duì)應(yīng)的 2 位 16 進(jìn)制數(shù);
(2)將產(chǎn)生的 16 進(jìn)制數(shù)互換位置
(3)步驟 2 產(chǎn)生的 16 進(jìn)制數(shù)即為明文加密后的密文字符 根據(jù)上述加密算法,小明編寫了一個(gè)解密程序,界面如圖
(1)如果明文為 24,那么密文是
(2)請(qǐng)?jiān)跈M線處填上合適的代碼
Dims as string
Private Sub Command1_Click( ?。?br />Dim d as string,d1 as string,d2 as string
Dim c as integer,c1 as integer,c2 as integer
Dim ans as string,i as integer
‘讀取密文,顯示在 text1,并存儲(chǔ)在 s 中,代碼略
Ans=””
For i=1 To len(s) step 2
d1=Mid(s,i,1):d2=Mid(s,i+1,1)
if d1>=″A″then①
c2=val(d2):c=②
d=chr(c):ans=③
Next i
Text2.Text=ans
End Sub組卷:0引用:1難度:0.6