1樓:天地遊塵
意思就是說要你每句話後面都加上出懲罰者指定的話。
比如說,出懲罰者要你每句話加字尾」喵嗚~「,直到他指定的懲罰時間結束你不管說什麼後面都要加上」喵嗚~「
比如——
【靠在牆上點菸】嘁,真無聊。喵嗚~
一邊兒去別打擾老子休息!!喵嗚~
↑就像這樣...噗,那個喵嗚其實不是你想說的,但是是懲罰所以不管你說什麼都必須加上,直到懲罰時間結束。臉皮後的還好,臉皮薄的你乾脆就不要說話了||| 我覺得字尾一般沒這麼溫柔的xd
當然也有掛簽名一類的,那就是在個性簽名後面加上這個「喵嗚~」直到懲罰時間結束|||
2樓:夏侯侯專
猜數字建乙個文字文件,輸入以下**,字尾改為.frm用vb開啟就可以了
以下是程式原始碼:
version 5.00
begin vb.form form1
borderstyle = 3 'fixed dialog
caption = "猜數遊戲"
clientheight = 3900
clientleft = 45
clienttop = 435
clientwidth = 4680
linktopic = "form1"
maxbutton = 0 'false
minbutton = 0 'false
scaleheight = 3900
scalewidth = 4680
showintaskbar = 0 'false
startupposition = 3 '視窗預設
begin vb.commandbutton command2
caption = "重新開始"
height = 615
left = 2640
tabindex = 2
top = 2760
width = 1095
endbegin vb.commandbutton command1
caption = "確定"
height = 615
left = 840
tabindex = 1
top = 2760
width = 1095
endbegin vb.textbox text1
height = 375
left = 1200
tabindex = 0
top = 2040
width = 2055
endbegin vb.label label9
caption = "戲"
beginproperty font
name = "宋體"
size = 24
charset = 134
weight = 400
underline = 0 'false
italic = 0 'false
strikethrough = 0 'false
endproperty
forecolor = &h000080ff&
height = 615
left = 3720
tabindex = 11
top = 240
width = 615
endbegin vb.label label8
caption = "遊"
beginproperty font
name = "宋體"
size = 24
charset = 134
weight = 400
underline = 0 'false
italic = 0 'false
strikethrough = 0 'false
endproperty
forecolor = &h00808080&
height = 615
left = 3240
tabindex = 10
top = 240
width = 615
endbegin vb.label label7
caption = "數"
beginproperty font
name = "宋體"
size = 24
charset = 134
weight = 400
underline = 0 'false
italic = 0 'false
strikethrough = 0 'false
endproperty
forecolor = &h0000ffff&
height = 495
left = 2760
tabindex = 9
top = 240
width = 615
endbegin vb.label label6
caption = "猜"
beginproperty font
name = "宋體"
size = 24
charset = 134
weight = 400
underline = 0 'false
italic = 0 'false
strikethrough = 0 'false
endproperty
forecolor = &h00ff00ff&
height = 495
left = 2280
tabindex = 8
top = 240
width = 735
endbegin vb.label label5
caption = "入"
beginproperty font
name = "宋體"
size = 24
charset = 134
weight = 400
underline = 0 'false
italic = 0 'false
strikethrough = 0 'false
endproperty
forecolor = &h00ff0000&
height = 615
left = 1800
tabindex = 7
top = 240
width = 855
endbegin vb.label label4
caption = "進"
beginproperty font
name = "宋體"
size = 24
charset = 134
weight = 400
underline = 0 'false
italic = 0 'false
strikethrough = 0 'false
endproperty
forecolor = &h0000ff00&
height = 735
left = 1320
tabindex = 6
top = 240
width = 735
endbegin vb.label label3
caption = "迎"
beginproperty font
name = "宋體"
size = 24
charset = 134
weight = 400
underline = 0 'false
italic = 0 'false
strikethrough = 0 'false
endproperty
forecolor = &h00ffff00&
height = 735
left = 840
tabindex = 5
top = 240
width = 735
endbegin vb.label label2
caption = "歡"
beginproperty font
name = "宋體"
size = 24
charset = 134
weight = 400
underline = 0 'false
italic = 0 'false
strikethrough = 0 'false
endproperty
forecolor = &h000000ff&
height = 615
left = 360
tabindex = 4
top = 240
width = 495
endbegin vb.label label1
caption = "我這兒有1~10的整數,你猜猜看他是多少......"
height = 375
left = 480
tabindex = 3
top = 1320
width = 3855
endend
attribute vb_name = "form1"
attribute vb_globalnamespace = false
attribute vb_creatable = false
attribute vb_predeclaredid = true
attribute vb_exposed = false
dim x as integer, y as integer, z as integer
dim cishu as integer
private sub command1_click()
if cishu = 3 then msgbox "已經猜3次了,這個數是" & x: exit sub
y = val(text1.text)
if text1.text = "" or not isnumeric(text1.text) then
msgbox "輸入有誤!請重新輸入數字", 48
text1.text = ""
text1.setfocus
exit sub
end if
cishu = cishu + 1
select case x - y
case is < 0
z = msgbox("你猜數大了,請重猜。注意:你只有三次機會", 48 + 1)
text1.text = ""
text1.setfocus
case is > 0
z = msgbox("你猜數小了,請重猜。注意:你只有三次機會", 48 + 1)
text1.text = ""
text1.setfocus
case else
z = msgbox("恭喜你猜中了!", 1)
end select
end sub
private sub command2_click()
cishu = 0
randomize timer
x = int((rnd * 10) + 1)
end sub
private sub form_load()
cishu = 0
randomize timer
x = int((rnd * 10) + 1)
end sub
**結束
卓7358/
歡迎來我空間
希望採納
猜數字遊戲猜數字的遊戲規則
以前寫過乙個,當然,沒做介面的,要做介面自己可以做 include include include using namespace std int main char gues new char 4 unsigned int a 0 unsigned int b 0 unsigned int tim...
語C群裡面的國王遊戲應該怎麼玩,語C群裡面的國王遊戲應該怎麼玩
首先,確定 復參加遊戲的制人數。然後私聊給玩的 bai人編號du。國王就是寫劇本的人,國王zhi會寫乙個dao劇本,當中的人物用編號代替 國王事先不知道編號 等人物號碼發好,劇本也寫好時,就可以開始玩了。被發到號的人就按照劇本裡的劇情開始扮演。大概就是這樣,希望可以幫到你。有什麼不理解的可以追問。國...
python猜數字遊戲,求幫忙找錯誤並改正
這個是典型的異常處理,try except 這樣,有異常會重新要求輸入,程式不會中斷 肯定的,因為你用int做了強制型別轉換,如果輸入的不是int型別就會報錯,其實可以加個檢測,如果輸入不符合int型別自動忽略或者重新輸入就好了 def panduan a input input for i in ...