（1） 例3-2
private sub command1_click()
dim h as integer, f as integer, y as integer
f = 40: h = 16
x = 4 * h - f) /2
y = f - 2 * h) /2
= "若总头数为" &h & 总脚数为" &f & 则" &鸡有" &x & 只" &兔有" &y & 只"
end sub
2） 例3-3
3） private sub command1_click
dim h as integer, f as integer, x as integer, y as integer
h = val(inputbox("请输入总头数", 鸡兔同笼", 0))
f = val(inputbox("请输入总脚数", 鸡兔同笼", 0))
x = 4 * h - f) /2
y = f - 2 * h) /2
print "若总头数为" &h & 若总脚数为 " f & 则 "
print "鸡有" &x & 只"
print "兔有" &y & 只"
end sub
3）例3-4
private sub command1_click()
dim f%, h%, y%
h = val( f = val(
x = 4 * h - f) /2
y = f - 2 * h) /2
= "计算结果：鸡有" &x & 只，兔有" &y & 只"
end sub
4）输入x的值，计算y的值，y等于根号下x
private sub command1_click()
x = = sqr(x)
end sub
5）求四个数a,b,c,d的绝对值最大数。
dim a%, b%, c%, d%
private sub command1_click()
a = val(inputbox("请输入变量的值"))
b = val(inputbox("请输入变量的值"))
c = val(inputbox("请输入变量的值"))
d = val(inputbox("请输入变量的值"))
if abs(a) >abs(b) then
m = abs(a)
elsem = abs(b)
end if
if abs(c) >m then
m = abs(c)
end if
if abs(d) >m then
m = abs(d)
end if
print m
end sub
6）给出一个月份，判断季节（用if语句）
private sub command1_click()
a = if a >=3 and a <=5 then
msgbox "当前月份为春季"
end if
if a >=6 and a <=8 then
msgbox "当前月份为夏季"
end if
if a >=9 and a <=11 then
msgbox "当前月份为秋季"
else: msgbox "当前月份为冬季"
end if
end sub
7）给出一个月份，判断季节（用select case语句）
private sub command1_click()
dim a!
a = val(inputbox("请输入月份"))
select case a
case 3, 4, 5
msgbox "当前月份为春季"
case 6, 7, 8
msgbox "当前月季为夏季"
case 9, 10, 11
msgbox "当前月季为秋季"
case 12, 1, 2
msgbox "当前月季为冬季"
end select
end sub
8）判优 ，给一个百分制的成绩，要求输出成绩的等级，90分以上的为'a’，80分以上的为’b’，70分以上为’c’，60分以上的为’d’，60分以下的为’e’。要求输入的分数在[0，100]范围内，否则给出错误提示。
private sub command1_click()
dim a!
a = val(inputbox("请输入成绩"))
if a >=90 and a <=100 then
msgbox "a"
end if
if a >=80 and a < 90 then
msgbox "b"
end if
if a >=70 and a < 80 then
msgbox "c"
end if
if a >=60 and a < 70 then
msgbox "d"
end if
if a >=0 and a < 60 then
msgbox "e"
elsemsgbox "输入成绩错误"
end if
end sub
9) 例3-12
private sub command1_click()
dim x!, n%
x = 13
n = 0do while x < 18
x = x * 1 + 0.05)
n = n + 1
loopmsgbox "经过" &n & 年以后，产值达到超过" &x & 亿"
end sub
10)求s=1－2＋3－4＋5－．．100
private sub command1_click()
dim f%, i%, x%
f = 1for i = 1 to 100
x = f * i
s = s + x
f = fnext i
print s
end sub
11）求1！+2！+3！+。100！
private sub command1_click()
f = 1for i = 1 to 100
f = f * i
s = s + f
next i
print s
end sub
12）找出1---1000之间的同构数。
private sub command1_click()
for i = 1 to 1000
a = len(i)
if right(i, a) =right(i ^ 2, a) then
n = n + 1
print tab(((n - 1) mod 5) *7 + 1);
end if
next i
end sub
13）例3-14
private sub form_click()
print tab(30); 九九乘法口诀表"
print tab(30); string(14, "
for i = 1 to 9
for j = 1 to 9
print tab((j - 1) *8 + 2); i & x" &j & i * j;
next j
next i
end sub
14）求自然对数e的近似值，当任意项的值小于10-4时结束计算，近似公式如下：结果用print 方法输出。
private sub command1_click()
i = 1x = 1
e = 1do while i < 10000
x = x + 1
e = e + 1 / i
i = i * x
loopprint e
end sub
第三章复习作业纸
课题 第三章字母表示数。设计人 崔恒霞审核人 马聪 班级姓名 一 填空题 1 代数式 的系数是 的系数是。单项式是关于x y的五次单项式，则n 2 如果为四次三项式，则。3 多项式，是次项式，各项的系数分别是。4 a与b的和除以a与b的差 用代数式表示为。5 若 x 3 y 2 0，则x 2y 6 ...
第三章作业
v s 顺序执行下述两个动作 1.s值加1，即s s 1 2.如果s 0，则该进程继续运行 3.如果s 0，则唤醒等待信号量s阻塞队列中的头一个进程 把阻塞态改为就绪态 执行v操作的进程继续运行。procedure s var s semaphore begin s s 1 if s 0 then ...
第三章作业
1 顺序栈空 栈满条件2 链栈栈空 栈满条件。3 循环队列队空 队满条件，如何表示队列中数据元素的个数4 链队列队空 队满条件。5 以下运算实现在顺序栈上的进栈，请在 处用适当的语句予以填充。int push sqstacktp sq,datatype x if sp top sqstack max...