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

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

admin2009-01-15  25
问题 下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，没有意义。请填空。
Private Sub Command1_Click()
   Dim x As Single
   x=InputBox("请输入x的值!")
【  】
   Case Is<50
       y=0．8 * x
   Case 50 To 100
       y=0．7 * x
【  】
   Print"输入的数据出界!"
End Select
Print x，y
End Sub
选项
答案Select Case x , Case Else
解析 阅读程序后，看到程序中有了Case和End Select子句，没有多分支选择结构的起始语句，很明显，第一个空应该填写多分支结构的起始语句Select Case x。在Select Case结构中，只有两个Case子句，分别表示x取值的两种情况，但题目中将x的值分为3种情况，可见第二个空应该填写Case Else语句。
转载请注明原文地址:https://jikaoti.com/ti/Z980FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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