用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”ABCD是据我理解应该是指从1000到9999这之间的数,即四位数.而AB应该是这四位数的前两位 CD同理 Private Sub Command1_Cli
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 10:31:11
![用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”ABCD是据我理解应该是指从1000到9999这之间的数,即四位数.而AB应该是这四位数的前两位 CD同理 Private Sub Command1_Cli](/uploads/image/z/1114084-28-4.jpg?t=%E7%94%A8%E2%80%9Cfor%E2%80%9D%E8%AF%AD%E5%8F%A5%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%E2%80%9C%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%95%B0ABCD%2C%E5%88%A4%E6%96%AD%E5%85%B6%E6%98%AF%E5%90%A6%E7%AC%A6%E5%90%88%EF%BC%88AB%2BCD%EF%BC%89%EF%BC%88AB%2BCD%EF%BC%89%3DABCD%E2%80%9DABCD%E6%98%AF%E6%8D%AE%E6%88%91%E7%90%86%E8%A7%A3%E5%BA%94%E8%AF%A5%E6%98%AF%E6%8C%87%E4%BB%8E1000%E5%88%B09999%E8%BF%99%E4%B9%8B%E9%97%B4%E7%9A%84%E6%95%B0%2C%E5%8D%B3%E5%9B%9B%E4%BD%8D%E6%95%B0.%E8%80%8CAB%E5%BA%94%E8%AF%A5%E6%98%AF%E8%BF%99%E5%9B%9B%E4%BD%8D%E6%95%B0%E7%9A%84%E5%89%8D%E4%B8%A4%E4%BD%8D+CD%E5%90%8C%E7%90%86+Private+Sub+Command1_Cli)
用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”ABCD是据我理解应该是指从1000到9999这之间的数,即四位数.而AB应该是这四位数的前两位 CD同理 Private Sub Command1_Cli
用“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
不知道是哪里错了呢
用“for”语句编写程序“输入一个数ABCD,判断其是否符合(AB+CD)(AB+CD)=ABCD”ABCD是据我理解应该是指从1000到9999这之间的数,即四位数.而AB应该是这四位数的前两位 CD同理 Private Sub Command1_Cli
楼上的,你写的好像是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