程序编写练习。
班级学号姓名。
单击命令按钮command1后，从键盘输入n、x，其中x的绝对值必须小于1。用do...loop结构甄别，对于不合格的x要求重新输入，直到合格。
然后计算并在窗体显示下列表达式的值。
课堂作业1-1】改编[2009秋1填空]
private sub command1_click()
dim n as integer, x as single, s as single
dim t as integer, i as single方法1不必声明t，方法3不必声明t和i
输入。n = val(inputbox("n=")
dox = val(inputbox("x=")
loop until abs(x) <1
方法1for i = 0 to n - 1
s = s + x) ^i / i + 1)
next i
print s
方法2s = 1: t = 1
for i = 2 to n
t = t * x
s = s + t / i
next i
print s
方法3s = 0
do while n > 0
s = s + x) ^n - 1) /n
n = n - 1
loopprint s
end sub
程序编写练习。
班级学号姓名。
编制事件过程command1_click，从键盘输入x，其中x的必须不小于-5。用do...loop结构甄别，对于不合格的x要求重新输入，直到合格。
然后计算并在窗体显示下列函数的值。
课堂作业1-2】改编[2009秋编程1]
private sub command1_click()
clsdim x as single, f as single
dox = val(inputbox("x=")
loop while x < 5
if x < 5 then
f = sqr(x + 5)
elsef = 3 + log(x) /log(10)
end if
print "f(x) =f
end sub
程序编写练习。
班级学号姓名。
数列、…中，从第三项起的各项均为其前两项之和。单击窗体，求出该数列共有几项小于10000，在窗体显示，同时显示该数列小于10000的最大值。
课堂作业1-3】改编[2010春1填空]
private sub form_click()
dim f1 as long, f2 as long, f3 as long
dim i as integer
f1 = 1: f2 = 1: i = 2
do while f3 < 10000
i = i + 1
f3 = f2 + f1
f1 = f2: f2 = f3
loopprint "共"; i - 1; "项小于 10000 ，其最大值是"; f1
end sub
程序编写练习。
班级学号姓名。
编制过程command1_click，输入x、n后，根据下列公式计算多项式l(n, x)的值，用消息框msgbox输出。要求使用select case语句。
课堂作业1-4】改编[2010春编程1]
private sub command1_click()
dim n as byte, x as single, l as single
n = val(inputbox("n ="
x = val(inputbox("x ="
select case n
case 0: l = 1
case 1: l = x
case 2: l = 3 * x * x - 1) /2
case 3: l = 5 * x * x - 3) *x / 2
case 4
l = 35 * x * x - 30) *x * x + 3) /8
end select
msgbox "l(" n & xl
end sub
程序编写练习。
班级学号姓名。
单击窗体，从键盘输入n，然后依次输入各个ai值，计算下列表达式的值在窗体显示。
课堂作业1-5】改编[2010春编程2]
方法1：用动态数组存放a1、a2、a3、…
private sub form_click()
dim n as integer, i as integer, s as single
dim a() as single
n = val(inputbox("n ="
redim a(n)
for i = 1 to n
a(i) =val(inputbox("a" &i &
next i
for i = 1 to n - 1
s = s + a(i) /a(i + 1)
next i
print s
end sub
方法2：用两个变量存放分子和分母。
private sub form_click()
dim n as integer, i as integer, s as single
dim au as single, ad as single声明分子和分母。
n = val(inputbox("n ="
au = val(inputbox("a1首项a1赋值，作为分子。
for i = 2 to n
ad = val(inputbox("a" &i其余各项赋值，作为分母。
s = s + au / ad
au = ad将分母给下一项的分子赋值。
next i
print s
end sub
程序编写练习。
班级学号姓名。
单击命令按钮command1后，从键盘输入n，n必须大于0。用do...loop结构甄别，对于不合格的n要求重新输入，直到合格。
然后依次输入各个ai值，计算并用消息框msgbox显示下列表达式的值。
s = a1 + a2 + a3 + an-1 + an2)2…)2)2)2
课堂作业1-6】改编[2011春1填空]
private sub command1_click()
dim s as single, a as integer, n as integer
don = val(inputbox("n=")
loop until n > 0
while n > 0
a = val(inputbox("a(" n
s = s + a) ^2: n = n - 1
wendmsgbox s
end sub
程序编写练习。
班级学号姓名。
单击窗体，从键盘输入一个十进制数，将其转换为二进制数，用消息框msgbox显示。
课堂作业1-7】改编[2010春5阅读]
private sub form_click()
dim d as integer, b as string, d1 as integer
d = val(inputbox("输入十进制数：")
d1 = d
while d <>0
b = d mod 2 & b
d = d \ 2
wendmsgbox "十进制数 " d1 & 转换为二进制数为：" b
end sub
程序编写练习。
班级学号姓名。
单击窗体，从键盘输入一个十进制数，将其转换为十六进制数，在窗体显示。
课堂作业1-8】改编[2009春4阅读]
private sub form_click()
dim d as integer, r as integer, h as string
d = val(inputbox("输入十进制数：")
print "十进制数"; d;
while d <>0
r = d mod 16
d = d \ 16
if r < 10 then
h = r & h
elseh = chr(55 + r) &h
end if
wend
课堂作业2 答案
linux命令练习 顺序进行下列操作。1 创建用户usr1 2 创建用户组grp1 3 增加用户usr1到用户组grp1 4 切换到usr1用户。5 创建一个文件 home usr1 制作过程为 用重定向符输入磁盘使用情况 用df命令 到和文件夹情况 用ls命令 到再将与合并生成 6 将文件属主增加...
课堂作业2 带答案
第一题 说明图中的各公差代号的含义。被测圆锥面任一垂直于轴线的正截面上的圆周必须位于半径为公差值0.004mm的两同心圆之间。被测面必须位于距离为公差值0.015mm，且垂直于基准线b的两平行平面之间。被测圆锥面绕基准线b作无轴向移动回转时，在任一测量圆锥面上的跳动均不得大于0.02mm。被测圆锥面...
土力学课堂作业答案
第二次作业 2 1 某办公楼工程地质勘察中取原状土做试验，用体积为100的环刀取样试验，用天平测得环刀加湿土的质量为245.00g，环刀质量为55.00g，烘干后土样质量为170.00g，土粒比重为2.70。计算此土样的天然密度 干密度 饱和密度 天然含水率 孔隙比 孔隙率以及饱和度，并比较各种密度...