百变魔心 百变魔心
关注数: 22 粉丝数: 47 发帖数: 2,325 关注贴吧数: 31
救 ~救命~T-T求大神帮忙(编写一个摇骰子的小游戏的问题)嘤嘤 老师让编写一个摇骰子赌大小的小游戏,表示已经在本金的结算上卡了好多天了T-T 工程界面如下:代码如下:(有问题的在command4后面那一坨 判断结果 对于本金的结算上有问题 计算机没有执行 也就是说点击停止command4之后本金没有将赌注进行加或减 ,同时还涉及到了加倍的与不加倍的问题。QAQ) Dim a As Integer Private Sub Command1_Click() Command2.Enabled = False Command3.Enabled = True Command4.Enabled = False Text1.Text = Text1.Text * 2 End Sub Private Sub Command2_Click() Command1.Enabled = False Command3.Enabled = True Command4.Enabled = False End Sub Private Sub Command3_Click() Command1.Enabled = False Command2.Enabled = False Command4.Enabled = True Timer1.Enabled = True label3.Caption = label3.Caption - Text1.Text End Sub Private Sub Command4_Click() Timer1.Enabled = False Label5.Caption = "当前点数" & a If (a > 3 And Command7.Enabled = True And Command1.Enabled = True) Or (a < 4 And Command8.Enabled = True And Command1.Enabled = True) Then label3.Caption = label3.Caption + Text1.Text * 2 End If If (a > 3 And Command7.Enabled = True And Command1.Enabled = True) Or (a < 4 And Command8.Enabled = True And Command1.Enabled = True) Then label3.Caption = label3.Caption - Text1.Text * 2 End If If (a > 3 And Command8.Enabled = True And Command2.Enabled = True) Or (a < 4 And Command7.Enabled = True And Command2.Enabled = True) Then label3.Caption = label3.Caption + Text1.Text End If If (a > 3 And Command7.Enabled = True And Command2.Enabled = True) Or (a < 4 And Command8.Enabled = True And Command2.Enabled = True) Then label3.Caption = label3.Caption - Text1.Text End If Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command7.Enabled = True Command8.Enabled = True Label6.Caption = "谢谢参与!" End Sub Private Sub Command6_Click() End End Sub Private Sub Command7_Click() Command8.Enabled = False b = 1 End Sub Private Sub Command8_Click() Command7.Enabled = False b = 0 End Sub Private Sub Form_Load() Shape2.Visible = False Shape3.Visible = False Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = False Shape8.Visible = False Text1.Text = 1000 End Sub Private Sub Timer1_Timer() a = Int(Rnd * 6) + 1 If a = 1 Then Shape2.Visible = False Shape3.Visible = False Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = False Shape8.Visible = True End If If a = 2 Then Shape2.Visible = False Shape3.Visible = True Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = False Shape8.Visible = True End If If a = 3 Then Shape2.Visible = True Shape3.Visible = False Shape4.Visible = False Shape5.Visible = False Shape6.Visible = False Shape7.Visible = True Shape8.Visible = True End If If a = 4 Then Shape2.Visible = True Shape3.Visible = False Shape4.Visible = True Shape5.Visible = True Shape6.Visible = False Shape7.Visible = True Shape8.Visible = True End If If a = 4 Then Shape2.Visible = False Shape3.Visible = False Shape4.Visible = True Shape5.Visible = True Shape6.Visible = False Shape7.Visible = True Shape8.Visible = True End If If a = 5 Then Shape2.Visible = False Shape3.Visible = True Shape4.Visible = True Shape5.Visible = True Shape6.Visible = False Shape7.Visible = True Shape8.Visible = True End If If a = 6 Then Shape2.Visible = False Shape3.Visible = True Shape4.Visible = True Shape5.Visible = True Shape6.Visible = True Shape7.Visible = True Shape8.Visible = True End If End Sub TT-TT 先谢谢了~~
【原创】 命运的轮回 快青穿越文 大家好,我叫小薰,你们在玫瑰花的眼泪中应该认识我了,这是我的另外一篇文章,最近穿越文有点多啊!我来一个另类的穿越文吧!—— ——----—————————————————————————————————— 我们亲爱的怪盗基德在一次作案时被神秘的宝石送入到了时光隧道。竟然来到了中森青子的前世中森秋墨的时代。中森公主和怪盗基德之间究竟会发生怎样的故事,敬请期待 -——————————————————————————————————————- 月光,似水般平静,背后的弯月如此圣洁。东京铁塔上,一席白色的斗篷,这个人静静的伫立。“女士们,先生们!表演时间到了!”说罢,纵身向下,“啪”打开了滑翔翼,向远处飞去。 此时,田江博物馆,已经做好了充分的准备,中森长官正在强调注意的事项,“你们提起十二分的精神,给我注意了觉不能让基德得手!”“是!”基德冷笑。瞬间降落到窗台上。大家转过头来,不可置信,这么快?!哗啦,隐藏了滑翔翼,瞬间变回了斗篷。“快抓住他!他就是基德!”众人一拥而上,基德趁这个机会,瞬间易容,并丢下一个替身,启动滑翔翼向远处飞去。“警长怎么办?”“ 不!冷静,这个应该是假人。基德一定还在这里!”“可是,警长宝石不见了!”“什么?!这么快?全体去给我追!快!”说罢,冲向大门。易容之后的基德也装模作样的跑了一阵,停了下来,绅士的走向宝石。呵呵,障眼法,使宝石看起来消失,可实际上,基德取下了一个套在保险柜上那个的玻璃,宝石在灯光的照耀下,闪烁着七彩夺目的光彩。—— ——————————————————————————- 这个,时间有限,下次继续更文。谢谢。
【原创】 《玫瑰花的眼泪》 快青版 先悲后喜哦 重发 这是我第一次写文,如果有什么地方不足,还请大家多多指教 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。 请大家在看文的时候,听听 没有人比我更爱你 在这世上,每天都有无数的恋人分手,然而,却没有人比我更爱你,就算我们永远不会在一起,但精灵,却有着她洁白的羽翼,随风而舞-              ——题记 我看见 ,那一朵朵火红火红的鲜血,洒在你的白色礼服上,我看见了,那如同银翼般的羽翼,正在被一点点撕破,伤痕累累,我们都累了--- 黑夜下,水户大饭点楼顶如同白昼般明亮,,一身白色的礼服,一顶高礼帽,一席斗篷 ,在夜凤下呼啦啦的飘着,看来,今天晚上似乎很容易 ,怪盗基德偷偷想着,他俯视了一下周围的环境,看来,居高临下的感觉真好 十二小时以前:江古田博物馆收到到怪盗基德的预告函:暗夜星辰,世纪末的钟声,太阳与月亮同时出现,我将从天空临下,用洁白的羽翼收回黑暗之心。为此,中森长官大为恼火:“可恶 !这家伙又出现了,今天晚上动员所有警员,一定要抓住他!”“爸爸,我来了”一声清脆的女声响起,“青...青子,你怎么来了?”“爸爸抓怪盗,我也要来加油啊!”——    还有20分钟,该准备了,基德澜澜自语,不知道为什么青子要来,真是乱来的家伙。这时,背后起了一股巨大的旋风,基德忙转身一看,是他们!!!基德一阵心慌,就是他们,在八年前,杀害爸爸的凶手!可是,扑克脸,依然在基德的脸上,那么优雅绅士,“ 哈哈哈,不死之身的怪盗基德,今天晚上就是你的忌日!”可恶,基德随身抽出魔术枪,可是,“砰”的一声,枪被打得粉碎,对方冷冷的笑着,怎么办?防身武器没有了,赤手空拳打不过他们!基德冷汗。“再见吧,月光下的魔术师,怪盗基德先生,和你爸爸在地府相见吧。哈哈哈哈--!”什么?!他们。。。。抢打响了,子弹射中了基德的小腹,一阵剧痛传来,说不出任何的话语,慢着!青子很危险!基德这样想着,可是,身上的剧痛使他不得不慢慢滑倒在地,最后倒在一片血泊之中,在满地的鲜血中,一身白衣的基德格外抢眼。这就是死亡的感觉么?爸爸,对不起,快斗没能为你报仇,青子,再见了。临死前的感觉很安详,身上仿佛没有那么痛了,似乎连血液都在一点一点的凝固,没有力气了,快斗慢慢合上眼。“老大,那小子死了吗?”“嗯已经不行了,我们撤吧。”在暗夜天空下,楼顶就只有倒在血泊中的怪盗-- 皑皑的白雪上,一点鲜红是那么的鲜艳-- “奇怪,已经过了预告时间啊?怪盗怎么了?他可不是这种喜欢迟到的人啊!”“爸爸,我去看一下。”“青子,小心啊。”这基德是怎么啦?看来一定是出了什么事,唔?房顶没上锁?看来基德是从这里进来的吧。青子轻轻推开房门,眼前的景象吓了他一大跳;在明亮的楼顶的中心,躺着一个人,周围的鲜血流成了小河,不是怪盗基德是谁?难道他被人袭击了吗?青子看到这种情景,心中不但没有一丝兴奋,甚至还很心痛,有一点难过。慢慢走过去,轻轻的把他抱在怀里,慢慢的理着他那蓬乱的头发,在月光下,基德清秀的脸苍白得如同白雪,却依然那么帅气。擦掉脸上多余的血迹,青子轻轻的拿下他的单片眼睛,是他!?青子简直不敢相信自己的眼睛,爸爸要抓住的人,竟然是他!还是自己最好的朋友,也是自己最喜欢的人,黑羽快斗?! 亲爱的,如果我不在了,萤火虫会带你奔跑,别伤心,我会一直陪着你的,至到从这个世界上消失-- 青子看着自己怀里的人,更多的是伤感,已经顾不了那么多了,眼下还是要救快斗要紧,晴子赶紧换下基德的衣服,不能让爸爸知道!当基德穿上快斗的服装时,依然那么可爱--青子叫来自己的爸爸,“快斗?他怎么在这?”“大概是和怪盗搏斗受伤的吧。爸爸,快送快斗去医院!”“哦。”看着快斗被抬上救护车,心里一阵心痛,快斗,你一定要坚持住啊,别丢下我一个人........ 看着快斗虚弱的脸,青子不知道他为什么会装的如此坚强,她只见过他哭过一次,就是八年前,黑羽盗一的葬礼上。那一年的冬天,就像现在一样大雪纷飞,严寒挡不住撕心裂肺的悲痛,那年,快斗才九岁啊,走在送葬队伍的最前端,一身白衣,红红的眼睛还是那么的透明,仿佛看穿了一切,还记得,在葬礼的最后那一刻,快斗忍不住伤心痛苦,趴在地上哭得死去活来,这是快斗第一次在自己面前哭得很伤心,当时,快斗身下的白雪都被融化了,在痛哭过后,青子不知道如何安慰快斗,只知道快斗从此再也没有父亲的关爱了,心里一阵一阵的痛,在伤心过后,快斗不再哭泣,他紧咬着牙关,忍住泪水,或许从那一刻起,快斗就已经变得很坚强,从那以后,生活在扑克脸下的快斗,永远都是快乐的,或许正是因为他的这种快乐,才能坚持到现在吧,快斗... 如果星星会说话,请你告诉我,命运的潘多拉在哪里?她是否是我一辈子都要守护的人,月亮与世界共存,有你的地方就有我的灵魂—— 夜深了,青子独自站在楼顶,任凭割脸的冬风刮着她的脸,如果这一切都是梦,那么就快些醒来吧,回到现实世界去,早上,快斗会想以前那样,对自己说早上好,青子。可是,脸是那么的痛,快斗是怪盗基德,青子一遍又一遍的对自己说,怎么也无法接受这个这个事实,可是,这一切都已发生了。。。。远处的东方,已经出现了一屡曙光,可是青子多么希望这永远是黑夜算了,还是去看看快斗吧。快斗,不管你是什么理由,我都会原谅你。。。就像是,玫瑰花永远是爱情的象征
1 下一页