首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有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
2015-10-23
55
问题
在窗体上有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/WPLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序运行后的输出结果是FunctionFun(n)x=n*nFun=x-11EndFunctionPrivateSubCommand1_Click()Fork=1To2y=Fun(k):Printy
下面的属性中,用于自动调整图像框中图形内容的大小的是
设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是
在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程。PrivateSubForm_load()List1.AddItem"Itern1"List1.AddItem"Iter
使图像(Image)控件中的图像自动适宜控件的大小需要
下面程序运行后,输出结果是()。PrivateSubmysub(b()AsInteger,OptionalByValnAsInteger=2)ForI=1to4b(I)=n*INextIEndSu
检查软件产品是否符合需求定义的过程称为
下列关于MDI子窗体在运行时特性的叙述错误的是()。
执行语句Open"C:\StuData.dat"For1nputAs#2后,系统
树是结点的集合,它的根结点数目是
随机试题
法院告知自诉人有权委托诉讼代理人的时限,应当是自受理案件之日起
关于胺碘酮的常见药物不良反应,下列说法正确的是
最可能的诊断为下列哪种情况不是剖宫产指征
下列符合铺床操作要求的是
V企业发行普通股2000万股,每股面值1元,每股发行价格为5元,V企业按发行收入的1%支付发行手续费、咨询费等费用。假定股票发行成功,发行收入已经全部收到,发行费用已经全部支付。则V企业应贷记“资本公积—股本溢价”7900万元。()
人为风险是指由于人类活动导致的风险。人为风险又可细分为________。
A、0B、1C、2D、3A
下列属于民事权利保护方式的是()。
设un>0,且=q存在.证明:当q>1时级数收敛,当q<1时级数发散.
A、Foodintherestaurants.B、Foodbroughtfromhome.C、Foodinthedinninghall.D、Foodcookedbyherself.B细节题。对话中父亲问女儿是否报名填写了用
最新回复
(
0
)