用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/20 17:53:00
用“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
不知道是哪里错了呢
楼上的,你写的好像是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 Su
下面是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 Su
用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”
4、设有一四位数abcd=(ab+cd)2,编写一个程序,求a、b、c、d. abcd=(ab+cd)2中【2是平方】!
设有一四位数abcd=(ab+cd)2,编写一个程序,求a、b、c、d.abcd=(ab+cd)2中【2是平方】!
设有一四位数abcd=(ab+cd)^2,编写一个程序,求a、b、c、d.
判断字符串"abcd"和"ab cd"是否相等,应使用的语句是?
VB试题,编写程序,找出能满足abcd=(ab+cd)^2形式的所有四位数abcd
求一个四位数abcd,ab*cd=abcd,
设有一四位数abcd=(ab+cd)2,编写一个程序,求a、b、c、d.请问我的编程哪错了?
如图,在四边形ABCD中,AB=CD,AD=BC试判断AB与CD是否平行,并说明理由
四边形ABCD中,AB//CD,AB+BC=CD+AD,说明ABCD为平行四边形.(图就是一个里
一个四位数abcd(c^2+d^2不等于0)四位数abcd/两位数cd=(两位数ab+1)^2(c可以为0),所有符合的
ABCD词语(AB和CD是反义词) 20个