交哟酷到墨策34
米诺双城
我擦擦擦
关注数: 20
粉丝数: 17
发帖数: 924
关注贴吧数: 29
学校谁有microsoft office 2013的密钥? 分享出来用一下呗
锐捷打不开怎么办? 根本就没反映
锐捷打不开是怎么回事?有没有懂? 根被就没反应额
我是来求助的 我的电脑上原本事2003,后来嫌版本低就卸了想装2010,但一直提示安装失败,怎么办?各路大神忙里抽闲给我说一下
有没有人知道是怎么回事?
学长学姐们,你们毕业了,宠物咋办?送我吧 我想养只宠物猫
求购二手自行车一辆,不要山地,, 有没有?,
从未想过喜当爹会发生在我身上 异地恋都会是这样的结局么
妹子们看过来,有帅哥 一楼不给看,二楼上图
土木工程系大二大三大四的学长学姐来看下啊,有问题咨询 有人没?
我的锐捷出问题了,大神给来解决下?? 直接上图
爆干妹妹的照片好不好 一楼不给看
如今的社会异性只是为繁殖,同性才是真情,,,,,对吧 我说的对
亲们,我走了,,再会 来老婆吧快一年了,终于下定决心走了,戒掉骚饼,戒掉美总,为了学业,再会
你们敢不敢再给我八点经验? 敢不敢?
准备买电脑,大家看看配置有什么问题没有?另外,给估个价 cpu intel 酷睿 i7 3770k 显卡 Inno3d/映众gtx660 冰龙版 GTX660 冰龙 2G 内存 金士顿骇客神条ddr3 1600 8g套装单条4g 硬盘 希捷 ST2000DM001 2T台式机硬盘 主板 Intel/英特尔 DP43BF P43 DDR3 机箱 775游戏悍将魔兽v8机箱 电源 滚珠王600走线大师智能版 显示器 HYUNDAI/现代E1901 19英寸LED液晶显示器
for 循环出错,我上代码。 Private Sub Command1_Click() Dim value Dim Counter As Integer If IsNumeric(Text1) Then value = CInt(Text1) For Counter = 2 To value - 1 If value Mod Counter = 0 Then Exit For End If Next If value Mod Counter = 0 Then L abel2.Caption = "是质数" Else Label2.Caption = "不是质数" End If Else MsgBox "输入的不是数据,无法计算" End If End Sub
笔记本温度高怎么办? 轻松奔过70
团支书到底怀的谁的孩子? 谁知道
大家给估个价
这个怎么弄?上图,有代码 Private Sub Command1_Click() Dim a#, b#, c#, d# a = Val(Text1) b = Val(Text2) c = Val(Text3) If Not IsNumeric(Text1) Or Not IsNumeric(Text2) Or Not IsNumeric(Text3) Then MsgBox "输入有误" ElseIf a > b And b > c Then Label2.Caption = "从小到大为:" & c & b & a& ElseIf a > c And c > b Then Label2.Caption = "从小到大为:" & b & c & a& ElseIf b > c And c > a Then Label2.Caption = "从小到大为:" & a & c & b& ElseIf b > a And a > c Then Label2.Caption = "从小到大为:" & c & a & b& ElseIf c > a And a > b Then Label2.Caption = "从小到大为:" & b & a & c& ElseIf c > b And b > a Then Label2.Caption = "从小到大为:" & a & b & c& End If End If End Sub Private Sub Command2_Click() End End Sub
题外话 吧主能不能经常回来看看,我们来这里就是来请教的
很头疼的错误,直接上代码 Private Sub Command1_Click() Dim a#, b#, c#, d# a = Val(Text1) b = Val(Text2) c = Val(Text3) If Not IsNumeric(Text1) Or Not IsNumeric(Text2) Or Not IsNumeric(Text3) Then MsgBox "输入有误" ElseIf a > b And b > c Then Label2.Caption = "从小到大为:" & c & b & a& ElseIf a > c And c > b Then Label2.Caption = "从小到大为:" & b & c & a& ElseIf b > c And c > a Then Label2.Caption = "从小到大为:" & a & c & b& ElseIf b > a And a > c Then Label2.Caption = "从小到大为:" & c & a & b& ElseIf c > a And a > b Then Label2.Caption = "从小到大为:" & b & a & c& ElseIf c > b And b > a Then Label2.Caption = "从小到大为:" & a & b & c& End If End If End Sub Private Sub Command2_Click() End End Sub
手机渴了,进水池喝水了 ttttt
学校宿舍覆盖wifi了么 有木有?移动?
茹姐,五一有事没?出来见个面呗 我也在郑州,龙湖高校区这边
华硕A85系列电脑为什么用鲁大师检测出来是K45? 是因为用的这个主板的缘故么?
我的夜之魅罗儿 罗儿我想你了睡不着
label1.caption="从小到大排列为:"&c&&b&&a& 错在哪? 如题
低价出售VIP会员卡一张! 本人低价出售天豪会所会员卡一张,内含千元现金!其会所是顶尖级会所!人员技术精湛!训练有素,可在旗下任意一家店里消费,有意者可联系我,价格面议
你们知道付在辰哥身上的人是谁么? 附身的人肯定是某个度过玉清神雷的大修士啊!之前就说过,度过第三重神雷截的大修士不知道怎么样,有可能什么虚空!而且当初神族明显是被某些人威胁才封闭了泰坦血脉的,当初的鸿蒙没这能力,那个王最多也就是跟现在的雅典娜打成平手,而且当初诸神也说过,就算回复实力,打败那个人又能怎么样呢!明显就是上古大修士么
看来这次辰哥要把业火跟太清神雷一起收了 如题
175算不算残废? 如题
计算机代码出错,帮下忙 Private Sub Command1_Click() Dim a#, b#, c#, d# a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If Not IsNumeric(Text1) ThenMsgBox "输入有误" ElseIf Not IsNumeric(Text2) Then MsgBox "输入有误" ElseSelect Case c Case "+" d = a + b Case "-" d = a - b Case "*" d = a * b Case "/" if len(text3.text)〈〉0 Then d = a / b Text4.Text = d ElseIf Len(Text3.Text) = 0 Then MsgBox "除数不能为零 "End If End Select End Sub Private Sub Command2_Click() End end sub
计算器代码出错,谁来帮下忙? Private Sub Command1_Click() Dim a#, b#, c#, d# a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If Not IsNumeric(Text1) ThenMsgBox "输入有误" ElseIf Not IsNumeric(Text2) Then MsgBox "输入有误" ElseSelect Case c Case "+" d = a + b Case "-" d = a - b Case "*" d = a * b Case "/" if len(text3.text)〈〉0 Then d = a / b Text4.Text = d ElseIf Len(Text3.Text) = 0 Then MsgBox "除数不能为零 "End If End Select End Sub Private Sub Command2_Click() End end sub
新人求罩 我是新人,但绝对是好学的小弟弟,求罩
新人求罩 我是新人,但绝对是好学的小弟弟,求罩
新人求罩 我是新人,但绝对是个好弟弟,求罩
新人求罩 灰常喜欢ppt,但我是新来的小白,求罩
遇到的问题,请教 编写计算器 要求: 1,输入两个操作数和一个四则运算符 2.对输入的数据进行检验,出错时调用msgbox函数提示
新人求帮忙
罗静。我爱你,今生永不相负 如题
学长与学妹,学弟与学姐 学妹被学长拐跑了,学姐被学姐的学长拐卖了。。。。。。。。。。。吊死情何以堪?
学长与学妹,学弟与学姐 学妹被学长拐跑了,学姐被学姐的学长拐卖了。。。。。。。。。。。吊死情何以堪?
看来我并不了解Win8 用习惯了Xp,对于这种新型的系统真不适应
这部小说更完后你们还会再看骚饼的书么? 反正我是不会再看了,这骚饼太不负责任了
求组装电脑?5000-5500 如题
大家看看我的本子四千值么?
我的新款的联想M490.显卡有两款。大神进来解释下
大家评论一下 我买的新款的联想M490笔记本。配的1G显卡GT635.性能方面能跟2G的差多少?能换成2G的么?
大家都来帮帮忙 我新买了联想的M490笔记本电脑。原本应该有GT635的显卡的。但现在软件检测不到。请问这是怎么回事?难道没有装?
大家来帮帮忙 我新买了联想的M490笔记本电脑。原本应该有GT635的显卡的。但现在软件检测不到。请问这是怎么回事?难道没有装?
大家来帮帮忙 我新买了联想的M490笔记本电脑。原本应该有GT635的显卡的。但现在软件检测不到。请问这是怎么回事?难道没有装?
求大神解释 周一刚买的M490.没有找到预装的GT635显卡。为什么?
亲爱的,你爱我么? 后天我们就要见面了~
我是远道而来的 我是客人,你们不欢迎责个?
据说笔记本降价 降价是必须的,可不知道什么时候,大神透漏责个~
敢不敢爆一下你们寒假被扣了多少工资? 被扣工资的来
大家推荐个四千多一点的本本呗 如题
其实 连上无线网不知道看什么电影也很郁闷
1
下一页