VB *** 作题只需告诉我程序代码编写

你这个问题涉及到的 *** 作步骤比较多，代码很简单；

1，启动VB程序，新建一个项目。

2，在VB窗口，单击[工具]菜单，选择[菜单编辑器]，出现“菜单编辑器”窗口；

在标题框里，输入：文件；

在名称框里，输入：menu1；（注意最后不是英文字母是数字1）

如下图所示：

然后单击[下一个]，再单击向右的箭头按钮，见下图：

在标题框里，输入：打开；

在名称框里，输入：m1；

见下图；

然后单击[下一个]，在标题框里，输入：关闭；在名称框里，输入：m2；

然后单击[下一个]；在标题框里，输入：保存；在名称框里，输入：m3；

见下图：

因为要制作d出式菜单，所以单击上图中，最下面的空白框里的“文件”，出现下图；

单击[可见]，去掉勾选，见下图；

至此， *** 作完毕，单击[确定]，回到VB界面；

添加一个按钮控件，改名为“d出菜单”

代码如下：

Option Explicit

Private Sub Command1_Click()

PopupMenu menu1

End Sub

新建窗体，画一个命令按钮，双击命令按钮，输入以下代码：

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

b = 0

For a = 9 To 1 Step -1

b = b + 1

Print String(2 b - 1, Trim(Str(a)))

Next a

End Sub

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

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 27

Picture1Print fib(i), ;

If i Mod 5 = 0 Then Picture1Print

DoEvents

Next i

End Sub

Function fib(n As Integer)

If n = 1 Or n = 2 Then fib = 1: Exit Function

fib = fib(n - 2) + fib(n - 1)

End Function

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