哥哥姐姐们谁能帮我做着道题啊求求你们了!!!

作者&投稿:木侧 (若有异议请与网页底部的电邮联系)
求各位哥哥姐姐们,帮帮我这两道题怎么做,~




  1.
  Dim a(2) As Single
  Private Sub Form_Click()
  Dim mid As Single
  Dim i As Integer, j As Integer
  For i = 0 To 2
  For j = i + 1 To 2
  If a(i) > a(j) Then
  mid = a(i)
  a(i) = a(j)
  a(j) = mid
  End If
  Next j
  Next i
  For i = 0 To 2
  Print a(i)
  Next i
  End Sub

  Private Sub Form_Load()
  Dim i As Integer
  For i = 0 To 2
  a(i) = InputBox("input numbers")
  Next
  End Sub
  2.
  Private Sub Form_click()
  Dim a As Single, b As Single, c As Single
  a = InputBox("input a:")
  b = InputBox("input b:")
  c = InputBox("input c:")
  If a + b > c And a + c > b And b + c > a Then
  If a = b Or b = c Then
  If a = b And b = c Then
  Print "等边三角形"
  Else
  Print "等腰三角形"
  End If
  ElseIf a * a = b * b + c * c Or b * b = a * a + c * c Or c * c = b * b + a * a Then
  Print "直角三角形"
  Else
  Print "一般三角形"
  End If
  End If
  End Sub
  3.
  Private Sub Form_click()
  Dim a(10) As Single, min As Single
  Dim i As Integer
  For i = 0 To 9
  a(i) = InputBox("input the numbers:")
  Next
  min = a(0)
  For i = 0 To 9
  If min > a(i) Then
  min = a(i)
  End If
  Next
  Print min
  End Sub
  4.
  Private Sub Form_Activate()
  Print "单击窗体开始"
  Print
  End Sub

  Private Sub Form_Click()
  Dim i As Integer, j As Integer, k As Integer
  Dim sum1(3) As Single, sum2 As Single
  Dim a(3, 4) As Single, max As Single
  For i = 0 To 2
  For j = 0 To 3
  a(i, j) = InputBox("输入第" & CStr(i + 1) & "个人的成绩", "第" & CStr(j + 1) & "科")
  Next
  Next
  For i = 0 To 2
  For j = 0 To 3
  sum1(i) = sum1(i) + a(i, j)
  Next
  Print "第" & CStr(i + 1) & "个人的平均成绩:"; sum1(i) / 4

  Next
  Print
  For j = 0 To 3
  For i = 0 To 2
  sum2 = sum2 + a(i, j)
  Next
  Print "第" & CStr(j + 1) & "科的平均成绩是"; sum2 / 3
  sum2 = 0
  Next
  Print
  max = sum1(0)
  For i = 0 To 2
  If max < sum1(i) Then
  max = sum1(i): k = i
  End If
  Next

  Print "最好的学生是第" & (k + 1) & "个"
  End Sub

你好:
好象百度里不允许出现这样帮你解答算术、论文、答辩等问题。
努力!

您的这个问题放错地方了,建议你去软件里面试一试。

为什么上面的老兄说百度里不允许出现帮助解题之类的问题?不就是帮人和求人吗?否则就只剩下在这里瞎聊些乱七八糟的事了!


各位哥哥姐姐跪求Spring is coming的英语作文
杨柳出搅细,顶端有清理黄色草的叶子;带着大地的芬芳出现,集群,集群,和绿色的花朵,伸了个懒腰,打了个呵欠,小脑袋;孩子们又笨重的冬衣,变化对明亮的春天;鸟儿从家里飞了出来,首歌,告诉我们:春天来了!春天真的来了,在池塘里,在田野上,在天空中,处处都充满活力。大自然的风景变得丰富...

谁能写一篇挠痒痒的作文怕挠痒痒的姐姐
不要随意去挠别人的痒痒。有时候,我会和姐姐玩一些其他的游戏,避免去挠她的痒痒。我们会一起玩玩具狗、跳绳、捉迷藏等游戏,这些游戏同样也能让我们感到快乐。总之,挠痒痒虽然是一种有趣的游戏,但是我们应该尊重别人的感受,不要去挠那些怕痒的人。我们可以选择其他的游戏方式,同样能够获得快乐。

哥哥姐姐们,我想要一个网站...
http:\/\/www.edudown.net\/student\/tonghua\/Index.html 童话寓言 成语故事 学生园地 益智游戏 校园歌曲 学生科技 趣味智力题 开心时刻 这些都有 http:\/\/www.cnpoem.net\/cy\/ 成语故事

愿天下有情人终成眷属哥哥姐姐们进来帮帮我
因为好多女人不相信永远的. 我女友就是.如果你心真诚,而又用心去做了,那么她一定会到你的身边.如果她值得你去追,就行动吧.我给你找了些追女孩的方法,看看对你有帮助没.碰触女性的次数越多, 则她越容易对您倾心> 在碰触女性后, 比较能增进彼此的亲密感(身体上的接触是拉近与女性距离的最佳方式,...

哥哥姐姐们,这是小弟的家当,求你们帮帮我吧!谢谢!!!
当你再继续长大时,你的观点会发生变化,到那时她可能不是你的追求目标了。不要为眼前的利益而蒙敝,到时你会后悔的。作为一个未来的男人,你要有宽广的胸怀,不要计较现在的得失,否则到头来你会后悔不已。说真的,这个女孩不适合你。你也不适合她。听我一句,我是做教育心理学的。

急求各位哥哥姐姐帮写一个高中英语作文、我会加分加分啊!
Dear Sir or Madam,Hello.This is Li Hua from Beijing Xinhua High School.I am writing in the hope that I can obtain a chance to further my study in computer science at your university.I am a girl and was born in June,1993.I am studying in Beijing Xinhua High School and ...

哥哥姐姐们帮我啊!!!我想开网站
msn.com%2fhomepage.aspx&msppjph=1&tw=14300&kv=7&ct=1152371538&ems=1&kpp=2&ver=2.1.6000.1&rn=8tVjd5Iy&tpf=e477fd1b1533fe436273d977ffd8b31f 让你家人到这里注册个吧!免费的,上几年级了啊,4年级学问就差不多了吧,我想是的,从小的网站做起来,...

哥哥姐姐们 谁能告诉我有关《毕业生》的镜头分析?
本片为达斯汀霍夫曼第一部担任男主角的电影,一鸣惊人!全片的歌曲则是由当红团体 "Simon and Garfunkel" 所谱写及演唱,和电影情节相辅相成。Buck Henry(客串了饭店柜台人员)和 Calder Willingham 改编自 Charles Webb 的小说。导演则因在当年新锐的拍摄手法而获得了一座奥斯卡奖。当时尚未成名的奥斯卡...

...婚礼上准备些喜庆的佐料,可是我没有什么经验,哥哥姐姐们帮帮我...
我的 姐姐结婚,作为弟弟想在她的婚礼上准备些喜庆的佐料,可是我没有什么经验,哥哥姐姐们帮帮我呀!! 姐姐结婚,作为弟弟想在她的婚礼上准备些喜庆的佐料,可是我没有什么经验,哥哥姐姐们帮帮我呀!!... 姐姐结婚,作为弟弟想在她的婚礼上准备些喜庆的佐料,可是我没有什么经验,哥哥姐姐们帮帮我呀!! 展开 ...

和家长一起去买菜,写一篇作文 哥哥姐姐们帮帮我吧!
有一天早上,我听说姐姐和哥哥都要来我家吃午饭。我非常开心,因为他们一来,我可以吃到许多好东西了。于是,我就催着父母去菜场买一些好小菜,准备招待他们。正在我们要走出家门的时候,姐姐和哥哥已经来了。他们看到我们去买菜,就答应跟我们一起去菜场买菜。我说:“这样真好,人多力量大嘛!”大家...

阿拉尔市17372546457: 哥哥姐姐们帮我做一道题 谢谢!急!
鲜龚鹿胎: 设:正方形原来的边长为Xcm (x+3)^2=x^2+39 则:x=5 答:原来边长为5cm

阿拉尔市17372546457: 求一道数学题,大哥哥大姐姐们,帮帮我啊,明天就要交啊有甲乙两桶油,如果给甲桶倒入6千克,两桶油就一样多,如果给乙桶倒入18千克,乙桶的质量... -
鲜龚鹿胎:[答案] 甲 = (6 + 18 )÷ (5 - 1) = 6千克 乙 = 6 + 6 = 12千克

阿拉尔市17372546457: 求大哥大姐帮我做些题啊!求你们了~只用标多少题.写上答案就OK了!1.求一个数的近似数.保留整数表示精确到【】.保留一位小数.表示精确到【】位.保留【... -
鲜龚鹿胎:[答案] 这是小学二年级的吧?会上网居然不会做这些题目?晕,还不悬赏分数,做不完是不是明天被老师打?我暂且帮你吧,下不为例! 1: 个位 十分位 三 2: 19 19.0 18.97 3: 6 6.0 6.04 4: 56.517 56.52 74.4714 74.47 5: = 约 约 约 = 6: A (第二个题目应...

阿拉尔市17372546457: 做道比例尺题我数学超烂,求各位好心哥哥姐姐帮忙做几道比例尺求比值题!1 求比值0.3公顷:0.3平方米 2.4时:72分 -
鲜龚鹿胎:[答案] 1、 0.3公顷:0.3平方米 =0.3*10000平方米:0.3平方米 =3000:0.3 =10000:1 =10000 2、2.4时:72分 =2.4*60分钟:72分钟 =144:72 =2:1 =2

阿拉尔市17372546457: 急~哥哥姐姐们帮我做一道物理题!
鲜龚鹿胎: (1)R = V平方除以P=1210 欧(2) V=1210欧 乘 3A = 3630V (3)最大功率:3A平方 乘 1210欧最小功率:110V平方 除以 1210欧

阿拉尔市17372546457: 哥哥姐姐们来帮帮我啊!求解应用题,一道填空题.
鲜龚鹿胎: 1 1/0.9-1=1/9. 2 50*(1+40%)=70, 50+70=120 120/ 五分之一=600. 3 140*20%=28 28/4=7 140/7=20 20-4=16

阿拉尔市17372546457: 请哥哥姐姐们帮我解一道化学题...
鲜龚鹿胎: 答案是A. 因为一个化学方程式的能量是旧键的断裂新键的形成.所以S可以不要考虑因为1MOL H2 才生成 1MOL H2S.而与CL Br I反映 1MOL 可以生成2MOL.又因为它们是同族元素.所以同组元素和H2反应看非金属性.非金属性越强和H2反映越剧烈,行成的化学键越稳定,放出的热量就越多.

阿拉尔市17372546457: 求各位哥哥姐姐帮我算一道数学题,只用算式和最后答案就够了!急!一种卷子共有十道题,对一题得10分,做对某到试题的一部分得3分,完全不会做倒... -
鲜龚鹿胎:[答案] 设这位学生会做对一部分的为X题,完全不会做的为Y题,则做对的题有10-X-Y题, 依题意有:10*(10-X-Y)+3*X-6*Y=77, 化简得:7X+16Y=23, 显然这是一道不定方程,而且当且仅当X=1且Y=1时有意义 所以这位学生部分做对的有1题,...

阿拉尔市17372546457: 语文问题,各位哥哥姐姐,小妹快死了,帮我解一下题目好不好?求求你们了!!! -
鲜龚鹿胎: 1、我感到我和它们非常相似.像它们一样,我总是耐心地把自己的努力集中在一个目标上.我之所以如此,或许是因为有某种力量在鞭策着我...

阿拉尔市17372546457: 哥哥姐姐们,帮帮我,解这道题 -
鲜龚鹿胎: 解设每套最多可降价x元 则240-x大于等于160(1+15%) 240-x大于等于160+24 -x 大于等于-56 x小于等于56 答每套最多可降价56元

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网