作业答案：
第一章。1．答案参照教材p5
2.答：要重新安装。因为vb6.0安装时有些vb程序文件被系统自动安装在windows目录下。
其他题目参照教材相关内容。）
第三章。1．答：
括号内表示数据类型，没有写出类型的表示非法。
1)100.0(单)
3)1e1(单)
4)123d3(双)
6)0100(整)
7)”asdf”（字符）
#2000/10/7# (日)#(双)
12)&o100（八）
13)&o78
14)&h123(十六)
15)true(逻辑)
16)t17)&h12ag
18)-1123!（单）
2．答：合法的变量名为：
在中文vb系统中，(12)为有效的变量名，但一般不使用。
其余为非法变量名。
3．答：1) abs(x+y)+z^5
2) (1+x*y)^6
3) (10*x+sqr(3*y))/x/y
4) (b+sqr(b*b-4*a*c))/2*a)
5) 1/(1/r1+1/r2+1/r3)
6) sin(45*3.14/180)+(exp(10)+log(10))/sqr(x+y+1)
4．答：1) chr(int(rnd*10+67))
2) int(rnd*101+100)
3) x*y>0
4) x mod 5=0 or x mod7=0
5) (x mod 10)*10+x\10
6) round(x*100)/100
7) ucase>=”a” and ucase<=”z”
8) mid(s,5,6)
9) x>=10 and x<20
10) xz or x>z and y(11) x>z and y>z5.答：
#2/29/2000#
9.分别是：val(),isnumeric,mid(),ucase(),lcase()
第四章。1．顺序结构、选择结构、循环结构。
2．(1) 10x是非法变量名。
(2) 待求平方根的数为负数。
(3) 赋值符号左边是表达式。
(4) 分母为零。
3．参照书相关内容。
4．使用format函数。
print format(x,”0.0”)
print format(y,”0.00”)
print format(z,”0.000”)
5．可以是算术、关系、逻辑表达式。
6．(1) ≥改为》=
(2) 1010 and x<20
7．(1) if mid(c,3,1)=”c” then
msgbox “yes”
elsemsgbox “no”
end if
x=val(
if x>20 then
y=x^2+3*x+2
elseif x>=10 then
y=sqr(3*x)-2
esleif x>0 then
y=1/x+abs(x)
end if
print y
x=val(
select case x
case is>20
y=x^2+3*x+2
case is>=10
y=sqr(3*x)-2
case is>0
y=1/x+abs(x)
end select
print y
9．(1) 6次。
(2)19次。
(3)不循环。
(4)无数次。
s=0for i=1 to 10
s=s+(i+1)*(2*i+1)
next i
print s
s3=0s7=0
for i=1 to 100
if i mod 3 =0 then s3=s3+1
if i mod 7=0 then s7=s7+1
next i
s=inputbox(“输入字符串”)
for i=len(s) to 1 step -1
print mid(s,i,1);
next i
第五章。1. 答：option base语句。
2. 答：正确的有(2),(4),(7),(8)
4. 答：数据名为a，数据类型为单精度，维数为二维，各维的下界为-2和0，上界为2和3，数据大小为4x4=16个元素，各元素如下表。
5.在通用部分定义模块级数组：
dim a(1 to 4,1 to 4) as integer, b(1 to 4,1 to 4) as integer, c(1 to 4,1 to 4) as integer
给数组赋初值：
dim i as integer,j as integer
for i=1 to 4
for j=1 to 4
a(i,j)=int(rnd*41+30)
b(i,j)=int(rnd*35+101)
next j
next i
for i=1 to 4
for j=1 to 4
c(i,j)=a(i,j)+b(i,j)
next j
next i
2)矩阵转置是将矩阵的行变列，列变行。
for i=2 to 4
for j=1 to i-1
t=a(i,j)
a(i,j)=a(j,i)
a(j,i)=t
next j
next i
dim max%,imax%,jmax%
max=a(1,1)
imax=1
jmax=1
for i=1 to 4
for j=1 to 4
if c(i,j)>max then
max=c(i,j)
imax=i
jmax=j
end if
next j
next i
下三角。for i=1 to 4
for j=1 to i
print a(i,j);space(3);
next j
printnext i
上三角。for i=1 to 4
for j=1 to 4-i+1
print b(i,j);space(3);
next j
printnext i
for j=1 to 4
t=a(1,j)
a(1,j)=a(3,j)
a(3,j)=t
next j
sum=0for i=1 to 4
sum=sum+a(i,i)+a(i,5-i)
next i
dim d(1 to 16) as integer,k as integer
k=1for j=1 to 4
for i=1 to 4
d(k)=a(i,j)
k=k+1next i
next j
或者：for j=1 to 4
for i=1 to 4
k=(j-1)*4+i
d(k)=a(i,j)
next i
next j
8．答：选中的项目属性：text，总项目数的属性为：listcounts。
第6章。1．参照教材相关部分。
2．参照教材相关部分。
3．答：（1）sub子过程无返回值，过程名也就没有类型。
（2）函数名和形参名相同。
（3）形参n为数组，不允许声明为byval值传递。
（4）形参不能声明为数组元素x(i)
（2）fsum子过程的第一个形参是整型数据类型，实参c是单精度，所以类型不匹配。
（3）fsum子过程的第一个形参是地址传递，所以实参不能是表达式a+b。
（4）fsum子过程的第一个形参是地址传递，所以实参不能是表达式sqr(c)。
（5）用call语句调用子过程，参数必须用一对园括号括起来。
vb教材课后作业答案
习题参 第1章 p17 一 选择题。1 c 2 d 3 b 4 a 5 b 6 d 7 b 二 填空题。1 对象列表框排序方式属性列表框属性说明框。3 内部控件 activx控件可插入对象。4 top和left，width和height 5 f4 视图菜单 工具栏按钮 工程窗口中右键 窗体中使用右键...
VB第二章课后习题答案
c.t 1.7 and w 62.5d.t 1.7 or w 62.5 8.执行语句 print format 2004.218,0.00 以下答案中哪一个是正确的 a.2004.21b.2,004.21c.2,004.22 d.02,004.21 9.下面表达式的值为真的是 a.mid visua...
vb作业答案
实验报告 课程名称程序设计语言 vb 实验学期 2011 至 2012 学年第二学期。学生所在系部安全工程学院。年级大一班级安全b116班。学生姓名邓连军学号 201110044601 任课教师胡为民。实验成绩。计算机系制。程序设计语言 vb 课程综合性实验报告。开课实验室 基础实验室2012 年 ...