编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击&ldquo;计算累加和&rdquo;按钮（Command1），在标签Label3中显示起始值和...

题型：综合题题类：常考题难易度：困难

浙江省台州中学2016-2017学年高二上学期第一次统练技术试卷（信息技术部分）

编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮（Command1），在标签Label3中显示起始值和结束值之间所有奇数的累加和，例如，在文本框Text1、Text2中分别输入的内容为1、5，则累加和为9，具体界面如图1所示：

图1 图2

（1）、在设计程序界面时，使用“控件工具箱”中（图2）的（填编号）添加标签，要使命令按钮Command1上显示“计算累加和”，应修改命令按钮的属性值。

（2）、为实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click()

Dim x1 As Integer,x2 As Integer,n As Integer

Dim sum As Long

x1=Val(Text1.Text)

x2=Val(Text2.Text)

sum=0

If x1<x2 Then n=1 Else

For i= x1 To x2 Step n

If Then

sum=sum+i

Next i

Label3.Caption=Str(sum)

End Sub

举一反三

【加试题】求数组a中下降数列的方法，算法描述如下：

⑴用数组b存储最小下降数列中最小的元素(查找过程中的最小值)，b(1)为数组a第1个元素。

⑵加入方法：将a(i)与数组b中的每个元素依次逐个比较：

若a(i)比b(j)小就用a(i)替换b(j)中的值，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

若a(i)比b(j)都大，则在数组b最后添加a(i)新的元素，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

⑶若数组a各元素的值为34，54，3，76，2，3时，则3个下降数列分别为“34，3，2”“54，3”“76”

程序运行界面如图所示。

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

有VB编写的程序如下：

Dim a(0 To 9) As Integer, t as Long

t=Val(Text1.Text)

Do While t<>0

a(t Mod 10) = 1

t = t \ 10

Loop

For i = 0 To 9

x = x + a(i)

Next i

Text1中输入10242048，则程序执行后x的值为（）

有如下VB程序段：

Dim s As String, i As Integer, n As Integer

Dim ch As String, ans As Integer

s= Text1.Text

n Len(s): ans=0

For i=1 To n

ch =Mid (s, i, 1)

ans =ans *2+ Val(ch)

Next i

Text2 Text ans

若程序运行后Tex2中显示的是“38”，则Text中输入的是（）

已知数轴上有一条长度为L(L为偶数)的线段，左端点在原点，右端点在坐标L处。有n个不计体积的小球在线段上，开始时所有的小球都处在偶数坐标上，速度方向向右，速度大小为1单位长度每秒。当小球到达线段的端点（左端点或右端点）的时候，会立即向相反的方向移动，速度大小仍然为原来大小。当两个小球撞到一起的时候，两个小球会分别向与自己原来移动的方向相反的方向，以原来的速度大小继续移动。小王设计了一个模拟碰撞的小球的程序，其功能为：在文本框Text1、Text2和Text3中分别输入线段长度L、小球数量n以及运动时间t，在文本框Text4中输入n个小球的初始坐标位置，单击“求解”按钮Command1，计算t秒之后，各个小球的位置，并在标签框Label5上显示结果。

在Python语言中，属于保留字的是（）

已知变量a=3，那么执行语句a+=6之后，a的值为{#blank#}1{#/blank#}。

相关试卷

公司介绍

服务介绍

帮助中心