填空题

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

填空题
在窗体上有二个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。Private Sub Form_Load()Commandl.Enabled=FalseEnd Sub Private Sub Text1【 】()Commandl.Enabled=True End Sub
填空题
有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读 出数据的平方值，将该数据及其平方值存入新的顺序文件NM2．txt中。请填空。Private Sub Form_Click()Dim x As Single，y As SingleOpen NMl.txt For Input As #1Open NM2.txt For Input As #2Do While Not EOF(1)【 】 Print xy=x^2【 】 Print xLoopClose #1，#2End Sub
相关试题