填空题

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

填空题
下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：Dim PaintStart As Boolean编写如下事件过程：Private Sub Form_Load()DrawWidth=2ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，_X As Single，Y As Single)【 】 End SubPrivate Sub Form_MouseMove(Button As Integer，Shift As Integer，_X As Single，Y As Single)If PaintStart ThenPSet(X，Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，_X As Single，Y As Single)【 】 End SubPrivate Sub Form_Db1Click()【 】 End Sub
填空题
与数学表达式cos2(a+b) 3x+5 对应的Visual Basic表达式是【 】。
相关试题