1. 下列VB程序的功能是:程序运行时,在文本框Textin中输入正整数n.单击命令按钮Command1后,统计1至n的整数中包含数字2的整数个数,并在文本框Textout中输出结果,若n=20,有2、12和20三个整数包含数字2,则文本框Textout中输出“3”。

实现上述功能的VB程序如下,请在划线处填入合适的代码。

Private Sub Command1_Click()

    Dim i As Long, n As Long, t As Long

    Dim s As Long     ′s用于统计1到n之间包含数字2的整数个数

    Dim k As Boolean

    s = 0

    n = Val(Textin.Text)

    For i = 1 To n

        k = False

        t = i

        Do While Not k And t > 0

            

            t = t \ 10

        Loop

        If k Then

    Next i

   Textout.Text = Str(s)

End Sub

【考点】
循环结构语句及程序实现;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 普通
能力提升
变式训练
拓展培优
真题演练
换一批