- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《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????
您可能关注的文档
- “以路”触屏手套推广方案.doc
- “关爱地贫 携手同行”志愿服务项目系列活动.doc
- “云南白药牙膏”品牌传播策略研究.doc
- “医学免疫学“学习指导手册.doc
- “兴农杯”学术科技作品启动通知.doc
- “启明星”团队策划书(最新).doc
- “四个全面”专题及四中全会精神学习试卷.doc
- “城南花园”小区业主管理规约.doc
- “品质品鉴,展望未来”华府样板工程品鉴活动2014.4.12.doc
- “声动龙江”黑龙江省首届龙歌争霸赛项目策划案0418.doc
- 2025江浙沪居民睡眠健康小调研报告.pdf
- 毕业论文的开题报告范文.docx
- 团委活动方案(拓展).docx
- 汽车智能驾驶行业深度报告:端到端与AI共振,智驾平权开启新时代.pdf
- 小核酸行业深度:技术平台和适应症不断验证,迎来销售和临床密集兑现期-华福证券-2025.3.31-65页.docx
- 医药生物行业医疗AI专题报告二多组学篇AI技术驱动精准诊断实现重要突破-25031440页.docx
- CXO行业系列报告三寒冬已过行业需求逐步回暖-25031430页.docx
- 全国租赁市场报告2025年3月_可搜索.pdf
- 玩具行业“情绪经济”专题:创新玩法+IP赋能,重新定义玩具-华鑫证券-2025.docx
- 医疗保健行业PCAB抑制剂药物深度报告抑酸药物市场空间广阔PCAB抑制剂大有可为-25.pdf
文档评论(0)