1.能不能把VB的显示显示那个日历的源代码发给我？我急用 我只有20财富 都给你了
2.谁有用VB做的21点游戏 源代码
能不能把VB的那个日历的源代码发给我？我急用 我只有20财富 都给你了
<script language=vbscript>
Function nl()
'获取当前系统时间
curTime = Now()
Dim WeekName(7), MonthAdd(), NongliData(), TianGan(9), DiZhi(), ShuXiang(), DayName(), MonName()
'星期名
WeekName(0) = " * "
WeekName(1) = "星期日"
WeekName(2) = "星期一"
WeekName(3) = "星期二"
WeekName(4) = "星期三"
WeekName(5) = "星期四"
WeekName(6) = "星期五"
WeekName(7) = "星期六"
'天干名称
TianGan(0) = "甲"
TianGan(1) = "乙"
TianGan(2) = "丙"
TianGan(3) = "丁"
TianGan(4) = "戊"
TianGan(5) = "己"
TianGan(6) = "庚"
TianGan(7) = "辛"
TianGan(8) = "壬"
TianGan(9) = "癸"
'地支名称
DiZhi(0) = "子"
DiZhi(1) = "丑"
DiZhi(2) = "寅"
DiZhi(3) = "卯"
DiZhi(4) = "辰"
DiZhi(5) = "巳"
DiZhi(6) = "午"
DiZhi(7) = "未"
DiZhi(8) = "申"
DiZhi(9) = "酉"
DiZhi() = "戌"
DiZhi() = "亥"
'属相名称
ShuXiang(0) = "鼠"
ShuXiang(1) = "牛"
ShuXiang(2) = "虎"
ShuXiang(3) = "兔"
ShuXiang(4) = "龙"
ShuXiang(5) = "蛇"
ShuXiang(6) = "马"
ShuXiang(7) = "羊"
ShuXiang(8) = "猴"
ShuXiang(9) = "鸡"
ShuXiang() = "狗"
ShuXiang() = "猪"
'农历日期名
DayName(0) = "*"
DayName(1) = "初一"
DayName(2) = "初二"
DayName(3) = "初三"
DayName(4) = "初四"
DayName(5) = "初五"
DayName(6) = "初六"
DayName(7) = "初七"
DayName(8) = "初八"
DayName(9) = "初九"
DayName() = "初十"
DayName() = "十一"
DayName() = "十二"
DayName() = "十三"
DayName() = "十四"
DayName() = "十五"
DayName() = "十六"
DayName() = "十七"
DayName() = "十八"
DayName() = "十九"
DayName() = "二十"
DayName() = "廿一"
DayName() = "廿二"
DayName() = "廿三"
DayName() = "廿四"
DayName() = "廿五"
DayName() = "廿六"
DayName() = "廿七"
DayName() = "廿八"
DayName() = "廿九"
DayName() = "三十"
'农历月份名
MonName(0) = "*"
MonName(1) = "正"
MonName(2) = "二"
MonName(3) = "三"
MonName(4) = "四"
MonName(5) = "五"
MonName(6) = "六"
MonName(7) = "七"
MonName(8) = "八"
MonName(9) = "九"
MonName() = "十"
MonName() = "十一"
MonName() = "腊"
'公历每月前面的天数
MonthAdd(0) = 0
MonthAdd(1) =
MonthAdd(2) =
MonthAdd(3) =
MonthAdd(4) =
MonthAdd(5) =
MonthAdd(6) =
MonthAdd(7) =
MonthAdd(8) =
MonthAdd(9) =
MonthAdd() =
MonthAdd() =
'农历数据
NongliData(0) =
NongliData(1) =
NongliData(2) =
NongliData(3) =
NongliData(4) =
NongliData(5) =
NongliData(6) =
NongliData(7) =
NongliData(8) =
NongliData(9) =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
NongliData() =
'生成当前公历年、月、动态代码分时伏击涨停源码指标日 ==> GongliStr
curYear = Year(curTime)
curMonth = Month(curTime)
curDay = Day(curTime)
GongliStr = curYear & "年"
If (curMonth < ) The时间时间如何修改盘面指标源码n
GongliStr = GongliStr & "0" & curMonth & "月"
Else
GongliStr = GongliStr & curMonth & "月"
End If
If (curDay < ) Then
GongliStr = GongliStr & "0" & curDay & "日"
Else
GongliStr = GongliStr & curDay & "日"
End If
'生成当前公历星期 ==> WeekdayStr
curWeekday = Weekday(curTime)
WeekdayStr = WeekName(curWeekday)
'计算到初始时间年2月8日的天数：-2-8(正月初一)
TheDate = (curYear - ) * + Int((curYear - ) / 4) + curDay + MonthAdd(curMonth - 1) -
If ((curYear Mod 4) = 0 And curMonth > 2) Then
TheDate = TheDate + 1
End If
'计算农历天干、地支、源码小游戏跳广告源码月、显示显示开封本地小程序源码日
isEnd = 0
m = 0
Do
If (NongliData(m) < ) The动态代码thinkphp论坛带门户源码n
k =
Else
k =
End If
n = k
Do
If (n < 0) Then
Exit Do
End If
'获取NongliData(m)的第n个二进制位的值
bit = NongliData(m)
For i = 1 To n Step 1
bit = Int(bit / 2)
Next
bit = bit Mod 2
If (TheDate <= + bit) Then
isEnd = 1
Exit Do
End If
TheDate = TheDate - - bit
n = n - 1
Loop
If (isEnd = 1) Then
Exit Do
End If
m = m + 1
Loop
curYear = + m
curMonth = k - n + 1
curDay = TheDate
If (k = ) Then
If (curMonth = (Int(NongliData(m) / ) + 1)) Then
curMonth = 1 - curMonth
ElseIf (curMonth > (Int(NongliData(m) / ) + 1)) Then
curMonth = curMonth - 1
End If
End If
'生成农历天干、地支、时间时间属相 ==> NongliStr
NongliStr = "农历" & TianGan(((curYear - 4) Mod ) Mod ) & DiZhi(((curYear - 4) Mod ) Mod ) & "年"
NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod ) Mod ) & ")"
'生成农历月、源码日 ==> NongliDayStr
If (curMonth < 1) The显示显示n
NongliDayStr = "闰" & MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliDayStr = NongliDayStr & "月"
NongliDayStr = NongliDayStr & DayName(curDay)
nl = NongliStr & NongliDayStr
End Function
msgbox nl
</script>
谁有用VB做的点游戏 源代码
Public Class Frm
Private Sub BtnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnStart.Click
Btn.Visible = True
BtnCheat.Visible = True
Txt1.Visible = True
Txt2.Visible = True
Txt3.Visible = True
End Sub
Private Sub Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn.Click
PB.Visible = False
Randomize()
Txt1.Text = CShort(Rnd() * )
Txt2.Text = CShort(Rnd() * )
Txt3.Text = CShort(Rnd() * )
If CShort(Txt1.Text) + CShort(Txt2.Text) + CShort(Txt3.Text) = Then
PB.Visible = True
End If
End Sub
Private Sub BtnCheat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCheat.Click
Randomize()
Txt1.Text = CShort(Rnd() * )
Txt2.Text = CShort(Rnd() * )
Txt3.Text = - Txt1.Text - Txt2.Text
PB.Visible = True
End Sub
End Class
