- 二一组卷

题型：单选题题类：常考题难易度：困难

浙江省台州市联谊五校2018-2019学年高二下学期信息技术期中考试试卷

【加试题】有如下 VB 程序段：

Private Sub Command1_Click()

Dim s As String, a As String, t As String

s = Text1.Text: t = ""

For i = 1 To Len(s)

a = Mid(s, i, 1)

If a >= "0" And a <= "9" Then

t = t + a

ElseIf a = "!" Then

t = ""

ElseIf t <> "" Then

List1.AddItem t

End If

Next i

End Sub

执行程序时，在文本框 Text1 中输入“12+34=46!789ok”（不包括双引号），单击按钮Command1后，在列表框List1中显示的结果是（）

A、

B、

C、

D、

举一反三

以下是一段Visual Basic程序:

If I=1 Then

X=X+1

Else

X=X*2

End If

它的基本结构属于( ).

某算法的部分流程图如图所示。执行该流程后，输出i，k的值分别是（）

某种编码以4位二进制码为一组，每组前两位表示方向，后两位表示距离。编写一个程序，将编码翻译成方向和距离，距离值为每组编码后两位二进制码转换为十进制数的值。具体功能如下：在文本框Text1中输入输入连续多组编码，单击“翻译”按钮Command1，结果显示在列表框List1中。程序运行界面如图所示。

国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

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

Private Sub Command1_Click()

Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer

Dim jy As Integer

s＝Text1.Text

t＝0：sum＝0

For i＝1 To Len(s)

s1＝Mid(s，i，1)

If s1>＝“0” And s1<＝“9” Then

′①

If t<10 Then

sum＝sum＋Val(s1)*(11－t)

ElseIf t＝10 Then

′②

End If

Next i

sum＝11－sum Mod 11

If Then′③

Text2.Text＝“该校验码中数字不是10位数！”

Else

If jy＝“X” and sum＝10 Then

Text2.Text＝“校验通过”

ElseIf val(jy)＝sum then

Text2.Text＝“校验通过”

Else

Text2.Text＝“校验不通过”

End If

End Sub

划线处代码为①{#blank#}1{#/blank#}

②{#blank#}2{#/blank#}

③{#blank#}3{#/blank#}

如果一个自然数的每个质因数都至少是二重的(即每个质因数乘方次数都大于或等于2)，如整数72=2^3*3^2(即72=2*2*2*3*3)，判断2~72所有数中全部质因子的乘方次数，找出质因子“2”乘方次数为3;质因子“3”乘方次数为2，不是72的质因子，那么这个自然数称为“漂亮数”。小李编写了一个验证“漂亮数”的VB程序。在文本框输入小于1 000的正整数，单击“检查”按钮在列表框中显示该数的质因子及该因子乘方数，在标签Label1中显示判断结果，在标签Label4中显示所有质因数的分解过程。程序运行界面如下图所示。

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

Private Sub Command1_Click()

Dim a(1 To 999) As Integer

Dim n As Integer

Dim s As String

For i=1 To 999

a(i)=0

Next i

n=Val(Text1.Text)

s =“”

Do While n<>1 ‘分解质因子过程并统计质因子出现次数

For i = 2 To n

Do While n Mod i = 0

s = s&“ ”&i

a(i)= a(i)+1

‘①

Loop

Next i

Loop

Label4.Caption =“质因子分解过程:” +s

For j = 2 To 999 ‘判断是不是漂亮数

If Then ‘②

Label1.Caption = “不是漂亮数”

Exit For

Else

Label1.Caption =“漂亮数”

End If

Next j

For j = 2 To 999 ‘在列表框输出质因数及对应的乘方数

If a(j)>0 Then

List1.Additem Str(j)+“ ”+Str(a(j))

End If

Next j

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

有如下VB程序段：

For i= 1 To 8

a(i) =Int(Rnd*2)

Next i

sum= 0

For i=1 To 8 Step 3

For j=i To 8

a(j)=1-a(j)

Next j

sum=sum+a(i)

Next i

Text 1.Text=Str(sum)

执行该程序段后，文本框Text 1中显示的内容不可能是（）

相关试卷

公司介绍

服务介绍

帮助中心