首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有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
50
问题
在窗体上有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全国计算机二级
相关试题推荐
执行下面程序,第一行输出结果是【】,第二行输出结果是【】。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriva
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后输写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7z=0Text1.Text="
某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为
下列程序的作用是将三个数按从大到小进行排序,请填空。Ifa<bThend=aa=bb=dEndIfIfa<cThend=aa=cc=d
假定在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求在执行事件过程Command1_Click()时,在顺
软件开发的结构化生命周期方法将软件生命周期划分成
软件是程序,数据和______的集合。
长度为n的顺序存储线性表中,当在任何位置上插入一个元素概率都相等时,插入一个元素所需移动元素的平均个数为______。
数据库管理系统常见的数据模型有层次模型、网状模型和【】3种。
随机试题
FederalregulatorsWednesdayapprovedaplantocreateanationwideemergencyalert(警报)systemusingtextmessagesdeliveredto
人眼视觉最大的灰阶等级范围是
表现为气血两亏者,多是哪两脏同病
一位来访者单位的同事,要求了解当事人心理治疗的情况,心理治疗师婉言谢绝,这是因为( )
建筑安装工程直接工程费中的人工费包括( )。
关于证券公司制定经理层工作章程,下列各项正确的有( )。
VoIP是一种利用区域或互联网进行交换话音信号的技术服务,在专用的电话上可以采用IP网络,以VoIP模式进行通话,是一种较便宜的跨地区电话联系方式,适用于个人、家庭或商业机构用户。支持该技术服务的首要条件就是一个稳定的网络环境和宽带网络,在发达国家A国(其
XYZ会计师事务所接受委托对ABC股份有限公司2005年度会计报表进行审计,在审计的时候需要进行监盘等其他审计程序,并且发现了被审计单位期后的一些重大事项,请代注册会计师作出判断。资料一:2005年12月31日,助理人员叶子然经注册会计师何琳的安排
数字信封技术能够()。
A、Itiseasyfromtheverystart.B、Itimproveshiscomputerknowledge.C、Itisverycomplicatedforhim.D、Itbecomeseasieron
最新回复
(
0
)