主页

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

gz4eyes 2008-01-04 10:33:17

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

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

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

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

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

...全文

22 条回复

切换为时间正序

请发表友善的回复…

发表回复

cike_1111 2008-01-06

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

回复赞

cike_1111 2008-01-06

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

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

回复赞

熊孩子开学喽 2008-01-05

小学数学问题

回复赞

cike_1111 2008-01-05

第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 2008-01-05

问题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 2008-01-05

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

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

回复赞

kbsssnlss 2008-01-05

14楼

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

回复赞

cike_1111 2008-01-05

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

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

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

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

回复赞

cike_1111 2008-01-05

问题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 值就是了

回复赞

kbsssnlss 2008-01-05

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

回复赞

cike_1111 2008-01-05

问题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 2008-01-05

一个球从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"

回复赞

kbsssnlss 2008-01-05

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

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

回复赞

kbsssnlss 2008-01-05

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

回复赞

cike_1111 2008-01-05

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

回复赞