求vb编程统计1- 1000和bfori 1 to1000ifimod 30之间的素数个数然后AA 1 ifimod 70然后b b b 1 textprint 1 ~1000这个简单的\ for sum 0 for i1to1000step 2 sumsum inexti two while...loopsum 0 dowhileivb程序求1到1000之间的完全数。
1、VB编程求1- 1000以内任意两数间的所有质数!!!求高人指点!!!private subcommand 1 _ Click()dimaasintegerdimbasintegerdimica sintegerdimiasinteger，jasintegertext 1 btext 2 IFA > bthencaabcendifc 0 foriatobforj2toi 1 ifimodj 0 thenexitforendifnextjifjithenprintinxendsub .
2、高一VB编程问题。在线等!(13、 vb编程:求在[1~ 1000]区间中的所有整数中能被3整除的数的个数及能被7...
private子命令1 _ click()米蒂，a，b for 1 to1000ifimod 30 then aa 1 fimod 70 then b b 1 extprint 1 ~1000被3
