注册

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

【bj】高中信息技术综合库——枚举算法1

古希腊著名科学家毕达哥拉斯把1、3、6、10、15、21、28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2、3、4、5、6、7、……，所以，第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差“3”……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写了一个判断三角形数的VB程序，在文本框Text1中输入一个大于1的正整数，单击“判断”按钮Command1，在标签Label1中显示判断结果。程序设计界面如图所示。

（1）、在设计程序界面时，要清空标签中显示的内容“Label1”，应修改该标签的属性。

（2）、VB程序代码如下，请在划线处填入合适代码。

Private Sub Command1_Click( )

Dim n As Integer, s As Integer

s = 0

n = Val(Text1. text)

If n > 1 Then

For i = 1 To n

s =

If n = s Then

Label1. Caption = Str(n) +“是一个三角形数。”

Exit For

Label1. Caption = Str(n) +“不是一个三角形数。”

Exit For

End If

Next i

Else

Labell.Caption = “请输入一个大于1的正整数”

End If

End Sub

（3）、若文本框Text1中输入的内容为“27”，单击按钮Command1后，标签Label1中显示的内容是

举一反三

从左下所给的VB某工程设计的界面图中可以判断出：

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

某校举办竞赛，共有15个试题，每做对一题得8分，做错一题倒扣4分，没有未做的题目，小明共得了8分，则他做对了几题。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出答对的题数，在文本框Text2中输出做错的题数，程序代码如下：

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

统计列表框选项个数属性的是（）

【加试题】火柴棍可以拼成数字0~9，拼法如图1 所示。

图1

输入火柴棍的数量n（n≤24），计算可以拼出多少个“A+B=C”的等式？要求：

① 加号与等号各自需要两根火柴棍。

② A、B、C为非负的整数，且该数非零时，最高位不能是0。

③ 如果A≠B，则A+B=C 与B+A=C 视为不同的等式。

④ n 根火柴棍必须全部用上。

小明发现，数字1用的火柴棍最少，24根火柴棍全部用上的话，能拼出最大的整数A或B不超过1111，C不超过2222。他编写了一个VB 程序，在文本框Text1中输入火柴棍的数量，单击“统计”按钮Command1，在文本框Text2中输出“A+B=C”的方案数，程序界面如图2所示。

图2

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

某同学用VB编写了一个应用程序，其程序代码窗口如图所示：

下列说法正确的是（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

周一至周五 8:30-17:30

在线咨询客服