VB编程中解数学灯谜ABCDCDC

[为什么要让儿童学习编程？儿童编程学什么]很多家长认为，技能学习应该从娃娃抓起，而编程技能正是众多技能学习中最为重要的技能学习之一。之前有一场在上海大学举行的一项教育机器人比赛中，近千名选手参赛，其中不乏学龄前...+阅读

VB编程中解数学灯谜ABCDCDC ABC帮我看看我哪编的不对

Private Sub Command3_Click()

Dim a%, b%, c%, d%

For a = 0 To 9

For b = 0 To 9

If b <> a Then

For c = 0 To 9

If c <> b Then

For d = 0 To 9

If d <> c And (a * 1000 + b * 100 + c * 10 + d) - (c * 100 + d * 10 + c) = a * 100 + b * 10 + c Then

Print ＂a=＂; a

Print ＂b=＂; b

Print ＂c=＂; c

Print ＂d=＂; d

End If

Next d

End If

Next c

End If

Next b

Next a

End Sub结果是 1 0 9 8

你的程序之所以没结果，是因为你没有把0考虑进来，同时还要考虑到abcd四个数要互相不相等的情况

补充一下，那个表达式可以简化为

If d <> c And a * 900 + b * 90 - c * 92 - d * 9 = 0 Then

这样就不会显得很长

VB编程中怎样解数学灯谜ABCDCDC ABC

先说说理论，用程序来解决这类问题，并不需要想数学一样去计算，去列方程，

一般我们用最简单的思路.

就是将一个个数字套进去，然后用程序去判断（这在数学中该是叫做穷举法）

代码的话楼上俩个都很好，如果看不懂的话可以参考下我这个

ABCD-CDC=ABC

这题目首先看，它有4个变量，其中A和C肯定不能是0，那么代码可以是：

Dim a As Integer, b As Integer, c As Integer, d As Integer

Dim ABCD As Integer, CDC As Integer, ABC As Integer

For a = 1 To 9

For b = 0 To 9

For c = 1 To 9

For d = 0 To 9

ABCD = (a * 1000 + b * 100 + c * 10 + d)

CDC = (c * 100 + d * 10 + c)

ABC = (a * 100 + b * 10 + c)

If ABCD - CDC = ABC Then MsgBox ABCD & ＂-＂ & CDC & ＂=＂ & ABC

这段代码的实际运算和楼上没任何区别（可能跟繁琐，也许能让你更容易理解吧）

目的都是穷举出ABCD的所有可能，然后一次次套用比较判断

文章来源：范文无忧网，欢迎分享，转载请保留出处
原文地址： https://www.fanwen51.com/show/24_46592.html

VB编程中解数学灯谜ABCDCDC

VB编程中解数学灯谜ABCDCDC ABC帮我看看我哪编的不对

VB编程中怎样解数学灯谜ABCDCDC ABC

图文推荐

栏目推荐