求vb程序编程

来源:百度知道 编辑:UC知道 时间:2024/05/09 05:32:18
(事件)双击窗体。
' (响应)写程序解决百钱买百鸡问题:公鸡3元1只,
' 母鸡5元1只,小鸡一元3只,怎样用100元买
' 100只鸡。把结果输出到窗体上。
' 将答案数存放在变量N中
悬赏50分!!!!!!!
很急,星期6(2007.7.7)之前给答案的给分!!!!

Private Sub Form_DblClick()
Dim i As Integer '公
Dim j As Integer '母
Dim k As Integer '小
For i = 1 To 33
For j = 1 To 20
For k = 1 To 300
If i + j + k = 100 And i * 3 + j * 5 + k / 3 = 100 Then
Print "公鸡" & i & "只。" & "母鸡" & j & "只。" & "小鸡" & k & "只"
End If
Next
Next
Next
End Sub

#include <stdio.h>

typedef struct
{
double value;
int count;
char* name;
}coin, * pcoin;

double Sum(pcoin beg, pcoin end)
{
double sum = 0;
while(beg != end)
sum += beg++->value;
return sum;
}

void E(double depth, pcoin cBeg, pcoin beg, pcoin cEnd)
{
static int count = 0;

beg->count = 0;
double fill = 0;
while(fill + beg->value <= depth - Sum(beg + 1, cEnd))
{