@[TOC(干支纪年法VB编程:输入一个年份,程序会列出从该年份开始的12年的干支纪年和生肖,希望大神帮我解释期中的关键语句)

Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer, n As Integer
Dim c1 As String, s1 As String, c2 As String, s2 As String, c3 As String, s3 As String
List1.Clear
s1 = “甲乙丙丁戊己庚辛壬癸”
s2 = “子丑寅卯辰巳午未申酉戌亥”
s3 = “鼠牛虎兔龙蛇马羊猴鸡狗猪”
n = Val(Text1.Text) '此行有1处错误
For i = n To n + 11 '此行补充填加代码
a = (i + 6) Mod 10
b = (i + 8) Mod 12
c1 = Mid(s1, a + 1, 1)
c2 = Mid(s2, b + 1, 1)
c3 = Mid(s3, b + 1, 1)
List1.AddItem Str(i) + "年 " + c1 + c2 + " " + c3
Next i
End Sub

干支纪年法VB编程:输入一个年份,程序会列出从该年份开始的12年的干支纪年和生肖,希望大神帮我解释期中的关键语句相关推荐

  1. 面试题编程输入一个年份,输出这一年2月份有多少天

    这几天面试真的是身心疲惫,大厂的一个外派安排4面,到最后我都说不动了,这是实话,下面是某厂四面的时候测试组长问我的,如何用python来实现这个算法,回答的一般吧,找个小本本记一下,万一下次再问. 题 ...

  2. c语言 输入n*n矩阵,C语言函数 编程输入一个n*n矩阵中各元素的值,找出两条对角线上的元素之和...

    题目: C语言函数 编程输入一个n*n矩阵中各元素的值,找出两条对角线上的元素之和 用函数怎么写 解答: #include #define N 5 void main() { \x09int matr ...

  3. 编写一个Java程序,对于给定的年份,回答“Leap Year”(闰年)或者“Not a Leap Year”(平年)。

    编写一个Java程序,对于给定的年份,回答"Leap Year"(闰年)或者"Not a Leap Year"(平年).如果一个年份能被4整除,但是不能被100 ...

  4. java语言打印1到10的偶数_#Java编程# 编写一个应用程序创建两个线程,一个线程打印输出1~100之间所有的奇数,另外一 求写一个用JAVA求1~...

    import java.util.Random; class A extends Thread { \tint i=1; \tRandom r=new Random(); \tpublic void ...

  5. 干支纪年法简便算法_民间玄学:那些年我理解的何谓“天干”,“地支”,“干支”...

    文/天泽子 在我很小的时候,大概6岁左右,父亲带着我跟这一方面的知识开始接触,那个时候的我不明白天干,地支是什么? 父亲的小学文化程度,只对我说"天干分别为:甲(jiǎ).乙(yǐ).丙(b ...

  6. C语言编程输入一个5位数以内的正整数,完成以下操作

    <1>判断输入的数是一个几位数 这里利用一个简单的while循环即可实现 while (x){if (x / 10 != 0)suu++;x = x / 10;} <2>按序或 ...

  7. linux 中输入一个c程序,从c源程序到Linux可执行代码的过程

    你写了一个C程序,然后用gcc编译之后得到一个可执行程序.看起来相当简单,是吗? 你有没有想过编译的过程中发生了什么,C程序怎么转变成二进制程序的呢? 其实,源程序最终成为可执行程序经历了如下4个阶段 ...

  8. java网络编程实现一个聊天程序

    网络编程 l网络模型 OSI参考模型 TCP/IP参考模型 l网络通讯要素 IP地址 端口号 传输协议 网络参考模型 网络通讯要素 lIP地址:InetAddress 网络中设备的标识 不易记忆,可用 ...

  9. Java_常瑞鹏 java_网络编程实现一个 聊天程序

    网络编程 l网络模型 OSI参考模型 TCP/IP参考模型 l网络通讯要素 IP地址 端口号 传输协议 网络参考模型 网络通讯要素 lIP地址:InetAddress 网络中设备的标识 不易记忆,可用 ...

  10. 自己做的一个简历网页,有很多bug解决不了,有没有大神帮我看看

    今年年初找工作时自己利用掌握的前端知识写了这么一个网页,但是有好多bug自己解决不了,比如二级页加载太慢.滑屏返回不了.希望有大神能帮我看一下,看看怎么解决~~~~ 网址:qyued.com 转载于: ...

最新文章

  1. 这家中国芯片公司年利润追上英伟达了?假的
  2. Foundation框架介绍
  3. Assets.car 桌面解压工具
  4. Kotlin 与 Java有什么区别(最全最新的)
  5. 20210808 滑模中常见趋近率
  6. 5.2k Star!一款 Python 实现的美观终端资源监视器
  7. 说说 RabbiMQ 的应答模式
  8. MATLAB设置x为0到10所有数,MATLAB教学_10数值微积分
  9. 今天闲着没事弄个几个表情包
  10. Starling 性能优化方案
  11. unity 入门学习之(一)创建基本的3D游戏场景
  12. ping端口的方法 - win下
  13. 初始化audio失败是什么意思_DirectXAudio初始化失败,高手看 – 手机爱问
  14. Serialize Your Deck with Positron [XML Serialization, XSD, C#]
  15. 关于固态硬盘的数据擦除
  16. This view is not constrained It is olny designtime positions,so it will jump.......的解决方法
  17. ospfdr选举规则_OSPF的DR选举
  18. vue导出excel加一个进度条_vue项目中如何把数据导出成excel文件
  19. 微信接入机器人实现对别人消息和群at消息的自动回复
  20. 【C语言】打印出一箭穿心图案(简单版)----gotoxy函数

热门文章

  1. BLS数字签名算法介绍及拓展
  2. 分区供水条件口诀_分区供水高频考点,收藏哦
  3. 合肥工贸高级技工学校计算机系,合肥工贸高级技工学校扎实推进“新技工系统培养”民生工程...
  4. ProGuard编译与使用
  5. jquery中Uncaught TypeError: $(...).ajaxUpload is not a function(…)错误解决方法
  6. [Hadoop] - SSH免密码登录
  7. Linq的Distinct太不给力了
  8. 求1+2+3+...+n(剑指 Offer 64)
  9. concat效率 mysql_MYSQL数据库mysql中or效率高还是in效率高
  10. Keil5 解决编译通过显示红叉