猴子吃桃问题的VB程序
猴子吃桃问题的VB程序:有一群猴子摘了一堆桃子，第一天，吃了一半，
觉得不过瘾，又吃了一只;以后每天也是如此，到第十天一看，只剩下一只桃子。
问原来共有多少只桃子,
程序
流程
快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计
图为:
VB程序为:
Rem 设第十天的桃子数X=1，然后计算第九天的X: x九=2*(x十+1)
x = 1
Print "第10 天的桃子数是:"; x
For k = 9 To 1 Step -1
x = 2 * (x + 1)
Print "第"; k; "天的桃子数是:"; x
Next
Private Sub Form_click() Dim n As Integer
Dim num As Integer
num = 1
For n = 1 To 9
num = (num + 1) * 2
Next
MsgBox "桃子总共" & num & "个"
End Sub
Dim x%, i%
Cls
x = 1
Print "第7天有了1个"
For i = 6 To 1 Step -1
x = (x + 1) * 2
Print "第"; i; "天有"; x; "个"
Next i
水仙花数问题:
第一种方法:单循环 分离数
Private Sub Form_Load() 1，装载窗体时不能运行Print应改为form_click Dim a, b, c, i As Integer For i = 100 To 1000
a = i / 100 '百位上的数 2，你把整除符号记错了，此处应将"/"改为"\" b = (i / 10) Mod 10 '十位上的数 3,此处应改为b=(i-a*100)\10 c = i Mod 10 '个位上的数
If 100 * a + 10 * b + c = a * a * a + b * b * b + c * c * c Then
Print i '因100 * a + 10 * b + c =i，可以简化程序改为i
End If
Next i
End Sub
第二种方法:三重循环结构 合成
Private Sub Form_click() Dim a%, b%, c%
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a * 100 + b * 10 + c Then
Print a * 100 + b * 10 + c
End If
Next c
Next b
Next a
End Sub
VB多重循环结构的解读. 2010-03-22 22:20 Def_Ud | 分类:VB | 浏览907次
For i= 1 to 3
for j= 1to i
for k= j to 3
a=a+1
next k
next j
next i
求详细解答.
我有更好的答案
提问者采纳
2010-03-23 09:47 给你你最直接的吧
i=1
j=1
k=1 a=1
k=2 a=2
k=3 a=3 i=2
j=1
k=1 a=4
k=2 a=5
k=3 a=6
j=2
k=2 a=7
k=3 a=8 i=3
j=1
k=1 a=9
k=2 a=10
k=3 a=11
j=2
k=2 a=12
k=3 a=13
j=3
k=3 a=14
最后结果应该是 a=14
楼上的是语句解释
有1根长度为321米的钢材料，要将他截取成两种规格a.b. a.b的长度分别为17米和27米的短料，每种至少1段。问分割成a.b各多少段后，剩余的
材料r最少。
程序运行后，单击命令按钮，就能输出结果
第一种方法:
Private Sub Form_click() Dim Anum%, Bnum%, R%, tmp%, a%, b% '定义一些变量 tmp = 321 '初始化中间数据
For Anum = 1 To Int(321 / 17) '开始循环，从A=1开始比较 Bnum = Int((321 - Anum * 17) / 27) '求B的个数 R = (321 - Anum * 17) Mod 27 '求剩下材料的长度 If R < tmp Then
tmp = R
a = Anum
b = Bnum
End If
Next Anum
MsgBox "a分割" & a & "段，b分割" & b & "段，剩余材料r最少，为" & tmp & "米"
End Sub
第二种方法:
Private Sub Form_Click()
i = 0
Print "i", "j", "óàá?"
Do
i = i + 1
j = Int((321 - 17 * i) / 27)
Print i, j, 321 - 17 * i - 27 * j
Loop Until j < 2
End Sub
浙公网安备 33021202002483