VB程序设计教程课后参考答案概要.docx
- 文档编号:6676734
- 上传时间:2023-01-08
- 格式:DOCX
- 页数:24
- 大小:27.10KB
VB程序设计教程课后参考答案概要.docx
《VB程序设计教程课后参考答案概要.docx》由会员分享,可在线阅读,更多相关《VB程序设计教程课后参考答案概要.docx(24页珍藏版)》请在冰豆网上搜索。
VB程序设计教程课后参考答案概要
VB程序设计教程课后参考答案
习题一
一、填空题
1.对象、事件驱动
2.窗体、控件
3.属性
4.属性窗口、编程设置
5.事件过程
6.对象名、下划线、事件名
7.Form_click
8.Printform1.print“我的VB”
9.主窗口、属性、工具箱、代码、窗体、工程资源管理
10.菜单、快捷键
二、选择题
1.C2.A3.B4.B5.D6.BC7.A
三、简答题(略)
习题二
一、选择题
1.D2.C3.C4.B5.C6.B7.C
8.B9.A10.B11.B12.C13.D14.B
15.A16.A17.A18.A19.B20.C21.A
22.B23.B24.A25.C26.A27.B28.B
29.C30.B31.D32.D33.C
二、填空题
1.Controlbox、Maxbutton、Minbutton
2.MultilineTRUE
3.******
4.单文档界面(SDI)多文档界面(MDI)
5.窗体显示
6.Passwordchar
7._change()
三、编程题(略)
习题三
一、基础知识题(略)
二、填空题
1.整型、长整型、单精度、双精度
2.(xmod10)*10+x\10
3.Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)
4.(a+b)/(1/(c+5)-c*d/2)
5.Xmod5=0orxmod9=0
6.False
7.-4、3、-3、3、-4、4
8.CDEF
9.GBCDEFA
10.TRUE
11.变量、属性
12.‘_:
13.(略)
14.“”#
15.Public、通用/模块、Dim、static、private
16.+、&、+
17.Now()、time()、日期
18.Inputbox()、字符串、val()
19.Msgbox()
三、选择题
1.B2.C3.A4.BD此题有误5.B6.A
7.D8.B9.B10.C11.D12.B
13.C14.B15.A16.C17.A18.D
19.A20.D21.A22.C23.C24.D
25.A26.D27.D28.B29.C30.B
31.C32.B33.CD此题有误34.C35.A
36.D37.C38.A39.B40.A41.C
42.C43.D44.C45.D46.A
四、编程题
1.
OptionExplicit
PrivateSubCommand1_Click()
Dima%,b%,c%,delta%
Dimx1#,x2#,x#
a=Val(InputBox("pleaseinputdatatoa:
","info",1))
b=Val(InputBox("pleaseinputdatatob:
","info",1))
c=Val(InputBox("pleaseinputdatatoc:
","info",1))
Ifa=0Andb<>0Then
x=-c/b
Print"所构成的方程是:
"&b&"x"&"+"&c&"=0"
Print"该一元一次方程的根是:
",x
EndIf
Ifa=0Andb=0Then
Print"很抱歉,不能构成合法的方程!
"
EndIf
Ifa<>0Then
delta=b*b-4*a*c
Ifdelta>=0Then
x1=(-b+Sqr(delta))/(2*a)
x2=(-b-Sqr(delta))/(2*a)
Print"所构成的方程是:
"&a&"x2"&"+"&b&"x"&"+"&c&"=0"
Print"该方程的根是:
"
Print"第一个根是:
",x1
Print"第二个根是:
",x2
Else
Print"所构成的方程是:
"&a&"x2"&"+"&b&"x"&"+"&c&"=0"
Print"该方程有两个虚根:
"
Print"第一个虚根是:
"&-b/(2*a)&"+"&Sqr(Abs(delta))/(2*a)&"i"
Print"第二个虚根是:
"&-b/(2*a)&"-"&Sqr(Abs(delta))/(2*a)&"i"
EndIf
EndIf
EndSub
2.
OptionExplicit
PrivateSubCommand1_Click()
Dimi%,s%
s=0
Fori=1To99Step2
s=s+i
Next
Prints
EndSub
3.
OptionExplicit
PrivateSubCommand1_Click()
Dimi%
Dims#
s=0
Fori=1To100
s=s+1/i*(-1)^(i+1)
Next
Prints
EndSub
4.
OptionExplicit
PrivateSubCommand1_Click()
Dimi%,n%
Dimt#,s#
n=Val(InputBox("pleaseinputdata:
","info",5))
s=0
t=1
Fori=1Ton
t=t*i
s=s+t
Next
Prints
EndSub
5.
OptionExplicit
PrivateSubCommand1_Click()
Dima%,b%,c%
Dimp#,s#
a=Val(InputBox("pleaseinputdatatoa:
","info",3))
b=Val(InputBox("pleaseinputdatatob:
","info",4))
c=Val(InputBox("pleaseinputdatatoc:
","info",5))
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 教程 课后 参考答案 概要