题库 高中信息

题干

兔子吃萝卜。兔子拔了一堆萝卜,第一天吃了一半,还嫌不过瘾,又吃了一个,第二天又将剩下的萝卜吃掉一半,又多吃了一个,以后每天如此。到第10天想再吃时,见只剩下一个萝卜了。求第一天共拔了多少萝卜。小明编写了一个VB程序,用于计算兔子第一天拔的萝卜总数。程序运行界面如图所示。

Private Sub Command1_Click()
Dim i As Integer,sum As Integer
sum=1
For i=9 To 1 ____①____
____②____
Next i
Text1.Text=Str(sum)
End Sub
回答下列问题:
(1)该程序采用的算法是________(填:解析算法/枚举算法)
(2)显示计算结果的控件属于________类,该控件的名称是________。
(3)划线①处应填入的语句为________。
划线②处应填入的语句为________。
上一题 下一题 0.99难度 填空题 更新时间:2017-03-01 07:17:32

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

同类题3

为了安排寝室,需要将学生按性别分类。小陈设计了一个VB程序,运行该程序,单击“数据导入”按钮Command1后,左侧列表框List1中显示40位学生的编号和性别;然后单击“数据处理”按钮Command2,中间列表框List2中显示所有女生的信息,右侧列表框List3中显示所有男生的信息,并在相应的列表框下方显示人数。运行结果如下图所示。

实现上述功能的VB程序段如下,分析回答下列问题。
Dim a(1 To 40) As String  '数组a用于存储学生编号
Dim b(1 To 40) As String   '数组b用于存储学生性别
Private Sub Command1_Click
Dim i As Integer
List1.Clear
List2.Clear
List3.Clear
'在列表框List1中显示40位学生的编号和性别
For i=1 To 40
.AddItem a(i)+” ”+b(i) ①
Next i
End Sub
Private Sub Command2_Click
Dim n As Integer   '用于存储女生人数
Dim m As Integer   '用于存储男生人数
Dim i As Integer
List2.Clear
List3.Clear
n=0: m=0
For i=1 To 40
If  b(i)=”女”  Then
List2.AddItem a(i)    '在列表框List2中显示女生信息
n=n+1
Else
List3.AddItem a(i)    '在列表框List3中显示男生信息

②
End If
Next i
Label1.Caption=”女生人数:”+Str(n)
Label2.Caption=”男生人数:”+Str(m)
End Sub
(1)小陈将学生的编号和性别分别存放在数组a和数组b中,这段代码书写在窗体的加载事件中,下列属于该事件的是(____)
A.Form_ClickB.Command1_Click 
C.Form_LoadD.Form_Unload
(2)①和②加边框处分别有误,根据题意修改源代码,①处应修改为________,②处应修改为__________