如何用VB6.0版编写一个变色的程序？
 
在窗体添加一个标签，一个计时器控件，Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = ＂字体随机变色＂ End Sub Private Sub .
 
用VB编写的应用程序，实用一点，但不需要太长实用小例子，吸引学生兴趣。
 
Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox(＂请输入三角形的边a：＂， ＂输入＂)) b = Val(InputBox(＂请输入三角形的边b：＂， ＂输入.
 
学校要交至少10个VB程序，所以跪求10个简单程序，不胜感激！邮箱：。
 
第一个 text1=＂哎，现在的人啊.＂ 第二个 label1.cpation=＂能学到什么呢？＂ 第三个 me.caption=＂作业还要别人做...＂ 第四个 print ＂这个样子不是在欺骗自己么＂ 第.
 
打开vb，选择新建抄工程，标准exe，点击运行启动，就看见一个窗袭体。这就是最简单的vb程序。然后点击运行百结束，视图，度代码窗口，粘贴如下代码：Private Sub .
 
例如解方程的
 
我写了一个解一元二次方程的小程序，您可以参考一下 Private Sub Form_Load() a = InputBox(＂a=＂， ＂请输入二次项的系数＂) b = InputBox(＂b=＂， ＂请输入一次项的.
 
我想用vb写一个非常简单的程序，只要能在窗体中，输入自变量x，然后一按.
 
do x=int(rnd*10) y=int(rnd*10) do if x*y=val(tres) then 'tres为你要输入结果的东东 出题.enable=true exit do else 出题.enable=false msgbox ＂计算错误，从新写吧＂ end if .
 
像桌面飘雪 给个做法+代码 或者教程
 
VB制作奇形怪状的窗体 普通的窗体都是方方的，使用API函数可以做出一些奇怪的形状。比如，窗体是圆角矩形，在中间挖一个椭圆形的洞。先要理解一个重要的概念：区.
 
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如.
 
详细一点不要太复杂
 
给你写了个隔5秒改变一次窗体背景颜色的程序，即容易懂又好玩.Option Explicit '要求变量声明，根据个人习惯，建议最好使用 Dim i As Integer '定义i为全局变量 Private .
 
一个小实验，就是做一个小程序，能够统计输入的文章(中英文，符号)的字。
 
帮助~~宇~~来解答 这是专为你写的一个小程序，希望能对你用帮助！ 这里只能提供按钮事件的源码，整个工程源码打包请到： http://www.exfsoft.com/upload/file/q.
 
一个很简单的小程序 串口输入一个数据X(010%为不及格 否则及格 那位高手。
 
Private Sub Command1_Click() Dim x, k x = InputBox(＂请输入一个数据<0~~100%>:＂) If x < 0 Or x > 1 Then k = MsgBox(＂请输入有效数据！＂， vbExclamation) .
 
这个VB小程序不需要任何显示界面，双击运行----复制25.txt 内容到剪贴板---结。
 
vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main() Open ＂c:\temp\25.txt＂ For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1).
 
要好玩的，有趣的。谁有呀？
 
整人的小程序，会弹出对话框提示：快说我是猪，不输入的话会在1分钟之内自动关机，输入的话，当让会被笑话啦，呵呵 将以下文字粘贴到记事本上后将后缀名改为：.
 
怎样 使几张图片 在程序中动起来 ，按下＂command1＂键 使图片停止
 
form1上放置Command1,Timer1,Picture1(装入一个图片) Dim MoveStep As Integer Private Sub Command1_Click() Timer1.Enabled = False End Sub Private Sub Form_.
 
100RMB有偿聘请哦~ 有意者联系1284343. 就是很简单的一个小程序，网址更。
 
Private Sub Command1_Click() Label1.Caption = ＂欢迎来到精彩的VB世界＂ End Sub Private Sub Form_Load() End Sub============ 需要控件 Label Label的名字是.
 
编写程序，要求程序运行时单击“生成”按钮在窗体中输出指定范围内的(范。
 
Private Sub Command1_Click() '生成 Randomize a = Int(Text1.Text) b = Int(Text2.Text) Print ＂三个随机数为＂ For i = 1 To 3 x = Int(20 + Rnd * (b - a + 1)) Print x, s = s + .
 
新做了两个EXE 一个运行后 另外一个EXE也运行 但另外那个EXE隐藏了 但进。
 
api showwindow() 如果这两个程序都是你写的，自己在formload中form2.show()就可以了 Private Declare Function FindWindow Lib ＂user32.dll＂ Alias ＂.
 
清空回收站代码 Private Declare Function SHEmptyRecycleBin Lib ＂shell32.dll＂ Alias ＂SHEmptyRecycleBinA＂ _(ByVal hwnd As Long, ByVal pszRootPath As String, .
 
想写一个vb的小程序，但是不懂，请各位高手帮忙一下，再此先谢过了，具体。
 
Const str = ＂abcdef＂ '你所说的6个字符 Dim s As Long '设置一个变量s Private Sub Command1_Click() Text3.Text = Mid(str, (s - 3) Mod Len(str) + 1, 1) '按你的要求显示 .
 
找到好的程序要考试了阿
 
Private Sub Command1_Click() Dim b(1 To 10) As Single Dim a, a1, a2 As Integer For i = 1 To 10 b(i) = InputBox(＂请输入一个数：＂) If b(i) > 0 Then a = a + 1 If b(i) < 0 .

最近在学习编写用上位机来控制plc，从啥也不懂到完成这个，也是经历了一些痛苦，那就顺道写写我的学习过程吧。
 
选了vb来写是因为它的操作相对来说比较简单，有 MSComm 控件很容易就能够实现。对这个控件就不多讲解了，网上也多的是。下面直接贴我的代码：
 
首先是窗口程序的初始化：
 
Private Sub Form_Load()
Dim i As Integer
Combo1.AddItem "9600", 0
Combo1.AddItem "115200", 1

Combo2.AddItem "0", 0
Combo2.AddItem "1", 1
Combo2.AddItem "2", 2
Combo2.AddItem "3", 3
Combo2.AddItem "4", 4
Combo2.AddItem "5", 5
Combo2.AddItem "6", 6
Combo2.AddItem "7", 7
Combo2.AddItem "8", 8
Combo2.AddItem "9", 9
Combo2.AddItem "10", 10
Combo2.AddItem "11", 11
Combo2.AddItem "12", 12
Combo2.AddItem "13", 13
Combo2.AddItem "14", 14
Combo2.AddItem "15", 15


Combo5.AddItem "读取数据", 0
Combo5.AddItem "发送数据", 1

Combo6.AddItem "1", 0
Combo6.AddItem "2", 1
Combo6.AddItem "3", 2
Combo6.AddItem "4", 3
Combo6.AddItem "5", 4
Combo6.AddItem "6", 5
Combo6.AddItem "7", 6
Combo6.AddItem "8", 7
Combo6.AddItem "9", 8
Combo6.AddItem "10", 9
Combo6.AddItem "11", 10
Combo6.AddItem "12", 11
Combo6.AddItem "13", 12
Combo6.AddItem "14", 13
Combo6.AddItem "15", 14
Combo6.AddItem "16", 15


Combo7.AddItem "串口1", 0
Combo7.AddItem "串口2", 1
Combo7.AddItem "串口3", 2
Combo7.AddItem "串口4", 3
Combo7.AddItem "串口5", 4


Combo1.ListIndex = 0
Combo2.ListIndex = 0
'Combo3.ListIndex = 0
Combo5.ListIndex = 1
Combo6.ListIndex = 7
Combo7.ListIndex = 4


Command4.Enabled = False

End Sub
 
打开串口时对MSComm控件的设置：
 
Private Sub command_open_Click()
With MSComm1
If .PortOpen = False Then
.CommPort = Combo7.ListIndex + 1 '串口号=combo值+1
.Settings = Combo_bit.Text  '设置波特率
.InputMode = 1          '设置数据通过二进制形式取回
.InputLen = 50          '设置接收缓冲区读取字符数为50
.InBufferCount = 0         '清除接收缓冲区
.OutBufferCount = 0         '清除发送缓冲区
.RThreshold = 6 '5 + (Combo6.ListIndex + 1) * 2 设置引发事件的接收缓冲区接受的字符数
.InBufferSize = 1024        '接收缓存区大小
.OutBufferSize = 1024       '发送缓存区大小
.PortOpen = True
Command_close.Enabled = True
Command_send.Enabled = True
Command_open.Enabled = False
Command_check.Enabled = True
Command2.Enabled = True
Command_clear.Enabled = True
Else
MsgBox "串口已经打开"
End If
End With

End Sub
 
发送/采集按钮代码：
 
Private Sub Command1_Click()
Dim bisend() As Byte
Dim crc
Dim btLoCRC As Byte, btHiCRC As Byte
Dim Data As Integer
If MSComm1.PortOpen = True Then

    If Combo5.ListIndex = 0 Then        '读寄存器
        ReDim bisend(7)
        bisend(0) = "&h" + Hex(1)
        bisend(1) = "&h" + Hex(3)
        bisend(2) = "&h" + Hex(0)
        bisend(3) = "&h" + Hex(Combo2.ListIndex)
        bisend(4) = "&h" + Hex(0)
        bisend(5) = "&h" + Hex(Combo6.ListIndex + 1)
        crc = CRC16(bisend, 6, btLoCRC, btHiCRC)
        bisend(6) = "&h" + Hex(btLoCRC)
        bisend(7) = "&h" + Hex(btHiCRC)
        MSComm1.Output = bisend
    Else                     '写单个寄存器
            ReDim bisend(7)
                bisend(0) = "&h" + Hex(1)
                bisend(1) = "&h" + Hex(6)
                bisend(2) = "&h" + Hex(0)
                bisend(3) = "&h" + Hex(Combo2.ListIndex)
                Data = Val(Trim(Text3.Text))
                bisend(4) = "&h" + Hex(Data \ 256)
                bisend(5) = "&h" + Hex(Data Mod 256)
                crc = CRC16(bisend, 6, btLoCRC, btHiCRC)
                bisend(6) = "&h" + Hex(btLoCRC)
                bisend(7) = "&h" + Hex(btHiCRC)
                MSComm1.Output = bisend

    End If
Else
MsgBox "串口没有打开"
End If
End Sub
 
读取数据：
 
Private Sub MSComm1_OnComm()
Dim INByte() As Byte
Dim BUF As String
Dim btLoCRC As Byte, btHiCRC As Byte
Dim Data As Integer
Dim a, b As String
If MSComm1.CommEvent = comEvReceive Then    
INByte = MSComm1.Input          '读入缓冲区全部内容
    If INByte(1) = 3 Then
    crc = CRC16(INByte, UBound(INByte) - LBound(INByte) - 1, btLoCRC, btHiCRC)
       If INByte(UBound(INByte) - 1) = btLoCRC And INByte(UBound(INByte)) = btHiCRC Then
            For i = 3 To UBound(INByte) - 2 Step 2
            Data = "&h" + Hex(INByte(i)) + Hex(INByte(i + 1))
            'BUF = BUF + Hex(INByte(i) + Chr(32))
            BUF = BUF + Str(Data)
            Next i
            List1.AddItem BUF
            End If
    End If
    MSComm1.InBufferCount = 0
  End If
  
End Sub
 
设置时钟命令：
 
Private Sub Timer1_Timer()
Dim tbisend(7) As Byte
Dim crc
Dim btLoCRC As Byte, btHiCRC As Byte
Dim BUF As String
    If MSComm1.PortOpen = True Then
    tbisend(0) = "&h" + Hex(1)
    tbisend(1) = "&h" + Hex(3)
    tbisend(2) = "&h" + Hex(0)
    tbisend(3) = "&h" + Hex(0)
    tbisend(4) = "&h" + Hex(0)
    tbisend(5) = "&h" + Hex(Combo6.ListIndex + 1)
    crc = CRC16(tbisend, 6, btLoCRC, btHiCRC)
    tbisend(6) = "&h" + Hex(btLoCRC)
    tbisend(7) = "&h" + Hex(btHiCRC)
    MSComm1.Output = tbisend
    End If
End Sub
 
打开/关闭采集：
 
Private Sub Command2_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
 
关闭串口：
 
Private Sub Command4_Click()
If MSComm1.PortOpen = True Then
    MSComm1.PortOpen = False
    Command3.Enabled = True
    Command4.Enabled = False
End If
End Sub
 
退出后执行：
 
Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End Sub
 
我用的plc是广成-400，后来根据实际生产需要还修改了一些，考虑到大家用不上还是贴了比较通用的部分，希望能给跟我一样在学习中的人一些帮助。我的代码主要参考了
 
https://wenku.baidu.com/view/6dac80d53186bceb19e8bb69.html
 
 

 
文章目录
 
一、VS的开发环境
二、创建C#窗体应用程序
三、创建控制台应用程序
四、创建Web应用程序

 
一、VS的开发环境
 
首先你得安装了vs2019，然后确认下下面三个组件是否存在，如果没有要下载一下。vs2019的安装可参考visual studio2019的安装以及使用。
 

 
 
二、创建C#窗体应用程序
 
打开vs
 

 可以直接在搜索框输入关键字进行搜索，选择 Windows 窗体应用(.NET Framework)。如图。
 
 
也可以限定项目类型，所用的语言进行查找。
 
 
接下去狂点确定即可。当然可以选择改个项目存放存放的目录和项目名称。
 
 
创建好后，就进入到了这么一个界面。
 

 在窗体右边（也可能是在左边。每个人的设置可能不同）有一个工具箱的选项，打开有一些窗体应用所需的控件。
 

 接下来我们写个小程序测试一下项目是否能正常运行。实现的功能就是当我们点击按钮的时候，能显示出目前的点击次数。
 
首先从属性那边拖动两个空间到窗口上，分别是Button和Label。并把它们的名称和内容分别修改为（btn,点击）和（lab,0)
 
 
 
接着绑定按钮的点击事件，如果不知道事件是什么，没关系，先跟着做就行。
 
可以从属性窗口那，点击右上角的闪电图标，然后点击Clike的按钮，如图。或者直接双击按钮。
 
 
之后就会跳转到这么一个代码界面。然后编写我们所需要的代码即可。如下。
 
 
完成效果。（虽然画面有点丑）
 
 
三、创建控制台应用程序
 
创建步骤跟上面类似，选择控制台应用程序创建即可
 

 写个测试程序。从控制台输入一句话并打印出来了。
 
 
 
四、创建Web应用程序
 
选择创建一个Web应用程序，如图。
 
 
选择空项目
 
 
添加一个Web窗体
 

 创建好后是这么个界面。可以直接编写H5代码。或者点击左下角设计。
 
 
进入这么一个界面。跟windows窗体应用开发很相似。在右边也有个工具箱。有许多控件可以使用。添加一个Label和Button空间到窗体，并修改下id和text。要实现的功能是当点击按钮后将Label中的内容转成大写。
 
 
 

 跟窗体应用程序一样，双击Button就可以绑定事件然后进行编辑。
 
 
可以选择测试所使用的浏览器。然后运行即可。
 

 
 

1.创建项目
 
下载Visual Studio 2010及其以上的版本，作者是2013版。
 
文件->新建项目。
在弹出的对话框内，左侧选择其他语言，选择Visual Basic。
在中央选择Windows窗体应用程序，在下方输入项目名称和位置，点击确定。
 
2.设计窗体Form
 
预先会创建一个Form1的窗体。
 我们需要在上面添加控件，每个控件都是一个对象，VB.NET是OOP（面向对象编程）方式。每个对象都有相应的属性Property和方法Method。而VB.NET是以事件驱动的模式来执行程序的，发生事件Event，再执行对应的应对代码。
 
2.1 文本框控件TextBox
 
点击视图菜单，选择工具箱。或者快捷键Ctrl+Shift+X。
在右侧弹出工具箱，上面可以选择控件，我们选择一个TextBox(文本框控件)。双击或者拖动到窗体上。
 
点击已经添加的TextBox，按下键盘R键或者右击选择属性(Property)。右侧弹出属性框。
 
一般共有属性：
 
Name 标识符作用（主要用在代码里）
Text 文本（控件保存的内容）
Size 大小
Location 位置（与窗体相距的距离）
 
文本框特有属性：
 
MultiLine 是否多行显示(True or False)
PasswordChar 密码字符(作为密码输入框时)
ReadOnly 是否只读(True or False)
ScrollBars 是否显示滚动条(只有MultiLine为True时才有用)
 
之后再修改这些属性。
 
2.2 命令按钮控件Button
 
我们按上述方式添加一个新的控件，命令按钮Button。
 
 
2.3 标签控件Label
 
标签起一个提示个说明文字的作用。
 我们从工具箱里添加一个Label。
 Property:
 
Name
Text
AutoSize 是否根据文本自动调整大小（True or False）
BorderStyle 边框样式
TextAlign 文本对齐方式
 
3.为各对象设置属性值
 
刚刚我们添加了三个控件，但是没设置属性值，也没布局。
 
3.1 布局：
 
自由拖动即可，另外又添加了几个控件。
也能自由拖动的改变大小。TextBox不能纵向改变，先不管。Label在属性中把AutoSize一项选择False就可以改变大小了，顺便把TextAlign选择为居中对齐。
 
 
3.2 设置属性值
 
3.2.1 改变标识符
 
把Label1的标识符改变为Label_LogIn。
 怎么改呢？
 在属性的Name一栏修改即可。
 同样地，修改以下：
 把Label2的标识符改变为Label_Pass。
 把TextBox1的标识符改变为TextBox_LogIn。
 把TextBox2的标识符改变为TextBox_Pass。
 
3.2.2 设置文本
 
在属性的Text一栏中设置,在Font一栏可设置字体样式。
 Form1也是一个对象，也有Text属性，就是窗口标题。
 
 
3.2.3 设置其他属性
 
把第二个TextBox,即TextBox_Pass属性的PassWordChar一栏设置为*。星号
 把Form1属性中的StartPosition一栏设置为CenterScreen。居于屏幕中央。
 
再添加一个TextBox控件，更名为TextBox_Main位置合适，可掩盖其他控件。（作为登录进去的显示）
 
先设置MultiLine为True。多行显示。拖动改变大小。
ReadOnly设置为True。只读。
ScrollBars设置为Vertical。垂直滚动条。
Visible设置为False。不可见
向Text复制进一段文本。这里复制了朱自清的《荷塘月色》一文。
 
 
4.确定事件并编写相应代码
 
一般事件Event是施加给对象的，然后执行响应事件的代码，这部分需要自己编写。
 这个小程序，用到的事件不多，只需用到Button的Click事件即可。
 
4.2 怎么编写事件代码？
 
点击这里
 
 或者点击这里
 
 进去之后显示如此
 
 我们要给Button1编写Click事件
 
 然后是这样：
 
 我们开始编写代码：
 实现：点击按钮显示TextBox1（使可见）
 
 然后ctrl+s保存
 我们运行一下这个程序。点击启动即可。
 
你们可以实践出这个程序。
 
其实不需要输入账号和密码就可以点击按钮进入。啊哈哈
 但为了让大家感受到更多的运用，对之后的学习有个初步的实践经验。
 我们来丰富一下这个程序。
 
4.3 丰富程序
 
首先内部定义两个变量。
 使用
 Dim <变量名> As <数据类型>
 的方式定义变量。
 算了，直接看代码吧。
 其他的以后详细分析。
 
Public Class Form1
    Dim log As Integer = 123456789 REM 这是账号，你自己可设置
    Dim pass As String = "qaz12345" REM 双引号里面输入你设置的一个密码
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Val(TextBox_LogIn.Text) = log Then
            If TextBox_Pass.Text = pass Then
                TextBox_Main.Visible = True
            Else
                MsgBox("密码输入错误！", 16, "错误")
                TextBox_Pass.Clear() REM 清除文本
                TextBox_Pass.Focus() REM 获得焦点
            End If
        Else
            MsgBox("账号输入错误！", 16, "错误")
            TextBox_LogIn.Clear()
            TextBox_Pass.Clear() REM 清除文本
            TextBox_LogIn.Focus() REM 获得焦点
        End If
    End Sub
End Class
 
简单解释一下
 
IF和Else语句是双分支选择语句。使用Then表示符合条件就执行。结束使用End If。
MsgBox()弹出消息框。
Text的Clear()方法清除文本。Focus()方法是获得文本。
 
OK，这个初学者的程序到此结束。
 
5.结束语
 
我们从一个不大不小的程序出发，并且这个程序具有现实应用意义，获得了实践经验和较丰富的初学知识。
 从运用出发去学习，才能更加高效。
 实践出真知