我的VB作业题目,实在不会,请教这里的专业人士.

[colaneo]

我是一个大三的学生,学物流的,学校的VB课程作业我实在不会,请教这里的师兄师姐们

1. 货物A每件占用货架4个，货物B每件占用货架2个，货物C每5件占用一个货架，要求用100件货物放满100个货架，编程计算各种货物的数量，在文本框TEXT1、TEXT2、TEXT3中显示

2. 从键盘输入20个数，在列有框LIST1中输出，其中能被3整除的数同时在列表框LIST2中输出。并将这些能被3整除的数求出最大值、最小值、平均值在文本框TEXT1、TEXT2、TEXT3中显示（要求使用循环结构）

3. 在文本框TEXT1中输入金额（元），点击按钮COMMAND1,计算所需各面额的张数，并在标签框中显示，要求总张数最少

[laien607]

我觉得已经可以了，思路有了就好做！
麻烦 myjian 给解答下我的问题！
就是 “时间” 那一个

[砸死牛顿的苹果]

最好自己先去做一下 具体遇到什么问题 在来讨论 这样自己收获才比较大

上面老马有个错误

A=4,B=2,C=1/5 或者 要是觉得小数麻烦就统统乘以5
A=20,B=10,C=1,问题变成 100个货物放满 500个货架

[guyehanxinlei]

.........

[嗷嗷叫的老马]

货物A每件占用货架4个，货物B每件占用货架2个，货物C每5件占用一个货架

//

我看成了"货物A每4件占用货架1个"............... =_=b

[嗷嗷叫的老马]

TO laien607(疯狂的兔子)

哪里???

[嗷嗷叫的老马]

...大学生...

让我想起了几年前的千千VB.....

那时候一下子火了一段时间,为什么?

因为那段时间是大学生快毕业时-_-b

大学生的学习能力不至于这么差吧...?

[嗷嗷叫的老马]

1. 货物A每件占用货架4个，货物B每件占用货架2个，货物C每5件占用一个货架，要求用100件货物放满100个货架，编程计算各种货物的数量，在文本框TEXT1、TEXT2、TEXT3中显示
//
A=4,B=2,C=5

使用循环穷举法,三层FOR循环嵌套,就可以搞定

2. 从键盘输入20个数，在列有框LIST1中输出，其中能被3整除的数同时在列表框LIST2中输出。并将这些能被3整除的数求出最大值、最小值、平均值在文本框TEXT1、TEXT2、TEXT3中显示（要求使用循环结构）
//
整除就不说了;
最大最小平均值:
最大最小,使用任意一种排序法(如最简单的,冒泡法)可以搞定
平均值,不用说了吧?

3. 在文本框TEXT1中输入金额（元），点击按钮COMMAND1,计算所需各面额的张数，并在标签框中显示，要求总张数最少
//
大概想了一下,使用递归结构进行递减,可以搞定

以上的思路都给出了,具体操作是你自己的事了

PS:

学校出这样的作业不是为了让你学编程,而是锻炼你的学习与理解新事物的能力....

希望别骂我.........

[jieweibin]

第1题答案~
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
Dim i As Integer

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

For c = 5 To 95 Step 5
b = (1500 - 19 * c) / 10
a = 100 - c - b
d = 4 * a + 2 * b + c / 5

If a > 0 And Int(a) = a And InStr(a, ".") = 0 And b > 0 And Int(b) = b And InStr(b, ".") = 0 And d = 100 Then

i = i + 1
MsgBox "第" & i & "组符合要求的数据是："

Text1.Text = a
Text2.Text = b
Text3.Text = c

End If
Next
End Sub

[jieweibin]

Y1 = 100 '100元
Y2 = 50 '50元
y3 = 10 '10元
y4 = 5 '5元
y5 = 2 '2元
y6 = 1 '1元
y7 = 0.5 '5角
y8 = 0.1 '1角
y9 = 0.05 '5分
y10 = 0.02 '2分
y11 = 0.01 '1分

If IsNumeric(Text1.Text) = False Then
MsgBox "金额只能为数字，请重新输入！", 64, "错误"
Text1.SetFocus
Exit Sub
End If

x = Val(Text1.Text)

' ni = (x - n(i - 1) * y(i - 1)) '整除yi

n1 = Int(x / Y1)
n2 = Int((x - n1 * Y1) / Y2)
n3 = Int((x - n1 * Y1 - n2 * Y2) / y3)
n4 = Int((x - n1 * Y1 - n2 * Y2 - n3 * y3) / y4)
n5 = Int((x - n1 * Y1 - n2 * Y2 - n3 * y3 - n4 * y4) / y5)
n6 = Int((x - n1 * Y1 - n2 * Y2 - n3 * y3 - n4 * y4 - n5 * y5) / y6)
n7 = Int((x - n1 * Y1 - n2 * Y2 - n3 * y3 - n4 * y4 - n5 * y5 - n6 * y6) / y7)
n8 = Int((x - n1 * Y1 - n2 * Y2 - n3 * y3 - n4 * y4 - n5 * y5 - n6 * y6 - n7 * y7) / y8)
n9 = Int((x - n1 * Y1 - n2 * Y2 - n3 * y3 - n4 * y4 - n5 * y5 - n6 * y6 - n7 * y7 - n8 * y8) / y9)
n10 = Int((x - n1 * Y1 - n2 * Y2 - n3 * y3 - n4 * y4 - n5 * y5 - n6 * y6 - n7 * y7 - n8 * y8 - n9 * y9) / y10)
n11 = Int((x - n1 * Y1 - n2 * Y2 - n3 * y3 - n4 * y4 - n5 * y5 - n6 * y6 - n7 * y7 - n8 * y8 - n9 * y9 - n10 * y10) / y11)

MsgBox "100元面额张数：" & n1 & vbCrLf & "50元面额张数：" & n2 & vbCrLf & "10元面额张数：" & n3 _
& vbCrLf & "5元面额张数：" & n4 & vbCrLf & "2元面额张数：" & n5 & vbCrLf & "1元面额张数：" & n6 _
& vbCrLf & "5角面额张数：" & n7 & vbCrLf & "1角面额张数：" & n8 & vbCrLf & "5分面额张数：" & n9 _
& vbCrLf & "2分面额张数：" & n10 & vbCrLf & "1分面额张数：" & n11

[IPC2008]

建议先把 数学学好再说，我想 你不会做，是因为不了解算法吧！

[yachong]

第三题,兑钱从大面额开始,逐渐减小面额,结果肯定是最优的
人民币面额的设计专门用来解决楼主的这道题

[砸死牛顿的苹果]

同意LS的~
算法部分 有小学生水平就够了
估计是对VB语言本身不够熟悉~

[嗷嗷叫的老马]

应该不会是算法问题

估计是语法问题......

[zxcvcxzv]

编写一个Windows应用程序，程序刚运行时显示出所图所示的【欢迎】对话框；若用户单击【确定】按钮将出现主界面；若用户单击【改变标题】按钮，将把窗体的标题改变为"这里是VB .NET实习基地"；若用户单击【随机移动】按钮，将把窗体在屏幕上随机移动10次；若用户单击【退出】按钮将会显示如图的【再见】对话框，用户单击【确定】按钮将退出应用程序。
[b]请问各位这道题怎么做？[/b]