题目

给定两个十进制整数X和Y（X<=Y），求出从X到Y的所有整数中出现“1”的个数。例如：X=6，Y=15时，6，7，8，9，10，11，12，13，14，15，出现了7个“1”。小明编写了一个VB程序，功能如下：在文本框Text1中输入整数X，在文本框Text2中输入整数Y，单击“统计”按钮Command1后，在列表框List1中显示X到Y，并在标签Label3中显示从X到Y的所有整数中出现“1”的个数。程序运行界面如图所示，请在划线处填入合适代码。 （1） 下列程序段中句List1.AddItem中的AddItem是 （填字母：A . 属性名/B . 事件名/C . 方法名/D . 对象） （2） 为了实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim x As Integer, y As Integer, t As Integer Dim i As Integer, n As Integer, count As Integer x = Val(Text1.Text) y = Val(Text2.Text) count = 0 For i = x To y List1.AddItem Str(i) n = i Do While n > 0 If n Mod 10 = 1 Then       count = count + 1 End If       Loop Next i Label3.Caption = "X到Y之间1的个数有" +   +"个" End Sub （3） 如果删除加框处代码，并运行程序，在文本框Text1中输入“40”，在文本框Text2中输入“10”，单击“统计”按钮，则标签框Label3显示X到Y之间1的个数有个。 答案： 【1】C 【1】n=n\10【2】str(count) 【1】0

查看本题答案和解析