编写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

Private

Declare

Function

FindWindow

Lib

"user32"

Alias

"FindWindowA"

(ByVal

lpClassName

As

Any,

ByVal

lpWindowName

As

String)

As

Long

Private

Declare

Function

SendMessage

Lib

"user32"

Alias

"SendMessageA"

(ByVal

hwnd

As

Long,

ByVal

wMsg

As

Long,

ByVal

wParam

As

Long,

lParam

As

Any)

As

Long

Private

Const

WM_CLOSE

=

&H10

Private

Sub

Timer1_Timer()

rs

=

FindWindow(0&,

"Windows

任务管理器")'这里填写要禁止启动的进程名称

If

rs

<>

0

Then

SendMessage

rs,

WM_CLOSE,

0,

0

End

If

End

Sub

模拟按键 是一个函数 SendKey 。写输出就行了。

40min循环一次你需要用那个小表样的计时器就OK。不是大问题。

参考吧：

vbs SendKey用法

简单说,这个命令就是模拟键盘 *** 作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:

objectSendKeys string

"object":表示WshShell对象

"string":表示要发送的按键指令字符串,需要放在英文双引号中

1基本键

一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用

WshShellSendKeys "x" 即可

也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可例如,要发送按键"cfan",可以使用" WshShellSendKeys "cfan" "

2特殊功能键

对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示:

特殊控制键 特殊字符

Shift +

Ctrl ^

Alt %

如要发送的组合按键是同时按下Ctrl+E,需要用" WshShellSendKeys "^e" "表示,

如果要发送的组合按键是按住Ctrl键的同时按下E与C两个键,这时应使用小括号把字母括起来,书写格式为" WshShellSendKeys "^(ec)" "这里要注意它与" WshShellSendKeys "^ec" "的区别,后者表示组合按键是同时按住Ctrl和E键,然后松开Ctrl键,单独按下"C"字母键

由于"+"、"^"这些字符用来表示特殊的控制按键了,如何表示这些按键呢只要用大括号括住这些字符即可例如,要发送加号"+",可使用" WshShellSendKeys "{+}" "另外对于一些不会生成字符的控制功能按键,也同样需要使用大括号括起来按键号名称,例如要发送回车键,需要用" WshShellSendKeys "{ENTER}" "表示,发送向下的方向键用" WshShellSendKeys "{DOWN}" "表示

小提示

如果需要发送多个重复的单字母按键,不必重复输入该字母,SendKdys允许使用简化格式进行描述,使用格式为"{按键 数字}"例如要发送10个字母"x",则输入" WshShellSendKeys "{x 10}" "即可

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

2、快捷方式F5

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

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

Private Sub Command1_Click() '窗体上放一个按钮，点击，就可以在窗体上打印结果

    Dim SuShu(3) As Integer, i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer, i5 As Integer, c1 As Long, c2 As Long, Ji1 As Long, Ji2 As Long, Ji3 As Long

    MeAutoRedraw = True

    SuShu(0) = 2:    SuShu(1) = 3: SuShu(1) = 5: SuShu(3) = 7

    For i1 = 0 To 3

        For i2 = 0 To 3

            For i3 = 0 To 3

                c1 = SuShu(i1) 100 + SuShu(i2) 10 + SuShu(i3)

                For i4 = 0 To 3

                    For i5 = 0 To 3

                        c2 = SuShu(i4) 10 + SuShu(i5)

                        Ji1 = c1 SuShu(i5)

                        Ji2 = c1 SuShu(i4)

                        Ji3 = Ji1 + Ji2 10

                        If Ji1 > 1000 And Ji2 > 1000 And Ji3 > 10000 Then

                            If IsQuanSuShu(Ji1) And IsQuanSuShu(Ji2) And IsQuanSuShu(Ji3) Then '如果是，输出结果

                                Print "   " & CStr(c1) & vbNewLine & " X  " & CStr(c2) & vbNewLine & "--------"

                                Print "  " & CStr(Ji1) & vbNewLine & " " & CStr(Ji2) & vbNewLine & "--------" & vbNewLine & " " & CStr(Ji3)

                            End If

                        End If

                    Next

                Next

            Next

        Next

    Next

End Sub

Private Function IsQuanSuShu(ByVal n As Long) As Boolean '每一位是否全部是2,3,5,7

    Dim k As Integer

    Do While n > 0

        k = n Mod 10

        If k <> 2 And k <> 3 And k <> 5 And k <> 7 Then Exit Function

        n = n \ 10

    Loop

    IsQuanSuShu = True

End Function

以上就是关于编写vb程序全部的内容，包括:编写vb程序、用VB编写一个程序、用vb编写一个程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！