贴吧用户_09AW2GQ的个人资料

请大神帮我看代码 Option Base 1 Dim a(100) As Integer Private Sub Command1_Click() Open "E:\a.txt" For Input As #1 For i = 1 To 100 Input #1, a(i) Next Close #1 End Sub Private Function h(k() As Integer) As Boolean Dim i As Integer For i = 1 To 100 If k(i) = (Int(k(i) / 100)) ^ 3 + (Int(k(i) / 10) - (Int(k(i) / 100)) * 10) ^ 3 + (k(i) Mod 10) ^ 3 Then h = True Else h = False End If Next End Function Private Sub Command2_Click() Dim max%, min%, i% max = -1 min = 1000 For i = 1 To 100 If h(a(i)) Then If max <= a(i) Then max = a(i) If min >= a(i) Then min = a(i) End If Next Text1 = max Text2 = min End Sub 这个代码是用于找出100个 0——999之间的水仙花数并且分别找出这些水仙花数中的最大最小值显示在text中可是运行程序后command2控件显示类型不匹配：缺少数组或用户定义类型请教大神帮忙看看哪里问题谢了

交朋友，呀找朋友找呀找呀找朋友，找到一个好朋友，亲个嘴呀，握握手，你是我的好朋友！再见

我是神经病希望交2个神经病好友我是神经病，哈哈哈哈哈呵呵呵呵呵呵呵哈哈哈哈哈呵呵呵呵呵呵呵哈哈哈哈哈呵呵呵呵呵呵呵哈哈哈哈哈呵呵呵呵呵呵呵哈哈哈哈哈呵呵呵呵呵呵呵红红火火，哇哈哈哈哈哈呵呵呵呵呵呵呵哈哈哈哈哈呵呵呵呵呵呵呵哈哈哈哈哈呵呵呵呵呵呵呵哈哈哈哈哈呵呵呵呵呵呵呵哈哈哈哈哈呵呵呵呵呵呵呵红红火火我自豪

交友

选课我怒了！！！老子不想说学校这几把安排的哪样课，要搞啥子！老子还有5,6节没选！狗衵的，又还要等到下下学期去学迈！选你吗个课狗曰的像抢饭一样，搞炮了，格劳资妈个破网站几登几登不上，今天好容易登上，一看，差不多全都选完了！！！你这几个领导是不是脑瓜儿没打铁，你没事先看看全校或者单个学院有多少人在定上课名额行不行，游刃有余懂不懂！不至于格老子发生同学半夜爬起来选课的场合，劳资是要去上课，不是抢着投胎！话说投胎也是一人一份的嘛！你们想把那些没选到课的同学置于何地！、？敢情是上你这几把课有多金贵，早知如此高傲，告述我，不碰你这个金宝卵！

【我心懂洁】【水贴】董洁吧现在会员这么多，感到为董洁高兴记得我第一次来此吧时，会员才2,3w人没想到没过几个月就飙升到4ow了当时吓我一跳，还以为系统出错了后面仔细想想可能是她拍的2部电视剧把她彻底弄红了吧祝邢璐坦荡啊

我没朋友，好伤感，好忧愁1 没朋友，我一直是一个人，那种与别人貌似关系很好，互相开玩笑的地步，以为这就是我的朋友所在，可是我渐渐发现都找不到我真正的朋友，我渴望电影中的友谊，我努力待人友善，义气，也风趣幽默，善于表达，可我越这样去追逐，真正的友谊却渐行渐远。我好难受，我命中孤独，这是算命算得出来的吗，如果是，我该有点什么优点去弥补，我帅吗？呵呵我不自恋，除此我不晓得拿什么去把心理平衡了。上帝呀赐我个朋友吧

我没朋友，好伤感，好忧愁！没朋友，我一直是一个人，那种与别人貌似关系很好，互相开玩笑的地步，以为这就是我的朋友所在，可是我渐渐发现都找不到我真正的朋友，我渴望电影中的友谊，我努力待人友善，义气，也风趣幽默，善于表达，可我越这样去追逐，真正的友谊却渐行渐远。我好难受，我命中孤独，这是算命算得出来的吗，如果是，我该有点什么优点去弥补，我帅吗？呵呵我不自恋，除此我不晓得拿什么去把心理平衡了。上帝呀赐我个朋友吧

我没朋友，好孤独，好失落！没朋友，我一直是一个人，那种与别人貌似关系很好，互相开玩笑的地步，以为这就是我的朋友所在，可是我渐渐发现都找不到我真正的朋友，我渴望电影中的友谊，我努力待人友善，义气，也风趣幽默，善于表达，可我越这样去追逐，真正的友谊却渐行渐远。我好难受，我命中孤独，这是算命算得出来的吗，如果是，我该有点什么优点去弥补，我帅吗？呵呵我不自恋，除此我不晓得拿什么去把心理平衡了。上帝呀赐我个朋友吧

【谱吧】请教这个怎么弹吉他1和吉他2有什么区别吉他1 需要按住所标和弦吗？谢谢了我弹起一点都不像

请教吉他大神 Am 和弦由A（6）、C（1）、E（3）三音叠置构成的小三和弦，是大调式的Ⅵ级和弦，是小调式的Ⅰ级主和弦。看不懂是大调式的Ⅵ级和弦，是小调式的Ⅰ级主和弦。什么是大调式的Ⅵ级和弦小调式的Ⅰ级主和弦这些都是什么玩意？好乱谢谢高手指教

过年去送快递怎么样？可以吗？

郑重申明【非广告】转手电炒锅再次申明不是广告！！！没有为商家宣传，也不是为转手挣钱。我说我不会做饭把前几天脑热买的电炒锅低价转让！！！今天才去拿的快递你连快递钱也省了，连包装都没拆！需要的发回复就是了最好是星湖校区的红河的也可以这是广告吗？？？？吧务看清楚手下留情！现发图片标价原价60元随要随取！！

请教大神！！！称取25mg蛋白酶配成25ml溶液，取2ml测得含蛋白氮0,2mg，另取0.1ml 测酶活力，结果每小时可以水解酪蛋白产生1500μg酪氨酸，假定1个酶活力单位定义为每分钟产生1μg酪氨酸的酶量 1）酶溶液的蛋白浓度及比活 2) 每克酶制剂的总蛋白含量及总活力要详细解析步骤答案谢谢

求解！！！谢了当鼠标右键点击窗体任何空白位置，实心圆向单击位置移动，单击右键则停止 Dim stx&, sty& Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim r%, x0&, y0&, a! r = Shape1.Width / 2 If Button = 1 Then x0 = Shape1.Left + r y0 = Shape1.Top + r If x0 = X Then sty = Sgn(Y - y0) * 60 stx = 0 Else a = (Y - y0) / X - x0 stx = Sgn(X - x0) * 60 sty = a * stx If y0 = Y Then stx = Sgn(X - x0) * 60 sty = 0 Else a = (Y - y0) / X - x0 sty = Sgn(Y - y0) * 60 stx = stey / a End If End If Timer1.Enabled = True Else Timer1.Enabled = False End If End Sub Private Sub Timer1_Timer() Shape1.Move Shape1.Left + stx, Shape1.Top + sty End Sub

求助！！！十万火急求助求助通用对话框说是该怎么解决用不起

请大神帮我改代码模拟行星绕太阳运动 Dim x0!, y0!, rx!, ry!, j, x!, y! Const pi = 3.14159 Private Sub Form_Click() x0 = Form1.Width / 2: y0 = Form.Height / 2 rx = Form1.Width / 3: ry = rx * 0.5 Form1.FillStyle = 0 Form1.FillColor = RGB(255, 0, 0, 0) Form1.Circle (x0, y0), 300 For i = 0 To 2 * pi Step 0.01 x = x0 + rx * Sin(i) y = y0 + ry * Cos(i) PSet (x, y) Next i Form1.DrawMode = 7 Form1.FillColor = RGB(255, 255, 0) Form1.Circle (x, y), 150 End Sub Private Sub Timer1_Timer() Form1.Circle (x, y), 150 x = x0 + rx * Sin(j * pi / 100) y = y0 + ry * Cos(j * pi / 100) Form1.Circle (x, y), 150 If j = 200 Then j = 0 Else j = j + 1 End If

二级vb应用基础知识资料我们考2级卷子上要考什么二叉树队列连接投影之类的根本没听说过在之前接触的书中没有相关知识找也找不到所以请教各位大神哪里有这个相关学习资料呀？你有吗？发给我可好？万分感谢！

请教大神一个高级vb编程问题谢谢窗体有2个text 2个command 单击command1 将一个txt文件中100个0~999数字读取到a数组中单击command2 找出这100数字中的水仙花数并且判断这些水仙花数中的最值分别显示在2个text中求代码谢谢或者帮我改下我写的代码！ Private Function h(k() As Integer) Open "E:\abc.txt" For Input As #1 For i = 1 To 100 Input #1, k(i) k(i) = (Int(k(i) / 100)) ^ 3 + (Int(k(i) / 10) - a * 10) ^ 3 + (k(i) Mod 10) ^ 3 Next h = End Function Private Sub Command1_Click() Dim max%, min% max = -1 min = 1000 For i = 1 To 100 If h(a(i)) Then If max <= a(i) Then max = a(i) If min >= a(i) Then min = a(i) End If Next Text1 = max Text2 = min End Sub Private Sub Command2_Click() Open "E:\abc.txt" For Output As #1 For i = 1 To 100 a(i) = Int(Rnd * 999) Print #1, a(i) Next Close #1 End Sub

求助：vb应用基础知识资料我们考2级卷子上要考什么二叉树队列连接投影之类的根本没听说过在之前接触的书中没有相关知识找也找不到所以请教各位大神哪里有这个相关学习资料呀？你有吗？发给我可好？万分感谢呀！

请教大神菲波拉契数判断事宜判断输入的数是否是菲波拉契数 Private Function f(x As Integer) As Boolean Dim a%, b%, c%, flag As Boolean flag = False a = 1: b = 1 Do While x> b c = a + b a = b b = c If x = b Then flag = True Loop f = flag End Function a = b 是什么意思呢？只单纯做交换中间变量吗？为什么不是a+b=b 还有为什么要 x> b 谢谢鸟

请教高手求最大公约数 Public Function gys(m, n) Do r = m Mod n m = n n = r Loop Until r = 0 gys = m End Function * Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer Dim t1 As Integer, t2 As Integer, t As Integer x = Val(Text1.Text) y = Val(Text2.Text) z = Val(Text3.Text) t1 = gys(x, z) t2 = gys(x, y) t = gys(t1, t2) Print t; End Sub 请问 gys 为什么=m 看不懂哪位讲下？我的意思是gym=m为什么不是gym=n求最大公约数

请问国庆到电子厂下力是不是要到财经坐车呀？？？谢了

请教进制转化问题！！！急二进制数转化为十进制代码（1）正确的 Private Sub command1_Click() Dim a() As String Dim b, c As String Dim x, y, i As Integer Dim j As Double i = 0 If Text1.Text <> "" Then x = Len(Text1.Text) b = Text1.Text ReDim a(x - 1) As String For y = x To 1 Step -1 c = Mid(b, x - i, 1) a(i) = c i = i + 1 Next y For y = (x - 1) To 0 Step -1 j = j + a(y) * 2 ^ y Text2.Text = j Next y End If End Sub （2）我改了下不用数组 Private Sub command1_Click() Dim k As String Dim b, c As String Dim x, y, i As Integer Dim j As Double i = 0 If Text1.Text <> "" Then x = Len(Text1.Text) b = Text1.Text For y = x To 1 Step -1 c = Mid(b, x - i, 1) k = c i = i + 1 Next y For y = (x - 1) To 0 Step -1 j = j + k * 2 ^ y Text2.Text = j Next y End If End Sub 输入11011 结果错误的结果为31（正确27）求大神解答！谢谢了为什么会错一定要用数组？

【我心懂洁】【水贴】韩灵当服务员的那个女老板有同性恋癖好？刚看到那集

发泄发泄幽怨难平复，胜己待何人无意策疾马，但愿独省身吾生何追逐，微微难满足无意聊不平，世攻泄自欺奈何天作者，奇葩有如吾逃越千章外，不在规矩中渺渺希望求，全力惧无多悲叹我贱卑，怎堪才视吾自欺过几日，渺望每度晨我和天待我，无刻薄寡恩玩物多造化，奈哭笑语无罢反复无常，归平凡自足欺我前世孽，仇我他生罪祭无辜殒者，相赎未在此可夜饮黑雪，可日嚼白骨投神之所好，取拼命我伤啊哭罢难解，啊愁吧娘们吾男子释怀，非杜康难解活世之悲怆，待有命胜极江淮似有月，无身待明月？残阳仍有否，留清风候我此生难靠人，自拼苦仍尝升落本无非，加余独悲哀历星环在目，水中月曾捞抗天命人说，创命运自握易圆难自欺，昭昭然吾愿愿世攻明来，吾厌倦暗至愿非律硬送，吾耻笑软行酒本伤自醉，解忧良药人大醉三天夜，回复壮年神

【我心懂洁】【讨论】这戏拍得看起不够像90年代除了点明说了这是92年还有那时用的钱等啥的其余的·真的不怎么看得出是90年代了感觉那时候的城市啥的跟现在的也差不多嘛现在都有的大学还不如里面的大学条件好呢刚才屏幕截图这算是穿帮吗？

二进制转化十进制小问题请教大师（1）对的 Private Sub command1_Click() Dim b#, c As String Dim x#, y#, i As Integer Dim j As Integer x = Len(Text1.Text) b = Text1.Text For y = 0 To x - 1 c = Mid(b, x - y, 1) j = j + c * 2 ^ y Text2.Text = j Next y End Sub （2）错？2个for 循环输11011 怎么为31 Private Sub Form_Click() Dim j#, l#, y#, k# k = Len(Text1.Text) For i = k To 1 Step -1 l = Mid(Text1.Text, i, 1) Next y = 0 For j = 0 To k - 1 y = y + l * 2 ^ j Next Text2.Text = y End Sub （1）第一个对的后面一个用了2个循环为什么就错了 11011 转化正确应该为27？

77分什么等级有证拿吗?有必要办证吗?大神求解!!!

77分什么等级有证拿吗?有必要办证吗?大神求解!!! ?????

学渣求助！！！感谢very much

【我心懂洁】【管理】马上刷第三遍梁祝 -董洁我来了还是英台的形象深入我心啊,

请教大神数组问题 Private Sub Form_Click() Dim a() As Integer Dim k As Integer, max As Integer n = Val(InputBox("shuru")) ReDim a(n) As Integer For i = 1 To n Randomize a(i) = Int(Rnd * 100 + 1) Print a(i); If a(i) > max Then max = a(i) End If Next Print Print max End Sub 我想问为什么要首先定义 a（）再redim a（i）呢这是一种模板吗？我需要你让我醍醐灌顶啊这是什么原理

请问有经验的同学关于英语选课这个考研英语与英语四六级选课有区别吗? 我不选考研英语对以后想考研影响大吗? 那位学霸告诉下选课限时呀

进制转化求解二进制数转化为十进制代码（1）正确的 Private Sub command1_Click() Dim a() As String Dim b, c As String Dim x, y, i As Integer Dim j As Double i = 0 If Text1.Text <> "" Then x = Len(Text1.Text) b = Text1.Text ReDim a(x - 1) As String For y = x To 1 Step -1 c = Mid(b, x - i, 1) a(i) = c i = i + 1 Next y For y = (x - 1) To 0 Step -1 j = j + a(y) * 2 ^ y Text2.Text = j Next y End If End Sub （2）我改了下不用数组 Private Sub command1_Click() Dim k As String Dim b, c As String Dim x, y, i As Integer Dim j As Double i = 0 If Text1.Text <> "" Then x = Len(Text1.Text) b = Text1.Text ReDim a(x - 1) As String For y = x To 1 Step -1 c = Mid(b, x - i, 1) k = c i = i + 1 Next y For y = (x - 1) To 0 Step -1 j = j + k * 2 ^ y Text2.Text = j Next y End If End Sub 输入11011 结果错误的结果为31（正确27）求大神解答！谢谢了为什么会错一定要用数组？

我不要怄气，我不要。。。我想说我不要怄气，每次怄气都爱耽误所有正事过着颓废无神的生活，喝着2元一罐的啤酒恍恍惚惚的躺在床上待看着一遍又一遍的电影，然后带着世界末日来到时的心情垂死般入睡！这样的情景我上演不是一次2回了，虽然这样可以解决一时的痛苦，但到下一次清醒时确有莫名的空虚！我感到周围世界人物都有攻击性，我变得越来越小心翼翼，自己给自己套上了链子，解不开，我就一次又一次更加的堕落！让清醒时体会到如死的滋味今天心情又极度不好，我打住了去买酒过荒废逃避的生活，我要在一次又一次的打击后让心肝黑起来，让脸皮厚起来！他吗的，今晚不喝酒喝水！

心情极度失落，极度抑郁快疯

请教概率分布问题设X y相互独立都服从N（0,1） X=rcos θ Y=rsin θ 这里r>=0 0=< θ=<2π 求（r， θ）的联合密度与边缘密度有人会吗？

各位大神请问这个积分怎么化？求教有结果不知怎么化的

捡到卡谁的快了领本人今天于绿岛拾到饭卡一张，周婷学号20130301125*，后一位数看不清楚啦！请失主联系18883783173（请大家帮忙扩散一下哈。

请教说对了男的越来越strong 女的越来越性感！ Private Sub Form_Click() Dim i As Integer Dim j As Integer i = 0 j = InputBox("输入一个字符,以?结束输入") While j <> "?" Print j i = i + 1 j = InputBox("输入一个字符,以?结束输入") Wend Print "字符个数为："; i End Sub 我是想问为什么j = InputBox("输入一个字符,以?结束输入") 要写2遍

请问xs-3201在哪里？3q 在星湖还是红河？在什么楼啊有点事要办

这家伙为什么叫二丙炔基呀不理解怎么命名的哟？ HC≡C-CH2—为什么不是1-丙炔基

请问有谁知道普通话什么时候考试啊？在哪里考呀谢谢傻乎乎交了钱，却不知道在哪里考，什么时候考/ 你能告诉我吗？？？？

5,1落单了谁收我去旅游？室友都去很远的地方去玩，我没钱只能在边边耍

大神帮我看下语句哪里错了谢谢执行结果：窗口显示 7744=88^2 Private Sub Form_Click() Dim i As Integer, m As Integer, n As Integer, d As Double, s As Integer, k As Integer For n = 1000 To 9999 i = Int(n / 1000) m = Int(n / 100) - i * 10 s = Int(n / 10) - i * 100 - m * 10 d = n Mod 10 n = k ^ 2 Next If i = m And s = d And Sqr(i) = Int(Sqr(i)) Then Print n; End If End Sub

vb初学者求助！不要笑我谢谢· Private Sub Form_click() Dim a As Integer, b As Double, c As Single a = InputBox("inp1") b = InputBox("inp2") c = InputBox("inp3") Print "onenum:"; a Print "secnum:"; b Print "thrdnum:"; c If a < b Then m = a a = b b = m End If If a < c Then m = a a = c c = m End If If b < c Then m = b b = c c = m End If Print "threenumbiglittle:"; a; ">="; b; ">="; c End Sub 用inputbox 函数输入三数字在窗体显示比较大小 if 语句处看不懂望指教谢谢！最好给我讲讲这什么原理希望您讲得不是太深奥谢谢

请教点击command label1上出现蓝色的“快快乐乐学vb！” 谢谢

求助不是伸手党求不删！！！ Private Sub Form_click() Dim a As Integer, b As Double, c As Single a = InputBox("inp1") b = InputBox("inp2") c = InputBox("inp3") Print "onenum:"; a Print "secnum:"; b Print "thrdnum:"; c If a < b Then m = a a = b b = m End If If a < c Then m = a a = c c = m End If If b < c Then m = b b = c c = m End If Print "threenumbiglittle:"; a; ">="; b; ">="; c End Sub 用inputbox 函数输入三数字在窗体显示比较大小 if 语句处看不懂望指教谢谢！求吧主不删呀。没违规没发错吧！

请教为什么这样？！用vb写个程序点击窗体用inputbox函数输入三个数在窗体显示大小比较结果。这里面的if 语句看不懂这个t 是干什么的？ x,y,z if x>y then t=x x=y y=t end if if x>z then t=x x=z z=t end if if y>z then t=y y=z z=t end if pring x,y,z

求大师给我算个命吧！发万人贴几个月大师都不理啊！！本人倒霉透顶，急求转运良方大师救救额吧

菜鸟求助！万分感激这个实验的程序语言怎样设计的？

学渣求助！！！万分感激这个的语言怎么设计的？谢谢

亚麻长裙，柔情又好爽的女子

请问贵校的艺术工程系住哪些寝室？请问贵校的艺术工程系住哪些寝室？我们机构要在这里搞活动请问。。。谢谢

请想考从业资格证的联系我想考取会计从业资格证、教师资格证、普通话证、建筑5大员、造价员、计算机二级考试、英语四级、工程师、特殊工种（电工证、焊工证）等从业证书的请联系我注：可以免参加考试直接拿证电话：13594557419 qq575677433 培训地点：大学城永川

各位师兄师姐妹弟要考从业证吗？小弟在做宣传员兼职，就是跑退的。如果有想考什么教师资格证、会计证的可以联系我。然后安排参加培训也可以不参加考试一得教育帮您代考直接拿证哟详询 13594557419 qq 575677433

请要考从业资格证的联系我电话13594557419 qq575677433

【Sing】录了首海阔天空本想发上来可是要5级呵呵

非学霸做不来！！ 1，2，