填空题

下列程序的功能是：当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
<上一题 目录 下一题>
热门 试题

填空题
在窗体上先画一个名为Text1的文本框和一个名为Table1的标签，再画一个名为OP1的四个单选按钮的单选按钮数组，其Index属性按季度顺序为1-3（见图1），文件sales.txt中按月份顺序存有某企业某年12月份的销售额。要求在执行程序时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击第三季度显示的结果请填空。Dim sales(12)As Long Private Sub Form_Load() Open¨sales.txt¨For Input As # For k=1 To 12Input # 1，sales(k) Next kClose #1 End SubPrivate Sub 【 】(Index As Integer)Dim sum As Long，k As Integer,month As Integersum=0month=Index * 【 】For k=1 To 3month=month 4-1 sum= sum+ sales(month)Next kLabel1. Caption=Op1 (Index). 【 】 & 销售总额： Text1=sumEnd Sub
填空题
在KeyPress事件过程中，KeyAscii是所按键的【 】值。
相关试题