题目：1 运用vba生成一幅扑克牌，写出流程图和程序即可；
2 写出单服务台排队系统流程图；
3 写出双服务台排队系统流程图（没做）；
4 下面是一个概率问题：10张奖券中4张有奖，甲乙两人每人购买一张。求：(1)甲乙两人都中奖的概率；(2)第二人中奖的概率。
用vba程序来模拟计算本题的结果，写出流程图，程序和程序运行结果。
解：1. 先画出流程图如下：
在利用vba编写程序如下：
sub czx()
dim a(13) as integer
s = 1do while s <=52
i = int((10 - 1 + 1) *rnd() 1)a(i) =a(i) +1
if i = 10 then
if a(i) <16 then
cells(s, 1) =i
s = s + 1
end if
elseif a(i) <4 then
cells(s, 1) =i
s = s + 1
end if
end if
loopend sub
2．画出单服务台排队系统流程图如下：
注：假设服务开始即为上班开始；
上班时间；服务时间；
到达间隔时间；
4．画出这个**的流程图如下：
利用vba编写程序如下：
sub a()
dim i, j as integer
for i = 1 to 10
cells(i, 1) =0
nexts = a1:a10"))
do while s <=3
j = int((10 - 1 + 1) *rnd() 1)cells(j, 1) =1
s = a1:a10"))
loopend sub
sub czx()
dim count1, count2 as integercount1 = 0
count2 = 0
for s = 1 to 10000
am = int((10 - 1 + 1) *rnd() 1)don = int((10 - 1 + 1) *rnd() 1)loop until m <>n
count1 = count1 + cells(m, 1) *cells(n, 1)
count2 = count2 + cells(m, 1)nextcells(2, 2) =count1 / 10000cells(3, 2) =count2 / 10000end sub
运行程序得：
甲乙同时中奖的概率为：0.1303
乙中奖的概率为：0.3958
经济数学建模2019上机作业
大作业要求。1.三人为一组，做完后递交书面作业，在封面上写清参加人的姓名，班级，学号 可以以大班为编组范围 2.大作业内容包含 问题分析 建立模型 求解及运算程序 运算结果或图表 结论。3.交试验报告时间等通知，手写或打印均可。1 设a b两方案的净现金流量 单位 万元 如下表所示 1 设折现率为1...
数学建模上机实验
数学建模与数学实验。上机实践题。1.某工厂计划生产i ii iii三种产品，已知生产单位产品所需的设备台时，a b两种原材料的消耗和利润如下表所列 问题 1 如何安排生产使盈利最大？2 写出其对偶问题表达式，并计算对偶 3 若为了增加产量，可租用别的工厂设备，租金800元 台时，租用设备是否划算？最...
数学建模上机实验
1 生成一个从 至20111373的递减一维列向量 向量大小为78 1 在向量中两次插入每位同学自己的学号n，插入方法如下 第一次，将n插入到 n mod 20111372 mod 78位置，插入后向量大小变为79 1 b 产生一个随机数，该随机数取值在 1 79 之间，并将n插入该随机数指向的位置...