'1
Dim x,y
x=inputbox("input x","input x")
If x>3 Then
y=x^2
Else
If x>=0 Then
y=2*x+1
Else
y=3*x-1
End If
End If
Print y
'2
Dim n
n=inuptbox("input n","input n")
If int(n/7)=n/7 Then
Print "能！"
Else
Print "不能！"
End If
'3
Dim a,b,c
a=Inputbox("a")
b=Inputbox("b")
c=Inputbox("c")
If aIf a
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024