2019-2020學年浙江省臺州市書生中學高二(上)第一次月考信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(共12小題,每小題2分,滿分24分)
-
1.在網(wǎng)上閱卷的大背景下,個人信息條形碼使用廣泛,下列有關信息的說法,正確的是( )
組卷:15引用:1難度:0.7 -
2.用Ultraedit軟件查看字符“2019,高考!”的內(nèi)碼,部分界面如圖所示。下列說法正確的是( ?。?br />
組卷:5引用:2難度:0.4 -
3.某版本軟件的相關信息如圖所示。分析圖中信息,下列說法不正確的是( ?。?/h2>
組卷:7引用:2難度:0.7 -
4.將一幅未經(jīng)壓縮的1024*768像素,256色BMP圖片,轉換成JPEG格式后,存儲容量為76.8KB,則壓縮比約為( )
組卷:6引用:4難度:0.6 -
5.下列VB表達式中,值最大的是( ?。?/h2>
組卷:12引用:3難度:0.7
二、解答題(共3小題,滿分26分)
-
14.編寫“幸運數(shù)字”程序,功能如下:在文本框Text1中輸入出生日期,單擊“算一算”按鈕Command1,將日期中所有的數(shù)字按位相加,若結果為兩位數(shù)則繼續(xù)按位相加,直到結果為一位數(shù),如出生日期為2003/08/11,數(shù)字按位相加2+0+0+3+0+8+1+1=15,15按位相加1+5=6.運行界面如圖所示。
(1)程序窗體中共有
(2)請在橫線處填入合適的代碼。
Private Sub Command1_Click ( ?。?br />Dim luck As Integer
Dim sr,c As String
luck=0
sr=Text1.Text
If Len(sr)=10 Then′輸入的格式長度符合條件
For i=1 To Len(sr)
c=
If c>=“0“And c<=″9″Then
luck=luck+Val(c)
End If
Next i
Do While luck>9
luck=luck Mod 10+
Loop
Label2.Caption=″你的幸運數(shù)字是:″+str(luck)
Else
Label2.Caption=″輸入有誤,請重輸!″
End If
End Sub
(3)若在文本框Text1中輸入“2004/08/18”,Label2中顯示的內(nèi)容為組卷:1引用:1難度:0.5 -
15.設某漢字由7×7 的0、1 點陣圖案組成。依照以下規(guī)則生成壓縮碼:連續(xù)一組數(shù)值,從漢字點陣圖案的第一行第一個符號開始計算,按書寫順序由左到右,從上到下。壓縮碼第一個數(shù)表示起始的數(shù)字(例如0),第二個數(shù)表示連續(xù)有幾個0,第三個數(shù)表示接下來連續(xù)有幾個1,第四個數(shù)表示接下來連續(xù)有幾個0,第五個數(shù)表示接下來連續(xù)有幾個1,以此類推……
例如,以下漢字點陣圖案:
0001000
0001000
0001111
0001000
0001000
0001000
1111111
對應的壓縮碼是031616431616137(第一個數(shù)是0,表示一開始時的數(shù)字為0)。
(1)請將程序代碼補充完整。
Private Sub Command1_Click ( )
Dim code As String,c As Integer,res As String,k As Integer
code=Text1.Text
k=0
res=″″
c=Val(Mid(code,1,1))
For i=2 To Len(code)
For j=1 To Val(Mid(code,i,1))'
res=
If k=7 Then
List1.AddItem res
k=0
res=″″
End If
Next j
c=
Next i
End Sub
(2)現(xiàn)給出如下點陣圖:
則壓縮碼為組卷:1引用:1難度:0.4