2012Vicialbasic编程复习题.docVIP

下载本文档

9
0
约8.8千字
约 13页
2017-05-23 发布于河南
举报
版权申诉

2012Vicialbasic编程复习题.doc

1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

2012Vicialbasic编程复习题

分支： 1给定年份和月份，判断该年是否是闰年。并根据给出的月份判断是什么季节、该月有多少天。（闰年的条件是：年份能被4整除但不能被100整除或能被400整除）Private Sub Command1_Click() Dim a As Integer ‘a 代表年 Dim b As Integer ‘b 代表月份 a = Val(Text1.Text) b = Val(Text2.Text) If a Mod 4 = 0 And a Mod 100 0 Or a Mod 400 = 0 Then Text3.Text = 此年为闰年 Else Text3.Text = 此年不为闰年 End If Select Case b Case 1 To 3 Text4.Text = 此月为春季 Case 4 To 6 Text4.Text = 此月为夏季 Case 7 To 9 Text4.Text = 此月为秋季 Case 10 To 12 Text4.Text = 此月为冬季 Case Else Text4.Text = 输入错误 End Select Select Case b Case 1, 3, 5, 7, 8, 10, 12 Text5.Text = 此月有31天 Case 4, 6, 9, 11 Text5.Text = 此月有30天 Case 2 If a Mod 4 = 0 And a Mod 100 0 Or a Mod 400 = 0 Then Text5.Text = 此月有29天 Else Text5.Text = 此月有28天 End If Case Else Text5.Text = 输入错误 End Select End Sub 2编写程序，输入学生的姓名、学号和成绩（高数、英语和专业课），判断该学生能获得几等奖学金，并输出结果。获奖条件是：一等奖学金要求所有成绩在95分以上；二等奖学金要求所有成绩在90分以上；三等奖学金要求所有成绩在88分以上。Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) Text4.Text = Text5.Text = If a 95 And b 95 And c 95 Then Text6.Text = 此同学获得一等奖学金 ElseIf a 90 And b 90 And c 90 Then Text6.Text = 此同学获得二等奖学金 ElseIf a 88 And b 88 And c 88 Then Text6.Text = 此同学获得三等奖学金 Else Text6.Text = 此同学不能获得奖学金 End If End Sub 3编写一个程序输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦：（1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为过瘦。Private Sub Command1_Click() Dim a As Single Dim b As Single Dim c As Single a = Val(Text1.Text) b = Val(Text2.Text) c = b - 110 Text3.Text = c If a c + 5 Then Text4.Text = 过胖 ElseIf a c - 5 Then Text4.Text = 过瘦 Else Text4.Text = 标准 End If End Sub 4征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。Private Sub Command1_Click() Dim sb As String Dim sg As Single Dim nl As Single sb = Text1.Text sg = Val(Text2.Text) nl = Val(Text3.Text) If sb = 男 And sg = 1.65 And nl = 18 And nl = 20 Or sb = 女 And sg = 1.6 And (nl = 16 And nl = 18) Then Label1.Caption = 符合征兵条件 Else Label1.Caption = 不符合征兵条件 End If End Sub用三个文本框控件分别输