实验教材 实验一
1：单项选择题：
A A C C C    D C B B C
2：填空题：
（1）.bas
（2）.vbp，.frm
（3）视图 工具箱
（4）对象
（5）属性 对象 事件 方法
（6）Windows
（7）事件 行为
（8）窗体模块
实验二
1：单项选择题：
A D C C A    B A B D C    B B C B C    B A B D C
2：基本运算题：
（1）27
（2）3.33333333333333
（3）3
（4）0
（5）-3
（6）2
（7）ab33
（8）类型不匹配
（9）3
（10）AB3
实验三
1：单项选择题：
B C B D C   
2：填空题：
（1）300
（2）321456
（3）Shanghai
（4）6  7  6
（5）True
（6）2+3=5
（7）”area=” 12.56
（8）VISUAL
实验四
1：单项选择题：
C A A C A
2：填空题：
（1）7
（2）3  5
（3）输入的数小于0
（4）3
（5）False
（6）2010 is not leap year.
试验五
1：单项选择题：
A C C A B    A C C C B
2：填空题：
（1）9
（2）①n  ②1
（3）①Len(a)  ②n\2  ③Mid(a,(n-i+1),1)  ④Mid(a,(n-i+1),1)
（4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1    ②While CountN<5
（5）Mid(c1,1,i)
实验六
1：单项选择题：
D B D C D    A C A D D
2：填空题：
（1）30
（2）3
（3）①a(2)  ②a(3)  ③a(1)
（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：单项选择题：
A B B A C B
2：填空题：
（1）15
（2）①Preserve a(n+1)  ②a(i+1)=a(i)  ③Exit For  ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a))
（3）d,c,b,a
实验八
1：单项选择题：
C A D B D    C A C B
2：填空题：
（1）a=9  b=4
（2）
36
25
16
9
4
1
（3）①a  ②UBound(b)  ③
实验九
1：单项选择题：
D D D B B    C A B C A D
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  ③number=number+7*10^(i-1)
实验十
1：单项选择题：
D C B A B C
实验十一
1：单项选择题：
D A D B B B B D D
实验十二
1：单项选择题：
C B C B C    C B D A D    D B C
2：填空题：
（1）①Label1.FondName=Combo1.Text
vb语言程序设计第五版上机答案②Combo2.Text  ③Label1.FontBold=True  ④Label1.FondItalic=True
⑤Label1.FondSize=Combo3.Text
（2）①List1.Text  ②List1.RemoveItem List1.ListIndex   
③List1.AddItem List2.Text    ④List2.RemoveItem
实验十三
实验十四
1：单项选择题：
D A C D A A B C
2：填空题：
（1）ShowFont
（2）打开 另存为 颜 字体 打印机 帮助
（3）工程 部件 Microsoft Common Dialog Control 6.0
（4）ShowColor Action=3
实验十五
1：单项选择题：
C B B C B    B B A D
2：填空题：
（1）内建菜单 弹出菜单
（2）Click
（3）工具
（4）代码窗口 Click
（5）相同 不同
实验十六
1：单项选择题：
B C A A C    A C D D B    D C C
2：填空题：
（1）①Open “c:\” For Output As #1
②Text1.Text=”End”
③White #1,Text1.Text
（2）①For Input    ②For Output As #2  ③Not Eof(1)
④Input #1,str1  ⑤Close #1,#2      ⑥Kill(“c:\”
（3）①For Output    ②For Input As #2

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。