班级。姓名。
学号。4 -1）设计一个计算购书价程序，界面如图所示。要求：
1） 界面上的文字全部为宋体五号字。
2） 按图示给文本框取名。为“计算总价（c）”和“退出（x）”按钮设访问键。
3） 编写**，使得运行时焦点定位在dj文本框中，输入单价后，按tab键可输入数量。在输入单价和数量后，点击“计算总价（c）”按钮，将计算出的总价钱，先是在文本框zj中，单击“退出（x）”按钮结束运行。运行时，计算出的总价为只读，用户不能在界面上修改计算出的总价，且焦点不能定位在zj文本框中。
提示：先将文本框中的内容使用val函数转换后再进行计算。
4） 将zj文本框改换成标签，将标签的borderstyle属性设置为1-fixed single，用标签输出计算结果。
** ：private sub command1_click()
= val( *val(
end sub
private sub command2_click()
endend sub
private sub dj_gotfocus()
= len(
end sub
private sub command1_click()
= val( *val(
end sub
private sub command2_click()
endend sub
private sub dj_gotfocus()
= len(
end sub
4 -2）设计一个收款计算程序，界面如图所示。要求：
1） 三个输入文本框依次取名为t1、t2、t3，应付款文本框取名为tresult。
2） 运行时焦点在折扣一栏，输入折扣后，按tab键可输入单价，再按tab键可输入数量。
3） 单击“计算”按钮计算应付款，应付款内容为只读。
4） 单击“清除”按钮或“esc”键清除应付款内容，并将焦点定位在“折扣”一栏，选中“折扣”中的内容，以便修改。
提示：使用以下语句定位焦点并选中文本。
= len(
5） 单击“退出”按钮结束执行。
**：private sub command1_click()
= val( *val( *val( /10)
end sub
private sub command2_click()
= len(
end sub
private sub command3_click()
endend sub
4 -3）（2-10）设计如图所示界面。运行时按下某命令按钮对文本框中的文字完成相应的设置。其中每按一次“增大”或“缩小”按钮将是文本框中的文字增大或缩小5磅。
文本框各属性如下：
字号：.fontsize 下划线： fontunderline. 删除线：fontstrikethru 粗体：fontbold 斜体：fontitalic
**：private sub command1_click()
end sub
private sub command2_click()
end sub
private sub command3_click()
= true
end sub
private sub command4_click()
= true
end sub
private sub command5_click()
= true
end sub
private sub command6_click()
= true
end sub
4-5）（3-2）设计见面如图所示，单击“出题”按钮，产生任意两个[1,100]之间的随机正数，单击“计算”按钮，求这两数的和。
**：private sub command1_click()
= str(int(rnd * 100 - 1 + 1) +1))
= str(int(rnd * 100 - 1 + 1) +1))
end sub
private sub command2_click()
= val( +val(
end sub
5-2）（5-1）从文本框中输入一个数，单击“判断”按钮判断它能否同时被整除，若能整除，则在窗体上显示“能同时被整除”，否则显示“不能整除”
**：private sub command1_click()
x = val(
if x mod 3 <>0 or x mod 5 <>0 or x mod 7 <>0 then = 不能整除" else- =能被3，5，7整除"
end sub
5-3）（5-2）用inputbox函数输入三个数，选出其中的最大数和最小数，显示与窗体上。
**：private sub command1_click()
a = val(inputbox("请输入第一个数字", 输入"))
b = val(inputbox("请输入第二个数字", 输入"))
c = val(inputbox("请输入第一个数字", 输入"))
max = a
min = a
if b > max then max = b
if b < min then min = b
if c > max then max = c
if c < min then min = c
print "最大值"; max
print "最小值"; min
end sub
5-6）（5-5）使用select case语句进行条件判断。用文本框输入学生某门课程的分数后，给出五级评分。评分标准如下：
如果输入的分数不在[0,100]范围内，则给出错误提示，并将焦点定位在输入分数的文本框，选中其中的文本。
**：private sub command1_click()
x = val(
select case x
case 90 to 100
= "优秀"
case 80 to 90
= "良"case 70 to 80
= "中"case 60 to 70
= "及格"
case 0 to 60
= "不及格"
case is < 0, is > 100
a = msgbox("输入错误" &chr(13) &请重新输入", 提示")
= len(
end select
end sub
6-1）（6-6）单击某命令按钮输出3～100之间的所有奇数、奇数之和。将奇数显示与带垂直滚动条的文本框中，奇数之和显示与另一文本框中。
**：private sub command1_click()
sum = 0
for i = 3 to 99 step 2
= &chr(13) &chr(10) &str(i)
sum = sum + i
next i
= sumend sub
private sub command2_click()
endend sub
6-2）（6-1）单击窗体时求的值，结果显示于窗体上。
**：private sub form_click()
sum = 0
for i = 1 to 100
for j = 1 to 50
for k = 1 to 10
sum = sum + i + j ^ 2 + 1 / k
next k, j, i
print sum
end sub
6-10）（6-12）求1!+2!+3!+…20!
**：private sub form_load()
sum = 0
for i = 1 to 20
sum1 = 1
for j = 1 to i
sum1 = sum1 * j
next j
sum = sum + sum1
next i
西医课后作业
一 选择题 单选题 1 慢性呼吸衰竭缺氧明显并伴二氧化碳潴留时，采用氧疗的给氧浓度，下列哪项是正确的 a.25 b.35 c.45 d.55 e.65 2 肺源性心脏病患者用大剂量利尿剂后容易出现 a.代谢性酸中毒b.呼吸性酸中毒c.呼吸性碱中毒d.代谢性碱中毒e.以上都不是。3 男性患者，20岁，...
课后作业答案
第三单元课后作业答案。第13次作业。结合材料，运用联系的观点淡谈你对中外文化交流的认识。解析 本题为认识类题目，回答时可从 为什么 怎样做 来谈对中外文化交流的认识。为什么 中既要回答出世界是普遍联系的这一原理，又要回答出中外文化交流的意义。怎样做 可从建立新的具体联系来回答。答案 1 任何事物都是...
计量课后作业
计量地理学 平时作业。科院13级地理科学本科生 组号 第15组 1 某工厂成批生产某种产品，批发 为0.5元 个，成本为0.3元 个，这种产品每天生产，当天销售，如果当天卖不出去，每个损失0.1元。已知工厂每天产量可以是 0个，1000个，2000个，3000个，4000个。根据市场调查和历史纪录表...