2019-2020學年浙江省臺州市書生中學高二（上）第一次月考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（共12小題，每小題2分，滿分24分）
-
1．在網上閱卷的大背景下，個人信息條形碼使用廣泛，下列有關信息的說法，正確的是（ ）
組卷：15引用：1難度：0.7 -
2．用Ultraedit軟件查看字符“2019，高考！”的內碼，部分界面如圖所示。下列說法正確的是（ ）
組卷：5引用：2難度：0.4 -
3．某版本軟件的相關信息如圖所示。分析圖中信息，下列說法不正確的是（ ）組卷：7引用：2難度：0.7 -
4．將一幅未經壓縮的1024*768像素，256色BMP圖片，轉換成JPEG格式后，存儲容量為76.8KB，則壓縮比約為（ ）
組卷：6引用：4難度：0.6 -
5．下列VB表達式中，值最大的是（ ）
組卷：12引用：3難度：0.7
二、解答題（共3小題，滿分26分）
-
14．編寫“幸運數字”程序，功能如下：在文本框Text1中輸入出生日期，單擊“算一算”按鈕Command1，將日期中所有的數字按位相加，若結果為兩位數則繼續按位相加，直到結果為一位數，如出生日期為2003/08/11，數字按位相加2+0+0+3+0+8+1+1=15，15按位相加1+5=6．運行界面如圖所示。
（1）程序窗體中共有類對象。
（2）請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ）
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=″你的幸運數字是：″+str（luck）
Else
Label2．Caption=″輸入有誤，請重輸！″
End If
End Sub
（3）若在文本框Text1中輸入“2004/08/18”，Label2中顯示的內容為。組卷：1引用：1難度：0.5 -
15．設某漢字由7×7 的0、1 點陣圖案組成。依照以下規則生成壓縮碼：連續一組數值，從漢字點陣圖案的第一行第一個符號開始計算，按書寫順序由左到右，從上到下。壓縮碼第一個數表示起始的數字（例如0），第二個數表示連續有幾個0，第三個數表示接下來連續有幾個1，第四個數表示接下來連續有幾個0，第五個數表示接下來連續有幾個1，以此類推……
例如，以下漢字點陣圖案：
0001000
0001000
0001111
0001000
0001000
0001000
1111111
對應的壓縮碼是031616431616137（第一個數是0，表示一開始時的數字為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）現給出如下點陣圖：
則壓縮碼為。組卷：1引用：1難度：0.4