首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有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
63
问题
在窗体上有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全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.tim,在窗体上有一个命令按钮(名称为Command1,标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2),如图3-90所示。程序运行后,单击命令按钮,即可计
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮,然后单击“处理数据”按钮,将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中,如图3-80所示
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上建立一个如下表所示的下拉菜单,其中“设置”菜单项为灰色(不可用),如图3-137所示。注意:存盘时必须存放在考生文件夹下,工
在考生目录下有一个工程文件sjt5.vbp,其窗体如图1-83所示。考生目录下有一个in5.dat文件,文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行,顺序是:姓名、7个分数、难度系数。程序运行时,单击“输入”按钮,可把in5
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3-158(a)是输入53后的结果,如图3-158(b)是输入100的结果。已经给出了全部控件
在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
下面正确使用动态数组的是()。
软件需求分析阶段的工作,可以分为四个方面:需求获取、编写需求规格说明书、需求评审和()。
设有课程关系模式如下:R(C#,Cn,T,Ta)(其中c#为课程号,Cn为课程名,T为教师名,Ta为教师地址)并且假定不同课程号可以有相同的课程名,每个课程号下只有一位任课教师,但每位教师可以有多门课程。该关系模式可进一步规范化为()。
随机试题
调查研究的重要原则“调查的面要宽,调查所获取的信息要广”,适用的企业会计制度设计方案是()
患者,女性,45岁。因劳累性心慌气急3个月入院。体检:心尖部闻及舒张期隆隆样杂音和开瓣音。超声心动图提示二尖瓣瓣膜轻度增厚,瓣口面积0.8cm2,腱索稍增粗,其他瓣膜正常。本患者最佳的治疗方案是
患者,女,42岁,因骨盆骨折,肝破裂,失血性休克入院,治疗中出现呼吸加快,呼吸窘迫,口唇发绀,双肺闻及湿啰音,PaO2<8.0kPa。有效处理为()。
治疗虚劳脾胃阴虚者,应首选
关于《建设项目环境影响评价资质管理办法》,下列说法错误的是()。
已知某企业人力资源供给情况如下表,期初人员数量:高层领导30人、部门领导70人、业务主管120人、业务员180人。下一年预计部门领导将减少()人。
某公司的境外子公司的记账本位币为美元。本期期未汇率为1美元=6.40元人民币,当期即期汇率近似汇率(采用平均汇率确定)为1美元=6.50元人民币。子公司资产负债表中“盈余公积”项目年初余额为200万美元,折合人民币1320万元,奉期所有者权益变动表“提取盈
己公司是一家饮料生产商,公司相关资料如下:资料一:己公司2015年相关财务数据如表1所示。假设己公司成本性态不变,现有债务利息水平不表。资料二:己公司计划2016年推出一款新型饮料,年初需要购置一条新生产线,并立即投入使用。该生产线购置价格为500
水泥:建房
A、标点错误B、语法问题C、语言风格D、文章结构A
最新回复
(
0
)