2017年浙江省普通高校招生信息技術仿真模擬試卷(選考)(二)(4月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分)
-
1.雞年春晚啟用了多個分會場,各會場的實況都通過處理變成了數(shù)字信號,以方便通過網(wǎng)絡傳送.這體現(xiàn)了信息的( ?。?/h2>
組卷:13引用:1難度:0.9 -
2.張經(jīng)理最近很煩,業(yè)務聯(lián)系全靠郵箱,可最近郵箱爆滿,絕大部分是自動回復的郵件,聽說有一種方法可以在郵件發(fā)送時就避免收到自動回復,是下列方法中的( )
組卷:8引用:1難度:0.9 -
3.小李家中新裝修,準備安裝智能居,希望可以通過語音來開啟燈光、調節(jié)燈光的亮度、開關窗簾、控制家用電器等等.這主要采用的技術是( )
組卷:6引用:1難度:0.9 -
4.如圖所示,ID字段為自動編號,如果刪除了ID為3的行,則( ?。?br />
組卷:8引用:1難度:0.9 -
5.將輸入的字符連接成字符串,直到輸入-1為止(輸入字符保存在C變量中),如果依次輸入以下字符:3,S,2,D,1,-2,-1,f,-1則最后得到的字符串是( ?。?/h2>
組卷:5引用:1難度:0.5
二、非選擇題(本大題共5小題,其中第13小題4分,第14小題5分,第15小題8分,第16小題4分,第17小題5分,共26分)
-
16.有一種壓縮算法,基本原理是:特殊字符+重復次數(shù)+字符.
比如有文本字符串:A A A A A B C C C C B C C C,編碼后得到:B B 5A B B 4C B B 3C.編碼串的最開始說明特殊字符B,以后B后面跟著的數(shù)字就表示出重復的次數(shù).編程實現(xiàn)將從Text1輸入的一個字符串,點壓縮按鈕后用上述方法壓縮,壓縮后的編碼在Text2中輸出,text3中輸入特殊字符.壓縮算法:
a)給壓縮串添加開關的特殊字符
b)逐個判斷輸入字符串的字符(當前的字符與后一個比較),如果兩個字符不同,則連到了壓縮串中,如果有連續(xù)的重復字符則計數(shù)n+1
c)最后一組重復字符或單個字符再連到壓縮串中.
?連入壓縮串方法:單個的直接連入,有重復的連入特殊字符開頭+數(shù)字+重復的字符
程序如下:
Private Sub Command1_Click ( ?。?br />Dim src As String,t As String‘src保存輸入的字符串
Dim desc As String‘desc保存壓縮后的字符串
Dim c As String‘c保存特殊字符
Dim n As Integer‘n用來記連續(xù)重復字符個數(shù)
src=Text1.Text
c=Text3.Text
n=0
desc=①
For i=1To②
n=n+1
t=Mid(src,i,1)
If t<>③
desc=desc & zipstring(n,c,t)
n=0
End If
Next i
Text2.Text=desc & zipstring(n,c,④
End Sub
Private Function zipstring(n As Integer,c As String,sr As String) As String
If n<=1Then
zipstring=sr
Else
zipstring=c & Trim(Str(n)) & sr
End If
End Function
①
②
③
④組卷:5引用:1難度:0.1 -
17.小麗在假期看到小朋友們在玩一個游戲,8個小朋友圍成一圈,從某個小朋友開始報數(shù),報到指定數(shù)時,該小朋友出圈,接著從出圈的位置開始再接著報.她希望通過VB程序模擬這個過程,思路如下:
(1)用一個一維數(shù)組來模擬,編號1~N保存在數(shù)據(jù)a(1)~a(n)中,來代表N個小朋友.
(2)K代表報數(shù)的起始位置,從數(shù)組的a(k)開始遍列,報到m出圈,將當前位置的元素刪除,后面的元素依次往前移位.總數(shù)減1.
(3)當報數(shù)報到數(shù)組元素的最后一個時,返回數(shù)組開頭接著報數(shù).
(4)當總數(shù)只剩下一個數(shù)時,直接輸出.
界面如下:
Private Sub Command1_Click ( )
Dim i As Integer
Dim n As Integer
Dim m As Integer,k As Integer
Dim A(1To 50)As Integer'存放編號的數(shù)組
n=Val(Text1.Text)'編號個數(shù)
k=Val(Text2.Text)'報數(shù)起始位
m=Val(Text3.Text)'報到出圈數(shù)
If n>0And k>0And m>0 (1)n<=50Then
For i=1To n'初始化編號a(1)=1,a(2)=2,…
A(i)=i
Next i
Label1.Caption=(2)'調用出圈函數(shù),得到返回的出圈順序
Else
MsgBox“編號、起始位、報到出圈數(shù)都必須大于0!編號不能超過50!“
End If
End Sub
Private Function chuquan(b As Integer,n As Integer,m As Integer,k As Integer) As String
Dim i As Integer,j As Integer
Dim s As String'出圈順序存放
i=k-1
s=“出圈順序為:“
Do While n>1
i=i+1
m=m-1
If(3)Then
s=s+Str(b(i))+“,“
For j=i To n-1
b(j)=b(j+1)
Next j
b(j)=0
n=n-1
i=i-1
m=4
End If
If i=n Then i=0
Loop
chuquan=(4)
End Function
(1)
(2)
(3)
(4)組卷:8引用:1難度:0.1