题库 高中信息
题干
把一个数分成若干个自然数之和，如果要使这些自然数的乘积最大，那么这些自然数应全是2或3，且2最多不超过2个。在文本框Text1中输入一个自然数，单击“分解”按钮，在列表框List1中输出他们的乘积表达式。程序运行的界面如图所示：
Private Sub Command1_Click()
Dim n As Integer，cj As Integer，s As String
n＝Val(Text1.Text)
cj＝____①____
s＝”s＝”
Do While ____②____
If n<>4 Then
n＝n－3
cj＝cj*3
s＝s＋”3×”
Else
n＝n－2
cj＝cj*2
s＝s＋”2×”
End If
Loop
cj＝____③____
If n＝3 Then s＝s＋”3” Else s＝s＋”2”
Text2.Text＝s
Text3.Text＝cj
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
Private Sub Command1_Click()
Dim n As Integer，cj As Integer，s As String
n＝Val(Text1.Text)
cj＝____①____
s＝”s＝”
Do While ____②____
If n<>4 Then
n＝n－3
cj＝cj*3
s＝s＋”3×”
Else
n＝n－2
cj＝cj*2
s＝s＋”2×”
End If
Loop
cj＝____③____
If n＝3 Then s＝s＋”3” Else s＝s＋”2”
Text2.Text＝s
Text3.Text＝cj
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
答案(点此获取答案解析）
。
（ ① ）
找出疑似错误位置
对每个疑似错误位置分别修改数据，并统计每局比分
Then
相关知识点