某电信部门规定：拨打市内电话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话时间为整数）。下面是计算通话费用的程序界面和程序，请认真分析并回答问题。

题型：综合题题类：常考题难易度：普通

浙江省杭州市五县七校2016-2017学年高二上学期期中联考信息技术试题

（1）、在设计程序界面时，为添加“确定”按钮，应使用如上右图所示“控件工具箱”中的（填相应编号）添加标签控件。要让Command1显示为“确定”，需要在属性面板中修改的值为“确定”。

（2）、Command1_Clik事件过程如下，并请填写程序空白处。

Private Sub Command1_Click()

Dim x as '定义 x 为整型

x = Val(Text1.Text)

Then '条件语句

Text2.Text=

Else

Text2.Text = Str(0.2 + 0.1 * (x - 3))

End If

End Sub

（3）、这段程序属于结构程序设计。(填：顺序、选择或循环）

举一反三

【加试题】小张设计了一个“加减运算测试”程序。程序启动时运行界面如右图所示。在文本框Text1中输人计算结果后单击“下一题”按钮Command1，如计算结果正确，则得分加10分，否则不加分，同时显示下一试题内容并计数，直至完成10题测试。实现上述功能的VB程序如下，但加下划线代码有错，请改正。

   Dim n As Integer    '为试题计数器
   Dim s As Integer    's为测试得分
   Dim a As Integer, b As Integer 'a，b 为运箅数
   Dim c As String 'c为运算符："+ "表示加运算，"一"表示减运算
   Private Sub Command1Click()
   If c ="+" Then
      If a + b = Val(Text1.Text) Then
         s = s + 10
      End If
   Else
      If c ="-" Then       ①
         s = s + 10
      End If
   End If
   Label2.Caption = "得分:" + Str(s)
   DispTest
   End Sub
   Private Sub FormLoad()
Randomize
n = 0
s = 0
DispTest
End Sub
Private Sub DispTest()
n = n + 10       ②
If n < 11 Then
    Label1.Caption = "试题" + Str(n)    'a，b为运算数，且要求a不小于b
    a = Int(Rnd() * 100)
    b = Int(Rnd() * 100)
      If Rnd() > 0.5 Then c = "+" Else c = "-"
      Label3.Caption = Str(a) + c + Str(b) + "="
     Text1.Text = ""
Else
   Command1.Caption = "完成测试"
End If
End Sub
①处正确的代码是{#blank#}1{#/blank#}。
②处正确的代码是{#blank#}2{#/blank#}。

【加试题】运行下列VB程序，在文本框Text1中输入30，界面如图所示。

单击“计算”按钮Command1后，则在文本框Text2中显示的内容是{#blank#}1{#/blank#}，在文本框Text3中显示的内容是{#blank#}2{#/blank#}。

Private Sub Command1Click()

Dim s As Integer, t As Integer, n As Integer

n = Val(Text1.Text)

t = 0

s = 0

For i = 1 To n

If Int(Sqr(i)) = Sqr(i) Then

s = s + i

t = t + 1

End If

Next i

Text2.Text = Str(t)

Text3.Text = Str(s)

End Sub

某算法流程图如图所示，执行该算法，输出s的结果是（）

某两段VB程序分别如图1和图2所示：

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

n=Val(Text1.Text)

s=0

For i=1 To n Step 2

s=s+i

Next i

Text2.Text=Str(s)

图1

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

n=Val(Text1.Text)

s=0

i=1

Do While i<=n

s=s+i

i=i+2

Loop

Text2.Text=Str(s)

图2

当n的值为10时，关于该两段程序，下列说法不正确的是( )

某算法的流程图如下所示：

当输入a，b的值分别为5，7，该算法的输出结果为（）

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

相关试卷

公司介绍

服务介绍

帮助中心