index1.txt

VB技巧问答10000例,是一个教程

1,如何编写计算器程序
我是个初学者，在书上遇到一个很菜很菜的问题，昨晚搞了好久，摆不平.....我是昨天下午开始学VB的，书上的习题叫我编个计算器，只要求0-9，+，—，= 
    我是这么做的 
    Private Sub c0_Click() 
    t1.Text = t1.Text & c0.Caption 
    End Sub 
     
    Private Sub c1_Click() 
    t1.Text = t1.Text & c1.Caption 
    End Sub 
     
    Private Sub c11_Click() 
    t1.Text = t1.Text & c11.Caption 
    End Sub 
     
    Private Sub c12_Click() { 这搞不懂!!} 
    t1.Text = t3.Text & t4.text & t1.Text 
    t3.Text = "" 
    t2.Text = "" 
    End Sub 
     
    Private Sub c13_Click() 
    t2.Text = t1.Text {这+法也搞不懂} 
    t1.Text = "" 
    t3.Text = t2.Text + t1.Text 
    t4.Text = "+" 
    End Sub 
     
    Private Sub c15_Click() 
    t1.Text = "" 
    End Sub 
     
    Private Sub c2_Click() 
    t1.Text = t1.Text & c2.Caption 
    End Sub 
     
    Private Sub c3_Click() 
    t1.Text = t1.Text & c3.Caption 
    End Sub 
     
    Private Sub c4_Click() 
    t1.Text = t1.Text & c4.Caption 
    End Sub 
     
    Private Sub c5_Click() 
    t1.Text = t1.Text & c5.Caption 
    End Sub 
     
    Private Sub c6_Click() 
    t1.Text = t1.Text & c6.Caption 
    End Sub 
     
    Private Sub c7_Click() 
    t1.Text = t1.Text & c7.Caption 
    End Sub 
     
    Private Sub c8_Click() 
    t1.Text = t1.Text & c8.Caption 
    End Sub 
     
    Private Sub c9_Click() 
    t1.Text = t1.Text & c9.Caption 
    End Sub 
    在c13_click()时遇到的问题不知该怎么办老是+不了。cxx就是Commandbutton。
<END>
2,API的意义是什么
编程中经常碰到API。请问API的意义是什么？如何知道编程中经常用到的窗口句柄、窗口类名等？ 
<END>
3,想要成为一名IT企业的管理者是否一定要有过硬的编程能力
问 题 : 想 要 成 为 一 名 IT企 业 的 管 理 者 ,是 否 一 定 要 有 过 硬 的 编 程 能 力 ,如 果 不 是 的 话 ,应 该 怎 样 去 做 呢 ,望 各 位 高 手 不 吝 赐 教 ! 
<END>    
4,在vb中能不能像c中一样定义结构体
问 题 : 在 vb中 能 不 能 像 c中 一 样 定 义 结 构 体 ？ 例 如 对 一 个 描 述 对 象 有 20个 值 ， 如 一 个 人 有 身 高 、 体 重 、 年 龄 、 工 资 等 等 。 
<END>    
5,什么是变体型
问 题 : AppendChunk函 数 后 的 参 数 类 型 是 变 体 型 ， 请 问 什 么 是 变 体 型 ？ 
<END>
6,成员函数是否等于VB60中的属性方法事件
问 题 : 我 想 简 单 知 道 下 VC++6.0运 行 情 况 :先 什 么 ;再 什 么 ;后 什 么 。 请 显 示 出 来 。 成 员 函 数 是 否 等 于 VB6.0中 的 属 性 ;方 法 ;事 件 。 
<END>    
7,如果将来我为企业做软件，应该向哪一方面发展
问 题 : 你 好 ， 我 是 一 名 计 算 机 专 业 的 学 生 ， 最 近 对 vb产 生 了 兴 趣 ， 现 在 可 以 编 一 些 简 单 的 小 程 序 ， 如 看 图 器 、 简 易 浏 览 器 等 。 我 想 问 一 下 ， 如 果 将 来 我 为 企 业 做 软 件 ， 应 该 向 哪 一 方 面 发 展 ？ 弄 清 vb与 数 据 库 (如 sql） 的 应 用 是 否 很 重 要 ？ 学 习 vb与 api方 面 的 知 识 又 有 何 意 义 ？ 望 指 教 ！ 
<END>    
8,VB调用函数和SUB过程的方法是否有着不同的影响
问 题 : 在 VB中 调 用 函 数 和 SUB过 程 的 方 法 有 很 多 ， 不 我 不 知 道 它 们 对 程 序 的 运 行 是 否 有 着 不 同 的 影 响 ， 如 占 用 内 存 是 否 一 样 ， 执 行 速 度 是 否 一 样 等 ， 如 ： 
    call functionname(arg1,arg2) 
    v=functionname(arg1,arg2) 
    functionname arg1,arg2 
    如 果 我 们 不 想 检 查 该 函 数 的 返 回 值 V,它 们 有 什 么 不 同 吗 ？ 请 专 家 给 予 指 教 。 
<END>    
9,扩展名为dll的文件是用什么软件编写
请 问 您 ,扩 展 名 为 dll的 文 件 是 用 什 么 软 件 编 写 ,请 您 赐 教 ,谢 谢 ! 
<END>
10,编译型和解释型的真正区别是甚末
问 题 : VC为 何 不 能 象 VB 做 得 那 样 容 易 使 用 ?VB 是 一 种 解 释 语 言 ， VC 是 编 译 型 的 ， 是 不 是 解 释 型 的 ， 在 编 译 环 境 上 容 易 做 ， 编 译 型 和 解 释 型 的 真 正 区 别 是 甚 末 。 VB不 能 作 到 不 可 以 反 编 译 吗 ？ 
<END>    
11,如何按千位输出以及四舍五入到指定位数
遇 到 的 问 题 ： 请 询 问 相 关 的 财 务 方 面 的 函 数 ， 希 望 得 到 您 的 指 导 ， 谢 谢 。 1： 我 做 的 财 务 统 计 软 件 ， 最 终 要 求 的 字 符 是 整 数 型 ， 我 已 经 做 到 了 四 舍 五 入 。 我 需 要 的 是 以 千 为 进 位 的 一 组 表 达 式 ： 比 如 ： 字 符 是 ： 99968935 那 么 转 换 之 后 的 是 ： 99,968,953 2: 什 么 样 的 函 数 能 使 一 个 数 符 ,(小 数 点 后 很 多 位 ,按 照 四 舍 五 入 的 方 案 只 保 留 小 数 点 后 两 位 . 
<END>    
12,VBVC这些工具是怎样开发的
问 题 : 我 想 问 C,C++,VB,VC这 些 工 具 是 怎 样 开 发 的 ?有 没 大 师 能 回 答 ？ WINDOWS又 和 DOS有 什 么 联 系 ， 本 质 一 样 吗 ？ 他 们 能 用 VB， VC开 发 吗 ？ 
<END>    
13,VB 的“P-代码”是什么意思
请 问 VB 的 “ P-代 码 ” 是 什 么 玩 意 儿 ？ “ 本 机 代 码 ” 和 它 下 面 的 一 大 堆 “ 优 化 ” 和 选 项 又 是 什 么 ？ 
<END>
14,VB可否制作驻留内存程序
请 问 :VB可 否 制 作 驻 留 内 存 程 序 ,如 何 制 作 ? 
<END>     
15,控件和组件有什么区别
控 件 和 组 件 有 什 么 区 别 ？ 
<END>     
16,VB中的sp2sp3企业版这三种各代表什么含义
我 有 一 个 问 题 向 你 们 请 教 请 VB中 的 sp2,sp3,企 业 版 这 三 种 各 代 表 什 么 含 义 ? 
<END>     
17,程序中的1500等字样是什么意思
问 题 : 我 在 一 个 程 序 中 见 到 了 "10#","1500#"等 字 样 ,请 问 它 们 是 什 么 意 思 ? 
<END>
18,如何在“立即”窗口中显示结果
问 题 : 本 人 是 VB的 初 学 者 ,在 学 习 VB中 不 知 怎 样 使 用 "立 即 "窗 口 ,程 序 运 行 中 断 后 ,"立 即 "窗 口 也 不 会 分 布 结 果 。 请 专 家 指 点 。 
<END>
19,有许多带$的字符串变量，都没有dim，仅仅是习惯上这样吗
我 看 的 vb书 中 有 许 多 带 $的 字 符 串 变 量 ， 都 没 有 dim， 仅 仅 是 习 惯 上 这 样 吗 ？ 
<END>
20,VB中的ADO、DAO、RDO等是如何区分的
有 个 概 念 我 不 清 楚 ， 就 是 VB中 的 ADO、 DAO、 RDO等 是 如 何 区 分 的 ？ 我 使 用 的 数 据 控 件 DATA， 是 属 什 么 ？ 使 用 数 据 控 件 是 否 能 支 持 网 上 操 作 （ 向 RDO一 样 ） ， 为 什 么 ？ 还 有 我 编 了 一 个 mdb数 据 库 程 序 ， 没 有 用 数 据 控 件 ， 但 我 自 已 也 不 知 用 了 ADO， DAO， 看 我 程 序 的 哪 一 地 方 确 定 我 使 用 的 方 法 ？ 如 果 我 使 用 的 是 DAO， 那 么 是 否 能 支 持 网 上 操 作 ， 如 不 支 持 ， 是 否 可 把 DAO同 RDO或 其 它 方 法 混 合 编 程 ？ 非 常 感 谢 贵 台 ！ 
<END>     
21,QB里有没有数组
QB里 有 没 有 数 组 ， 像 pascal？ 
<END>     
22,如何进行进制间相互转换
最 近 我 在 编 程 中 遇 到 一 些 问 题 ， 我 用 OPEN语 句 打 开 文 件 再 用 GET语 句 读 出 ， 现 在 我 想 用 一 个 循 环 语 句 将 读 出 的 数 据 放 到 一 个 数 组 里 ， 并 且 保 证 读 出 的 数 为 十 六 进 制 （ 因 为 用 GET语 句 读 出 的 数 据 VB都 自 动 转 变 为 十 进 制 ） 。 请 问 以 上 的 问 题 可 否 实 现 ， 如 果 可 以 ， 小 弟 万 分 感 激 ！ ！ ！ 请 问 如 何 将 八 进 制 、 十 进 制 、 十 六 进 制 、 字 母 、 中 文 等 这 些 进 制 与 进 制 间 、 文 字 （ 字 母 、 中 文 ） 与 进 制 间 相 互 转 。 谢 谢 ！ ！ 
<END>
23,编写一个软件，该从何处下手
我 是 一 名 初 学 者 ， 目 前 想 编 一 个 设 备 管 理 软 件 （ 数 据 库 ） ， 学 习 VB6已 经 有 6个 月 了 ， 看 了 一 些 VB6书 籍 ， 但 不 是 编 写 一 个 软 件 ， 该 从 何 处 下 手 ， 请 教 您 编 写 一 个 软 件 的 详 细 步 骤 。 
<END>     
24,怎样读写文件
怎 样 向 一 个 文 件 (例 如 文 本 文 件 等 )中 写 入 内 容 ,然 后 读 取 所 写 入 的 内 容 (例 如 通 过 文 本 框 显 示 出 来 )? 
<END>
25,如何使用Do ... Loop
问 题 : The question is: 
     Teacher Student 
    Height 165 cm 240 cm 
    GrowthRate 2cm/M 1cm/M 
    Assume the groth rate isn't changed with time. 
    Write the code to calculate the number of months the teacher will be taller than the student. It need to use Top-checking loop -- Do Until ...Loop. 
<END>
26,使用什么工具开发只有一个EXE文件的小程序
我 想 开 发 WINDOWS95/98小 工 具 (只 有 一 个 exe文 件 程 序 )用 什 么 语 言 ?我 见 过 一 些 很 小 的 Windows95/98工 具 程 序 ,只 有 几 十 K大 小 (没 有 一 大 堆 OCX或 DLL),请 问 我 应 该 选 用 什 么 语 言 ?我 想 用 C++/FOR WONDOWS(95/98,用 API编 程 ),请 问 用 哪 个 公 司 哪 个 版 本 的 好 些 ?拜 托 ! 
<END>
27,何为“窗体级变量”
我 看 到 书 中 有 如 下 一 段 话 ： 
    “ 下 面 的 Keypress事 件 过 程 将 输 入 内 容 保 存 在 了 窗 体 级 变 量 fnumeral$中 ： ” 
    请 问 何 为 “ 窗 体 级 变 量 ” ？ 谢 谢 ！ 
<END>
28,开发数据库程序用什么工具
请 专 家 明 确 回 答 ,开 发 数 据 库 程 序 到 底 VC+ODBC好 ,还 是 Delphi+BDE好 ,或 是 VB,PowerBuilder好 ?专 家 你 自 己 开 发 数 据 库 程 序 用 什 么 工 具 ？ 
<END>
29,请问在vb中的‘模块’、‘类模块’是什么
请问在vb中的‘模块’、‘类模块’是什么？有何好处？ 
<END>     
30,不等式为何和数字一起运算
Dim t as Double 
     t=month-2-12*(month<3) 
    不 知 道 括 号 中 表 达 式 是 什 么 意 思 ？ 不 等 式 为 何 和 数 字 一 起 运 算 ？ 
<END>     
31,VB、VC、BCB和 DELPHI哪个好些
我 曾 学 过 QB、 TC， 现 在 想 在 WINDOWS 下 编 写 一 些 简 单 的 程 序 。 我 学 了 几 天 VC， 实 在 太 复 杂 ， 也 试 着 用 了 一 下 VB 和 BCB， 觉 得 两 者 差 不 多 ， 至 于 DELPHI， 我 不 懂 PASCAL， 所 以 没 有 试 用 。 我 现 在 希 望 能 有 高 手 指 点 ， 帮 助 我 在 选 择 编 程 语 言 上 指 点 迷 津 ， 以 下 是 我 的 编 程 的 要 求 和 目 的 ： 
    1、 我 是 业 余 程 序 员 ， 希 望 能 够 快 速 学 会 ； 
    2、 编 写 一 些 中 文 软 件 ， 如 个 人 资 料 管 理 、 科 学 计 算 器 、 文 字 处 理 、 家 庭 收 支 管 理 等 小 软 件 等 ； 
    3、 不 知 哪 种 语 言 的 中 文 组 件 更 多 些 ， 这 样 可 以 省 下 编 写 组 件 的 时 间 ； 
    4、 希 望 程 序 开 发 的 速 度 能 够 快 些 ， 但 程 序 的 执 行 速 度 不 是 很 重 要 ； 
    5、 不 知 VB6 英 文 版 能 否 汉 化 成 中 文 版 （ 内 核 汉 化 ） ？ 如 能 ， 请 指 教 如 何 操 作 ； 
    如 前 辈 们 能 够 进 一 步 指 出 VC、 VB、 BCB、 DELPHI之 间 的 优 劣 ， 将 使 小 生 大 开 眼 界 ， 在 此 先 谢 过 各 位 ！ 
<END>
32,找不到“XXXX.OCX”文件是怎么回事
我 RUN一 些 程 序 时 常 遇 到 提 示 ： 找 不 到 “ XXXX.OCX” 文 件 ， 请 问 这 是 什 么 文 件 ？ 在 哪 里 可 以 找 到 ？ 
<END>
33,VB能否设置一个全局的错误处理例程
VB能 否 象 VFP一 样 只 需 一 个 地 方 有 错 误 处 理 例 程 ,不 需 每 个 SUB都 有 错 误 处 理 程 序 ? 
<END>
34,On Error GoTo是什么意思
Option Explicit 
    Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 
    Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long 
    Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long 
    Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long 
     
     Private SysDir As String 
     ' 保 存 系 统 目 录 路 径 
     Private IconCount As Long 
     ' 图 标 数 量 
     Private MyIcon As Long 
     ' 显 示 在 图 片 框 中 的 图 标 的 句 柄 
     
     Private Sub Command1_Click() 
     
     '(此 处 不 懂 ) 
     On Error GoTo ErrHandler 
     With CommonDialog1 
     .CancelError = True 
     .DialogTitle = "选 择 图 标 文 件 " 
     .InitDir = SysDir 
     .Filter = "动 态 链 接 库 |*.dll|可 执 行 文 件 |*.exe" 
     .FilterIndex = 2 
     .ShowOpen 
     End With 
     
     IconCount = ExtractIcon(App.hInstance, CommonDialog1.filename, -1) 
     Label4.Caption = CommonDialog1.filename 
     Label5.Caption = IconCount 
     Label6.Caption = "无 " 
     Command2.Enabled = IconCount 
     If VScroll1.Enabled Then 
     VScroll1.Value = 0 
     VScroll1.Enabled = False 
     End If 
     Picture1.Cls