题目：一家小型航空公司刚刚购买了一台计算机，以使用新的机票自动预订系统，这家公司要求我们开发这个新系统。我们需要编写一个应用程序，对这家航空公司唯一的一架飞机（容量为10个座位）的每个航班分配座位。这个应用程序应该输入下面这些选项：请输入1选择头等舱和请输入2选择经济舱。如果用户输入1，应用程序应该分配一个位于头等舱的座位（座位1~5）。如果用户输入2，应用程序应该分配一个位于经济舱的座位（座位6~10）。然后，这个应用程序应该显示一张登机证，注明用户的座位号码及它位于飞机上的头等舱还是经济舱。
使用一个基本类型Boolean的一维数组来表示这张飞机的座位图。把这个数组的所有元素初始化为false，表示这些座位都是空的。分配每个座位后，把对应的数组元素设置为True，表示这个座位已经被预订。这个应用程序不能分配已经被分配的座位。当经济舱满员之后，应用程序应该询问用户是否接受头等舱（反之亦然）。如果是，就进行适当的座位分配。如果不是，就显示信息“下一航班在3小时之后”
Public Class flight
Dim seats As Boolean() = New Boolean(9) {False, False, False, False, False, False, False, False, False, False}
......
郁闷，我使用的这个空间的IDC商竟然每隔一段时间就要检测绑定的域名是否再未提交备案列表中，如果是就删除，但是却不检测我是否提交了备案，按照他们说法删除域名一天后才能再次绑定，否则这一天内绑定了到下次检测就会再删除。这样我就不停的在后台看，看是否被删除，如果被删除，就再把域名绑定上去，;(很受伤！
于是用VB做了个程序，自动登录检测，看域名是否被删除，删除则自动添加域名上去，每10秒检测一次。主要用到了WebBrowser
新建窗体FORM1，在窗体上建个WebBrowser和TIMER就可以了，TIMER间隔设置为10000。
以下是代码
Private Sub Form_Load()
WebBrowser1.Navigate "http://**************/hostadm/subhostname1.asp?id=****"
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
turl = WebBrowser1.LocationURL
If turl <> "http://**************/hostadm/subhostname1.asp?id=****" Then
If t ......
报告书
名称
实验10-1 实现计算器的功能
姓名
指导教师
学号
日期
任务清单
在本练习中，你将使绘制的计算器完成简单的四则运算。
1) 启动Visual Studio 2005。
2) 新建一个VB Windows应用程序，在名称处输入“Calculator”,在位置处选择程序存放地址，点击确定。
3) 拖拽相应的TextBox控件和Button控件到窗体设计器中，绘制出一个计算器的界面
4) 转到代码设计器，在Button的Click事件中添加如下代码，以实现简单的四则运算功能
5) 运行程序：[调试]—>[启动调试]，进入界面
6) 点击按钮来测试你的计算器
7) 关闭程序
8) 程序的运行截图如下所示：
9） 参考代码：
Public Class Calculator
Dim a, b As Doubl ......
VBA
命名规则及代码规范
马维峰
(maweifeng@263.net
)
1.
VBA
命名规则
一个好的命名规则可以提高程序的可读性，减少错误发生的概率，命名规则不是一定的，不同的人有不同的规则和习惯，但在编程过程中，对于个人或工作组，一定要遵守相同的命名规则。
1.1.
变量、常量、自定义类型和枚举
表
1
‑1
概括了变量、常量的基本命名规则。
表
1
‑
1
变量、常量和枚举类型的命名规则
元素
命名规则
变量
<
范围
><
数组
><
数据类型
>
描述（首字母大写）
常量
<
范围
><
数据类型
>
描述（全部大写）
用户自定义类型
Type
描述名称
<
数据类型
>
描述
End Type
枚举类型
Enum <
工程前缀
>
一般描述
<
工程前缀
><
一般描述
><
具体名称
1>
<
工程前缀
><
一般描述
><
具体名称
2>
End Enum
<
范围
>
表示了变量的� ......
调用方法很简单，在Form中如下书写代码：
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '按 Ctrl+F1 激活指定程序，F1的Ascii码为112
SetHotkey 2, 113, "Add" '按 F2 激活指定程序，F2的Ascii码为113
SetHotkey 3, "Ctrl+Alt,113", "Add" '按 Ctrl+Alt+F2 激活指定程序，F2的Ascii码为113
End Sub
Private Sub Form_Unload(Cancel As Integer)
SetHotkey 1, "", "Del" '退出程序是一定要用上的，不然会导至程序死掉
SetHotkey 2, "", "Del"
SetHotkey 3, "", "Del"
End Sub
在项目中新建一个模块(bas文件)，然后代码如下（此模块中需要我们修改的是Function keyWndproc()，这里的代码实现的是当系统中按了热键后的调用代码）：
Option Explicit
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWnd ......
http://blog.csdn.net/cw198624/archive/2009/02/19/3911759.aspx
添加一个ListBox和一个按钮
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function EnumProcesses Lib "psapi" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
'上为函数声明，在此程序中EnumProcessModules为非必要，枚举进程路径，并不需要去枚举进程的模块。
Dim cbNeeded As Long, cbNeeded2 As Long, ProcessIDs(1 To 255) As Long
Dim lRet As Long, ModuleName As String, hP ......
最新文章 : vb