星座查询编程（用java编程星座查询）

admin 2022年11月24日 10:12 75 0

本文目录一览：

1、VB 星座查询代码
2、星座运势c语言，c语言switch语句编写星座的例题
3、汇编程序设计星座查询系统

VB 星座查询代码

Private Sub Command1_Click()

Dim str1 As String, d1 As Date, i As Integer, xz

xz = Array("白羊座", 3, 21, 4, 20, "金牛座", 4, 21, 5, 20, "双子座", 5, 21, 6, 21, _

"巨蟹座", 6, 22, 7, 22, "狮子座", 7, 23, 8, 22, "处女座", 8, 23, 9, 22, _

"天秤座", 9, 23, 10, 22, "天蝎座", 10, 23, 11, 21, "射手座", 11, 22, 12, 21, _

"摩羯座", 12, 22, 12, 31, "摩羯座", 1, 1, 1, 19, "水瓶座", 1, 20, 2, 18, _

"双鱼座", 2, 19, 3, 20)

str1 = txtMonth "-" txtDay

If IsDate(str1) Then

'd1 = CDate(str1)

For i = 0 To UBound(xz) Step 5

If Val(txtMonth) = xz(i + 1) And Val(txtDay) = xz(i + 2) _

And Val(txtMonth) = xz(i + 3) And Val(txtDay) = xz(i + 4) Then

MsgBox "你查询的" str1 "的星座" xz(i), vbOKOnly, "星座查询"

Exit For

End If

Next i

Else

MsgBox "你输入的数据" str1 "不是日期！", vbOKOnly, "星座查询"

End If

End Sub

星座运势c语言，c语言switch语句编写星座的例题

提起星座运势c语言，大家都知道，有人问c语言switch语句编写星座的例题，另外，还有人想问C语言编的星座程序，你知道这是怎么回事？其实星座运势查询每日更新，下面就一起来看看c语言switch语句编写星座的例题，希望能够帮助到大家！

星座运势c语言

1、星座运势c语言:c语言switch语句编写星座的例题

首先，你的程序有问题！printf后面没有那个冒号。

#include

main()intscanf(“%d”,k);

switch(k)case

1:printf(“%d\n”,k++);

case

2:printf(“%d\n”,k++);

case

3:printf(“%d\n”,k++);

case

4:printf(“%d\n”,k++);

break;

default:printf(“FULL!\n”);return}

/////////////输入

进入case

1，输出1

k变成2，进入case

2，输出2

k变成3，进入case

3，输出3

k变成4，进入case

4，输出4

遇到break，退出switch。

输入3过程是一样的，只是从case

3开始，输出：

2、星座运势c语言:C语言编的星座程序

没什么错误啊。。。

//if((p.birthp.birth=p.birthp.birth=p.birth=))

你把那句注释了。当然就有错误了。

3、星座运势c语言:星座运势查询每日更新

白羊座运势概述

，工作上，会处于“这山望着那山高”的状态，既对现在的工作不满意，但是又无法找到更好的工作；感情上，彼此的爱都很稳定，可以步入婚姻了；健康上，会有高血压的情况；财运上，上升。

金牛座运势概述

，工作上，对于老板吩咐下来的事情，好好做就好了，不要问太多为什么；感情上，可以和之心朋友聊聊自己感情问题，诉诉苦，不会那么郁闷；健康上，容易出现失眠现象；财运上，一般。

双子座运势概述

，工作上，所谓的职场成功学并不适合所有人，你一定要找到自己的长处而努力发挥；感情上，容易在聚会上认识到心动的人，可以展开攻势；健康上，不要从事激烈运动，很容易拉伤；财运上，下降。

巨蟹座运势概述

，工作上，会有贵人相助，但是前提是你要有一颗乐于助人的心；感情上，不要将工作上的不顺心发泄到恋人的身上，要多多考虑对方的感受；健康上，略有疲惫之感；财运上，下降。

狮子座运势概述

，工作上，在签署各项协议的时候，一定要看好每一项条约，万万不可掉以轻心；感情上，可以带恋人好好认识一下自己的朋友，对恋情的巩固很有好处；健康上，多喝凉茶；财运上，下降。

处女座运势概述

，工作上，工作的时候就专心工作，不要一心二用，会严重影响工作效率；感情上，会出现同时爱上两个人的现象，一定要想清楚，到底谁才是自己真正爱的人；健康上，小心皮肤病；财运上，多学习理财知识。

天秤座运势概述

，工作上，不适合偷懒的，很容易被老板发现，被训一顿的可能性很大；感情上，虽然有恋人了，可是还会遇到心动的人；健康上，精神状态非常不错；财运上，适合小规模投资。

天蝎座运势概述

星座运势查询每日更新

，工作上，许多项目都按照预想中进行，只不过你需要更多人的提携才有可能升职；感情上，彼此要共同走过的路还很长，需要承受的压力也很大；健康上，注意多休息；财运上，上升。

射手座运势概述

，工作上，人际关系面临危机，需要你在上面花更多的心思，可以考虑适当送送礼；感情上，虽然已经是“老夫老妻”了，但适当地耍一下小浪漫还是必须的；健康上，平稳；财运上，下降。

摩羯座运势概述

，工作上，在新团队中站稳脚跟并开始得到重用，但是你要找好属于自己的位置；感情上，会遇到前任纠缠的现象，一定要好自己的立场；健康上，注意饮食卫生；财运上，下降。

水瓶座运势概述

，工作上，不要过分依赖别人的帮助，这样你永远都不能自己处理事情；感情上，容易有误会发生，当天就解释清楚，拖了问题更多；健康上，身体有轻微的反应；财运上，上升。

双鱼座运势概述

，在工作上，对工作的热情降低，你需要寻找新的挑战；感情上，适合喜结良缘的，是办得闹闹的，毕竟相爱一场很不容易；健康上，身体状况走低；财运上，进入积累期。

了解更多星座运势查询请进入：

以上就是与c语言switch语句编写星座的例题相关内容，是关于c语言switch语句编写星座的例题的分享。看完星座运势c语言后，希望这对大家有所帮助！

星座查询编程（用java编程星座查询）-第1张图片-星缘配

汇编程序设计星座查询系统

;哥们,你的课题也太麻烦了......不过,还是做出来了!!!

;

;用MASM 5.0编译

;文件输出格式如下:

;ZZZZZZZZZ 2.22 双鱼座 Pisces

;DDDDDDDDD 3.13 双鱼座 Pisces

;aaaaaaaaa 1.22 水瓶座 Aquarius

;VVVVVVVVV 5.23 双子座 Gemini

;汇编程序设计星座查询系统

; 悬赏分：50 - 离问题结束还有 15 天 9 小时

;功能描述：

; 通过输入姓名，月份日期输出相应的星座。如输入:04-19，输;出:Aries。

; 输入Q 结束退出。同时把刚才的查询结果保存在quary.txt文档中。

;文档中的格式为：

;姓名生日星座

;

;星座日期信息如下：

;星座日期(公历) 英文名

;魔羯座 (12/22 - 1/19) Capricorn 29

;水瓶座 (1/20 - 2/18) Aquarius 29

;双鱼座 (2/19 - 3/20) Pisces 30-31

;牡羊座 (3/21 - 4/20) Aries 31

;金牛座 (4/21 - 5/20) Taurus 30

;双子座 (5/21 - 6/21) Gemini 32

;巨蟹座 (6/22 - 7/22) Cancer 31

狮子座 (7/23 - 8/22) Leo 31

;处女座 (8/23 - 9/22) Virgo 31

;天秤座 (9/23 - 10/22) Libra 30

;天蝎座 (10/23 - 11/21) Scorpio 30

;射手座 (11/22 - 12/21) Sagittarius 30

;

;这个不会做额，哪位高手能在元旦假之前教我做呀？急用额，帮帮忙！

;能运行的话一定追加分感谢

;问题补充：邮箱651325419@qq.com

;

; 1.20 2.19 3/4/5.21 6/11/12.22 7/8/9/10.23

;

data segment

DIAN DB '.' ;"月.日"

KONG DB 5 DUP (' ') ;5个空格

xz_long EQU 12+7 ;整个xz 中单个XZ的长度

;file db 'czr.txt',0

file db 'quary.txt',0

handle dw ?

ERR1 db 0dh,0ah,'Creat file Error!$'

xz db '水瓶座 Aquarius $双鱼座 Pisces $牡羊座 Aries $金牛座 Taurus $双子座 Gemini $巨蟹座 Cancer $狮子座 Leo $处女座 Virgo $天秤座 Libra $天蝎座 Scorpio $射手座 Sagittarius$魔羯座 Capricorn $'

buff1 db 10,11 dup (0) ;input name

buff2 db 3,4 dup (0) ;input month

buff3 db 3,4 dup (0) ;input day

m1 db 0 ;month

d1 db 0 ;day

CRLF DB 0dh,0ah,'$'

file_ptr dw ? ;write position from string xz

s1 db 0dh,0ah,0dh,0ah,' Name: $'

s2 db 0dh,0ah,'Month: $'

s3 db 0dh,0ah,' Day: $'

W_F_BUFF DB 0DH,0AH

data ends

code segment

assume cs:code, ds:data

main proc far

start:

push ds

xor ax,ax

push ax

mov ax,data

mov ds,ax

;--------------------------------------FFFFFFFFFFF

mov dx,offset file

mov al,2 ;r/w mode

mov ah,3dh ;open file

int 21h

jc error ;open file error

mov handle,ax ;save handle

jmp w_file

error:

mov dx,offset file

mov cx,0 ;file attr

mov ah,3ch ;creat file

int 21h

jc error_1

mov handle,ax ;save handle

jmp w_file

error_1:

mov ah,09

lea dx,ERR1 ;disp 'Creat file Error!$'

int 21h

jmp END_D

w_file:

mov ah,42h ;shift file w/r ptr

mov bx,handle

mov al,2 ;set w/r ptr to file eof

mov cx,0

mov dx,0

int 21h

;--------------------FFFFFFFFFFFFFFFFFFFFFFFF

;-------------------------

START_1:

mov ah,09

mov dx ,offset s1 ;input name

int 21h

mov ah,0ah

mov dx,offset buff1

int 21h

;

MOV BX ,offset BUFF1+1 ;判断是否输入'Q'退出

MOV AL,[BX]

CMP AL,1

JNE NO_QUIT

INC BX

MOV AL,[BX]

CMP AL,'Q'

JNE NO_QUIT

JMP END_D

NO_QUIT:

;

mov ah,09

mov dx ,offset s2 ;input month

int 21h

mov ah,0ah

mov dx,offset buff2

int 21h

mov bx,offset buff2+1

mov al,[bx]

cmp al,2 ;is 2 wei?

jl is1

mov ah,10

inc bx

mov al,[bx]

sub al,30h

add ah,al

mov m1,ah ;save month (2wei)

jmp m_end

is1:

inc bx

mov al,[bx]

sub al,30h

mov m1,al ;save month (1wei)

m_end:

;

mov ah,09

mov dx ,offset s3 ;input day

int 21h

mov ah,0ah

mov dx,offset buff3

int 21h

mov bx,offset buff3+1

mov al,[bx]

cmp al,2 ;is 2 wei?

jl is1_1

inc bx

mov al,[bx]

sub al,30h

mov dl,10

mul dl

inc bx

mov ah,[bx]

sub ah,30h

add al,ah

mov d1,al ;save day (2wei)

jmp d_end

is1_1:

inc bx

mov al,[bx]

sub al,30h

mov D1,al ;save day (1wei)

d_end:

MOV AH,09

MOV DX,OFFSET CRLF

INT 21H

mov dx,offset xz

mov ax,0

mov al,m1

DEC AL

call pd ;根据日判断AL是否减1或加12（如果是1月）

mov bl,xz_long ;xz中每一个XINZHUO CHANG

MUL BL

add dx,ax

mov file_ptr,dx ;save position went write to file from string xz

moV ah,09

int 21h

;

;-------------------------

mov cx,2

mov dx,offset crlf ;CRLF write TO file

mov ah,40h ;write file

mov bx,handle

INT 21H

mov dx,offset buff1 ;NAME write TO file

call file_w

mov ah,40h ;write 5 BLANK

mov Dx,OFFSET KONG

mov CX,5

mov bx,handle

INT 21H

mov dx,offset buff2 ;MONTH write TO file

call file_w

mov ah,40h ;write "."

mov Dx,OFFSET DIAN

mov CX,1

mov bx,handle

INT 21H

mov dx,offset buff3 ;DAY write TO file

Call file_w

mov ah,40h ;write 5 BLANK

mov Dx,OFFSET KONG

mov CX,5

mov bx,handle

INT 21H

MOV CH,0

mov CL,xz_long-1

mov dx,file_ptr

mov ah,40h ;XZ write TO file

mov bx,handle

INT 21H

JMP START_1

END_D:

mov ah,3eh ;close file

mov bx,handle

INT 21H

ret

main endp

;-------------------------------

file_w proc near

mov ah,40h ;write file

mov bx,dx

inc bx

mov ch,0

mov cl,[bx]

add dx,2

mov bx,handle

INT 21H

ret

file_w endp

;-----------------------------------

;==============================

PD PROC NEAR ;根据输入的"月日"做判断子程序

; 1.20 2.19 3/4/5.21 6/11/12.22 7/8/9/10.23

MOV AH,M1

CMP AH,1

JE YUE_1

CMP AH,2

JE YUE_2

CMP AH,3

JE YUE_345

CMP AH,4

JE YUE_345

CMP AH,5

JE YUE_345

CMP AH,6

JE YUE_61112

CMP AH,11

JE YUE_61112

CMP AH,12

JE YUE_61112

CMP AH,7

JE YUE_78910

CMP AH,8

JE YUE_78910

CMP AH,9

JE YUE_78910

CMP AH,10

JE YUE_78910

; 1.20 2.19 3/4/5.21 6/11/12.22 7/8/9/10.23

YUE_1:

MOV AH,D1

CMP AH,20

JL ADD11

JMP RET_PD

ADD11:

ADD AL,11

JMP RET_PD

;

YUE_2:

MOV AH,D1

CMP AH,19

JL AL_DEC1

JMP RET_PD

YUE_345:

MOV AH,D1

CMP AH,21

JL AL_DEC1

JMP RET_PD

YUE_61112:

MOV AH,D1

CMP AH,22

JL AL_DEC1

JMP RET_PD

YUE_78910:

MOV AH,D1

CMP AH,23

JL AL_DEC1

JMP RET_PD

AL_DEC1:

DEC AL

RET_PD:

RET

PD ENDP

;==============================

code ends

end start

标签：星座查询编程

本文地址： https://www.gzfsc.cn/post/xza9891057e8a856cc.html

文章来源： admin