2. 计算机
  3. 下列程序的功能是:当x100时,没有意义。请填空。 Private Sub Command1_Click() Dim x As Single x=InputBox("请输入x的值!") Select Case x Case Is <

下列程序的功能是:当x100时,没有意义。请填空。 Private Sub Command1_Click() Dim x As Single x=InputBox("请输入x的值!") Select Case x Case Is <

admin2013-04-11  33
问题 下列程序的功能是:当x<50时,y=0.8*Π;当50≤x≤100时,y=0.7*Π;当x>100时,没有意义。请填空。
Private Sub Command1_Click()
Dim x As Single
  x=InputBox("请输入x的值!")
  Select Case x
    Case Is < 50
        y=0.8 * x
    Case 50 To 100
        y=0.7 * x
【  】
    Print "输入的数据出界!"
  End Select
  Print x, y
End Sub
选项
答案Case Else
解析 考查考生对多分支控制结构的掌握。阅读程序后,在Select Case 结构中,只有两个Case子句,分别表示x取值的两种情况,但题目中将x的值分为3种情况,空白处应该填写Case Else语句。嵌套使用多分支控制结构时,应注意程序执行过程。
转载请注明原文地址:https://kaotiyun.com/show/67hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)