试题

试题 试卷

logo

题型:填空题 题类:常考题 难易度:普通

浙教版初中信息技术九年级上学期期末试卷(12)

程序填空

下列程序的功能是:当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 x < 50

        y=0.8 * x

    Case 50 To 100

       

   

        Print "输入的数据超出范围!"

    End Select

    Print x, y

End Sub

举一反三
返回首页

试题篮