- 1、本文档共13页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《VB程序設计基础与VBA应用》16章答案
《VB程序设计基础与VBA应用》
P28 习题一
?? 二,单选题?? 1,B??? 2,B??? 3,D??? 4,A???? 5,D??? 6,B???? 7,B??? 8,C??? 9,D?Private Sub Command1_Click()
Form1.FontName = 宋体
Form1.Print 中文字体宋体
End Sub
Private Sub Command2_Click()
Form1.FontName = 楷体_GB2312
Form1.Print 中文字体楷体
End Sub
Private Sub Command3_Click()
Form1.FontName = 仿宋_GB2312
Form1.Print 中文字体仿宋
End Sub
?P57? 习题二
一,判断题?? ??对1, 3, 7,10,14???错2,4,5,6,8,9,11,12,13?二,单选题?? 1,A??? 2, C???? 3, C???? 4, B???? 5,B?? 6,A??? 7, B ???? 8, C???? 9, B???? 10, C?? 11, C?? 12, D??? 13, B??? 14, A??? 15, D?? 16, B?? 17, B??? 18, C? ??? 19, B?? 20, B? 21, B???? 22, D?? 23, A ???? 24, C? ?? 25, B? 26,???? 27, D??? 28, B??? 三,简答题–a)*(s–b )*(s - c))
(3) ( A*A + B*C*(X +Y)) / (A+B)
(4) ( 2* 3.14159*r +Exp(-5))* Log(x)
(5) 1/( x + 1/(y+1) )
(6) k / ( 1 + a * Exp(-b*x) )
(7) Cos(alfa) ^ 2 + Atn(alfa)
(8) Sqr( y^3 + 3 * (a*a+b*b) / (x*x+y*y) )
2. (1) (a+b) Mod c (2) Sqr(Abs(x))
(3) Int(x) + 1 (4) Int(Rnd *101)+200
??? 3。? (1)? F??? (2) T???? (3) F??? (4)? T(1)(2)()()()()Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Dim y As Single
a = InputBox(请输入正整数a的值)
b = InputBox(请输入正整数b的值)
c = InputBox(请输入正整数c的值)
y = (a + b + c) / 3
Print 平均值: ; y
End Sub
2.
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dimy As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
y = (a + b + c) / 3
Label1.Caption = Str(y)
End Sub
3. Private Sub Form_Click()
Dim r As Integer, s As Single
Const Pi = 3.14159
r = InputBox(输入圆半径)
s = Pi * r * r
MsgBox 圆面积 Area = + Str(s)
End Sub
P114 习题三?一,? 1,A??? 2,B??? 3,B??? 4,A????? 5,C??? 二,1,??? 37,55,64,28,19
?????? 2,??? y=KIGECA
?????? 3,???? 1???????????? ? 121????
您可能关注的文档
最近下载
- 骨科临床入门知识培训课件.pptx
- 2020年国家义务教育质量监测科学学习质量监测结果报告.pdf
- JTG 3432-2024公路工程集料试验规程培训课件_粗集料.pptx
- 标准差未知时计量抽样和分层计量抽样推定区间上限值与下限值系数(正式).docx VIP
- 2022年广西科技大学计算机科学与技术专业《计算机网络》科目期末试卷A(有答案).docx VIP
- 2024年河北省继续医学教育公共必修课参考答案.docx VIP
- 2023年广西科技大学计算机科学与技术专业《计算机网络》科目期末试卷B(有答案).docx VIP
- 2023年广西科技大学计算机科学与技术专业《计算机网络》科目期末试卷A(有答案).docx VIP
- 10S管理培训资料.ppt
- Unit 1 Laugh out loud! 单词教学 教学设计-2023-2024学年高中英语外研版(2019)选择性必修第一册.docx
文档评论(0)