编写程序,计算3000到7000之间能被7整除但不能被17整除的数的个数,以及这些数的平方根之和
问题描述：
编写程序,计算3000到7000之间能被7整除但不能被17整除的数的个数,以及这些数的平方根之和
要求：运行程序,将结果四舍五入保留4位小数,并采用适当的方式输出
答
'在VB中运行如下代码Sub qiuhe()Dim x As IntegerDim y As DoubleDim ysun As Doublex = 0ysum = 0Dim i As IntegerFor i = 3000 To 7000If i Mod 7 = 0 And i Mod 17 0 Thenx = x + 1y = Sqr(i)ysum = ysum + yEnd ...