- 二一组卷

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

浙江省绍兴市诸暨中学2017-2018学年高二上学期信息技术期中考试试卷

小骆设计了一个程序，用来统计一段文字中句子的数量。规定以“。”或者“？”或者“！”结束的为句子。窗体界面和程序如下所示，请回答问题。

（1）、应用程序界面设计时，用来输入文字的对象，使用了图2所示的“控件工具箱”中的 (填写相应数字)，

（2）、Private Sub Command1_Click()

Dim s As String, r As String, k As Integer

k ＝ 0

s＝Text1.Text

For i ＝ 1 To Len(s)

①

If r ＝"。" Or r ＝"！" Or r ＝"？" Then ②

Next i

Label1.Caption ＝"本段文字中含" + Str(k) + "句语句。"

End Sub

在程序划线处填写适当的表达式或语句，以实现程序功能。

程序中①划线处应填入。

程序中②划线处应填入。

举一反三

【加试题】小迪同学在某网站注册时需要预设登录密码，预设密码需要符合以下2点：①密码不少于6位字符组成；②必须同时包含大写英文字母、小写英文字母、阿拉伯数字和标点符号。据此，小迪同学编写了生成密码的VB程序，程序运行界面如下图a所示，当点击“生成密码”按钮（command1）时，在文本框Text1中输出符合要求的密码字符。

图a

图b为标准ASCII码表供你参考（其中ASCII为1-32,127的字符为特殊符号，不能用作密码）：

图b

实现上述功能的VB程序代码如下，请回答以下问题：

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

Ins=Text1．Text

n=Len(Ins)

Outs=Mid(Ins，1，1) ‘取字符串Ins第1个字符

i=2

Do While Mid(Ins，i，1)>=Mid(Outs，i-1，1)

Outs=Outs+Mid(Ins，i，1)

i=i+1

Loop

Text2．Text=Outs

在文本框Text1中输入“Happy2017”，执行该程序段后，文本框Text2中显示的是（）

在一个数据序列中，如果出现连续升序的几个数，称为一个升序段。小张为了在10个数中找和值最大的升序段，编写了下面VB程序。程序运行时，在List1里随机生成10个整数，点击“统计”按钮Command1，在List2显示出和值最大的升序段和它们的和。程序运行界面如图1所示。

（加试题）有如下VB程序段：

A=1：b=1：n=12

f(1)=a：f(2)=b

For i=3 to n

c=a+b

f(i)=c Mod 4

a=b

b=c

Next i

执行该段程序后，数组元素f(12)的值为（）

某VB程序段如下:

s=“Hello world”

s1=“”

n=Len(s)

For i=1 To n\2

If Mid(s， i， 1) > Mid(s， n-i+1， 1) Then

s1=s1 + Mid(s， i， 1)

Else

s1=Mid(s， n-i+1， 1)+s1

End If

Next i

Text1.Text=s1

执行该程序段后，在文本框Text1中显示的是（）

在VB中，已知A、B、C、D是整型变量，且都有不同的值，执行语句：B=8；A=C；D=A；D=B后，其值相等的变量是（）

相关试卷

公司介绍

服务介绍

帮助中心