查人人中国名人网中国传媒大学招生要求:两题VB的题目,大家帮帮我好吗？
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 06:46:11
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
帮我做一下好吗？谢谢了！！！！
1。计算分段函数：当x<0时y 取0；当0<=x<1时y取1；当x>=1时y取2。请在程序的空白处填入适当的语句。
private sub command1_click( )
x=inputbox(“输入x：”)
select case __x__
case is <0
y=__0__
case __is<1__
y=1
case is>=__1__
y=2
_End Select_
print __y___
end sub
2。求1~100之间能被5或被7整除的整数个数及它们的和。请在程序的空白处添入适当的内容。
private sub form_click( )
dim I as integer,s as integer, k as integer
s=0
k=_0___
for I=__5___ to _100___
if I mod 5=0 ___Or____ I mod 7=0 then
s=_s+i_______
k=_k+1______
end if
_Next_______
print _ “ 能被5或被7整除的整数的和是_”_ & s & VbCrlf
print “能被5或7整除的数共有” & k & “个”
end sub
怎么这么多空 能不能少点空