题目
输入正整数1~n中所有能被3和7整除的数字,数字的和,数字的个数.
提问时间:2021-03-17
答案
这个很简单的...
给你个样本:
Private Sub Command1_Click()
On Error Resume Next
Dim i As Long,s As String
Dim n As Long,sum As Long
s = InputBox("输入正整数n","输入",100)
If s = "" Then Exit Sub
n = Val(s)
If n
给你个样本:
Private Sub Command1_Click()
On Error Resume Next
Dim i As Long,s As String
Dim n As Long,sum As Long
s = InputBox("输入正整数n","输入",100)
If s = "" Then Exit Sub
n = Val(s)
If n
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
热门考点
- 1It is time to English class.这句话有错误吗?
- 240至50以内3所有的倍数
- 3正项数列{an},a1=1,2 an²=an+1²+an-1²,n≥2,求a6=?
- 4光明粮库修建一个圆柱形粮囤,量得底面周长是6.28米,高是3米,每立方米小麦约重650千克
- 5一盒糖连盒重600克,吃去一半,连盒还剩350克,盒子重多少克?列算式不用方程.
- 6用代入法解下列方程组(1)5x+27=8 y=3x-7 (2)2x+y=4 x+2y=5
- 7销售中1K是什么意思
- 85/12+11/12-6/15+7/12脱式计算
- 9将3支红筷子,9支黄筷子,18支绿筷子,2支白筷子和1支黑筷子放在一个布袋里,至少摸_支才能保证有两双颜色相同的筷子.
- 10要测地球自转的真正周期,应选下列哪些天体为参照物A月球B太阳C火星D织女星