题型：综合题 题类：常考题 难易度：普通
浙江省高中信息技术 数论练习
实现上述功能的VB代码如下，请完善代码：
Private Sub Command1_Click()
Dim n As Integer, i As Integer, t As Integer,sum As Long,s As String
n=Val(Text1.Text)
For i = 1 To n^3 Step 2 ‘变量i表示连续奇数的首个整数
sum=0:t = i:flag = False
Do While sum <= n^3 And flag = False
sum =
t = t +2
IfThen flag = True
Loop
If flag = True Then Exit For
Next i
s = Str(n) + “^”+ Str(3) + “=”
Do While sum >0
If sum = 0 Then
s = s + Str(i)
Else
s = s + Str(i) +“+”
End If
i = i + 2
Loop
Text2.Text = s
End Sub
S=0 ：T=1 For i=1 to 100 S=s+i*T T=-T Next i
| S=0 For i=1 to 100 S=s+i*(-1)^(i+1) Next i
| S=0 For i=1 to 100 S=s+i*(-1)^i Next i
| S=0：S1=0：S2=0 For i=1 to 50 S1=s1+2*i-1 S2=s2+2*i Next i S=s1-s2 ④ |
浙江省电话区号和地区对应关系如下表：
| 地区 | 衢州 | 杭州 | 湖州 | 嘉兴 | 宁波 | 绍兴 | 台州 | 温州 | 丽水 | 金华 | 舟山 |
| 电话区号 | 570 | 571 | 572 | 573 | 574 | 575 | 576 | 577 | 578 | 579 | 580 |
试题篮
