抖音里测星座的小程序是什么

1 测星座的小程序是“星座大师”。

2 “星座大师”是一款专门用于测算星座运势的应用程序，通过输入你的生日和星座信息，就可以获取你的星座运势和爱情运势等详细信息。

3 除了测算星座运势，这款小程序还提供了星座匹配、星座解析、星座资讯等其他功能，可以让你更深入地了解自己的星座特性和运势走向。

Private Sub Command1_Click()

Dim c As String

c = Text1Text

If c = "张锐孙冰非" Then

MsgBox "天生一对"

Else

MsgBox "星座不合哦"

End If

End Sub

Private Sub Form_Load()

Print "窗外白云飘"

Print "念你身姿娇"

Print "欲乘风追寻"

Print "若昏迷途遥"

End Sub

Dim gsxx   As String

Private Sub Check1_Click()

If Check1Value = 1 Then

Label1(2)Visible = True

Text1(1)Visible = True

Else

Label1(2)Visible = False

Text1(1)Visible = False

End If

End Sub

Private Sub Check2_Click()

If Check1Value = 1 Then

Label1(3)Visible = True

Text1(2)Visible = True

Else

Label1(3)Visible = False

Text1(2)Visible = False

End If

End Sub

Private Sub Combo1_Click()

Dim t As String, s As String, b() As String, n As Long, m As Long

t = Combo1Text

n = InStr(gsxx, t)

'    MsgBox n

If n > 0 Then

s = Right(gsxx, Len(gsxx) - n)

m = InStr(s, vbCrLf)

s = Left(s, m)

If InStr(s, "|") > 0 Then

b() = Split(s, "|")

Text1(0) = b(1)

Text1(1) = b(2)

Text1(2) = b(3)

End If

End If

End Sub

Private Sub Form_Load()

Dim j As Long

gsxx = "请选择歌手|||" & vbCrLf

gsxx = gsxx & "张韶涵|北京|金牛|亲爱的那不是爱情" & vbCrLf

gsxx = gsxx & "张惠妹|台湾|狮子|你在看我吗" & vbCrLf

Label1(0) = "姓名"

Label1(1) = "地区"

Label1(2) = "星座"

Label1(3) = "热门金曲"

Combo1AddItem "请选择歌手"

Combo1AddItem "张韶涵"

Combo1AddItem "张惠妹"

Combo1ListIndex = 0

For j = 0 To Text1Count - 1

Text1(j) = ""

Next

Check1Caption = "星座"

Check2Caption = "热门金曲"

Label1(2)Visible = False

Label1(3)Visible = False

Text1(1)Visible = False

Text1(2)Visible = False

End Sub

#include<stdioh>

void main()

{

int a,b,c;

scanf("%d%d",&a,&b);

c=a100+b;

switch(c)

{

case (c>=121&&c<=220):printf("%a月%b日为宝瓶座\n",a,b);

case (c>=221&&c<=320):printf("%d月%d日为双鱼座\n",a,b);

case (c>=321&&c<=420):printf("%d月%d日为白羊座\n",a,b);

case (c>=421&&c<=520):printf("%d月%d日为金牛座\n",a,b);

case (c>=521&&c<=620):printf("%d月%d日为双子座\n",a,b);

case (c>=621&&c<=722):printf("%d月%d日为巨蟹座\n",a,b);

case (c>=723&&c<=822):printf("%d月%d日为狮子座\n",a,b);

case (c>=823&&c<=922):printf("%d月%d日为处女座\n",a,b);

case (c>=923&&c<=1022):printf("%d月%d日为天秤座\n",a,b);

case (c>=1023&&c<=1122):printf("%d月%d日为天蝎座\n",a,b);

case (c>=1023&&c<=1222):printf("%d月%d日为人马座\n",a,b);

case (c>=1223&&c<=1231):printf("%d月%d日为摩羯座\n",a,b);

case (c>=101&&c<=120):printf("%d月%d日为双鱼座\n",a,b);

}

}

很简单的

if ”昵称“ = “喵星人” then

if "年龄" = 18 then

if "性别" = “男” then

if "所在地" = “武汉” then

if "星座" = “魔蝎座” then

if "血型" = “O” then

else

end if

else

end if

else

end if

else

end if

else

end if

else

end if

你是说这个么？ 要是后面的值也有选项那就是得做集合了

新建一个label1控件和text1控件和text2控件。

text1输入月份，text2输入日，label1显示出来。

if (CINT(text1)=1 and CINT(text2)>=15 and CINT(text2)<=30) or (CINT(text1)=2 and CINT(text2)>=1 and CINT(text2)<=15) then

label1="你的星座是双子座。配对是XXX座"

else if

else if

else

出错信息。

end if

其他的都按照第一个格式去做。

以上就是关于抖音里测星座的小程序是什么全部的内容，包括:抖音里测星座的小程序是什么、vb新手请教、vb程序设计等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！