注册

题型：单选题题类：常考题难易度：普通

浙江省金华市江南中学2020届高三信息技术网课2月22日第二周测试卷

有如下VB程序段：

For i= 1 To 3

For j= 1 To 5-i

If a(j) >a(j+1) Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Text 1．Text=Text 1．Text+str(a(i) )

Next i

数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（）

A、346 B、689 C、364 D、366

举一反三

有如下VB程序段

m=a(1)

For i=2 to 100

If a(i) > m then m=a(i)

Next i

该程序段执行后，变量m中存储的是( )

在Visual Basic中，若想给变量a、b都赋值为-2，则下列语句正确的是（）

六位同学的英语听力成绩分别为24， 27， 16， 15， 24， 18，其排序过程如下表所示，其采用的排序算法及第二遍排序结果正确的是（）

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示：

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

有如下VB程序段：

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Dim c As Integer

a(1) = 0: a(2) = 2: b(1) = 1: b(2) = 2: c = 0

For i = 2 To 6

a(i + 1) = 2 * a(i) - a(i - 1)

b(i + 1) = b(i) ^ 2 / b(i - 1)

c = c + a(i + 1) + b(i + 1)

Next i

Label1.Caption = Str(c)

该程序运行后，Label1中显示的内容是（）

返回首页

相关试卷

试题篮

公司介绍

Company Introduction

服务介绍

Service Introduction

帮助中心

Help center

二一教育APP

二一教育APP

400-637-9991

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

在线咨询客服