当前位置: 高中信息技术 / 综合题
  • 1. 现要求编写VB程序实现如下功能:在文本框Text1中输入正整数n,单击命令按钮Command1后,在文本框Text2中会显示一个有规律的数字串,形式为“1 2 3 … n-1 n n-1…3 2 1”。 例如n=6时,显示的数字串为“1 2 3 4 5 6 5 4 3 2 1”。按此要求编写的程序如下,但加框处代码有错,请改正。

    Private Sub Command1_Click()

        Dim n As Integer, i As Integer, s As String

        n = Val(Text1.Text)

        s = “ ”

        For  i = 1 To     '(1)

            If i <= n  Then s = s + Str(i)

            Else

                    '(2)

        Next i

       Text2.Text= s  

    End Sub

    程序中加框(1)处应改正为

    加框(2)处应改正为

微信扫码预览、分享更方便