2018-2019學(xué)年浙江省寧波市慈溪市三山高級中學(xué)高二(下)第一次月考信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題12小題,每小題2分,共24分.)
-
1.下列有關(guān)信息的說法,正確的是( ?。?/h2>
組卷:18引用:1難度:0.6 -
2.小明用IE瀏覽一個圖文并茂的網(wǎng)頁,地址欄信息為http://www.nb.gov.cn/index.jye.ai“.下列描述不正確的是( ?。?/h2>
組卷:12引用:1難度:0.5 -
3.使用Word軟件進(jìn)行圖文處理,下列說法正確的是( ?。?/h2>
組卷:14引用:1難度:0.4 -
4.關(guān)于 Access數(shù)據(jù)庫和數(shù)據(jù)表,下列說法正確的是( ?。?br />
組卷:12引用:1難度:0.5 -
5.使用 UltraEdit軟件查看字符內(nèi)碼,部分界面如圖所示:下列說法正確的是( ?。?br />
組卷:6引用:1難度:0.4
二、非選擇題(本大題共4小題,其中第13小題6分,第14小題8分,第15小題5分,第16小題7分,共26分)
-
15.編寫“簡單密碼篩選”程序,實(shí)現(xiàn)如下功能:在文本框Textl中輸入連續(xù)多組數(shù)字密碼,之間以空格符分隔,篩選出簡單密碼(即一組密碼中所有數(shù)字均相同),單擊“篩選密碼”按鈕 Commandl,將簡單密碼顯示在列表框List1中,簡單密碼個數(shù)顯示在文本框Text2中。程序運(yùn)行界面如圖a所示。
(1)程序運(yùn)行時,提示如圖b所示的出錯信息,導(dǎo)致出錯的是下列哪條語句
(2)實(shí)現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。
Private Sub Commandl_Click ( ?。?br />Dim s As String,c As String,tmp As String
Dim i As Integer,cnt As Integer
Dim flag as boolean
cnt=0:flag True
List.Clear:s=Text1.Text:Text1.text=″″
For i=1 To Len(s)
ch=Mid(s,i,1)
If ch>=″0″And ch<=″9″Then
tmp=tmp+ch
If Len (tmp)>1 Then
If
End If
Else
If flag Then
Listl.AddItem tmp:cnt cnt+1
flag=True
tmp=″″
End if
Next i
If flag Then List1.AddItem tmp:cnt cnt+1
If
End Sub
(3)成功修改第1題中錯誤的程序代碼后,若文本框Text中輸入的內(nèi)容為組卷:0引用:1難度:0.2 -
16.編寫VB應(yīng)用程序,當(dāng)用戶輸入的一串由字母、數(shù)字等字符組成的字符串,統(tǒng)計其中每個字母出現(xiàn)的次數(shù)(不分大小寫).程序運(yùn)行時界面如圖1所示.
(1)設(shè)計應(yīng)用程序界面時,為添加標(biāo)簽對象“輸入字串:”,應(yīng)使用圖2所示的“控件工具箱”中的
(2)程序運(yùn)行時,在Text1中輸入字符串,單擊“統(tǒng)計”按鈕,在List1中顯示統(tǒng)計結(jié)果.請在橫線處填入合適代碼.
‘函數(shù)IsLetter(x)功能,若x是字母,則返回值為字母x在字母序列“A”~“Z”中的序號,如字母“A”的序號為0,字母“D”的序號為3.若x不是字母,則返回值為-1.
Function IsLetter(x As String) As Integer
If“A“<=x And x<=“Z“Then
IsLetter=Asc(x)-Asc(“A“)
ElseIf“a“<=x And x<=“z“Then
IsLetter=Asc(x)-Asc(“a“)
Else
End If
End Function
Private Sub Command1_Click
Dim f(25)As Integer,m As Integer,n As Integer
Dim s As String,c As String
List1.Clear
For m=0To 25‘初始化數(shù)組f
f(m)=0
Next m
s=Text1.Text
For m=1To Len(s)‘依次讀取字符串中的每個字符進(jìn)行判斷
c=Mid(s,m,1)
n=IsLetter(c)
If n<>-1Then f(n)=f(n)+1
Next m
For m=0To 25‘輸出統(tǒng)計結(jié)果,沒有出現(xiàn)的字母不輸出
If
List1.AddItem (Chr(m+Asc(“a“)) &“:“& f(m))
End If
Next m
End Sub.組卷:11引用:4難度:0.1