怎么写程序代码 vb下面的帮助程序代码 结构包含循环结构和判断分支结构 612 dimt、-1。应该是loop 结构和branch 结构并且结果是6和12，这是准确的，VBFor循环结构的问题，大侠们帮忙复制一份程序代码白~ ~感谢fora1到30 for bito 30 if int(sqr((A 2 B 2))sqr((I 2 J 2))。
1、 vb的几种循环 结构是什么?private subcommand 1 _ click()dimasintegerdimasintegerdimaaintegerdorandomizeant(RND * 1000)sumsum AII 1 loopwhile 10 t如果不超过10就会循环，所以循环停止时会是12。因为tt 2IftMod30Thent12没有进入循环，S中只有一个6能被3整除，因为SS TSS Tendifftt 2循环打印，t .应该是loop 结构和branch 结构并且结果是6和12。这是准确的。
2、 vb 程序源代码之前给别人写过一个，现在不知道放哪了。曲柄滑块机构slidercrankmechanism是利用曲柄和滑块实现转动和运动之间转换的平面连杆机构，也称曲柄连杆机构。VB 程序代码:PublicStatus，Status2AsInteger，tmp，tmp 2 assinglevatesubcommand 1 _ Click(indexas integer)if text 10 then text 1 dimi，
9 if status 0 and status 21 tenmptext 1 if status 0 then text 1 end iftext 1。SetFocusSendKeysIndex，trueifstatus 0 thentmtptext 1 ifstatus 21 thentmp 2 text 1 debug，Printtmptmp2地位；状态2；vbCrLf我也是在网上找到的。我看了结构应该没问题。
