首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有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
28
问题
在窗体上有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
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Image1的图像框,再画一个名称为Command1、标题为”退出”的命令按钮。通过属性窗口设置图像框的属性,将考生文件夹下
在考生目录下有一个工程文件sjt5.vbp。其功能是产生并显示一个数列的前n项。数列产生的规律是:数列的前2项是小于10的正整数,将此2数相乘,若乘积<10,则以此乘积作为数列的第3项;若乘积≥10,则以乘积的十位数为数列的第3项,以乘积的个位数为数
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个文本框,名称为Text1,字体为“黑体”,文本框中的初始内容为“程序设计”;再画一个命令按钮,名称为C1,标题为“改变字体”(如
在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
在考生文件夹下有一个工程文件sjl5.vbp,窗体上有2个标题分别是“读数据”和“查找质数”的命令按钮。请画1个名称为Text1、初始值为空的文本框,该文本框允许显示多行内容,且有垂直滚动条,如图3-36所示。程序功能:(1)考生文件
一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为( )。
设有如下函数:FunctionDelSpace(chAsString)AsInteger Dimn%,st$,c$ st="" n=0 Fork=1ToLen(ch) c=Mid(ch,k,1) I
设有变量声明为”DimaDateAsDate”,则能为变量aDate正确赋值的表达方式是()。
下面对软件测试描述错误的是
随机试题
这一城内,十停人倒有八停人都说:他近日和衔玉的那位令郎相与甚厚。停:
砖红色胶冻样痰主要见于
男性,68岁,饮酒后不能自行排尿5小时急诊住院,体检见耻骨上包块,有轻压痛。要确诊病因,最简便的影像学检查是
我国尚未加入的外空公约是:
全色谱双绞通信电缆的芯线由纯电解铜制成,一般为软铜线。其部颁标称线径有()。
【背景资料】某工程建设项目,由某工程有限公司承建,项目经理为该公司的一级建造师杨某,生产经理为助理工程师林某。经业主同意,本工程防水、装饰装修、幕墙等专业工程由施工方分包给专业分包方进行施工。施工过程中,发生了如下事件:事件一
如图5所示,理想变压器原线圈接电压为220V的正弦交流电,开关S接1时,原副线圈的匝数比为11:1,滑动变阻器接入电路的阻值为10Ω,电压表和电流表均为理想电表,则()。
浮点数加法流水线运算器依次由减阶、对阶、(54)和尾结果规格化四个部件组成。设每个部件处理时间△T相等,△T=2ns。当处理两个浮点数向量和 Ai=Bi+Ci(i=0,1,…,11)时,所需要的总时间为(55)ns,平均吞吐率为(56)分量/ns,流水线加
下图是网络地址转换NAT的一个示例图中①和②是转换前后的地址,它们依次应为()。
What’sthemainpurposeofthetalk?
最新回复
(
0
)