当前位置: 高中信息技术 / 综合题
  • 1. (2020高二上·丽水期末) 某地区天然气价格如下表所示:

    居民用户气价

    阶梯分档

    年用气量Nm3

    气价(元/Nm3)

    第一阶梯

    0-360 (含)

    3.00

    第二阶梯

    360-540 (含)

    3.50

    第三阶梯

    540以上

    4.50

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

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

      (单选,填字母:A .Text / B .Caption / C .Font)

    2. (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. (3) 本程序的算法属于算法。(选填:解析/枚举)

微信扫码预览、分享更方便