- 二一组卷

题型：综合题题类：模拟题难易度：普通

浙江省教育绿色评价联盟2018届高三下学期信息技术选考适应性考试试卷

统计“英文句子单词平均长度”的程序，其实现功能为在文本框Text1中输入要统计的英文句子，单击“统计”按钮Command1。进行统计，求出句子中共有几个单词、句子单词的平均长度，并显示在标签框Label1中。程序运行界面如图所示。

（1）、代码“Private Sub Command1_Click()”中的Command1_Click是(单选，填字母：A，对象名／B，事件名／C，事件处理过程名)。

（2）、实现上述功能的VB程序如下，请在画线处填入合适的代码。

Private Sub Command1_Click()

Dim S As String

Dim n As Integer

Dim cnt As Integer

Dim i As Integer

Dim num As Single

Dim cd As Single

Dim ave As Single

s=Text1．Text

n=Len(s)

hum=0

cd=0

cnt=0

For i=1 To n

①

If c>“a”And c<=“z” Or c>=“A”And c<=“Z”Then

cnt=cnt+1

Elself c>=”0”And c<=”9”Then

cnt=cnt+1

Else

If cnt>0 Then

num=num+1

cd=cd+cnt

②

End If

Next i

If cnt>0 Then

num=num+1

cd=cd+cnt

End If

Ave=cd／num

Label1．Caption=“总共有”+Str(num)+“个单词，平均长度为”+Str(ave)

End Sub

① ②

（3）、若在文本框中输入“you are "No1".”，则经过上述程序统计共有单词数为个。

举一反三

在VB程序中，当变量H的值等于8时，执行“IF H>8 then R=10 else R=20”语句后，R值为（）。

窗体能够响应的事件是( )

某VB程序代码如下：

Dim n As Integer，s As String

n = 64 :s = ""

Do While n > 0

s = Str(n Mod 7) + s

n = n \ 7

Loop

执行该程序段后，变量s的值是（）

有如下VB程序段:

For i=1 To 3

k=“”

Fori-1 To 2*i-1

k=k+“*”

Next j

List1.AddItem k

Next i

该程序运行后，在列表框List1中显示的是（）

如下VB 程序代码:

For i=3 to 15 step x

Print “∗”

Next i

下列说法中正确的是（）

袜子颜色配对问题。现有不同颜色的袜子若干（袜子的颜色用数字编号1~15表示）,颜色相同的袜子才能组成一双，其中有几只袜子是落单的，现要求找出落单袜子的颜色以及能够配对的袜子数量。编写程序解决该问题，程序运行时，在文本框Text1中依次输入袜子的颜色编号(数据都用逗号分隔并以逗号结尾)，单击“查找”按钮，在列表框List1中输出落单袜子的颜色编号，在标签label1中现实能配对的袜子数量。运行界面如图所示，实现上述功能的VB程序如下。

Const n = 15

Private Sub Command1_Click()

Dim a(1 To n) As Integer '数组a存放不同颜色袜子的数量，默认值为0

Dim s As String, ch As String

Dim c As Integer, i As Integer, t As Integer

List1.Clear

s = Text1.Text

t = 0 ：c = 0 : i = 1

Do While i <= Len(s)

ch = Mid(s, i, 1)

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

t = t * 10 + Val(ch)

Else

a(t) = ①

t = 0

End If

i = i + 1

Loop

For i = 1 To n

If ② Then List1.AddItem "落单袜子的颜色为" + Str(i)

c =

Next i

Label1.Caption = "能配对的袜子有" + Str(c) + "双"

End Sub

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心