0 返回首页
1. 某地区天然气价格如下表所示：

居民用户气价

阶梯分档

年用气量Nm3

气价(元/Nm3)

第一阶梯

0-360 (含)

3.00

第二阶梯

360-540 (含)

3.50

第三阶梯

540以上

4.50

小明为了计算家庭每年应缴费用，编写了一个VB程序，功能如下：在文本框Text1中输入每年使用的天然气用量，单击“计算”按钮Command1后，在文本框Text2中输出年缴天然气费用。程序运行界面如图所示。

(1) 在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性。

(单选，填字母：A .Text / B .Caption / C .Font)
(2) 实现上述功能的VB程序如下，请在划线处填入合适代码。

Dim price(1 To 3) As Double

    Private Sub Form_Load()

    '本过程读取天然气的单价存储在数组 price 中

    '代码略

End Sub

Private Sub Command1_Click()

    Dim num As Integer, s As String

    num = Val(Text1.Text)

    If num < 0 Then

        s = "请输入正确的数值！"

    ElseIf num <= 360 Then

        s = Str(num * price(1))

    ElseIf num <= 540 Then

        s = Str(360 * price(1) + )

    Else

        s = Str(360 * price(1) + (540 - 360) * price(2) + (num - 540) * price(3))

    End If

    Text2.Text=

End Sub
(3) 本程序的算法属于算法。（选填：解析/枚举）
【考点】
类、对象、属性、方法、事件和事件处理的概念及应用; 解析算法及程序实现; 分支结构语句及程序实现;
【答案】

您现在未登录，无法查看试题答案与解析。 登录
综合题 普通
能力提升
换一批
1. 校内阅卷已经普遍采用网上阅卷模式，其中客观题无需评阅，扫描过程中自动识别，扫描结束即生成成绩，准确率高。现有一道多选题，即从“ABCD”4个选项中任意选择2个及2个以上。

小明现想用Python输出所有的多选题的选项组合，他用4位二进制数模拟所有选项组合(1-选，0-不选），再从中筛选出有效组合，例如1100是一种有效组合，1000是一种无效组合。

实现该功能的Python程序如下：

xx=["A","B","C","D"]

combs=[]

i=0

while     ①    :

t=i

s=""

c=0

    for j in range(4):

       if t%2==1:

          s=   ②      

c+=1

            ③      

    if     ④      :

       combs.append(s)       # append()方法用于在列表末尾添加新的对象。

i+=1

print("符合要求的选项组合：")

print(combs)

(1) 上述程序中，用到的主要算法是（单选，填字母：A .解析算法/B .枚举算法）
(2) 请完成程序填空，在划线上填入合适的代码。

①  ②  ③  ④ 

综合题 困难
2. 利用VB程序计算三角形面积。在文本框Text1、Text2、Text3中分别输入三角形三条边长a，b，c，半周长p ＝ (a ＋ b ＋ c) / 2，单击按钮Command1计算三角形的面积s＝ ，并把结果显示在文本框Text4中。界面如图a所示，请回答下列问题：

(1) 结合图b，若要把窗体背景色改为白色，可通过其属性进行设置。

(2) 实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()

    Dim a, b, c, p, s As Integer

    a ＝ Val(Text1.Text)

    b ＝

    c ＝ Val(Text3.Text)

    p ＝(a ＋ b ＋ c) / 2

    If a＋b>c And a＋c>b And b＋c>a And a>0 And b>0 And c>0 Then

        s ＝

        Text4.Text ＝

    Else

        Text4.Text ＝“输入边长不能组成三角形！”

    End If

End Sub
综合题 普通
3. 用VB编程实现累加器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击命令按钮Command1后，其计算结果输出在标签框Label1中。运行界面如图所示，VB程序代码如下。

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

(1) 观察运行界面，该窗体中共有个对象。
(2) 实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

  Dim ans As Integer, t As String, ch As String

  Dim i As Integer，s As String

  s = Text1.Text

t = "" : ans=0

  For i = 1 To Len(s)

     ch = Mid(s, i, 1)

     If ch = "," Then

         ans =

         t = ""

     Else

         t =

     End If

  Next i

  Label1.Caption = "累加的结果是：" & Str(ans)

End Sub
(3) 如图，若输入的“，”用“；”来代替，输入保持不变，则输出为 。
综合题 普通