如何用VB程序设计做出下列题?编程题第1题某四位数ABCD能够被78整除,它的千位数字与百位数字相同,十位数字与个位数字相同（即：A=B,B=D）,求出这个数.编程题第2题.取一元、二元、五元的硬币共十枚,付给25元钱,有多少种不同的取法?3、窗框设计：用总长为600厘米的木条,作成如下图所示的矩形窗框（包括中间两根档条）,问窗框的长宽尺寸如何设计,才能使窗户的采光面积最大.编程打印输出采光面积最大的长和宽及最大面积.长和宽都为整数厘米.（示意图）
2019-04-13
如何用VB程序设计做出下列题?
编程题第1题
某四位数ABCD能够被78整除,它的千位数字与百位数字相同,十位数字与个位数字相同（即：A=B,B=D）,求出这个数.
编程题第2题.
取一元、二元、五元的硬币共十枚,付给25元钱,有多少种不同的取法?
3、窗框设计：
用总长为600厘米的木条,作成如下图所示的矩形窗框（包括中间两根档条）,问窗框的长宽尺寸如何设计,才能使窗户的采光面积最大.编程打印输出采光面积最大的长和宽及最大面积.长和宽都为整数厘米.（示意图）
优质解答
Private Sub Command1_Click()
Dim a, b, c, d
For a = 1 To 9
For c = 0 To 9
b = a
d = c
If (a * 1000 + b * 100 + c * 10 + d) Mod 78 = 0 Then Print a & b & c & d
Next
Next
End Sub
答案是7722
Private Sub Command1_Click()
Dim a, b, c, d
For a = 1 To 9
For c = 0 To 9
b = a
d = c
If (a * 1000 + b * 100 + c * 10 + d) Mod 78 = 0 Then Print a & b & c & d
Next
Next
End Sub
答案是7722