尼克斯彻定理：任何一个大于等于1的整数的立方等于一串连续奇数之和，如：13=1，23=3+5，33=7+9+11。编写一个VB程序验证尼克斯彻定理，程序运行时，_刷题宝

题干

尼克斯彻定理：任何一个大于等于 1 的整数的立方等于一串连续奇数之和，如：13=1，23=3+5，33=7+9+11。编写一个 VB 程序验证尼克斯彻定理，程序运行时，在文本框 Text1 中输入一个大于等于 1 的整数，单击“验证”按钮 Command1，在文本框 Text2 中显示验证结果，运行界面如下图所示

实现上述功能的 VB 代码如下，其中加框处代码有错，请改正。
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 = sum + t
t=t+1
If sum = n ^ 3 Then flag = True

Loop

If flag = True Then Exit For

Next i
s = Str(n) + "^" + Str(3) + "="
Do While sum > 0

sum = sum-1

If sum = 0 Then

s = s + Str(i)

Else

s = s + Str(i) + "+"

End If

i = i + 2

Loop
Text2.Text = s
End Sub
加框部分应改为：① _________ ②__________

上一题下一题 0.99难度填空题更新时间:2019-06-28 07:10:20

答案(点此获取答案解析）

同类题1

编写“十六进制加法”程序。程序运行时，在文本框Text1和文本框Text2分别输入两个十六进制数，单击“计算”按钮后在文本框Text3上输出两个十六进制相加后的结果。程序运行如图所示。

（1）观察代码，触发代码执行的事件名是________________________
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Cmd1_Click()
Dim a1 As String, a2 As String, sum As String, t As String
Dim b1 As Integer, b2 As Integer
Dim dist As Integer, x As Integer, jw As Integer
a1 = Text1.Text: a2 = Text2.Text: sum = ""
dist = Len(a1) - Len(a2)
If dist < 0 Then
t = a1: a1 = a2: a2 = t
___________________
End If
For i = 1 To dist
a2 = "0" + a2
Next i
jw = 0
For i = __________________________
If Mid(a1, i, 1) >= "A" And Mid(a1, i, 1) <= "F" Then
b1 = Asc(a1) - 55
Else
b1 = Val(Mid(a1, i, 1))
End If
If Mid(a2, i, 1) >= "A" And Mid(a2, i, 1) <= "F" Then
b2 = Asc(a2) - 55
Else
b2 = Val(Mid(a2, i, 1))
End If
x = b1 + b2 + jw
jw = x \ 16
If __________________ Then
sum = Chr(x Mod 16 + 55) + sum
Else
sum = Str(x Mod 16) + sum
End If
Next i
If jw = 1 Then sum = "1" + sum
Text3.Text = sum
End Sub
（3）若将代码中加框处代码删除，则图中Text3中显示的结果为_________。

同类题2

食堂排队买菜。食堂排队买菜时，每个同学都有一个窗口买菜时间，如果某同学的等待时间超过他在窗口买菜时间的3倍，他就会不愉快，反之是愉快的。等待时间是指排在该同学之前的所有人的买菜时间之和。己知每个同学在窗口的买菜时间，请确定如何排队才能使愉快的人数最多，并输出最多的人数。例如：10个同学的买菜时间如下表所示，则最多有8个人是愉快的。

学生编号	l	2	3	4	5	6	7	8	9	l0
买菜时间	3	2	5	5	6	7	1	8	1	3
最终是否参与排队	是	是	是	是	否	是	是	否	是	是

Const n=10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer,a As Integer,ans As Integer,t As Integer
，读取每个学生的买菜时间，依次存储在数组a中，代码略
For i =1 To n－1
k = i
For j = n To i+1 Step－1
If Then k = j
Next j
If a(i)<>a(k) Then t = a(i):a(i)=a(k):a(k)=t
Next i
s=0:ans=0
For i = 1 To n
If s<ans Then s=s+a(i):ans=ans+1
Next i
Label1.Caption="共有"+Str(ans)+ "个人是愉快的，且参与排队买菜。"
(1)代码“Private Sub Commandl_Click()”中的Command1是_________(单选，填字母：

C．事件处理过程名)

(2)请在划线处填入合适代码。___________________________
(3)程序代码中，加框处代码有错，请改正。___________________________
(4)若10个同学的买菜时间都相同，则有_________个人是愉快的，且参与排队。

同类题3

以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（）

程序1：
If m<n Then

t=m：m=n：n=t

End If
Do While m Mod n＜＞0
r=m Mod n
m=n
n=r
Loop
Text1.Text=Str（n）

程序：
2n2
Do Whife m
程序2
Do While m＜＞n
Do While m＞n
m=m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Textl.Text=Str（n）

A．“程序1”和“程序2”中的代码实现相同的功能

B．若变量m和n的值为25，35，则“程序1”代码运行后文本框Text1显示“5”

C．“程序2”中的输出语句改为Textl.Text=Str(m)，会影响文本框Textl显示的内容

D．若变量m和n的值为11，7，则“程序2”代码运行后文本框Text1显示“1”

同类题4

的VB表达式为（）。

A．（2*a）/c+d

D．（2a）/（c+d）

同类题5

某算法流程图如图所示，该算法实现的功能为（）

A．交换x,y两数的值

B．求x,y两数最大值

C．求x,y两数最小值

D．以上都不对

相关知识点