微信生日祝福小程序,要一个祝朋友生日快乐的VB小程序。

微信生日祝福小程序,要一个祝朋友生日快乐的VB小程序。

name1$ = 输入名字
age = 40
text$ = HAPPY BIRTHDAY TO HUANGRONG!
name2$ = YOURS !
d$ = 2011,06,06
CLS
SCREEN 9
COLOR 15, 5
LOCATE 12, 22
PRINT HAPPY BIRTHDAY TO; name1$; !
LOCATE 14, 22
PRINT be ready to accept the cake for you!
FOR i = 1 TO 250000: NEXT
FOR g = 0 TO 320
LINE (320 - g, 0)-(320 + g, 349), 2, BF
NEXT
COLOR 15, 2
pi = 3.14159
FOR y = 265 TO 240 STEP -1
CIRCLE (320, y), 180, 6, pi, 0, 5 / 16
NEXT
FOR y = 241 TO 231 STEP -1
CIRCLE (320, y), 180, 7, pi, 0, 5 / 16
NEXT
CIRCLE (320, 230), 180, 15, , , 5 / 16
PAINT (320, 230), 15
FOR k = 1 TO 18
x = 320 - 130 * COS(2 * pi * (k / 18))
y = 230 - 130 * SIN(2 * pi * (k / 18)) * 5 / 16
CIRCLE (x, y), 8, 12, , , 5 / 16
CIRCLE (x, y), 3, 10, , , 5 / 16
NEXT
FOR k = 1 TO 12
x = 320 - 50 * COS(2 * pi * (k / 12))
y = 230 - 50 * SIN(2 * pi * (k / 12)) * 5 / 16
LINE (320, 230)-(x, y), 10
CIRCLE (x, y), 6, 13, , , 5 / 16
NEXT
FOR k = 1 TO 60
x = 320 - 170 * COS(2 * pi * (k / 60))
y = 230 - 170 * SIN(2 * pi * (k / 60)) * 5 / 16
CIRCLE (x, y), 4, 9, , , 5 / 16
CIRCLE (x, y), 8, 13, , , 5 / 16
NEXT
FOR i = 1 TO 100000: NEXT
FOR n = 1 TO 2
r = 0
IF age 20 AND r = 1 THEN
candle = age - candle
rcake = 150
ELSE rcake = 95
END IF
FOR k = 1 TO candle
x = 320 - rcake * COS(2 * pi * (k / candle - 1 / (candle ......余下全文>>