UC知道一个简单的vb题,谁来做?
来源：百度知道 编辑：UC知道 时间：2024/06/11 17:01:02
这个要求用Do Loop语句来做的……
某商店在每天营业结束后都对当天的营业额进行汇总，办法是先数出每种商品售出的数量，乘以该商品的单价，计算出每种商品的营业收入，然后把所有商品的营业收入累加起来。为提高工作效率，请你用VB为他们编写一个程序汇总当天的营业额。
拜托了哈！！
某商店在每天营业结束后都对当天的营业额进行汇总，办法是先数出每种商品售出的数量，乘以该商品的单价，计算出每种商品的营业收入，然后把所有商品的营业收入累加起来。为提高工作效率，请你用VB为他们编写一个程序汇总当天的营业额。
拜托了哈！！
晕，一楼的怎么搞的，你的假设怎么成立的？难道单价和卖出数量每天都一样的吗？二楼更错，你那循环一次都不会成立的，三楼的等于是没说，晕了！正确的如下：
Dim p As Integer, n As Integer, m As Double, k As Integer, i As Integer
m = 0
i = 1
Do
p = Val(InputBox("第" & i & "种商品的单价为：", "输入单价"))
n = Val(InputBox("第" & i & "种商品的数量为：", "输入数量"))
m = m + p * n
i = i + 1
k = MsgBox("确定键继续，取消键结束！", 1, "请选择")
Loop While k = 1
Print "今天的总营业收入为：" & m
保证完美，你可以复制我的程序代码黏贴到你的VB编辑器中看看效果，用command1的单击事件什么的都可以
dim i,j,s as single
j=0
i=10假设价格是10
do until j>50假设商品卖了50件
s=s+i*j
j=j+1
loop
print s
总额=单价*数量+单价*数量。。。。。。。。。+单价*数量
dim i as integer,j as integer,s as double
i=15 '商品的单价为15
j=0
do while j>300
s=s+i*j
j=j+1
loop
print s