题目内容（请给出正确答案）

[主观题]

下列程序的功能是：当x＜50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x＞100时，没有意义。请填空。 P

rivate 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

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“下列程序的功能是：当x＜50时，y=0．8×x；当50≤x≤…”相关的问题

第1题

研究下列函数的极值： a)，当x≠0，f（0)=0 b)，当x≠0，f（0)=0．作出这两个函数的图形．

研究下列函数的极值：

a) $研究下列函数的极值： a)，当x≠0，f（0)=0 b)，当x≠0，f（0)=0．作出这两个函数$ ，当x≠0，f(0)=0

b) $研究下列函数的极值： a)，当x≠0，f（0)=0 b)，当x≠0，f（0)=0．作出这两个函数$ ，当x≠0，f(0)=0．作出这两个函数的图形．

点击查看答案

第2题

以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束

输入，输出结果。请补充完整下列程序段。 Dim x，amax,amin As Single x=InputBox("Enter a score") amax=x amin=x Do While【】 If x＞amax Then amax=x End If If【】Then amin=x End If x=InputBox("enter a score") Loop Print"max="；amax，"min="；amin

点击查看答案

第3题

设对一切n及x而言，fn（x)≥0．又对一切有穷数值c而言，恒有于是下列的等式关系只需当其中之任一边的极限存

设对一切n及x而言，f_n(x)≥0．又对一切有穷数值c而言，恒有

$设对一切n及x而言，fn（x)≥0．又对一切有穷数值c而言，恒有于是下列的等式关系只需当其中$ 于是下列的等式关系

$设对一切n及x而言，fn（x)≥0．又对一切有穷数值c而言，恒有于是下列的等式关系只需当其中$ 只需当其中之任一边的极限存在时即告成立．

点击查看答案

第4题

，，当t=0时，x=-2，y=0. 求方程组的通积分及满足指定条件的解：

$，，当t=0时，x=-2，y=0. 求方程组的通积分及满足指定条件的解：，，当t=0时，x=-2，y$ ， $，，当t=0时，x=-2，y=0. 求方程组的通积分及满足指定条件的解：，，当t=0时，x=-2，y$ ，当t=0时，x=-2，y=0. 求方程组的通积分及满足指定条件的解：

点击查看答案

第5题

以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结

果。请填空。 Private Sub Form_click() Dim x, y As Single Dim z As Integer x=InputBox("Enter a score") Do while【】 y=y+x z=z+1 x=InputBox("Enter a score") Loop If z=0 Then z=1 End If y=【】 Print y End Sub

点击查看答案

第6题

设抛物线y=ax2+bx+c通过点（0，0)，且当x∈[0，1]时，y≥0．试确定a，b，c的值，使得抛物线y=ax2+bx+c与直线x=1，y=0所

设抛物线y=ax²+bx+c通过点(0，0)，且当x∈[0，1]时，y≥0．试确定a，b，c的值，使得抛物线y=ax²+bx+c与直线x=1，y=0所围图形的面积为 $设抛物线y=ax2+bx+c通过点（0，0)，且当x∈[0，1]时，y≥0．试确定a，b，c的值，使$ ，且使该图形绕x轴旋转而成的旋转体的体积最小.

点击查看答案

第7题

已知A=（x2＋3y2z)i＋6xyzj＋Rk，其中函数R适合=0，且当x=y=0时R=0．求尺使矢量场A存在函数u满足A=grad

已知A=(x2+3y2z)i+6xyzj+Rk，其中函数R适合

已知A=（x2＋3y2z)i＋6xyzj＋Rk，其中函数R适合=0，且当x=y=0时R=0．求尺使矢 =0，且当x=y=0时R=0．求尺使矢量场A存在函数u满足A=grad u，求出u来，并说明A不是管形场．

点击查看答案

第8题

以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl（x As Double, y

以下程序的功能是：求x的y次方。根据题意，请完善下列程序。 Private Function funl(x As Double, y As Integer)As Double Dim i As Integer Dim z As Double z=【】 For i=1 To y z=z*x Next i 【】 End Function Private Sub Command1_Click() Dim m As Double Dim n As Integer Dim t As Double m=InputBox("输入x数:") n=InputBox("输入次方数:") t=funl(m, n) Print Str(m)+"^"+Str(n)+"=";【】 End Sub

点击查看答案

第9题

设u（x，t)是中柯西问题的解，其中当0.9≤x≤1时ψ（x)=0，对其余的x有ψ（x)＞0．对哪些（x，t)，函数u（x，t)等于零？

设u(x，t)是 $设u（x，t)是中柯西问题的解，其中当0.9≤x≤1时ψ（x)=0，对其余的x有ψ（x)＞0．$ 中柯西问题

$设u（x，t)是中柯西问题的解，其中当0.9≤x≤1时ψ（x)=0，对其余的x有ψ（x)＞0．$ 的解，其中当0.9≤x≤1时ψ(x)=0，对其余的x有ψ(x)＞0．

对哪些(x，t)，函数u(x，t)等于零？

点击查看答案

第10题

选取适当的变换，证明下列等式：，其中D={（x，y)|x2＋y2≤1}，且a2＋b2≠0．

选取适当的变换，证明下列等式：

选取适当的变换，证明下列等式：，其中D={（x，y)|x2＋y2≤1}，且a2＋b2≠0．选取适，其中D={(x，y)|x²+y²≤1}，且a²+b²≠0．