浙江省2019-2020学年普通高校招生选考科目信息技术考试试题(二)

下列有关信息的说法，错误的是(  )

某Excel文档的数据如图所示。

下列数据表能粘贴该工作表的数据的是（  ）

小陈使用Word软件，对文档的部分内容进行了以下修改，下列描述不正确的是(  )

一个未经压缩的BMP格式图像文件，其相关信息如图所示。由此可知，表示该图像的每个像素需要的二进制位数是（   ）

​​

一个二位十六进制正整数 n，末位是“9”，下列说法正确的是（   ）

下列有关多媒体技术的说法正确的是(  )

某算法的部分流程图如图所示。当输入x的值为100时，在标签Label1中输出的内容为（   ）

下列VB表达式的值最大的是（  ）。

有如下程序段：

i = 1

Do While i <= 5

      If i = 0 or a(i - 1) <= a(i) Then

        i = i + 1

      Else

        t = a(i): a(i) = a(i - 1): a(i - 1) = t

        i = i - 1

      End If

Loop

For i = 1 To 5

      List2.AddItem  a(i)

Next i

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为（   ）

对用户输入的字符串进行解密的 VB 程序段如下：

s = Text1.Text

For i = 1 To Len(s)

ch = Mid(s, i, 1)

nk = Asc(ch) - i

If nk < 0 Then nk = nk + 127

Text2.Text = Text2.Text + Chr(nk)

Next i

已知大写字母A的ASCII码值为65，小写字母a的ASCII码值为97，在文本框Text1中输入内容“yhT5”，执行程序段后，文本框Text2显示的内容为(  )

下列VB程序段实现求双重数列0，2，1，4，1，6，2，8，3，10，5，12，8，……前n项中的奇数项和。

Dim a(1 To 100)As Integer

n=Val(Text1.Text)

a(1)=0：a(3)=1

s=1

Next i

Text2.Text=Str(s)

方框中的代码由以下三部分组成：

①a(i)=a(i-2)+a(i-4)
②s=s+a(i)

③For i=5 To n Step 2

代码顺序正确的选项是(  )

以下VB 程序段的功能是：单击一次按钮Command1，在列表List1 中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。

Private Sub Command1_Click()

Dim s As String, c As String, i As String, a As String, t As Integer

Randomize

s = “”

For i = 1 To 10

              

If a <= 26 Then

t = a + 64

Else

              

End If

c = Chr(t)

s = s + c

Next i

List1.AddItem s

End Sub

以上横线处的正确语句是(  )

某调查公司发布了喜马拉雅收听次数较多、评分较好的部分栏目，现使用Excel软件进行数据处理，界面如图a所示。

图a

请回答下列问题：

小明制作主题为“荷花韵”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：

图a

有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。

实现上述功能的VB代码如下，但加框处有错，请改正。

Private Sub Command1_Click()

Dim n As Integer, m As Integer

Dim a(1 To 50)  As Integer

n = Val(Text1.Text)

m = Val(Text2.Text)

For i = 1 To n

Next i

s = 0；j = 0

Do While s < n

t = 0

Do While t < m

                     

    t = t + a(j)

Loop

a(j) = 0

s = s + 1

List1.AddItem “第” + Str(s) + “次：” + Str(j)

 Loop

End Sub

编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文(每个明文字母对应1个不重复的密文字母)。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文，并在文本框Text2中显示对应密文(运行效果如图所示)。实现上述功能的VB代码如下，请完善程序代码。

Dim m2 As String

Private Sub Command1_Click()

Dim flag(1 To 26) As Boolean

Dim num As Integer，t As Integer

Randomize

num = 1

Text3.Text = “”

For i = 1 To 26

 flag(i) = False

Next i

Do While num <= 26

 x = Int(Rnd * 26) + 97

 

 If flag(t) = False Then

m2 = m2 + Chr(x)

num = num + 1

 End If

Loop

Text3.Text = m2

End Sub

Private Sub Command2_Click()

Dim s As String, m As String, result As String

Dim k As String, c As Integer

s = Text1.Text

m = “abcdefghijklmnopqrstuvwxyz”

For i = 1 To Len(s)

 k = Mid(s, i, 1)

 If k >= ”A” And k <= “Z”  Then

k = Chr(Asc(k) + 32)

 End If

 c = 1: continue = True

 Do While

If k = Mid(m, c, 1) Then

 continue = False

End If

c = c + 1

 Loop

 

Next i

Text2.Text = result

End Sub