编写vb程序

Public Function ish(dblInput As Double) As Boolean '输入参数为Double类型，返回Boolean

Dim strTemp As String

Dim i As Integer

Dim n As Integer

strTemp = CStr(dblInput) '转换输入为字符串类型

n = CInt(Len(strTemp) / 2) '取字符串长度的一半，如果长度为偶数，则两侧全部参加比较，

'如果为奇数，则中间位不必比较。

For i = 1 To n

If Mid(strTemp, i, 1) <> Mid(strTemp, Len(strTemp) - i + 1, 1) Then '比较左右两端。

ish = False

Exit Function ‘发现有一次比较不相等，可以确定不是回数，退出函数，返回False。

End If

Next

ish = True

End Function

程序并没有实现，显示中绿灯和黄灯会闪的功能，本人初学者，以后多交流。

设计如下图，两个计时器（enabled为false），三个标签，两个文本框，一个按钮

运行效果：

代码如下：

Dim n As Integer '控制哪个灯亮

Dim bool1 As Boolean    '两个变量一起控制是否开始运行程序

Dim bool2 As Boolean

Dim b As Integer

Private Sub Command1_Click()    '只有两个文本框同时满足输入的时间在1-10秒范围内，才开始运行

    If IsNumeric(Text1Text) Then

            bool1 = True

    Else

        MsgBox "输入的不是数字，重新输入红灯的时间"

        Text1Text = ""

    End If

    If IsNumeric(Text2Text) Then

            bool2 = True

    Else

        MsgBox "输入的不是数字，重新输入绿灯时间"

        Text2Text = ""

    End If

    If bool1 And bool2 Then

        Timer1Enabled = True

        Timer1Interval = 1

    End If

End Sub

Private Sub Form_Load() '重新定义窗体坐标，画出三个灯都没有亮的状态下的红绿灯

    bool1 = False

    bool2 = False

    AutoRedraw = True

    Form1Cls

    Form1Scale (0, 0)-(100, 100)

    Form1FillStyle = 0

    n = 1

    Form1FillColor = RGB(0, 0, 0)

    Form1Line (2, 2)-(18, 48), , B

    Form1FillColor = RGB(160, 0, 0)

    Form1Circle (10, 10), 5, RGB(160, 0, 0)

    Form1FillColor = RGB(0, 160, 0)

    Form1Circle (10, 40), 5, RGB(0, 160, 0)

    Form1FillColor = RGB(160, 160, 0)

    Form1Circle (10, 25), 5, RGB(160, 160, 0)

    

End Sub

Private Sub Timer1_Timer()

    n = n Mod 3

    If n = 1 Then   '红色高亮显示，其他变暗

        Form1Cls

        Form1FillColor = RGB(0, 0, 0)

        Form1Line (2, 2)-(18, 48), , B

        Form1FillColor = RGB(255, 0, 0)

        Form1Circle (10, 10), 5, RGB(255, 0, 0)

        Form1FillColor = RGB(0, 160, 0)

        Form1Circle (10, 40), 5, RGB(0, 160, 0)

        Form1FillColor = RGB(160, 160, 0)

        Form1Circle (10, 25), 5, RGB(160, 160, 0)

        Timer1Interval = Val(Text1Text)  1000

        b = Val(Text1Text)

        Timer2Enabled = True

    ElseIf n = 0 Then   '**高亮显示，其他变暗

        Form1Cls

        Form1FillColor = RGB(0, 0, 0)

        Form1Line (2, 2)-(18, 48), , B

        Form1FillColor = RGB(255, 255, 0)

        Form1Circle (10, 25), 5, RGB(255, 255, 0)

        Form1FillColor = RGB(0, 160, 0)

        Form1Circle (10, 40), 5, RGB(0, 160, 0)

        Form1FillColor = RGB(160, 0, 0)

        Form1Circle (10, 10), 5, RGB(160, 0, 0)

        Timer1Interval = 3000

        b = 3

        Timer2Enabled = True

    Else                '绿色高亮显示，其他变暗

        Form1Cls

        Form1FillColor = RGB(0, 0, 0)

        Form1Line (2, 2)-(18, 48), , B

        Form1FillColor = RGB(0, 255, 0)

        Form1Circle (10, 40), 5, RGB(0, 255, 0)

        Form1FillColor = RGB(160, 0, 0)

        Form1Circle (10, 10), 5, RGB(160, 0, 0)

        Form1FillColor = RGB(160, 160, 0)

        Form1Circle (10, 25), 5, RGB(160, 160, 0)

        Timer1Interval = Val(Text2Text)  1000

        b = Val(Text2Text)

        Timer2Enabled = True

    End If

    n = n + 1

End Sub

Private Sub Timer2_Timer()

    b = b - 1

    If b <= 10 Then

        Label3Caption = b

    End If

    If b = 0 Then

        Timer2Enabled = False

        Label3Caption = ""

    End If

    

End Sub

1、第一种点上方“运行”，然后启动。，如果要停止的话按“运行”“停止”或者CTRL+BREAK

2、快捷方式F5

3、如果程序编好了，不在更改，则把它转成应用程序模式

具体方法：点文件，生成工程，取个名字就行了，这就是完成的程序

以上就是关于编写vb程序全部的内容，包括:编写vb程序、VB程序编写、VB编写完窗口程序代码后怎么运行啊等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！