南部战区陆军总部驻地:两题VB的题目

1。计算分段函数：当x<0时y 取0；当0<=x<1时y取1；当x>=1时y取2。请在程序的空白处填入适当的语句。
private sub command1_click( )
x=inputbox(“输入x：”)
select _____________
case is <0
y=______
case _______
y=1
_____________
y=2
_____________
print __________
end sub

2。求1~100之间能被5或被7整除的整数个数及它们的和。请在程序的空白处添入适当的内容。
private sub form_click( )
dim I as integer,s as integer, k as integer
s=0
k=____
for I=_____ to ______
if I mod 5=0 _______ I mod 7=0 then
s=________
k=_______
end if
________
print __________
print “能被5或7整除的数共有” & k & “个”

end sub

帮我做一下好吗？谢谢了！！！！