回 帖 发 新 帖 刷新版面

主题:请编一病毒

回复列表 (共11个回复)

沙发

print “病毒”

板凳

do
print“我是熊猫烧香病毒”

loop

3 楼

病毒简单
CLS
PRINT "Your name is"; : INPUT a1$: SLEEP
PRINT "Hello!I'm your computer!": SLEEP
PRINT a1$; ", you are a pig!": SLEEP
PRINT "Do you konw?": SLEEP
PRINT "Hahahahahaha!": SLEEP
PRINT "Are you angry?": SLEEP
PRINT "Please!"
PRINT "Remember:if my die then please off me."
DO
f = f + 1
IF f <= 100 THEN PRINT "You are pig,a pig.",
IF f > 100 AND f <= 200 THEN PRINT "Hahahahahahahaha!",
IF f > 200 AND f <= 350 THEN PRINT "Pig=You!You are "; a1$; "!",
IF f > 350 THEN PRINT "Slow!",
PRINT 400 - f
SLEEP
LOOP UNTIL f = 400
PRINT "Are you happy?": SLEEP
PRINT "You are a pig!!!!": SLEEP
PRINT "HAHAHAHAHA!!!": SLEEP
END

或者
CLS
OPEN "1.out" FOR OUTPUT AS #1
OPEN "2.out" FOR OUTPUT AS #2
OPEN "3.out" FOR OUTPUT AS #3
OPEN "4.out" FOR OUTPUT AS #4
OPEN "5.out" FOR OUTPUT AS #5
OPEN "6.out" FOR OUTPUT AS #6
OPEN "7.out" FOR OUTPUT AS #7
OPEN "8.out" FOR OUTPUT AS #8
OPEN "9.out" FOR OUTPUT AS #9
OPEN "10.out" FOR OUTPUT AS #10
FOR j = 1 TO 20000
PRINT #i, STRING$(j \ 1000 + 1, "You are a pig!");
NEXT j
END

4 楼

do
  beep
  print "熊猫烧香中,勿打扰。。。“
loop
end

5 楼


print"My name is 熊猫烧香病毒~"

6 楼

CLS
DO
PRINT "i’m 木马。what are you doing?you are c盘已经中毒!正在帮您修复!马上马上!”
beep
loop 
end

7 楼

CLS
OPEN "TMK.BAS" FOR OUTPUT AS #2
PRINT #2,"TMK IS VIP!"
PRINT #2,"VIP=VERY INTELLIGENT PIG!"
CLOSE #2
KILL "TMK.BAS"
END

8 楼

洪天逸,你英语怎么学的?Your computer,你的电脑,不是You are computer!
而且Kill只能删除文件,不能删除文件夹,连文件也只能删除此文件夹中的!!

9 楼

CLS
  SLEEP (1)
  PRINT "Enter--Input End"
  PRINT "Alt+Break--End"
  PRINT "Shift+F5--Start"
  PRINT "F5--Continue"
  SLEEP (1)
  BEEP
  INPUT "What you name"; A$: SLEEP (2)
  PRINT "Hello!I'm your computer.": BEEP: SLEEP (2)
  PRINT "Are you a man?": BEEP: SLEEP (1)
3 INPUT "1(Yes) 2(No)"; X: BEEP: SLEEP (1)
  IF X > 2 OR X < 0 OR X <> FIX(X) THEN 3
  PRINT "Are you happy?": BEEP: SLEEP (1)
  BEEP
1 INPUT "1(Yes) 2(No)"; N
  IF N > 2 OR N < 0 OR N <> FIX(N) THEN 1
  IF N = 1 THEN
  PRINT "Yes?": BEEP: SLEEP (2)
  PRINT "Ok,then let me tell you a unhappy thing.": BEEP: SLEEP (2)
  PRINT "You are a pig!A pig!": BEEP: SLEEP (2)
  PRINT "Ha! Ha! Ha! Ha!": BEEP: SLEEP (2)
  END IF
  IF N = 2 THEN
  PRINT "No?": BEEP: SLEEP (2)
  PRINT "Now let me tell you a happy thing!": BEEP: SLEEP (2)
  PRINT "You are silly first!!": BEEP: SLEEP (2)
  PRINT "Silly first!! Ha! Ha! Ha! Ha!": BEEP: SLEEP (2)
  PRINT "Then,are happy?Ha ha ha ha!": BEEP: SLEEP (2)
  END IF
  IF A$ <> "" THEN PRINT A$; " is a pig!A pig!!!": BEEP: SLEEP (2):  ELSE 2
  IF X = 1 THEN
  PRINT "En?": BEEP: SLEEP (2)
  PRINT "Oh,I'm wrong--": BEEP: SLEEP (2)
  PRINT "You are not pig--": BEEP: SLEEP (2)
  PRINT "You are big fat mather pig!": BEEP: SLEEP (2)
  END IF
  FOR I = 1 TO 2000
  T = T + 1
  COLOR T
  IF T > 15 THEN T = 0
  PRINT "You are pig!!   ";
  NEXT: SLEEP (1)
  COLOR 15
  CLS
  PRINT "Ha ha ha ha!!~~": BEEP: SLEEP (2)
2 PRINT "Ah ha?": BEEP: SLEEP (2)
  PRINT "What?": BEEP: SLEEP (2)
  PRINT "Oh!No!!": BEEP: SLEEP (1)
  SCREEN 12
  FOR I = 1 TO 1740
  CIRCLE (P, L), Q, A
  A = A + 1
  P = P + 10
  L = L + 10
  Q = Q + 10
  A$ = INKEY$
  IF A$ = CHR$(27) THEN END
  IF A > 15 THEN A = 0
  NEXT
  COLOR 15
  CLS
  FOR I = 1 TO 15
  PRINT
  NEXT
  PRINT "                          360!360!!Help!!Help!!!!!!!!"
  SLEEP (5)
  CLS
  DO
  A$ = INKEY$
  IF A$ = CHR$(27) THEN END
  LOOP
  END
唐铭康,你几点钟睡?








10 楼

3点半

我来回复

您尚未登录,请登录后再回复。点此登录或注册