Question

vb中求一个数的平方等于1+3+5+7+9例如6的平方等于1+3+5+7+9+11

Answer 1

Private Sub Command1_Click()
Dim iSum#, iTemp#, iStep, iNo
iSum# = 0#: iStep = -1: iNo = 0
While iNo < 100 '求前100个
iStep = iStep + 2
iSum = iSum + iStep
iTemp = Sqr(iSum)
'If Abs(iTemp - Int(iTemp)) < 0.000001 Then ' 误差控制
If iTemp = Int(iTemp) Then ' 误差控制
iNo = iNo + 1
Debug.Print iNo; iTemp, iStep
'Debug.Print "第"; iNo; "个", iTemp; "*"; iTemp; "=1+...+"; iStep
End If
Wend
End Sub
结果为

第 1 个 1 * 1 =1+...+ 1
第 2 个 2 * 2 =1+...+ 3
第 3 个 3 * 3 =1+...+ 5
第 4 个 4 * 4 =1+...+ 7
第 5 个 5 * 5 =1+...+ 9
第 6 个 6 * 6 =1+...+ 11
第 7 个 7 * 7 =1+...+ 13
第 8 个 8 * 8 =1+...+ 15
第 9 个 9 * 9 =1+...+ 17
第 10 个 10 * 10 =1+...+ 19
第 11 个 11 * 11 =1+...+ 21
第 12 个 12 * 12 =1+...+ 23
第 13 个 13 * 13 =1+...+ 25
第 14 个 14 * 14 =1+...+ 27
第 15 个 15 * 15 =1+...+ 29
第 16 个 16 * 16 =1+...+ 31
第 17 个 17 * 17 =1+...+ 33
第 18 个 18 * 18 =1+...+ 35
第 19 个 19 * 19 =1+...+ 37
第 20 个 20 * 20 =1+...+ 39
第 21 个 21 * 21 =1+...+ 41
第 22 个 22 * 22 =1+...+ 43
第 23 个 23 * 23 =1+...+ 45
第 24 个 24 * 24 =1+...+ 47
第 25 个 25 * 25 =1+...+ 49
第 26 个 26 * 26 =1+...+ 51
第 27 个 27 * 27 =1+...+ 53
第 28 个 28 * 28 =1+...+ 55
第 29 个 29 * 29 =1+...+ 57
第 30 个 30 * 30 =1+...+ 59
第 31 个 31 * 31 =1+...+ 61
第 32 个 32 * 32 =1+...+ 63
第 33 个 33 * 33 =1+...+ 65
第 34 个 34 * 34 =1+...+ 67
第 35 个 35 * 35 =1+...+ 69
第 36 个 36 * 36 =1+...+ 71
第 37 个 37 * 37 =1+...+ 73
第 38 个 38 * 38 =1+...+ 75
第 39 个 39 * 39 =1+...+ 77
第 40 个 40 * 40 =1+...+ 79
第 41 个 41 * 41 =1+...+ 81
第 42 个 42 * 42 =1+...+ 83
第 43 个 43 * 43 =1+...+ 85
第 44 个 44 * 44 =1+...+ 87
第 45 个 45 * 45 =1+...+ 89
第 46 个 46 * 46 =1+...+ 91
第 47 个 47 * 47 =1+...+ 93
第 48 个 48 * 48 =1+...+ 95
第 49 个 49 * 49 =1+...+ 97
第 50 个 50 * 50 =1+...+ 99
第 51 个 51 * 51 =1+...+ 101
第 52 个 52 * 52 =1+...+ 103
第 53 个 53 * 53 =1+...+ 105
第 54 个 54 * 54 =1+...+ 107
第 55 个 55 * 55 =1+...+ 109
第 56 个 56 * 56 =1+...+ 111
第 57 个 57 * 57 =1+...+ 113
第 58 个 58 * 58 =1+...+ 115
第 59 个 59 * 59 =1+...+ 117
第 60 个 60 * 60 =1+...+ 119
第 61 个 61 * 61 =1+...+ 121
第 62 个 62 * 62 =1+...+ 123
第 63 个 63 * 63 =1+...+ 125
第 64 个 64 * 64 =1+...+ 127
第 65 个 65 * 65 =1+...+ 129
第 66 个 66 * 66 =1+...+ 131
第 67 个 67 * 67 =1+...+ 133
第 68 个 68 * 68 =1+...+ 135
第 69 个 69 * 69 =1+...+ 137
第 70 个 70 * 70 =1+...+ 139
第 71 个 71 * 71 =1+...+ 141
第 72 个 72 * 72 =1+...+ 143
第 73 个 73 * 73 =1+...+ 145
第 74 个 74 * 74 =1+...+ 147
第 75 个 75 * 75 =1+...+ 149
第 76 个 76 * 76 =1+...+ 151
第 77 个 77 * 77 =1+...+ 153
第 78 个 78 * 78 =1+...+ 155
第 79 个 79 * 79 =1+...+ 157
第 80 个 80 * 80 =1+...+ 159
第 81 个 81 * 81 =1+...+ 161
第 82 个 82 * 82 =1+...+ 163
第 83 个 83 * 83 =1+...+ 165
第 84 个 84 * 84 =1+...+ 167
第 85 个 85 * 85 =1+...+ 169
第 86 个 86 * 86 =1+...+ 171
第 87 个 87 * 87 =1+...+ 173
第 88 个 88 * 88 =1+...+ 175
第 89 个 89 * 89 =1+...+ 177
第 90 个 90 * 90 =1+...+ 179
第 91 个 91 * 91 =1+...+ 181
第 92 个 92 * 92 =1+...+ 183
第 93 个 93 * 93 =1+...+ 185
第 94 个 94 * 94 =1+...+ 187
第 95 个 95 * 95 =1+...+ 189
第 96 个 96 * 96 =1+...+ 191
第 97 个 97 * 97 =1+...+ 193
第 98 个 98 * 98 =1+...+ 195
第 99 个 99 * 99 =1+...+ 197
第 100 个 100 * 100 =1+...+ 199

Answer 2

你的题目能不能说清楚一点，你是要实现怎样的效果呢，你是要求1+3+5+7+9之和开方的数，还是怎样呢？

Answer 3

这个。。。。1+3=2^2,1+3+5=3^2,1+3+5+7=4^2.，1+3+5+7+9=5^2。。。。。。。。大侠 你要求的究竟是什么？