【visual basic】一些小程序做不出来了 求助【显卡吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：2,549,954贴子：
【visual basic】一些小程序做不出来了 求助收藏
代码一会电脑上贴吧复制 我先描述一下第一个。。。用户输入任意个整数 用inputbox 当输入0时结束输入 然后程序界面输出所有东西 一共输入多少数字，和啊 平均啊什么的 我不太明白的地方是从这些数里找最大最小 目前蒙出来有效的代码 但是老师要求数字0不计入统计 最小不能是0最大也不能。。。怎么整 第二个。。。好理解 listbox 按下一个按键 问用户一个数字 比如8 listbox就输出一些星星 第一行1个 第二行2个 一共8行 最后一行8个 很经典的程序 很简单 但是老师要我们用复杂的方法做 现在一个for循环搞定 但是题目要求必须是一个for里面包含另一个。。。怎么搞啊第三个是好多题 数组的运用 我在自己想想 (╯°Д°）╯（ /(.□ . \)(╯°Д°）╯（ /(.□ . \)(╯°Д°）╯（ /(.□ . \)啊啊啊啊啊啊AA啊啊啊啊啊啊啊啊啊啊崩溃了我真的不适合编程AA啊啊啊啊啊楼下上代码救救我啊◡ ヽ(`Д´)ﾉ ┻━┻
回复 崩溃 :蚩
c语言？——————————————————我在人群中看见你，你却看见我在人群中。
Private Sub cmdInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInput.Click
Dim intNumber As Integer = &&
Dim intAverage As Integer
Dim strAverage As String
Dim lngSum As Long
Dim strSum As String
Dim intCounter As Integer
Dim strCounter As String
Dim strDisplayTotal As String
Dim strDisplayAverage As String
Dim strDisplaySum As String
Dim intA As Integer
Dim intB As Integer = &&
Dim intMaximum
intCounter = 0
lngSum = 0
If intB & intNumber Then
intMaximum = intB
intNumber = Val(InputBox(&Enter an Integer (0 to Quit):&, &Input Number&))
If (intNumber & 0) Then
lngSum += intNumber
intCounter += 1
Loop Until intNumber = 0
intAverage = lngSum / intCounter
strAverage = Format(intAverage, &###&)
strCounter = Format(intCounter, &#####&)
strSum = Format(lngSum, &#####&)
strDisplayTotal = &Number Entered:
& & strCounter
strDisplaySum = &Sum of Numbers:
& & strSum
strDisplayAverage = &Average of Numbers:
& & strAverage
lblTotal.Text = strDisplayTotal
lblSum.Text = strDisplaySum
lblAverage.Text = strDisplayAverage
lblTotal.Visible = True
lblSum.Visible = True
lblAverage.Visible = True
Catch ex As Exception
MsgBox(&Invalid input.&)
这个是ui 楼上的代码都是按钮input number的
代码的实际情况 有些下划线的是我没用的
我得从头恶补vb了 现在概念完全混淆了 我擦◡ ヽ(`Д´)ﾉ ┻━┻
2010无力，只会6----来自好评如潮的 Nokia Lumia 520 上的爱贴吧 Windows Phone 客户端。
你是初学者吧找最大最小数非常简单int max=-32767;int i,a[100];读数;for(i=1;i&=n;i++) if(max&a[i]) max=a[i];用变量max不停地去比较数组里的每一个数，如果该数大于max则修改max的值为该数
跪了。。。思维混乱。
跪了，玩硬件吧
说下思路，输入的时候判断是否为0 是0 就终结。（你题目要求不是输入0就算结束吗？）然后用一个动态数组存储这些变量，动态数组定义我记得是 redim preserve
这题我做过，不过现在我去搞网络，已经不记得了
为什么不给变量定义一个区间值，我只是提供一个想法
就你这思维还是别搞程序了，简直无情
登录百度帐号推荐应用　　如图。两个正方形连在一起，图中标明数字单位为厘米，求阴影部分图形的面积。
楼主发言：1次 发图：0张 | 更多
　　96　　两个边长分别为16，12　　DE/BC=AE/AB　　S=AB*DE/2
　　28*12/2-12^2/2=（28-12）*6=96
　　这个好简单啊！　　嘿嘿！　　
　　边长之和为28，边长之差为4！剩下的还用看吗？
　　小学生应该还不会二元一次方程组吧。大家还是用小学生能够了解的　　方法做。。
　　S=AB*BC/2-BC*BC/2=(AB-BC)*BC/2=(28-4)*4/2=48　　对吗
　　改正:上面图显示不清楚4到底是哪个边长,应该BC=12,所以跟据上面公式应该是96啦
　　连接CE 三角形BDE与三角形CDE面积相等 所以三角形ABD面积就是三角形ACE的面积 就是AE与BC乘积的一半 答案是96
　　96　　　　
　　1/2*12*28-1/2*12*12=96
　　神仙啊
相似三角形啊
　　汗，我上初中时几何的选择和填空我都是画个高精度的图，直接用尺量的，90%都对的，哈哈
　　问题答案：三角形ABC面积-三角形DBC面积　　大正方形边长=（28+4）/2=16　　小正方形边长=28-16=12　　最终答案：12*28/2-12*12*2=96
　　答96的是笨蛋，应该是24,我用手机上的，不便详讲
　　28*12*1/2-12*12*1/2=24
　　不好意思哈是我算错了应该是96
　　168-72
　　哎！今天看了一天的【IQ无限】。到这里才碰到一道最简单的。　　哎！看来我也就五年级水平了。　　哎！太打击人了。
答案是96的人
真蠢到家了
　　用相似把DE长度求出来不就完了　　
在用两三角形面积相加
　　94.04,我看我们国家的小学生智力已经远超国外N多倍了。这个题的算法已经远非小学生能做的，最终的算法要计算出DE的长度。然后计算两个三角形的面积和。而DE长度已经到小数点后两位。大家仔细看看是不是这样。我们的小孩要经受这样的考验吗？
　　两个正方形么？
梯形公式算两个梯形面积
用正方形面积-去两梯形面积　　不过是长方形的话比较不容易
　　我为我的错误自己拍砖　　大的正方形做一条延长线
做成一个大的长方形
算大梯形的面积　　三角形BCD的面积
用大长方形-去这两块　　
　　我自己抽自己 我不会
　　两个直角三角形的面积之和
　　请问ADC在同一直线上吗？
　　貌似小学没有相似三角形的内容，这位才是正解。　　　　作者：dutull
回复日期： 11:36:00
　　　　　　问题答案：三角形ABC面积-三角形DBC面积　　　　大正方形边长=（28+4）/2=16　　　　小正方形边长=28-16=12　　　　最终答案：12*28/2-12*12*2=96
　　两正方形边长差是4和是28得12，16　　AB:BC=AE:ED得28：12=16：ED　　
　　这位更接近正解，因为小学五年级一般都是用最基本定义　　等高等地的三角形面积相等　　　　作者：careyhsu
回复日期： 17:50:00
　　　　连接CE 三角形BDE与三角形CDE面积相等 所以三角形ABD面积就是三角形ACE的面积 就是AE与BC乘积的一半 答案是96　　
　　等底。。。
　　利用三角形相似…
请遵守言论规则，不得违反国家法律法规回复(Ctrl+Enter)与 文章关键字：
相关的新闻
网友点击排行第1页/共5页
1、数学这种东西就是这样。你上课可能一听就懂，例题、讲解也都能看懂，但是就是不会做题。这主要是因为你做题太少，还没有掌握做题的思路。要想学好数学，一定要多做题，好成绩是建立在大量的题目上的。当然，做题的时候一定要思考，否则会事倍功半。
推荐一个方法：遇到不会做的题先不要急着看答案，先找到相似的例题，从头到尾看一遍。看完之后把例题盖住，自己做一遍，会做的话再去做原先的题目，不会的话再看。同类型的题目都可以这样解决。好好学习吧！
2、先想啊 实在想不出来就马上看答案 过段时间再拿出来做一遍 如果还是不会就再看答案 过段时间再做 直到会
如果一直不会 请跳河
3、要是思考是时间超出了平时的最大思考时间，就看答案吧
看答案也是要有技术的，要把答案的思路看出来就可以了，这样子，不断是积累，下次遇到类似的问题就知道思路，就会做了
4、首先要在心理上克服遇到困难题目而逃避的心理 ，做数学题时要学会多想多思考
而不是老想着自己搞不定要怎么样求助他人
5、有同感，听考研班老师说，现在先坚持做，注意方法，到11月份的时候你还会更痛苦的，脑子里 全是浆糊，感觉爆了似的，乱七八糟的。12月份就行了，你就会度过那个阶段。
6、做数学题时，发现不会做，是应该继续思考，还是直接看查考答案？
个人认为继续思考，至少坚持20分钟，我有时候走路都想背题目
7、如果没有一点思路的话就果断看答案，如果觉得自己能做出就不用，直觉会告诉你
8、看复习全书前，翻下之前的教材，然后认真做复习全书的题，认真思考，有不会的可以先跳过。但切忌不思考直接看答案，思考是个提高的过程，刚刚开始的时候总是会很难的。
9、复习中遇到不会做的还是尝试着去把它弄会吧，不管是看看答案还是咨询下别的同学，让自己拓宽下思路多了解些嘛，如果是在考研考试的时候遇到不会做的先跳过去呗，把会做的做好再回过头来慢慢思考，不然浪费时间的！
10、现在才几月份？怎么可能要跳过去？你应该想，还好，不是在考场上遇到这个难题！
你可以反复思考，看答案之后还要重做一遍，顺便把自己不会的知识重新看一下，不要求快，要自己鼓励自己！别人还不如你呢！
11、当你苦思敏想这道题时，你已经深入了这道题，但是由于思考时间过长，思路不会很清晰，就像修一条隧道，你已经修了大半部分，但是没有到头，然后你去做别的题，再回过头看此题的时候，刚才的乱思路已经消失，只剩下还未打通的隧道，这时你在原来的基础上继续想，就成功了
第1页/共5页
寻找更多 ""【求助】一道做不出来的数学题目．．大家帮帮忙啊【高中数学吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：222,115贴子：
【求助】一道做不出来的数学题目．．大家帮帮忙啊收藏
快试试吧，可以对自己使用挽尊卡咯~◆◆
若关于x,y的方程Y^2-(lga)x^2=1/3-a　表示两焦点在x轴上的椭圆.则a的取值范围是?
将方程化成椭圆标准形式x^2/[(a-1/3)/lga]＋y^2/[(1/3)-a]=1
&联立不等式[a-1/3)/lga]&[(1/3)-a]&0
&lga不等于0
&求解即可得（1/10）&a&(1/3)
登录百度帐号推荐应用