- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省温州市“十五校联合体”2018-2019学年高二上学期信息技术期中联考试卷

编写输出所有字符串子串的VB程序，实现如下功能:在文本框Text1中输入一串不重复的字符串，单击命令按钮“子串”Command1后，在列表框List1中输出该字符串的所有子串和子串的总数。程序运行界面如图所示，VB程序代码如下。

程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

’（1）

For i = 1 To n

For j = 1 To n-i+1

List1.AddItem ’（2）

sum = sum + 1

Next j

Next i

List1.AddItem "总共有" + Str(sum) + "个子串"

End Sub

⑴ ⑵

举一反三

【加试题】酒店房间管理：酒店房间(房间数小于10 000)编号按1，2，3…连续编号，老板对于没有出租的房子使用如下的方法来登记管理。连续的空房间，登记第一间的编号和连续的空房间数，比如房间1，2，6，7，8，10，则登记3条记录，分别为(1，2)，(6，3)，(10，1)。某旅客退房了，需要把这房间也登记上去，有四种情况需要处理：

1)上靠，例如退的房间号为3，则原来登记的3条记录变成(1，3) ， (6，3)，(10，1)。

2)下靠，例如退的房间号为5，则原来登记的3条记录变成(1，2)，(5，4）， (10，1)。

3)上下不靠，例如退的房问号为4，则登记的记录数变成4条(1，2)，(4，1) ， (6，3)，(10，1)。

4)上下靠，例如退的房间号为9，则登记的记录数变成2条(1，2)，(6，5）。

小王依据上述描述设计了如下VB程序，请回答下列问题：

下面程序段是利用For语句给数组a赋值：

For i= 1 To 6

a(i)=i+1

Next i

该程序段运行后数组元素a(3)的值是：（）

有如下VB程序段：

Dim n As Integer , I As Integer

Dim s As String , ch As String

s=text1.Text

n=Len(s) '⑴

For I = 1 To n '⑵

ch=Mid(s,i,1)

If Asc(ch) >= 65 and Asc(ch) <= 97 Then

ch=Chr(Asc(ch)+32)

End If

Label1.Caption=Label1.Caption+ch

Next i

已知字母“A”的ASCII码65，字母“a”ASCII码97。若在Text1中输入“Happy2018”，则Label1中应显示（）

阅读下面程序：

Private Sub command1_click()

a=val(text1.text)

b=val(text2.text)

if a=b then

text3.text=str(a)

exit sub

end if

do while b<>0

r=a mod b

a=b

b=r

loop

text3.text=str(a)

End Sub

在text1、text2中输入30、6，则text3中的值为（）

下列声明语句中错误的是（）。

有如下Python程序：

inp=input("May i have your name? ").split()

family_name={#blank#}1{#/blank#}

print("It's nice to meet you "+family_name)

运行该程序，其输入输出样例如下：

或：

请根据程序功能补全代码。

相关试卷

公司介绍

服务介绍

帮助中心