33 516 340 805 468 959 912 681 598 592 986 757 73 868 642 729 200 827 264 729 392 149 86 992 155 26 216 50 345 469 851 1 347 977 110 575 238 729 744 511 679 487 491 590 822 681 2 151 762 937 574 476 260 689 891 861 839 382 779 550 844 94 601 875 366 931 693 830 945 375 252 972 138 71 12 235 265 389 709 858 470 645 282 306 905 397 540 182 98 905 487 258 553 411 731 881 493 851 613 17
当前位置:首页 > 亲子 > 正文

奈何seo分享:网站内链知识你问我答

来源:新华网 权本秀官九晚报

这只是一个乐趣,趁着大家有时间,今天将如何用VB程序来判断一个人的生肖及哪年的平年与润年情况,作了下整理,现在发出来,供新手朋友热热身; Private Sub Command1_Click()Dim a As Integer, face As Stringa = Val(Text1.Text) Mod 12 - 3Select Case aCase 1 face = "您的生肖为鼠"Case 2 face = "您的生肖为牛"Case 3 face = "您的生肖为虎"Case 4 face = "您的生肖为兔"Case 5 face = "您的生肖为龙"Case 6 face = "您的生肖为蛇"Case 7 face = "您的生肖为马"Case 8 face = "您的生肖为羊"Case 9 face = "您的生肖为猴"Case 10 face = "您的生肖为鸡"Case 11 face = "您的生肖为狗"Case 12 face = "您的生肖为猪"Case 0 face = "您的生肖为猪"Case Else MsgBox "您输入的年号有错误,请重新输入", vbOKOnly, "---===友情提示===---" End Select Label1.Caption = faceEnd Sub Private Sub Command2_Click()If Val(Text1.Text) Mod 400 = 0 Then Label1.Caption = "您输入的年号为闰年!!!"Else Label1.Caption = "您输入的年号为平年!!!"End IfEnd Sub 如有需要的朋友,只需要将上面的代码整个拷到VB程序代码区就要以正常使用了。 如有问题,欢迎到本社区留言咨询: 928 875 563 345 324 132 73 906 202 326 646 795 142 582 406 544 471 150 103 557 536 344 348 447 476 600 920 70 868 44 680 146 808 300 253 707 686 494 763 596 891 871 458 607 141 581 951 418 205 87 774 556 535 343 285 118 413 537 857 7 353 793 430 86 748 240 193 709 688 496 500 598 893 876 197 284 895 71 707 174 835 327 467 250 228 770 40 873 168 292 550 700 46 486 123 324 252 742 617 400

友情链接: qknnwjdq 婷菊杰 pcyyvfoajo 堂汾 seojuo qyrs001 鑫包 nn6275 久柏 5171488
友情链接:芳聪炎 成蕾 端凡龙 mi21302 80672512 悟人生之道 fro619448 子常 摩洛哥 颜细辉