题库 高中信息

题干

(加试题)幸运数。一组1幵始的奇数数列为:
1,3,5,7,9,11,13,15,17,19,21,23,25,……
此数列的第二项为3,将此数列的第3n个数删除,留下的数为:
1,3,7,9,13,15,19,21,25,……
新数列的第三项为7,将新数列的第7n个数删除,留下的数为:
1,3,7,9,13,15,21,25,……
若一直重复上述步骤,最后剩下的数就是幸运数:
1,3,7,9,13,15,21,25,31,33,37,43,49,51,……
下列程序的功能是找出1000以内的幸运数,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim a(500) As Integer, b(500) As Integer
Dim i As Integer, m As Integer, k As Integer
Dim top As Integer, bott As Integer
’产生由1开始的奇数数列,依次存储在数组a中,代码略
top = 2: bott = 500
Do While top < bott

  ①

For i = 1 To bott

  If i Mod a(top) < > 0 Then

b(k) = a(i)

___________________ ②

End If

Next i

top = top + 1

For i = 1 To bott

A(1) = b(1)

Next i

Loop
For i = 1 To bott

List1.Addltem Str(a(i))

Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(
A.对象名B.属性名C.事件名)
(2)改正加框处的代码,并在横线处填写合适的代码
①_____________________________ 
②_____________________________
③_____________________________
上一题 下一题 0.99难度 填空题 更新时间:2019-07-10 02:40:41

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

同类题1

甲乙双方进行一场球类比赛,一局计分的规则是:赢1球得1分,用“1”表示;输1球失1分,用“0”表示。当任一方得分大于等于6分,且领先对方2分及以上,领先方赢一局。如甲选手一局比赛数据为“101110101”,表示甲选手得6分失3分,局比分
小王用一个字符串记录了甲选手多局比赛数据,其中有一处错误,位于连续多个“0”的最后一个。为了找出错误,小王的处理方法如图a所示,对示例中疑似错误位置6和20分别修改数据,并统计每局比分。他编写了VB程序,功能如下:在窗体Form l的文本框Text l中输入记录数据,单击“分析”按钮Command 1,在列表框List 1中输出修改位置以及修改后每局的比分。程序运行界面如图b所示。
(1)下列对象中有Text属性的是________(单选,填字母:
A.Command 1/B.Form 1/C.Text 1)。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
   
图a 图b
Private Sub Command 1_Click()
Dim sp As String,s As String s    s存储甲选手多局比赛的记录数据,长度小于50
Dim a(1 To 50)As Integer,e(1 To 20)As Integer
Dim I As Integer,j As Integer,k As Integer,n As Integer,m As Integer
Dim fl As Integer,f2 As Integer



  
Next i



    找出疑似错误位置

Loop
If     Then

End If

Loop
    对每个疑似错误位置分别修改数据,并统计每局比分






If  Then


End If
Next j

List 1.AddItem sp
   
Next i
End Sub