填空题

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

填空题
某人编写如下函数来判断a是否为素数,若是,则函数返回True；否则返回False。 Function prime(a As Integer)As Boolean Dim k As Integer,isprime As BooleanIf a<2 Thenisprime=FalseE1seisprime=Truek=2 Do While k<a／2 And isprimeIf a Mod k=0 Then isprime=FalseE1sek=k +1End IfLoopEnd Ifprime=isprimeEnd Function在测试时发现有1个非素数也被判断为素数,这个错判的数是【 】
填空题
请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。Private Sub Command1 Click()Dim s(6，6)For i=1 To 6For j=1 To 6If i=j Then【 】 Else【 】 End IfPrint 【 】 Next jPrintNext iEnd Sub
相关试题