新手求帮助

ziqing1023

你们好！      视频教学5有一个作业，要求制作一个小程序要求：用户录入每个学生的姓名，当用于录入quit时，程序停止接收用户的录入，并且显示出用户输入的学生的个数，请教如何编写，谢谢。

爱疯

Sub test()
    Dim name As String
    Dim i As Integer
    Cells.ClearContents

    Do
        name = InputBox("请输入姓名:")
        If name = "quit" Or name = "" Then
            Exit Do
        Else
            i = i + 1
            Cells(i, 1) = name
        End If
    Loop
    MsgBox "输入学生的个数：" & i
End Sub
input.rar (7.85 KB, 下载次数: 3)

2016-12-13 10:11 上传

点击文件名下载附件



你说的不是VBA的视频教学吧

ziqing1023

爱疯 发表于 2016-12-13 10:12
Sub test()
    Dim name As String
    Dim i As Integer

您好！谢谢您的回复.是视频教学：http://www.excelpx.com/thread-372054-1-1.html，里面的老师用的是while循环语句。