题目
用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”
ABCD是据我理解应该是指从1000到9999这之间的数,即四位数.而AB应该是这四位数的前两位 CD同理
Private Sub Command1_Click()
Dim i As Integer
For i = 1000 To 9999
Next i
a = i 100
b = i - a * 100
If i = (a + b) * (a + b) Then
Print
Else
Print "没有符合条件的数"
End If
End Sub
不知道是哪里错了呢
ABCD是据我理解应该是指从1000到9999这之间的数,即四位数.而AB应该是这四位数的前两位 CD同理
Private Sub Command1_Click()
Dim i As Integer
For i = 1000 To 9999
Next i
a = i 100
b = i - a * 100
If i = (a + b) * (a + b) Then
Else
Print "没有符合条件的数"
End If
End Sub
不知道是哪里错了呢
提问时间:2020-11-06
答案
楼上的,你写的好像是C代码的思路,如果用VB的话应该注意取整.
下面是VB的代码
Private Sub Command1_Click()
Dim a As Integer,b(1) As Long,c As String
For a = 1000 To 9999 Step 1
b(0) = Int(a / 100)
b(1) = Int(a Mod 100)
If (b(0) + b(1)) * (b(0) + b(1)) = a Then
c = c & CStr(a) & " "
End If
Next a
If c = "" Then
MsgBox "没有满足要求的数.",vbOKOnly
Else
MsgBox "满足要求的数为:" & c & " .",vbOKOnly
End If
End Sub
下面是VB的代码
Private Sub Command1_Click()
Dim a As Integer,b(1) As Long,c As String
For a = 1000 To 9999 Step 1
b(0) = Int(a / 100)
b(1) = Int(a Mod 100)
If (b(0) + b(1)) * (b(0) + b(1)) = a Then
c = c & CStr(a) & " "
End If
Next a
If c = "" Then
MsgBox "没有满足要求的数.",vbOKOnly
Else
MsgBox "满足要求的数为:" & c & " .",vbOKOnly
End If
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1同一物体放在甲乙两种不同两种液体中,在甲液体中漂浮,在乙液体中悬浮,比较物体在两种液体中所受的浮力
- 2写一篇《我与班级共成长》的作文.是1----6年纪的
- 3已知A的M次方=3,A的N次方=5,求A的4M-3N次方的值?
- 4童乐幼儿园共有150本图书,其中的40%分给大班,剩下的图书按4:5分给小班和中班,小班和中班各分到多少本?
- 5压缩氧自救器隔绝式、化学氧自救器隔绝式各自的优势是什么?
- 6会当凌绝顶一览众山小表达了诗人怎样的豪情
- 7剪帖的读音,要帖字的!
- 8了到底有几笔画
- 9甲、乙两城相距500千米,一辆小汽车和一辆货车同时从甲、乙两城相向开出,3小时后两车相距5千米没相遇,小汽车每小时行90千米,客车每小时行多少千米?
- 10距山崖有以下几个距离,能听到回声的是 [ ]
热门考点