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

gz4eyes 2008-01-04 10:33:17
1. 输入三角形的三条边a,b,c的值,根据其数值,判断能否构成三角形。若能则求出三角形的面积


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


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


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

5. 由键盘输入一个正整数,找出大于或等于该数的第一个质数。
...全文
161 点赞 收藏 22
写回复
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

回复
小学数学问题
回复
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
恩! 这些个题目有点挑战性!! 先去买点东西吃在说 饿了....

回复
Tiger_Zhao 2008-01-04
http://community.csdn.net/IndexPage/SmartQuestion.aspx#homework
回复
yahuu 2008-01-04
晕,这不是VB题目啊,这个是数学题目,自己搞定
回复
grellen 2008-01-04
这么简单的题也不自己做~~
回复
softdidi 2008-01-04
這種作業題目,建議大家不予解答。
回复
波导终结者 2008-01-04
电脑作业还是自己做的好
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7452

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告