vb循环程序设计,vb程序设计期末考试题及答案

米蒂，VB关于VB循环Structure程序设计，VB算法和程序设计79画三个for 循环外两个循环 X重新赋值直到最后一个。求个VB 程序设计题目分类:计算机/网络> >程序设计>其他编程语言描述:问题:勾股定理中三个数的关系是a2 b2c2。

For是用于循环执行一系列操作的语句。语法如下:for 循环当变量从值开始到值结束I1时，当A(1，1)1*11I2时，当A(2，2)2*24I3时，当A(3，3)3*39I4时，当A(4，4)4*416I5时。首先，从打印语句来看，只有一个weight 循环，所以输出的是五个数字；然后，打印对角线元素A(I，I)，选择对角线元素IJ，A(I，J)I*J，so B。

i1不小于2，外执行循环j1不大于2，内执行循环BB 10 11jj 11 12不大于2，内执行循环BB 11 122。end循环AA 10 11ii (1)112以内不小于2，execution 循环j1以外不大于2，execution循环BB 12 13jj 11 12以内不大于2。end -2内/AA 11 12ii (1)213小于2，而end -2外/ output A和B的值分别为24。

分类:计算机/网络> >程序设计> >其他编程语言描述:问题:勾股定理中三个数的关系是a2 b2c2。写一个程序输出30以内满足上述关系的整数组合，比如3，4，5是一个整数组合。以下是我自己尝试做的，不正确，但不知道哪里错了。我在此请求。

两个外层循环 X每次都被重新分配，直到最后一次x3执行内层循环然后x15。只有最里面的执行语句有效，初始值为3 6 615。At 循环到i4，j3，x3然后执行上一次k 循环在i3k1，xx 63 69k2，xx 69 615然后退出整循环，此时x15。

n5mm 6 dima(ntom)for il bound(a，1)toubound(a，1)a(I)in expi printa(lbound(a，1))；A (Ubound (a，1)) fori Bound (a，1) to Ubound (a，1) A (i) I Nexti通过上面的循环，a(5)到a(6)的值分别为5到6lbound(a，1)。

publicstrasstringprivate subform _ Load()strtext 1。textstrendsubprivatebitimer 1 _ Timer()DimxAsStringxMid $(Str，6) Mid$(Str，1)StrxText1的interval属性。TextxEndSubTimer设置为1000，每秒一次，在窗体上添加一个文本控件，程序复制一下就OK了。不知道是不是你想要的结果。

米蒂，kk1 for i1 to 6 for J1 toi ifj 1 thenk 1 else kk