求助一道相当简单的题，我懒得算，求大神帮忙编个小程序，最好vb的，语言简单点，我才刚学怎么办 - 程序设计 -
- Powered by Discuz!
求助一道相当简单的题，我懒得算，求大神帮忙编个小程序，最好vb的，语言简单点，我才刚学怎么办
要求用户不停地输入学生的学号和考试成绩，直到学号为-1结束&&初学C语言,试编了一个程序。调试成功,但结果很大体感觉上应该是优化的,懒得算啦其实我以前和楼主一样,碰到程序问题就很往往一个很简单很基础的问题
相关主题：
Dim sec, min, h Private Sub Command1_Click() TimerEnabled = True h = Text1ext min = Text2ext sec = Text3ext TimerEnabled = False End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Form1ackColor = &HFFFF00 TimerEnabled = False TimerInterval = 1000 TimerEnabl
万分感谢&&我用一个按钮控制输出矩阵 Private Sub command1_click() Dim a(10, 10) As Integer For i = 0 To 9 For j = 0 To 9 If i = j Then a(i, j) = 1 Else a(i, j) = 0 End If Print a(i, j); Next Print vbLf Next End Sub
for i=0 to 23
SUM=SUM*（365-i）47;365
靠，这个还相当简单啊？您不用数列或者其它外门邪道的简便算法您这能简单啊！
答案应该是 不过我可是没想到啥简洁的算法 数列也早已遗忘在初恋年代&&我是端直在XCEL套了公式算的&&不晓得准不准.
题目如下：有17个人，名字分别是A，B，C……O，P，Q；【每次点&&5,6,6, 的排列方式如果像你这样做的话有重复项的.. 你的第一个A就出来了两次 只是身份不同..如果是这样的话,那么5,6,6,就把17个人显示不全的.. 因为那样的话是170人
一道很简单的题,我懒得算,求大神帮忙编个小程序,最好vb的,语言简单一点,我才刚学SUM=1for i=0 to 23SUM=SUM*(365-i)/365next
要求单击Command1，就发送数据，然后text2自动接收发送出去的&&发送用定时器，你懂，接收用中断。MSComm1有接收中断事件。MSComm1接收模式选0，接收中断阈值你这里选了4。 自己感觉最好是选1，在中断里缓存判断起始停止位。
[通过 QQ、MSN 分享给朋友]求 VB大神帮我读一道题啊_西南财经大学吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：51,509贴子：
求 VB大神帮我读一道题啊
Dim i, k, a(10), P(3)k = 5For i = 0 To 9
a(i) = iNext iFor i = 0 To 2
P(i) = a * (i * (i + 1))Next iFor i = 0 To 2
k = k + P(i) * 2
Next iPrint k
结果得出来为什么是21啊，啊啊啊啊
数组结合循环是什么意思啊，怎么得出值啊、
看起好像像高中的程序框图噢……
这里真的对吗？
a不是数组吗
楼上是纱布
Dim i, k, a(10), P(3)k = 5For i = 0 To 9a(i) = iNext iFor i = 0 To 2P(i) = a
(i * (i + 1))\!!!!这是不是多大一个星Next iFor i = 0 To 2k = k + P(i) * 2 Next i如果这样的话p(0)=a(0*1)=a(0)=10p1=a2=2p2=a6=6k=5+2*2+2*6=21
多打一个星号
额，七楼已经说得很清楚了
vb目测调控到60的渣路过
内&&容:使用签名档&&
保存至快速回贴
为兴趣而生，贴吧更懂你。&或求大神。。。怎么使用VB来做蜘蛛体软件~~~~~~~~标题要长~~~~~~~~_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：63,287贴子：
求大神。。。怎么使用VB来做蜘蛛体软件~~~~~~~~标题要长~~~~~~~~收藏
蜘蛛体软件???
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或求各位大神教教我如何使用VB做一个会自动说话的软件，最好是速度很快的。_好搜问答
|注册&您有新任务，
求各位大神教教我如何使用VB做一个会自动说话的软件，最好是速度很快的。
被浏览21次
最好是可以一大段文字一大段文字的，那位大神可以加我QQ教我一下，我的QQ：
&&|地图|没有搜到，请您重新搜索？歌曲歌手操作上一页下一页&匿名提交回答验证码
下面是答答童鞋给您的小建议，您看靠谱吗？初来乍到，弄错了您不要生气哦(*^__^*)答答小贴士
用微信扫描二维码分享至好友和朋友圈分享到：
大家都在搜好搜APP下载好搜摸字APP 随时随地随心搜索 用好搜， 特顺手！
正在为您准备您擅长的问题有没有感兴趣的？
第9天生活就像海洋，只有意志坚强的人才能达到生命的彼岸。知道了求大神用vb程序编写给定一个整数N,求该整数的原码,反码,补码的程序！！！_百度知道
求大神用vb程序编写给定一个整数N,求该整数的原码,反码,补码的程序！！！
急用！！！
Text2; a(i)& Next i& a(1) = a(1) + 1&& For i = 15 To 1 Step -1& For i = 1 To 15& End If&nbsp.Text = & x = x \ 2&& Text4;& & If a(16) = 0 Then& &nbsp.Text = Text2.Text& & Text4; Wend& & For i = 1 To 15&& a(i) = x Mod 2& i = i + 1&nbsp.Text&nbsp.Text = a(16)&= 0 Then a(16) = 0 Else a(16) = 1& & Text4; a(i) = 0&nbsp.baidu.Text = Text2; & a(i)&nbsp.Text = Text4. i = 1& For i = 16 To 1 Step -1&nbspPrivate Sub Command1_Click()&nbsp.Text)& &&nbsp.Text & /zhidao/wh%3D450%2C600/sign=f123e0b59c/0b7b0c11dfa8& a(i) = 1 - a(i)& a(i + 1) = a(i + 1) + 1& &nbsp://d. x = Abs(x)& Next i& a(i)& While a(i) = 2 And i &lt://d; Next iEnd Sub<img class="ikqb_img" src="/zhidao/pic/item/0b7b0c11dfa8 Next i& Text2.Text & & & Dim a(16) As Integer, x As Integer& &nbsp.Text = a(16)&&nbsp
来自团队：
其他类似问题
为您推荐：
补码的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}