Demo entry 6687682

vba

   

Submitted by anonymous on Dec 30, 2017 at 08:46
Language: VB.net. Code size: 287 Bytes.

Sub 输入连续数字()
' author: code4101
    开始 = InputBox("请输入代码开始行数", "输入行数", "50")
    结束 = InputBox("请输入代码终止行数", "输入行数", "50")
    For i = 开始 To 结束 - 开始 + 1
        Selection.TypeText Text:=i
        Selection.TypeParagraph
    Next
    Selection.TypeText Text:=结束 - 开始 + 1
End Sub

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).