首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有4个文本框,名称分别为Text1、Text2、Text3、Text4,和1个名称为Command1的命令按钮,然后编写如下程序代码: Private Sub Command1_Click() Dim year%, month%, days
在窗体上有4个文本框,名称分别为Text1、Text2、Text3、Text4,和1个名称为Command1的命令按钮,然后编写如下程序代码: Private Sub Command1_Click() Dim year%, month%, days
admin
2020-06-30
25
问题
在窗体上有4个文本框,名称分别为Text1、Text2、Text3、Text4,和1个名称为Command1的命令按钮,然后编写如下程序代码:
Private Sub Command1_Click()
Dim year%, month%, days%
year = Val(Text1)
month = Val(Text3)
For k = 1 To month - 1
Select Case k
Case 1, 3, 5, 7, 8, 10:
days = days + 1
Case 4, 6, 9, 11:
days = days + 30
Case 2:
days = days +______________
End Select
Next k
Text4 = days
End Sub
Function LeapYear(x As Integer) As Integer
If x Mod 400 = 0 Or x Mod 4 = 0 And x Mod 100 <> 0 Then
LeapYear = 1
Else
LeapYear = 0
End If
End Function
程序的功能是在Text1、Text2、Text3中分别输入年、月、日,然后单击命令按钮,则可在Text4中显示该天是当年的第几天,如图所示。程序不完整,在横线上应填写的是
选项
A、28
B、29
C、28 + LeapYear(year)
D、LeapYear(year)
答案
C
解析
通过Val函数,将输入的三个字符串,转化成数字,分别赋值给year,month,days。 For循环用于累加从1第个月到第month-1个月的天数,Case根据月份k判断该月份的天数,空白处需要填写的是2月份的总天数。函数LeapYear,当为闰年时,返回值LeapYear为1,否则返回值为0,故28 + LeapYear(year)是2月份的总天数,当闰年时,2月份为29天,否则,为28天,故C项正确,其他选项错误。
转载请注明原文地址:https://kaotiyun.com/show/IIHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:32437658281298573142536475869713243546576879805937
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个图片框,名称为P1、P2,分别用来表示信号灯和汽车,如图1-25所示,其中在P1中轮流装入“黄灯.ico”、“红灯.ico”、“绿灯.ico”文件来实现信号灯的切换;还有两个计时器Timer1和T
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图1-257所示)。程序运行
在利用菜单编辑器设计菜单时,为了把组合键设置为“打开(O)”菜单项的访问键,可以将该菜单项的标题设置为()。
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str=“ABCDABCD”,ch=“B”,则函数的返回值为:“ACDACD”Functiondelchar(strAsString,chAsStri
关于随机文件,以下叙述中错误的是()。
下列控件属性中,属性值的类型不相同的一项是()。
开发软件所需高成本和产品的低质量之间有着尖锐的矛盾,这种现象称做()。
下面能作为软件需求分析工具的是
随机试题
抗日根据地建设的首要的、根本的任务是()
A.姜科蓬莪术、温郁金、广西莪术的根茎B.姜科姜黄的根茎C.姜科温郁金的根茎纵切片D.姜科姜黄、郁金、温郁金、广西莪术或蓬莪术的块根E.姜科姜黄的块根莪术是
对于国家法律法规和行政规章规定需要()的特殊法人机构,可按规定向中国证券登记结算有限责任公司申请开立多个证券账户。
若盈亏临界点作业率为60%,变动成本率为50%,安全边际量为1200台,单价为500元,则正常销售额为()万元。
分析图中的谱例。要求:(1)判断调式调性。(2)划分歌曲的乐句,用字母标记并注明每乐句起止的小节数。(3)说明该乐段的主要结构特点。
WhichofJohnBunyan’sworkisknownas"theencyclopediawitheternalsignificance"?
2011年全年,全国共计完成服装总产量436亿件,其中梭织服装(含皮革服装)146亿件;针织服装290亿件,与2010年相比分别增加0%、-0.68%、0.35%。2011年,我国服装产量前五名大省仍为广东、江苏、浙江、山东和福建省,该五省总产量占全国总产
建立、发送电子邮件,“收信人”和“收信人地址”分别是“ncre”和“ncre@163.com”,邮件内容为“祝您成功”,并在邮件中插入附件,附件地址为:C:\MyDocuments\附件.zip。
Wheredoestheconversationmostprobablytakeplace?
MustLoveDogsGenre;ComedyandRomanceStarring;DianeLane,JohnCusack,DermotMulroney,ElizabethPerkinsDirectedBy:Gary
最新回复
(
0
)