习题参***。
第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、视图菜单、工具栏按钮、工程窗口中右键、窗体中使用右键。
6．shift或ctrl
第2章(p30—31)
一、选择题。
1．b、c2．a
3．b、c、d
4．d5．b
6．b7．c
8．d二、填空题。
3．（8+6）^(4/(-2))+sin(2*3.14)
4．（（x+y）+z）*50-5*(c+d)
6．5+（a+b）^2
8．exp（2）
9．2*a*(7+b)
10．8*exp(3)*log(2)
第3章（p42）
一、选择题。
1．c2．d
3．c5．b
二、填空题。
2．beijing
第4章。习题一（p54---55）
一、 选择题。
1． a2． b
3． d4． a
5． c二、 填空题。
3．x>5或x>6或x>=7
三、编程题。
1．我国现有人口……
dim p as single
dim n as integer
p = 13: n = 0
dop = p * 1.01
n = n + 1
loop until p >=16
print n
2．编写程序，打印如下所示……
private sub command1_click()
dim i as integer
dim j as integer
for i = 1 to 6
print tab(30 - 3 * i);
for j = 1 to 2 * i - 1
print str(i - abs(i - j));spc(1);
next j
printnext i
end sub
习题二（p70---72）
一、选择题。
1．d2．c
3．d4．d
三、 填空题。
1． 名称 index
2． 变体。
四、 编程题。
1． 从键盘上输入10个数……
private sub command1_click()
dim i as integer
dim a(1 to 10) as integer
dim b(1 to 10) as integer
print "原始数据："
for i = 1 to 10
a(i) =val(inputbox("请输入数组的第" &i & 个元素：")
print a(i);
next i
for i = 1 to 10
b(i) =a(10 - i + 1)
next i
printprint "对换后的数据："
for i = 1 to 10
print b(i);
next i
end sub
3．有一个n*m的矩阵……
option base 1
private sub command1_click()
dim i as integer, j as integer
dim max as integer
dim m as integer, n as integer
dim a(3, 4) as integer
for i = 1 to 3
for j = 1 to 4
a(i, j) =int(rnd * 100)
print a(i, j);
next j
printnext i
max = a(1, 1): m = 1: n = 1
for i = 1 to 3
for j = 1 to 4
if max < a(i, j) then
max = a(i, j): m = i: n = j
end if
next j
next i
print "最大元素是：";max
print "其位置是：";第" &m; "行"; 第" &n; "列"
end sub
习题三（p79---82）
一、选择题。
1．b2．d
3．b4．a
二、填空题。
1．形式， 变量、表达式、常量、数组，实际。
三、编程题。
1．编写程序，求s=a！+b！+c！。。
法1：用sub过程。
private sub fact(n as integer, f as long)
dim i as integer
f = 1for i = 1 to n
f = f * i
next i
end sub
private sub command1_click()
dim a as integer, b as integer, c as integer
dim f1 as long, f2 as long, f3 as long
a = val(inputbox("输入a的值：")
b = val(inputbox("输入b的值：")
c = val(inputbox("输入c的值：")
call fact(a, f1)
call fact(b, f2)
fact c, f3
print "a!+b!+c!="f1 + f2 + f3
end sub
法2：用function函数。
public function fact(n as integer) as long
dim i as integer
fact = 1
for i = 1 to n
fact = fact * i
nextend function
private sub command1_click()
dim a as integer, b as integer, c as integer
a = val(inputbox("输入a的值：")
b = val(inputbox("输入b的值：")
c = val(inputbox("输入c的值：")
print "a!+b!+c!="fact(a) +fact(b) +fact(c)
end sub
第5章（p102）
一、选择题。
1．b2．c
3．d二、填空题。
1．load;unload
2．show;hide
3．略。4．工程属性，工程，属性。
5．窗体、类、标准。
6．标准模块，public 《变量名》 as 类型。
7．局部，全局，标准。
第6章（p160---162）
一、选择题。
1．c2．b
3．d4．b
5．a6．d
7．c8．b
9．c10．c
11．d12．b
13．c14．b
15．b16．a
17．b18．d
19．c20．c
21．c二、填空题。
1．autoszie
2．scrollbars，multiline true
6．true
7．picture
8．interval
9．enabled
10．下拉组合框、简单组合框、下拉列表框，style
11．下拉列表框。
12．itema
itemc三、编程题。
2．在窗体上建立3个个文本框。。。
private sub command1_click()
= "microsoft visual basic"
call text1_change
end sub
private sub text1_change()
= ucase(
= lcase(
end sub
4．编写程序，用计时器按秒计时。
private sub form_load()
end sub
private sub timer1_timer()
static n as integer
n = n + 1
= str(n)
beepend sub
vb课后作业
课后作业。1 控件的使用户能够移动控件并调节其大小。a.拖曳柄b.标题栏c.工具箱d.工程资源管理器。2 将命令按钮的什么属性设置为true，当用户按下 esc 键时可以激发对应命令按钮的click事件。3 在 编辑中有命令按钮的cmdok click 事件，则命令按钮的名称是什么？4 使用什么方法...
VB课后作业
四 实验步骤。第一题 1 在新建的窗体上画1个命令按钮。2 命令按钮的属性设置如下 3 控件布局如下。4 双击命令按钮，打开 窗口并输入如下 private sub command1 click dim a 3 as integer dim i as integer print 输入的数据为 for...
VB课后作业
第一题 1 新建一个窗体。2 窗体属性设置如下 3 窗体布局如下。4 双击窗体，打开 窗口并输入如下 private sub form click dim x as integer dim y as integer x 0 y 0 do while x 100 y y x x x 1 looppri...