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

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


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


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


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

5. 由键盘输入一个正整数,找出大于或等于该数的第一个质数。
...全文
210 22 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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
  • 打赏
  • 举报
回复
恩! 这些个题目有点挑战性!! 先去买点东西吃在说 饿了....

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
  • 打赏
  • 举报
回复
电脑作业还是自己做的好
加载更多回复(2)

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧