- 二一组卷

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

浙江省“温州十五校联合体”2018-2019学年高一下学期信息技术期中考试试卷

简易加法器：小王用VB编写了一个简易加法器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击“计算”命令按钮后，将这几个数字的和输出在标签Label1中。运行界面如图所示，VB程序代码如下，请回答以下问题。

（1）、Cmd1对象属于类。（单选，填字母：A .Label / B .TextBox / C .CommandButton）。

（2）、请在划线处填入合适代码。

Private Sub Cmd1_Click()

Dim i As Integer, j As Integer, ans As Integer

Dim ch As String, s As String

s = Text1.Text

ans = 0

j = 1

For i = 1 To Len(s)

If ch = "," Then

ans =

j = i + 1

End If

Next i

Label1.Caption = "计算结果是：" +Str(ans)

End Sub

（3）、运行该程序，在文本框中输入“21，5，3”（不包含双引号），则计算结果是。

举一反三

【加试题】一个Visual Basic工程的部分设计界面如图所示，下列选项中正确的是（）

下列各组控件都具有Caption属性的是( )

一个VB程序的运行界面如图所示。下面说法不正确的是（）

小王喜中新股，为了能预估自己的收益情况，编写“新股收益预期”程序，实现如下功能：在文本框Text1中输入该股票的发行价，在文本框Text2中输入预期涨停个数，在文本框Text3中输入股数，单击“计算”按钮Command1，在列表框List1中依次显示各个交易日的结果信息，并在标签Label4中显示总收益信息。

新股首个交易日的涨停上限为44%，其余的交易日涨停上限为10%，并将相应股票价格四舍五入到分。公式提示：日收益=（本交易日股价-前一交易日股价)×股数

程序运行界面如图所示：

台州市政公共停车的收费标准如下：

30分钟以内不收费，1小时及以内收费5元，超过一小时后超过部分2元\小时收费（不足1小时的按1小时计算）。小明据此设计了以下VB程序，程序运行界面如图。

给出一系列商品的生产时间和价值，现要在规定时间内生产出总价值最大的商品。如有5件商品生产时间和价值如下表所示：

编号	1	2	3	4	5
生产时间	4	7	5	5	9
商品价值	10	16	12	10	15

若生产时间为20，则可生产编号为1、2、5的商品，总价值为10+16+15=41。

编写一个VB程序，实现如下功能：在文本框Text1中依次输入各商品（数量小于等于10件）的生产时间和价值（整数用逗号分隔并以逗号结尾），在文本框Text2中输入总加工时间（至少可以生产一件商品），单击“确定”按钮Command1后，在列表框List1中显示最大的总价值和生产的商品编号。程序运行界面如图所示。

相关试卷

公司介绍

服务介绍

帮助中心