- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省稽阳联谊学校2021届高三下学期信息技术4月联考试卷

有如下VB程序段：

Dim s1 As String, s2 As String

s1 = "what doesn't kill you makes you stronger."

s2 = text1.text

i = 1: j = 1

Do While i <= Len(s1) And j <= Len(s2)

If Mid(s1, i, 1) = Mid(s2, j, 1) Then j = j + 1

i = i + 1

Loop

If j > Len(s2) Then

s3 = "true"

Else

s3 = "false"

EndIf

执行该程序段后，s3的值为“false”，则text1输入的文本可能是（）

A、"skills" B、"waste" C、"damage" D、"note"

举一反三

下面是求三角形面积的VB程序，但有3处错误，请你找出来并修改。

Private Sub Command1_Click()

Dim As Single, b As Single, c As Single, p As Single, s As Single

a≡Val(Text1. Text)

b=Val(Text2. Text)

c=Val(Text3. Text)

p=(a+b+c)/2

If a＜=p Or b＞=p Or c＞=p Then

Label1. Caption="不能构成三角形"

Else

s=Sqr(p*(p-a)*(p-b)*(p-c))*p

Label1. Caption="面积为"& s

End If

End Sub

在VB程序中，以下程序段执行后，x的值为（）。

x=1

y=4

Do While y＞4

x=x * y

y=y+1

Loop

Print x

某货品仓库最多存储m件货物，只能从左右两侧取出，现要在移动其他货物次数尽可能少的情况下取出一件某类货物，取出后，其他货物按照原有顺序重新存入，货物间不留空隙。

比如：仓库存储情况列表 a=["0", "A", "A", "B", "B", "A", "0", "0", "0"]，其中"0"表示空位，"A", "B"表示位置上货物种类 , 现需从中取出一件B货物，则应从右侧取出，取完后，仓库存储列表更新为a=["0", "A", "A", "B", "A", "0", "0", "0", "0"]。

有如下Python程序段：

n=int(input())

a=[0,0,0,0,0,0,0,0,0,0]

c=0

while n>0:

a[n%10]=a[n%10]+1

if a[n%10]==1:

c=c+1

n=n//10

print(c)

执行上述程序段，若输出c的值为4，则输入n的值可能为（）

请在横线处填写正确的代码