- 二一组卷

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

浙江省衢州市2018-2019学年高二下学期信息技术期末教学质量检测试卷

有 VB 程序段如下：

s = "2019appreciate": sum = 0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z"

Then m = Asc(ch) - Asc("a") + 1 a(m) = a(m) + 1

End If Next i

For i = 1 To 10

If a(i) > 0

Then sum = sum + 1

Next i

数组 a 各元素的初始值都为 0，执行该程序段后，则变量 sum 的值为（）

A、10 B、7 C、4 D、3

举一反三

有如下Visual Basic程序，输入n的值为11。在调试时程序首先出现的错误是.：

Private Sub Command1Click( )

Dim n As Integer

Dim a(1 To 10) As Integer

n = Val(Text1.Text)

s = 1

For i = 1 To n

s = s * i

a(i) = s

List1.AddItem Str(a(i))

Next i

End Sub

【加试题】下列关于某纸牌游戏的算法是：随机产生两组牌，每组17张，牌从小到大分别为“3~10、J、Q、K、A、2”，每种牌最多4张，四张相同的牌如3333称为炸弹牌型，炸弹不能拆成其他牌型。按照如下规则出牌：

①先出顺子牌型（顺子指连续的 5 张及以上的牌，如 345678，顺子最小从 3 开始，最大到 A），若有多个顺子，先长后短，长度相同按从小到大顺序出；

②再按三带一牌型（3 张相同的牌带一张单牌）、对子牌型（2 张相同）、单张牌型的顺

序出牌，同一牌型从小到大出；

③最后出炸弹，若有多个炸弹，从小到大出。

设计以下VB程序，牌“10”用0代替，比较两组出牌次数，界面如图所示，请回答下列问题。

如图1所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图2所示。

算法分析：从A点到B点共有7个路口，即可以有一个7位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的7位二进制数，再去掉不满足的二进制数即可。

某VB程序代码如下：

a = 3

b = 4

c = 5

If a > b Then a = b Else b = a

则程序运行后的a和b的值分别是：（）

某字符串s是由一个原始字符串反复重叠形成的。例如字符串"abcababcababcab"的是由原始字符串"abcab"重叠而成。为查找字符串s的原始字符串，有如下VB程序段:

s = "abcababcababcab": L = Len(s)

For t = 1 To L \ 2 '枚举可能的原始长度

If L Mod t = 0 Then

For i = t + 1 To L Step t

If ① <> Mid(s， 1， t) Then Exit For

Next i

If i = L + 1 Then ans = ② : Exit For

End If

Next t

Text1.Text = ans

上述程序段划线处①②语句依次可为（）

小张同学编写了一个高考倒计时程序，该程序能够顺利运行，但运行的结果不正确，可能的原因是（）。

相关试卷

公司介绍

服务介绍

帮助中心