PHP网页输入年份查找生肖,vb十二生肖程序 根据年份的输入便可以查询到你是什么生肖...
VERSION 5.00
Begin VB.Form Form1
Caption = "生肖查询"
ClientHeight = 1695
ClientLeft = 60
ClientTop = 345
ClientWidth = 4245
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 1695
ScaleWidth = 4245
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command2
BackColor = &H00FFC0C0&
Caption = "退出"
Height = 450
Left = 2250
Style = 1 'Graphical
TabIndex = 3
Top = 1080
Width = 1395
End
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "生肖"
Height = 450
Left = 510
Style = 1 'Graphical
TabIndex = 0
Top = 1080
Width = 1395
End
Begin VB.Label Label1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 105
TabIndex = 2
Top = 315
Width = 3180
End
Begin VB.Label Label2
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 3315
TabIndex = 1
Top = 315
Width = 810
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
'Download by http://down.liehuo.net
Dim Year As Integer
Dim Name As Integer
Year = Val(InputBox("请输人出生年份:", "生肖查询", 1977))
Label1.Caption = "您是" & Str(Year) + "年出生的生肖为:"
Name = Year Mod 12
Select Case Name
Case 4
Label2.Caption = "鼠"
Case 5
Label2.Caption = "牛"
Case 6
Label2.Caption = "虎"
Case 7
Label2.Caption = "兔"
Case 8
Label2.Caption = "龙"
Case 9
Label2.Caption = "蛇"
Case 10
Label2.Caption = "马"
Case 11
Label2.Caption = "羊"
Case 0
Label2.Caption = "猴"
Case 1
Label2.Caption = "鸡"
Case 2
Label2.Caption = "狗"
Case 3
Label2.Caption = "猪"
End Select
End Sub
Private Sub Command2_Click()
End
End Sub
PHP网页输入年份查找生肖,vb十二生肖程序 根据年份的输入便可以查询到你是什么生肖...相关推荐
- 编写程序,找出用户输入的一串数的最大数,程序需要提示用户一个一个地输入数,当用户输入0或负数时,程序显示出已输入的最大负整数:
编写程序,找出用户输入的一串数的最大数,程序需要提示用户一个一个地输入数,当用户输入0或负数时,程序显示出已输入的最大负整数: 代码 #include<stdio.h> #include& ...
- Arduino 按键输入检测,消抖示例程序
Arduino 按键输入检测,消抖示例程序 在按键未做输入信号检测的硬件时,避免不了需要对其进行消抖处理,消抖方法可以时硬件消抖或者软件消抖.物理消抖的办法有:在按键旁边并联一个电容的电路,来消抖或者 ...
- Python实现网页自动化-浏览器查找元素(二)
前言 在上一节中已经部署了Selenium+chromedriver的开发环境,在真正的开发之前,还需要学会利用浏览器来查找网页元素: 因为Selenium是通过程序来自动操控网页的控件元素,比如单击 ...
- 【程序填空题】查最贵的书和最便宜的书。【问题描述】编写程序,从键盘输入n(n<10)种书的名称和定价并存入结构体数组中,从中查找定价最高及最低的书名和定价,并输出。【输入形式】先输入书
[程序填空题]查最贵的书和最便宜的书. [问题描述] 编写程序,从键盘输入n(n<10)种书的名称和定价并存入结构体数组中,从中查找定价最高及最低的书名和定价,并输出. [输入形式] 先输入书总 ...
- Java黑皮书课后题第5章:**5.28(显示每月第一天是周几)编写程序,提示用户输入年份和代表概念第一天是周几的数字,然后在控制台显示该年各个月份的第一天是周几
5.28(显示每月第一天是周几)编写程序,提示用户输入年份和代表概念第一天是周几的数字,然后在控制台显示该年各个月份的第一天是周几 题目 题目概述 破题 代码 运行示例 题目 题目概述 5.28(显示 ...
- Java黑皮书课后题第4章:*4.17(一个月的天数)编写一个程序,提示用户输入一个年份和一个月份名称的前3个字母(第一个字母使用大写形式),显示该月中的天数。如果月份非法则显示出错信息
*4.17(一个月的天数)编写一个程序,提示用户输入一个年份和一个月份名称的前3个字母(第一个字母使用大写形式),显示该月中的天数.如果月份非法则显示出错信息 题目 题目概述 破题 运行示例 代码 题 ...
- python检索用人名查电话_创建一个将人名用作键的字典后,输入姓名查找值,返回错误...
创建了将人名用作键的字典,输入姓名查找值,返回错误. 代码: people={ 'Alice': { 'phone': '6789', 'addr': 'Ruan road 23' }, 'Mary' ...
- 题7.15:要求输入一个职工号,用折半查找法查找出该职工的姓名,从主函数输入要查找的职工号,输出该职工姓名。按职工号由小到大顺序排序,姓名顺序也随之调整
题目 本题是谭浩强<C程序设计课后习题>题7.15. 题目: 写几个函数: 1.输入10个职工的姓名和职工号. 2.按职工号由小到大顺序排序,姓名顺序也随之调整 3.要求输入一个职工号,用 ...
- 请用函数实现一个判断用户输入的年份是否是闰年的程序
def fun():year = int(input("只要你输入一个年份我就可以告诉你是否是闰年:"))# if (year % 400 == 0) or (year % 4 = ...
- VB应用程序中实现查找和替换功能
一?前言 尽管Visual Basic并不是我最喜欢的开发工具,但我喜欢它简单而又丰富的库集.每当开发一个需要处理大量文本数据的应用程序时,需要具有拼写错误纠正功能,例如,微软的Word程序,当运行& ...
最新文章
- VOC2012 分割数据 转 lmdb 格式 python 代码
- 使用Guava retryer优雅的实现接口重试机制
- python基本词汇的特点_开课吧老师为你讲解 Python都有什么优点?
- CSS3控制背景图片大小
- Mac安装IntelliJ IDEA配置go语言环境
- 几个关于oracle 11g ASM的问题
- main函数中argc和argc参数解释
- 游戏及开发人员的认识
- Android权限设置引导
- 多个if-else语句执行顺序、if-else与if-else if-else不同执行顺序、switch执行顺序
- git format-patch命令介绍
- 《曹云社》论道中国企业管理 剖析八家企业落地中台实践
- 芒果改进YOLOv7系列:首发改进特征融合网络BiFPN结构,融合更多有效特征
- 计算机凭证打印格式设置,打印凭证怎么设置纸张
- Android 软件开发时用到的一些有用软件列表
- 信息收集之基础端口扫描《诸神之眼——Nmap网络安全审计技术揭秘》总结一
- linux的yum命令无法使用在哪里下载_一行命令下载全网视频,这个命令太牛逼了!...
- Linux终端程序用c语言实现改变输出的字的颜色 (转)
- 根据GSE号在NCBI批量获取文献
- 计算机网络:验证性试验
热门文章
- 从零开始做运营-读书笔记一
- 虚拟路由器冗余协议VRRP的基本配置【学习笔记(1)】
- 执行董事和非执行董事的区别
- 我从华为身上学到的项目管理经验 -- 设计篇
- PYTHON通过高德API实现城市地址与经纬度批量转换(每十个一组查询)
- 飞机大战源码php,飞机大战源码 - 丁小未的个人页面 - OSCHINA - 中文开源技术交流社区...
- tga缩略图预览_甜蜜的缩略图预览库
- ‘__NR_sigreturn’ was not declared in this scope
- JSP页面请求和响应
- html目录链接怎么做,word目录超链接怎么做