题目
vb输入1个整数 判断能否被3和7整除,若能输出A 不能输出B
我需要正确的代码.
我需要正确的代码.
提问时间：2020-10-21
答案
pravite sub command1_Click()
dim n%
n=inputbox("请输入一个整数","输入整数")
if n mod 3=0 and n mod 7=0 then
print "A"
else
print "B"
end if
end sub
dim n%
n=inputbox("请输入一个整数","输入整数")
if n mod 3=0 and n mod 7=0 then
print "A"
else
print "B"
end if
end sub
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1设f(x)=cos(wx+φ)(w>0,0
- 2在1：50 000 000的地图上量得两地间的距离是1.3厘米，试用科学记数法表示这两地间的实际距离（单位：米）．
- 3f、r、o、m这四个字母能组成哪两个单词?
- 4宽容是一种生活方式么?
- 5集合A={y|y=x2+2x-1}表示函数y=x2+2x-1的所有函数值组成的集合,即{y|y＞=-2}
- 6如以竖直初速度v 抛出一个质量为m的小球,当小球返回出发点时速度大小为3v/4,求小球在运动过程中受到的平
- 7may might maybe probably perhaps possible possibly 有什么区别,
- 8若事件A,B,C相互独立,且P（A）=0.25,p（B）=0.50,P（C）=0.40,则P（A+B+c）=?
- 9Could I speak to is in charge of International Sales please?
- 10已知向量a=(sin(wx+p),2),b=(1,cos(wx+p))