各们大侠,请帮帮忙,将下面的题目用VB程序写出来,万分感谢!

[gz4eyes]

1. 输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。若能则求出三角形的面积


2. 一个球从100 m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少m？最后一次反弹高度多少？


3.小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子中的一半多一个，以后每天都吃剩下桃子中的一半零一个，到第7天早上要吃时只剩下一个了，问小猴那天共摘下了多少个桃子？


4. 输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。

5. 由键盘输入一个正整数，找出大于或等于该数的第一个质数。

[波导终结者]

电脑作业还是自己做的好

[softdidi]

這種作業題目，建議大家不予解答。

[grellen]

这么简单的题也不自己做~~

[yahuu]

晕，这不是VB题目啊，这个是数学题目，自己搞定

[Tiger_Zhao]

http://community.csdn.net/IndexPage/SmartQuestion.aspx#homework

[cike_1111]

恩! 这些个题目有点挑战性!! 先去买点东西吃在说 饿了....

[kbsssnlss]

输入任意长度的字符串，要求将字符顺序倒置
Text1.Text = StrReverse(Text1.Text)

[kbsssnlss]

小猴在一天摘了若干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子中的一半多一个，以后每天都吃剩下桃子中的一半零一个，到第7天早上要吃时只剩下一个了，问小猴那天共摘下了多少个桃子？

Dim a As Integer
a = 1
For i = 1 To 7
a = (a + 1) * 2
Next
Text1.Text = a

[kbsssnlss]

一个球从100 m高度自由下落，每次落地后反跳回原高度的一半，再落下。求它在第10次落地时，共经过多少m？最后一次反弹高度多少？

Dim a As Single
Dim s As Single
Dim d As Single
a = 100

For i = 1 To 10
s = s + a
a = a / 2
d = a / 2
a = Format(a, "#.######")
d = Format(d, "#.######")

Next
Text1.Text = "共经过" & s & "m" & "," & "最后一次反弹高度 " & d & "m"

[cike_1111]

问题1分解,
求已知3边是否能组成三角形
//能组成三角形的条件是 任意2边+起来比第3边大 判断这个条件是否成立既可

求已知3边的面积[没有给出高]
// 可以根据<海伦公式>求出面积
海伦公式: 面积＝根号[d*(d-a)*(d-b)*(d-c)] 其中d＝周长的一半
sqrt=根号，abc是三边长

求解:
form 包括3个 text 1个 command

Private Sub Command1_Click()
Dim aa As Boolean
aa = True
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a + b < c Or a + c < b Or c + b < a Then aa = False
If aa = False Then
    MsgBox "输入的三条边不能组成三角形"
Else

d = (a + b + c) / 2
s = Sqr(d * (d - a) * (d - b) * (d - c))
MsgBox "能组成三角形,其面积为" & s
End If
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

[kbsssnlss]

哦~~三角形 的公式都忘记了

[cike_1111]

问题2 分解
弹10次后总经过多少米
//循环10次 上次高度+这次高度*2 [必须*2 因为其中包括了弹起和降落]

最后一次弹的高度
循环10次后的结果就是了

求解代码:
form = 1个 command

Private Sub Command1_Click()
a = 100
For i = 1 To 10
b = a / 2
s = s + b + a
a = b
Print "第" & i & "次弹起高度为" & a & "米  弹到最高点时总经过" & s & "米"
Next i
Print "第10次落地时总经过" & s + b & "米"
End Sub

看 窗体上的 print 值就是了

[cike_1111]

下班了! 晚上继续后面的3道题目!!

大家多研究下这样的题目对我们自己有好处

对楼主的帮助最少了[若楼主只知道抄代码的话...]

建议楼主看完自己不看我们的代码重新做一次会比较好!

[kbsssnlss]

14楼

每次落地后反跳回原高度的一半
为什么要　上次高度+这次高度*2

[cike_1111]

15 楼 所谓的*2 就是 程序中 多加的那个A

按例题做出来看 print 值就一目了然了

[cike_1111]

问题3 分析

分析题目可以得到如下数学计算方式

x/2+1+x/4+1+x/8+1+x/16+1+x/32+1+61+1+1=x
x计算得448

至于程序做出来。。。想了很久居然。。暂时想不出 T_T...
大家一起讨论下呀！！

[cike_1111]

第4题 分析
思路：使用 循环 字符数 to 1 配合mid 提取每个字符就可以了

Private Sub Command1_Click()
Dim a As String
a = "abcdefg"
For i = Len(a) To 1 Step -1
b = b & Mid(a, i, 1)
Next i
Print b
End Sub

[熊孩子开学喽]

小学数学问题

[cike_1111]

虽说小学数学问题 但是用程序做的话有些步骤转换不过来啊！
看啊 又有个问题了
大家一起来看看！

form = 1*text 1*command

Private Sub Command1_Click()
Dim i As Long
For i = Val(Text1.Text) To Val(Text1.Text) * 2
    If zhishu(i) = True Then
        MsgBox "next zhishu=" & i
        Exit For
    End If
Next
End Sub

Private Sub Form_Load()
Text1 = ""
Command1.Caption = "显示下个>=该数的质数"
End Sub

Function zhishu(ByVal n As Long) As Boolean    '判断是否为质数的函数 可以收藏   
 zhishu = true
 For ii = 2 To Int(Sqr(n))
      If n Mod ii = 0 Then
         zhishu = False
         Exit For
       End If
   Next ii
End Function

[cike_1111]

贴代码的时候解决了.. 都是粗心的若的祸。。。
21楼 （is me ）
解决第5题