首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有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
61
问题
在窗体上有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全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在窗体上画出2个名称分别为Shape1、Shape2的形状控件,在属性窗口设置控件的属性,使得Shape1为圆角矩形,并填充红色(&H000000FF&);Sha
考生文件夹下有一个工程文件sjt5.vbp。运行程序后,从文件中读出数据,放入5×5的二维数组a中。请编写程序,找出a数组中每行的最大值及该值在行中的次序(即列下标),并将所找到的结果分别保存到一维数组b、c中(a第一行的最大值保存在b(1)中,最大值
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“控件数组”的窗体上,画一个名称为Cmd1的控件数组,该控件数组由三个命令按钮组成,其标题分别是“插入”、“删除”、“更新”,索引号分别为
在考生文件夹下有一个工程文件vbsj5.vbp。运行程序时,在文本框中输入一个素数,然后单击“查找”命令按钮,找出小于给定素数的三个最大的素数,并显示在标签控件数组lblResult中,如图1-246所示。要求:工程文件中已给出部分程序,其中
在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、rext2、Text3,以及部分程序代码,请完成以下工作。①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用,窗体如图
有下面程序代码:PrivateSubCommand1_Click()DimxAsInteger,sAsIntegerx=1Fork=1To3x=x+1
为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为( )。
下面不属于软件需求分析阶段主要工作的是
以下打开VisualBasic菜单编辑器的操作中,错误的是( )。
以下程序段的功能是:从文本框中输入一个数值,如果该数值满足“除以4余1,除以5余2”的条件,则在窗体上输出文本框中的数值,否则,将焦点定位在文本框中,并清除文本框的内容,在横线处应填写()。PrivateSubCommandl_Click()
随机试题
焊缝金属中的硫、磷有哪些危害性?如何脱硫、脱磷?
Onlyinthisway______tomakeimprovementintheoperatingsystem.
面色青与面色白的共同主病是
饮水型地砷病区多位于低洼平原和盆地,这类病区的主要成因是
血清壁细胞抗体阳性多见于哪种疾病
乙胺嘧啶的化学结构中有左旋咪唑的化学结构中有
下列说法错误的是()。
依据人的认知阶段的不同,可以将法律意识分为()(2009年综合课单选第11题)
设曲线L位于xoy平面的第一象限内,L上任一点M处的切线与y轴总相交,交点记为A,已知求L的方程.
Hewastemptedbythehighsalaryofferedbythecompany.
最新回复
(
0
)