vb程序设计实验教程习题答案(精品).doc

实验教材实验-
1:单项选择题：
AACCC DCBBC
2：填空题：
(1).bas
(2).vbp, ,frm
(3)视图工具箱
(4)对象
(5)属性对象事件方法
(6)Windows
(7)事件行为
(8)窗体模块
实验二
1：单项选择题：
ADCCA BAB DC BBCBC BAB DC 2：基本运算题：
(1)27
(2) 3.33333333333333
(3) 3
(4)0
(5)-3
(6) 2
(7)ab33
(8)类型不匹配
(9) 3
(10)AB3
实验三
1：单项选择题：
BCBDC
2：填空题：
(1)300
(2)321456
(3)Shanghai
(4) 6 7 6
(5)True
(6)2+3=5
(7)”area=” 12.56
(8)VISUAL
实验四
1：单项选择题：
CAACA
2：填空题：
(1)7
(2) 3 5
(3)输入的数小于0
(4) 3
(5)False
(6)2010 is not leap year.
试验五
1：单项选择题：
ACCAB ACCCB
2：填空题：
(1)9
(2)@n ② 1
(3)®Len(a)②n\2 ③Mid(a,(n-i+l),l)④Mid(a,(n-i+l),l)
(4)@n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ©While CountN<5
(5)Mid(cl,l,i)
实验六
1：单项选择题：
DB DCD ACADD
2：填空题:
(1)30
(2) 3
(3)①a(2)②a(3)③a(l)
(4)①1 ②2 ③a(i)=a(6-i)
(5)①i+j ②0 ③a(i,j)
(6)©Print ②k ③a(k,j)=a(j,k)④a(k,j);
实验七
1：单项选择题：
ABBACB
2：填空题：
(1)15
(2)①Preserve a(n+l) ②a(i+l)=a(i) ③Exit For ④a(i+l)=m⑤0 to n+1 (或LBound(a) to UBound(a))
(3)d,c,b,a
实验八
1：单项选择题：
CADBD CACB
2：填空题：
(1)a=9 b=4
(2)
36
25
16
9
4
1
(2)①a (2)UBound(b)③
实验九
1:单项选择题：
DDDBB CAB CAD
2：填空题：
(1)①p=p*n ②Fac(n) ③ 10人-6
(2)①Max=x ②Max=y ③p ④Max(x,a(n))
(3)①number(i) ②n as integer (3)number=number+7* 10A(i-1)
实验十
1：单项选择题：
DC BAB C
实验十一
1：单项选择题：
DADBBB BDD
实验十二
1：单项选择题：
CBCBC CBDAD DBC
2：填空题：
(1)①Label 1. FondName=Combo 1 .Text
Combo2.Text ③ Label 1 .FontBold=True ④ Label 1 .FondItalic=True
⑤ Label 1 .FondSize=Combo3.Text
(2)①Listl.Text ©List 1 .RemoveitemListl.Listindex
Listl .Additem List2.Text ④ List2.RemoveItem
实验十三
实验十四
1：单项选择题：
DACDAABC
2：填空题：
(1)ShowFont
(2)打开另存为颜色字体打印机帮助
(3)工程部件Microsoft Common Dialog Control 6.0
(4 ) ShowColor Action=3
实验十五
1：单项选择题：
CB BCB B BAD
2：填空题：
(1)内建菜单弹出菜单
(2)Click
(3)工具
(4)代码窗口Click
(5)相同不同
实验十六
1：单项选择题：
B CAA
C ACDDB DCC
2：填空题：
(1)①Open "c:\studl.txt” For Output As #1
Textl.Text=”End”
White #l,Textl.Text
(2)①For Input ②For Output As #2 ③Not Eof(l)
Input #l,strl ⑤ Close #1,#2 ⑥Kill(“c:\old.txt”
(3)①For Output ②For Input As #2。