精华内容
下载资源
问答
  • 这一组代码是一个使用事例,详细介绍了VB中图片在窗体上循环滚动效果的实现。
  • vb无限弹窗

    2019-01-20 22:31:24
    点击该程序后出现无法关闭的小弹窗,再尝试关闭小弹窗时会出现另一弹窗,一直试图关闭会出现无限弹窗。当出现弹窗无法关闭时,请使用任务管理器关闭。
  • VB程序设计—For循环结构

    千次阅读 2020-04-20 18:52:47
    for循环 1.语法结构 2.执行顺序 3.注意说明 (一)语法结构: For 循环变量=初值 to 终值【step 步长】 【循环体】 【Exit for】 Next 【循环变量】【,循环变量】 计算1累加到100的和 Dim i as integer '声明变量i...

    for循环

    1.语法结构

    2.执行顺序

    3.注意说明

    (一)语法结构:
    For 循环变量=初值 to 终值【step 步长】
    【循环体】
    【Exit for】
    Next 【循环变量】【,循环变量】

    计算1累加到100的和
    
    Dim i as integer         '声明变量i
    Dim sum as long          '声明变量sum
    i=1:sum=0                '将1赋值给变量i,将0赋值给变量sum
    For  i=1 to 100 step 1   '循环1-100之间的数,循环完一次就将i+1
    	sum=i+sum        '将sum+i的值赋值给新的sum
    Next i
    print sum                '循环结束后输出结果sum
    
    

    执行顺序

    ①将1赋值给i,然后判断i是否在1-100区间内
    ②如果在,执行循环体内的sum=sum+i
    ③由于step 1,所以相当于变量i=i+1
    ④再继续判断是否在1-100区间内
    ⑤一直判断到 i>100 跳出循环,输出sum

    说明
    1、步长:默认为1时可以省略,不可为0
    2、循环次数:Int(终值-初值)/步长+1
    3、For-Next循环次数可以使用嵌套循环

    for循环的嵌套使用

    Dim i as integer       
    Dim j as integer         
    i=1:j=1               
    For  i=1 to 2 step 1  
    print "*"
    	For j=1 to 2 step 1
    	print "#"
    	Next j     
    Next i
    print sum       
    

    for嵌套的例子
    九九乘法表

    Dim i as Integer
    Dim j as Integer 
    i=1:j=1
    For i=1 to 9
    	For j=1 to i  '注意一行里面输出的列的个数不能超过行的个数;所以终值是i所以第一个循环跟第二个的循环次数相同
    	Print i & "*" & j & "=" & i * j;space(2);   ’在输出语句后面加分号(;)代表着 连着输出不换行
    	Next j
    print   '把第一行循环的结果全部输出在一行上 ,再换行
    Next i
    
    展开全文
  • 【PC】自制QQ机器人(python+VB6)

    千次阅读 多人点赞 2019-08-28 17:21:43
    目前网上的那些QQ机器人都需要下载什么...VB6:1.定时获取QQ消息,也就是对方说了什么。2.定时发送来自python处理好的回答(txt文件格式)。3.对获取的QQ消息分析,既不能是对方上次发的消息(已经处理完并发送)也...

    目前网上的那些QQ机器人都需要下载什么什么软件,我想自己弄个QQ机器人,所有有了想法就去实现。
    实现方法:

    首先要先说明一下:两种语言要怎么沟通呢?
    我一开始也寻思着,后来发现txt文档可以,不过比较慢。

    主要思路:
    VB6:1.定时获取QQ消息,也就是对方说了什么。2.定时发送来自python处理好的回答(txt文件格式)。3.对获取的QQ消息分析,既不能是对方上次发的消息(已经处理完并发送)也不能是自己发给对方的消息。分析完成后保存到一个txt文件夹,好传送到python中去。

    python:1.接受来自VB6处理好的消息并发送给机器人,让机器人回复消息并保存为txt文档以便 VB6发送


    由于VB6会一直循环检测来自QQ的消息,所以会有消息重复获取的情况
    因此需要判断获取的这个消息是否处理完毕。
    如果只有对方发送的消息:
    在这里插入图片描述
    就像这样,那么VB6就只会获取到“你好”,
    这个时候VB6就会判断这个消息是否和上一次消息一样,
    如果一样就不执行代码,(但在第一次获取这个消息的时候就会执行(因为第一次获取就是和第一次的上一次不一样))
    在这里插入图片描述
    这是执行了代码(也就是回复这条消息)

    之后就是是这样:
    在这里插入图片描述
    就机器人回复只有这个,但是对方不回复,很重要
    如果对方一直不回答,那么VB6是不是一直检测到的就是这句话“在的”
    这样的话程序就不会回复,要不然自己获取了之前发自己消息还以为这是对方发的消息然后就自己回复自己啦


    具体步骤
    第一步:用python确定发送给对方的内容。
    python人工智能我不会,所以只能找网上的图灵接口,还真有,直接用python爬取数据或者发送数据到几口就有返回值了,返回值就是你要回复的话。保存为txt文件(这里需要两个txt文件都储存着这个数据。为什么:VB6重要用掉其中一个,下面会说)

    ↓↓↓↓↓↓↓↓↓↓↓↓↓↓这是我找到的图灵机器人(如果你会人工智能的话就简单啦,直接python调用)
    机器人
    第二步:发送来自python机器人的消息

    先来分析一下PCQQ也就是这样了
    就是这个样子。然后我们看看有个输入框,其实发送消息就直接用VB6就行了

    AppActivate "对方或群聊QQ名字" 
    SendKeys Text1.Text
    SendKeys "%s"
    
    • 第一行代码就是选中窗体
    • 第二行输出语句,也就是打字到QQ消息框里,打字的内容可以更改
    • 第三行快捷键发送

    好了发送已经做好了,接下来我们要拦截 获取对方发送了什么消息

    首先先来看看QQ,一般可以解释聊天窗口有很多控件
    根据VB是不是可以按一下tab

    然后我们就试试在这里插入图片描述
    发现没有,有一条虚线在那里,然后我们发现就可以选择文字复制粘贴了

    我们直接用VB6把所有文字都复制下来,

    SendKeys "^c"
    

    也就是ctrl+c复制
    继续,用VB6获取剪辑版的文字

    dim a
    a = Clipboard.GetText
    

    Clipboard.GetText这个就是剪切板的内容啦
    然后再用VB6处理这些文字,就只用获取最后一行

    Dim A As String
    Dim FSO As Object
    Dim FSO_File As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FSO_File = FSO.OpenTextFile(App.path & "/1.txt", 1, False) '读取文件而不创建
    Do While Not FSO_File.AtEndOfStream
    A = FSO_File.ReadLine '获取最后一行
    Loop
    FSO_File.Close
    

    就如你所见,我是先弄到txt文档在读取最后一行。
    这里的A就是QQ最后接受的消息啦,
    不过不要忘记,这也可能是你发送的消息
    所以我们接下来还要进行一波判定
    判定这个A消息是否和之前处理过的消息以及你发的消息一样
    如果不一样的话就可以输出到python
    然后有新回复VB6又会检测到,发送。
    就这样一个循环过程。

    展开全文
  • vb.net的循环语句

    千次阅读 2011-10-06 08:42:23
    一、For...Next循环 For...Next循环在事件过程中重复执行指定的一组语句,直到达到指定的执行次数为止。当要执行几个相关的运算、操作屏幕上的多个元素或者处理几段用户输入时,这种方法就十分有用了。For...Next...
      
    

    一、For...Next循环
    For...Next循环在事件过程中重复执行指定的一组语句,直到达到指定的执行次数为止。当要执行几个相关的运算、操作屏幕上的多个元素或者处理几段用户输入时,这种方法就十分有用了。For...Next循环实际上是一大串程序语句的一种简略写法,由于这一长串语句中的每一组语句都完成相同的任务,Visual Basic只定义其中的一组语句并按照程序的需要重复执行这组语句,直至达到规定的次数。For...Next循环的语法如下所示:
    For Variable=start To end
        statements
    Next[variable]
    上述语法中,“For”、“To”、“Next”是必须的关键字,等号(=)也不能省略。“variable”是数值型变量的名称,它记录了当前的循环次数,这个变量用你程序中需要的数值型变量来代替。“start”和“end”是两个数值,表示循环的初值和终值,你也需要使用程序中所需的相应值来代替它们。“For”和“Next”之间的一条或多条语句是该循环将重复执行的语句。例如,下面的For...Next循环在程序运行时计算机扬声器快速响铃四声:
    For i=1 To 4
        Beep
    Next
    上面的循环与过程中重复书写4条Beep语句是等价的。对编译器来说,上述循环相当于:

       Beep
       Beep
       Beep
       Beep上面的循环中使用的变量是字母“i”,这是个习惯用法,它表示For...Next循环中的整型计数器。循环每执行一次,该计数器变量增加1(第一次执行循环时,该变量的值为1,也就是“start”指定的初值:最后一次执行循环时,该变量的值为4,也就是“end”指定的终值)。

    二、Do循环
    程序中除了使用For...Next循环外,也可以使用Do循环重复执行一组语句,直到某个条件为“True”时终止循环。对于事先不知道循环要执行多少次的情况来说,Do循环十分有用和方便。例如,你要求用户向数据库中输入姓名,直到用户在输入框中输入单词“Done”时终止输入。这时,你可以使用Do语句来构造一个无穷循环,当用户输入字符串“Done”时退出循环。根据循环条件的放置位置以及计算方式,Do循环有几种格式,其中常用的语法格式为:

    Do [{While|Until} condition]
       statements
       [Exit Do]
    Loop

    Do
      statements
      [Exit Do]
      statements
    Loop [{While|Until} condition]如果条件为“Null”,则这个条件被认为是“False”。例如,下面的“Do”循环重复处理用户输入,直到用户键入单词“Done”时为止。

    Do While InpName<>"Done"
    inpName=InputBox("Enter your name or type Done to quit.")
    If inpName<>"Done" Then
       Label1.Text=inpName
    End If
    Loop注意:测试条件的放置位置影响Do循环的执行方式。这个循环中的条件是InpName<>"Done",Visual Basic编译器把这个条件翻译成“只要InpName变量的值不等于单词“Done”,就一直执行该循环语句”。这表明:当Do循环第一次执行时,如果循环项部的条件值不是True,那么Do循环中的语句就不会执行。对上面的示例来说,如果在循环开始执行之前(可能在事件过程中使用某个赋值语句进行赋值),InpName变量的值等于字符串“Done”,那么Visual Basic将跳过整个循环体,并在Loop语句后面的语句继续执行。需要注意的是,这种格式的Do循环需要在循环体中写上一条If...Then语句,以避免用户键入的退出值显示出来。如果希望程序中的循环体至少执行一次,那么把条件放置在循环的尾部,例如:

    Do Until InpName=InputBox("Enter your name or type Done to quit.")
    If InpName<>"Done" Then
       Label1.Text=InpName
    Loop While InpName<>"Done"这个循环与前面介绍的Do循环相似,但是,这里的循环条件在接收了InputBox函数中的姓名后进行测试。这种循环方式的优点是在测试循环条件前更新变量InpName的值,这样,即使InpName在进入循环前的值为“Done”,也不会直接退出循环。在循环的尾部测试条件保证了循环体至少执行一次,但是,一般来说,这种格式的循环体中往往要增加一些额外的数据处理语句。

    三、While循环
    While循环执行到给定的条件为True才终止循环,与Do While相似。Whiel循环的语法为:

    While condition
       statements
       [Exit While]
       statemenst
    End While如果条件为Null,则这个条件被认为是False,如果条件为True,则所有的语句将被执行,直到End While,这时候控制权返还给While,condition再次被检查,如果condition为True,则继续执行While内部的语句,如果condition为False,则继续执行End While后面的语句。下例将说明While循环的用法:

    Dim Check As Boolean=True
    Dim counter As Integer=0
    Do '外层循环
       While Counter<20
           Counter+=1     '计数器加一
           If Counter=20 Then
              Check=False
              Exit While  '退出内层循环
           End If
       End While
    Loop Until Check      '退出外层循环
    四、For Each...Next循环
    For Each...Next循环与For...Next循环类似,但它对数组或对象集合中的每一个元素重复一组语句,而不是重复语句一定的次数。如果不知道一个集合有多少元素,For Each...Next循环非常有用。For Each...Next循环的语法如下:

    For Each element in group
        statements
    Next element例如,下面的例子利用For Each...Next循环来查找所有元素的Text属性是否为“Hello”:

    Dim Found As Boolean
    Dim MyObject,MyCollection As Object
    For Each MyObject In MyCollection
        If MyObject.Text="Hello" Then
           Found=True
           Exit For
        End If
    Next使用For Each...Next循环时的两点说明:
    1.对于集合或数组中的元素,element既可以是普通的Object类型,也可以是特殊的Object对象。
    2.group可以是数组,也可以是一个集合。

    本文来自编程入门网:http://www.bianceng.cn/Programming/VB_NET/200705/1267.htm

    展开全文
  • VB循环

    2015-03-26 14:48:00
    循环控制语句有for……next循环、for……each循环、do……while循环、do……until循环、while循环五种形式。 1. 在使用循环控制语句前,首先要对循环条件进行判断,如果循环次数是有固定次数的,那么使用For……...

    循环控制语句有for……next循环、for……each循环、do……while循环、do……until循环、while循环五种形式。

     

    1. 在使用循环控制语句前,首先要对循环条件进行判断,如果循环次数是有固定次数的,那么使用For……next循环,其结构为: 

    For   计数器变量=开始计数值 to 最后计数值 

    执行循环体 

    Next 

    2. 如果是需要对数组或对象集合中的每一个元素进行判断,则需要使用for……each循环,其结构为: 

    For each 循环计数变量 in 要查看的对象或数组 

    执行处理语句 

    Next 

    注意:在上述两种循环中随时可以使用exit for来退出循环

     

    3. 如果你希望在条件满足时执行一段代码则使用do……while语句,结构为: 

    Do while 条件 

    执行循环体 

    Loop 

    4. 如果你希望在条件不满足时执行代码,则使用do……until语句,结构为: 

    Do until 条件 

    执行循环体 

    Loop 

     

    当然,在这两种循环语句中,你可以使用exit do来退出循环

     

    5. 最后一种循环语句是条件满足时一直执行循环, 

    While 条件 

    执行循环体 

    Wend 

    转载于:https://www.cnblogs.com/ellie-test/p/4368769.html

    展开全文
  • 成功解决for循环语句中,后几次循环输出数据一直全部为空 目录 解决问题 解决思路 解决方法 解决问题 for循环语句中,后几次循环输出数据一直全部为空 解决思路 数据为空,如果不是...
  • Do循环语句的几种形式:1. Do While i>1 '条件为True时执行... ... '要执行的语句Loop2.Do Until i>1 '条件为False时执行... ... '要执行的语句Loop3.Do ... ... '要执行的语句Loop While i>1 '条件为True时...
  • VB.NET循环体内的局部变量

    千次阅读 2014-02-05 11:45:34
    End Module照说每次循环都重新定义并初始化该局部变量,期望的输出值应该一直都是false。 但猜猜实际最终输出结果是什么,false,false,false,true,true!! 就是这个怪诞的行为让我困扰了很久。 ok,我们...
  • 无限循环弹窗源代码

    2018-10-16 19:27:50
    0.0随便取随便拿
  • 现在知道答案了:在循环内改变循环次数,vb.net改变不了,C#可以(网友测试的)。
  • 在如果在VB循环中处理大量的数据时,没有处理数据,界面一直不会更新。现在使用DoEvents( )  Dim OpenForms 。 OpenForms = DoEvents ' 将执行让给操作系统
  • VB循环等待

    千次阅读 2008-01-08 14:24:00
    今天,写一个VB程序,需要等待一定的时间来等待数据的返回,想到了一个写法,不知道大家觉得怎么样!贴出来大家给提点一下! Dim t1, t2 As Date 定义两个时间点 Dim n As Double 等待时间,单位s n = 1 t1 = ...
  •  Vb恶搞程序,逗您玩,关不完的消息框(弹出窗口),其实是能关掉的,只要你一直点下去,而且到最后还可以看到传说中的比尔盖茨,哈哈。程序是个小恶搞程序,对你的系统不会造成任何伤害,只是玩玩的,源代码开源。
  • C#基础教程-c#实例教程,适合初学者

    万次阅读 多人点赞 2016-08-22 11:13:24
     通用语言规范(Common Language Specification,CLS):.NET系统包括如下语言:C#、C++、VB、J#,他们都遵守通用语言规范。任何遵守通用语言规范的语言源程序,都可编译为相同的中间语言代码,由CLR负责执行。只要...
  • 一直符合循环的条件(≠0),一直运行下去。。。。     由于.net平台下C#和vb .NET 很相似,本文也可以为C#爱好者提供参考。 学习更多vb .net 知识,请参看 vb.net 教程 目录  
  • vb和python-vb与python

    2020-11-01 13:08:45
    在此之前,编程界也一直有传言,称浙江省将对中学信息技术教材进行改动,弃vb(visual basic 6.0)而选用python。 事情真的会如程序员们期待的那样发展吗? python语言又为什么突然受到了格外的重视呢? vb做错了...
  • VB.NET多线程入门

    千次阅读 2015-12-07 20:54:56
    在处理数据的循环中,新建线程,在新建的线程中处理数据。多线程同时处理数据,以此来达到加速的目的。 在多任务操作系统中,我们可以在操作系统的协调下同时进行多个任务。各个任务以分时复用的形式来进行工作。...
  • VB程序设计练习题

    千次阅读 2021-05-15 14:03:35
    这是我备考技能考的一些VB练习题。(难度稍微有点大哦) 想要更多VB练习题点击我的头像,看我发表我文章就可以看到了。 答案是小编自己写的,也许会有错。 内容 一、明文密文转换。 在上面的文本框中输入的英文...
  • CPU一直居高不下,请教公司大佬说使用 ManualResetEvent 实测之后确实可以,之前开启4个程序之后CPU占用100%,现在开了7个仅仅占用了15%不到,今天又进步了。 分享一下使用方法。 Private m_csWaitHandle As New ...
  • vb正则表达式

    万次阅读 2016-12-08 16:46:40
    正则表达式的“祖先”可以一直上溯至对人类神经系统如何工作的早期研究。Warren McCulloch 和 Walter Pitts 这两位神经生理学家研究出一种数学方式来描述这些神经网络。 1956 年, 一位叫 Stephen Kleene 的美国...
  • 如何优雅地退出多重循环

    千次阅读 2018-11-04 11:15:47
    goto语句虽然一直被大家所诟病,说破坏了代码的结构化特性,但是它也有自己的好处。 goto语句肯定不推荐大量使用,但是对于跳出多重循环还是特定方便,逻辑也比较清晰。 #include &amp;lt;iostream&amp;gt; ...
  • #休眠30秒,因为检查系统负载,不需要一直去检查,过一会再看 done [root@garytao-01 aming]# sh -x while1.sh + true ++ w ++ head -1 ++ awk -F 'load average: ' '{print $2}' ++ cut -d. -f1 + load=0 + '[' 0...
  • 双重大数组循环优化

    千次阅读 2018-03-04 19:19:19
    双重大数组循环优化 一、前言 这几天发现服务在凌晨时容易报警,持续半个小时才正常,第二天分析日志和检查代码发现,有一个过滤黑白名单的操作,其中黑名单的数据有39万,白名单数据30万,然后处理的数据也有80...
  • 概述 循环语句可以在满足循环条件的情况下,反复执行某一段代码,这段被重复执行的代码被称为循环体语句,当反复执行这个 循环体时,需要在合适的时候把循环判断条件修改为false,从而结束循环,否则循环一直执行...
  • VB初步入门

    2020-09-20 11:31:04
    VB 入门记录(一) 一、Visual Basic 界面简介 打开题目进入界面是这个样子的 ​ 图一 我们的题目信息在这里 ​ 图二 然后当你双击那个产生按钮的时候 ​ ...
  • 对与再大循环里 加入 DoEvents却是可以使应用程序响应其他程序,但是 DoEvents也会很大程度上影响循环的速度,所以一般情况我这样用 If GetInputState Then DoEvents 虽然多了个判断语句,但速度上确快了...
  • 浙江高考VB之排序系列

    千次阅读 2021-07-28 22:40:58
       换句最通俗的话来说: 人家代码的 If 就是要一直检查, 直到循环退出. 什么是时间复杂度 时间复杂度是描述算法时间的函数 ( O O O 函数 ) .一般的, 该函数描述时间效率时不包括这个函数的低阶项和首项系数, 也...
  • 栈在vb.net中用stack类封装,里面还有泛型栈stack(of T) 什么叫做栈呢?就像装乒乓球的纸筒,每个乒乓球就是栈的元素,先装进去的乒乓球位于筒的底部,后面的位于顶部。 在.net里用push表示把元素入栈,即把乒乓球.....

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,163
精华内容 3,265
关键字:

vb一直循环