Open App.Path & "\1.txt" For Input As #1 '打开子目录下文件1.txt，文件号为#1 dim a,b as string Do While Not EOF(1) ' 循环至文件尾。Input #1,a ' 将数据读入变量a。b=b+a Loop'得到文件内容b Close #2 '关闭文件 dim x,y,z as integer x=1:y=1:z=1 do wh...

str = str & b & vbNewLine ‘读取txt每一行中的内容，并将内容放到变量str中，并加上换行符 Loop Close #1 ‘关闭 Next ’这里循环读出所有的文件内容 ‘创建打开文件名为“保存后的文件.txt”的文件，如果不存在则创建名为“保存后的文件.txt”的txt文件。Open CurPath & "/" & "保存后的...

Dim TextLine Open "TESTFILE" For Input As #1 ' 打开文件。Do While Not EOF(1) ' 循环至文件尾。Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。Debug.Print TextLine ' 在立即窗口中显示数据。Loop Close #1 ' 关闭文件。格式要是不固定的话，也用上面方法，...

Public Function Flicker() As Boolean Static i As Long, last_led As Long If i < start_led Then i = start_led txtLed(last_led).BackColor = vbWhite '将前一盏灯变回白色 txtLed(i).BackColor = vbRed '将当前灯变成红色 last_led = i i = i + 1 If i > end_led Th...

Close 这种方法是逐行读取，一直循环到文件结尾。在循环中，TextLine就是每行内容 如果要判断文件内容的话，推荐第二种方法，在Do-Loop循环中写一些判断函数，推荐在“Line Input #1, TextLine”这一行下面再加一行“VLine = Trim$(TextLine)”，可以去除每一行开头与结尾多余的空格，判断的更精细 ...

//C# code private void worker(int i){ if(i==1){ for(i;i<=1000;i++){ //do something...} worker(i);}else{ i=1000;for(i;i>=1;i--){ //do something...} worker(i);} } worker(1);逻辑是这样 ，楼主自己用vb写一下就行了 ...

Do While Not EOF(nfilenum) '循环直到文件尾 Line Input #nfilenum, strline '每次读取一行存放在strline变量中 strall = strall & strline & vbCrLf '每次读取都将所读到的内容连接到strall变量中 Loop Text1.Text = strall '显示得到打开文件全部内容 Close #nfilenum 这是读取一个...

设计一个循环体，在循环体内加一个条件判断是否满足，或满足跳出循环就行了。

Dim lngHandle As Long 文件句柄 Dim strAll As String 所读取的文本文件的所有内容 Dim strLine As String 在循环中存放每行的内容 strFileName = c:\b txt 获得文件的句柄 lngHandle = FreeFile（）For后面的参数表示以何种方式打开文件 Input是读取 Output是覆盖写入 Append是追加写入 Open str...

Private Const SND_NODEFAULT = &H2 '不使用缺省声音 Private Const SND_MEMORY = &H4 '指向一个内存文件 Private Const SND_FILENAME = &H20000 '指向一个实际文件 Private Const SND_LOOP = &H8 '循环播放 Private Const SND_ALIAS_START = 0 '结束播放 Dim m_snd() As ...