2022年电大VisualBasic程序设计作业答案.pdf

《2022年电大VisualBasic程序设计作业答案.pdf》由会员分享，可在线阅读，更多相关《2022年电大VisualBasic程序设计作业答案.pdf（28页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic程 序 设 计 作 业 1一、选 择 题 1.D 2.B 3.C 4.C 5.B 6.D 7.A 8.B 9.A 1().C 11.C12.C 13.B 14.D 15.A二、填 空 题 1.视 图 工 具 箱 2.对 象 事 件 3.vbp.frm4.窗 体 控 件 菜 单 5.完 成 某 种 特 定 的 功 能 对 象 名 方 法 名 Forml.Show6.Multiline True7.40008.AutoSize True9.窗 体 布 局 窗 口 10.txtshow,text=GOOD W O R K!11.Click。、frml.show12.单 击 双

2、 击 装 载 多 响 应 某 个 事 件 后 所 执 行 的 程 序 代 玛 cmdl Click13.完 成 某 种 特 定 的 功 能 对 象 名 方 法 名 Forml.Show14.工 具 选 项 选 项 自 动 语 法 检 测 15.Timer Interval ms三、问 答 题 1.参 考 答 案答：可 视 化 编 程 是 目 前 最 直 观 的 一 种 编 程 方 法，人 们 一 般 用 Visual词 表 示 它。之 所 以 叫 做“可 视”，是 指 你 无 需 编 程，仅 通 过 直 观 的 操 作 方 式 即 可 完 成 界 面 的 设 计 工 作。因 此，可 视 化 语

3、 言 是 目 前 最 好 的 Windows应 用 程 序 开 发 工 具。在 这 种 语 言 中 引 入 了 控 件 的 概 念，每 个 控 件 都 有 若 干 方 法 和 事 件，并 通 过 一 系 列 的 属 性 来 控 制 控 件 的 外 观。利 用 这 些 控 件，编 程 过 程 就 如 同 画 画，随 意 点 几 下 鼠 标,一 个 按 钮 就 完 成 了，这 些 工 作 在 使 用 传 统 编 程 语 言 的 情 况 下，需 要 编 写 大 量 复 杂 的 程 序 代 码 才 能 实 现。可 视 化 编 程 主 要 用 到 了 事 件 驱 动 机 制，其 原 理 是：当 应 用

4、程 序 运 行 后，程 序 处 于 等 待 状 态，当 某 个 事 件 发 生 后，程 序 就 去 执 行 此 事 件 的 事 件 过 程，当 这 个 事 件 过 程 执 行 完 后，应 用 程 序 又 处 于 等 待 另 一 个 事 件 发 生 的 状 态。2.参 考 答 案 答：对 象 是 代 码 和 数 据 的 封 装 体，在 V B中，“数 据”表 现 为 属 性，“代 码”则 表 现 为 事 件 和 方 法。建 立 一 个 对 象 后，其 操 作 通 过 与 该 对 象 的 有 关 属 性、事 件 和 方 法 来 描 述。属 性 是 一 个 对 象 的 基 本 特 性，每 个 对 象

5、 都 有 它 自 己 的 属 性。通 过 修 改 对 象 的 属 性，可 以 改 变 对 象 的 外 观 和 功 能。方 法 就 是 要 对 象 执 行 的 动 作，一 般 可 以 将 它 理 解 为 V B提 供 的 一 种 特 殊 的 过 程 和 函 数。其 特 殊 性 在 于，这 些 过 程 和 函 数 是 封 装 在 对 象 内 部 的，是 在 对 象 上 实 施 的 某 种 操 作 功 能。事 件 就 是 在 对 象 上 所 发 生 的 事 情。对 象 的 事 件 是 由 V B预 先 设 置 好 的、能 被 对 象 识 别 的 动 作。用 户 不 能 建 立 新 的 事 件，但 可

6、 以 根 据 需 要 对 事 件 进 行 编 程。从 非 严 格 意 义 上 讲，可 以 将 事 件 理 解 为 一 种 特 殊 的 方 法。3.参 考 答 案 答：传 统 的 面 向 过 程 的 应 用 程 序 中，应 用 程 序 自 身 控 制 了 执 行 哪 一 部 分 代 码 和 按 何 种 顺 序 执 行 代 码，程 序 从 第 一 行 代 码 开 始 执 行 并 按 应 用 程 序 中 预 定 的 路 径 执 行,用 户 无 法 改 变 程 序 的 执 行 流 程。在 事 件 驱 动 的 应 用 程 序 中，程 序 的 执 行 发 生 了 根 本 的 变 化，代 码 不 是 按 照

7、 预 定 的 路 径 执 行，而 是 在 响 应 不 同 的 事 件 时 执 行 不 同 的 代 码 片 段。每 个 对 象 都 有 一 个 相 应 的 事 件 集，每 个 事 件 发 生 都 要 执 行 一 段 程 序 代 码。事 件 可 以 由 用 户 操 作 触 发，也 可 以 由 操 作 系 统 或 其 它 应 用 程 序 的 消 息 触 发，甚 至 可 由 应 用 程 序 本 身 的 消 息 触 发。这 些 事 件 的 顺 序 决 定 了 代 码 执 行 的 顺 序，因 此，应 用 程 序 每 次 运 行 所 经 过 的 代 码 路 径 是 不 确 定 的，它 的 执 行 流 程 由

8、 用 户 来 决 定。在 程 序 设 计 时，不 需 要 指 出 先 执 行 哪 部 分 代 码，或 按 什 么 顺 序 执 行 代 码，只 需 编 写 针 对 某 个 事 件 的 程 序 代 码 即 可。4.参 考 答 案 答：事 件 驱 动 是 V B应 用 程 序 的 基 本 机 制，其 基 本 过 程 是：(1)启 动 应 用 程 序，装 载 和 显 示 窗 体。(2)窗 体 或 窗 体 上 的 控 件 等 待 事 件 的 发 生。事 件 可 由 用 户 引 发(例 如 键 盘 操 作 或 鼠 标 点 击)、可 由 系 统 引 发(例 如 定 时 器 控 件)、也 可 由 代 码 间

9、接 引 发(例 如 当 代 码 装 载 其 他 窗 体 时 产 生 的 Load事 件)。(3)当 某 个 事 件 发 生 后，执 行 其 对 应 的 事 件 过 程 代 码。(4)重 复 执 行 第 2 和 第 3 步。直 到 遇 到 E nd语 句 或 单 击“结 束”按 钮 停 止 程 序 的 运 行。四、程 序 设 计 题 1.Private Sub Form_LoadQTextl.Text 二 nVB 程 序 设 计”Textl.FontSize=16End SubPrivate Sub Command 1 _ClickQTextl.Visible=FalseEnd SubPriva

10、te Sub Command2_ClickQTextl.Visible=TrueEnd Sub2.Private Sub Commandl_ClickOTextl.TextText2.Text=Text3.Text=End SubPrivate Sub Command2_ClickQIf Textl Text=”Or Text2.Text=Or Text3.Text=ThenM sgBox”成 绩 输 入 不 全！ElseText4.Text=(V al(Textl.Text)+Vai(Tex t2.Text)+Val(Text3.Text)/3End IfSub EndPrivate Sub

11、 Command3_ClickOUnload MeEnd Sub3.Private Sub Command 1 _ClickOIfT extl.T ext=nn ThenM sgBox”至 少 要 输 出 单 价！”Textl.SetFocusExit SubEnd IfIf Text2.Text=Then Text2.Text=1IfText3.Text=Then Text3.Text=1Text4.Text=Textl.Text*Text2.Text*Text3.TextEnd Sub电 大 天 堂【Visual B asic程 序 设 计】作 业 2一、选 择 题 1.B 2.C 3.D

12、 4.B 5.D 6.A 7.B 8.C 9.A 10.D11.C 12.B 13.D 14.C 15.A 16.B 17.C 18.B 19.D20.B二、填 空 题 1.下 拉 式 菜 单 弹 出 式 菜 单2.打 开 另 存 为 颜 色 字 体 打 印 3.文 本 框 列 表 框 4.Option Base 15.Call语 句 6.工 程 工 程 属 性 通 用 Forml.Show7.08.Sub过 程 的 过 程 名 不 能 返 回 值，而 Function过 程 能 通 过 过 程 名 返 回 值 9.窗 体 模 块 标 准 模 块 类 模 块 10.移 出 内 存 无 效 状

13、态 11.(1)2*Cos*Sin/(2*)(2)Sqr(s*(s-a)*(s-b)*(s-c)(3)Sin(45*3.14/180)12.(1)x=l And x=C Or a-c0 And b0 Or(a0 And b0)13.False14.For While Do15.3三、阅 读 下 列 程 序，给 出 程 序 运 行 结 果。1.程 序 运 行 后，单 击 窗 体，输 出 结 果 为：5050o10 1510 1520+252020匚 川 及 13.4.3.4 35.*四、程 序 设 计 题 1.Private Sub Command 1 _ClickQDim x As Singl

14、e,y As Singlex=Val(Textl.Text)If x 100 Theny 二 xElseIfx 200 Theny=9.5*xElseIf x 300 Theny=0.9*xElseIfx 200If x Mod 3 0 ThenTextl.Text=Textl.Text&Str(x)&Chr(13)&Chr(l 0)End Ifx=x+1LoopEnd Sub3.Private Sub Form_ClickQPrint 叫”;Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12PrintFor 1=15 to 18Print I;For j=3 to

15、 12 Step 3Print Tab(3*j);j*I;Next jPrintNext IEnd sub4.Private Sub Command 1 _ClickQUnload MeEnd SubPrivate Sub Optionl_ClickQTextl.Text=1 0*2End SubPrivate Sub Option2_ClickOTextl.Text=1 0/2End SubPrivate Sub Option3_Click()Textl.Text=10+2End SubPrivate Sub Option4_ClickQTextl.Text=1 0-2End Sub5.Pr

16、ivate Function Day(n As Integer)Select Case nCase 0Day 二 星 期 日&Chr(13)&(Sunday)Case 1Day 二 星 期 一&Chr(13)&(Monday)Case 2Day=星 期 二&Chr(13)&(Tuesday)Case 3Day=星 期 三&Chr(13)&(Wednesday)Case 4Day=星 期 四&Chr(13)&(Thursday)Case 5Day=星 期 五&Chr(13)&n(Friday)Case 6Day=星 期 六”&Chr(13)&“(Saturday)”End SelectEnd F

17、unctionPrivate Sub Textl_KeyPress(KeyAscii As Integer)Dim n As Integern=ValfTextl.Text)If KeyAscii=13 ThenIf n=0 And n 7 ThenLabell.Caption=Day(n)ElseMsgBox请 输 入 0 6之 间 的 整 数！End IfEnd IfTextl.SelStart=0Textl.SelLength=Len(Textl.Text)End Sub6.新 建 一 个 工 程，在 默 认 的 窗 体 Form l上 放 置 一 个 Picture控 件，然 后 编

18、写 如 下 代 码。Private Sub Picturel_MouseDown(Button As Integer,Shift As Integer,X As Single,YAs Single)If Button=2 ThenMsgBox You pressed right ButtonPicture 1.MousePointer=vbArrowEnd IfEnd SubPrivate Sub Picturel_MouseMove(Button As Integer,Shift As Integer,X As Single,YAs Single)Picturel.MousePointer=

19、vbUpArrowEnd Sub7.Private Sub Form_LoadOListl.Additem“李 敏”Listl.Additem”张 华“Listl.Additem”吕 晓 炜”Listl.Additem“赵 巍”Listl.Additem 袁 莉 Listl.Additem“王 津”Listl.Additem”何 小 渴”Listl.Additem”崔 宁”Listl.Additem“陈 曦”Listl.Additem”刘 伟 楠”End SubPrivate Sub Commandl_ClickOIfTextl.Text ThenListl.Additem Textl.Tex

20、tTextl.Text=ElseMsgBox”请 在 文 本 框 中 输 入 信 息！”End IfEnd SubPrivate Sub Command2_ClickOListl.Removeitem Listl.ListindexEnd SubPrivate Sub Command3_Click()If Commands.Caption=修 改 ThenTextl.Text=Listl.TextTextl.SetFocusCommandl.Enabled=FalseCommand2.Enabled=FalseCommands.Caption=修 改 确 认”ElseListl.List(Li

21、stl.Listindex)=Textl.TextCommandl.Enabled=TrueCommand2.Enabled=TrueTextl.Text=Commands.Caption=修 改”End IfEnd SubPrivate Sub Listl_ClickOIf Listl.Listindex-1 ThenCommand2.Enabled=TrueCommands.Enabled=TrueEnd IfEnd Sub电 大 天 堂【Visual Basic程 序 设 计】作 业 3*、选 择 题 1.B 2.B 3.B 4.A 5.C 6.C 7.D 8.C 9.C 10.C 11

22、.B12.B 13.A 14.B 15.C 16.C 17.B 18.A 19.C 20.B21.A二、填 空 题 1.Output2.FilcCopy c:d:”3.Kill d:tcm.tmp”4.Open“SEQNEW.DAT”For Output As#15.Open”SEQOLD.DAT For Input As#26.右 上 7.False8.Picturel.Line(500,500)-(1000,1000),RGB(255,050),BF9.52010.ActiveConnection11.外 部 数 据 库、远 程 数 据 库 12.A D O r s，学 号”)13.增 加

23、、删 除、修 改(或 者 Select、Delete Update)14.Select*from Table 1 Where 学 号=00115.本 地 数 据 库、远 程 数 据 库 三、程 序 设 计 题 1.Private Sub Form_LoadODrivel.Drive=c:Filel.Pattern=*.bmp;*.gif;*.jpg”E nd SubPrivate Sub Drivel_changeODirl.Path=Drivel.DriveE n d SubPrivate Sub Dirl_Change。Filel.Path=Dirl.PathE n d SubPrivat

24、e Sub Filel_clickQIf Right(Filel.Path,1)=Then=Forml.Filel.Path+Forml.Filel.FileNameElse=Forml.Filel.Path+Forml.Filel.FileNameE n d IfPicturel.Picture=LoadPicture($)Picturel.AutoSize=TrueEnd Sub2.Private Sub Form_Click()Dim i As Single,twopie As Singletwopie=8*Atn(l)DrawWidth=2Scale(-twopie,1)-(twopi

25、e,-1)For i 二-twopie To twopie Step twopie/360PSet(i,0)Next iCurrentY=0CurrentX=-twopiePrint n-2pin;CurrentX=-twopie/2Print n-pin;CurrentX=twopie/2Print Hpin;CurrentX=twopie-0.6Print n2piH;Print HpH求 pi 设 置 点 的 大 小 设 置 坐 标 系 画 x 轴 标 x 轴 For i=-1 To 1 Step 0.01 画 y 轴PSet(0,i)Next iCurrentX=0，标 y轴 刻 度

26、For i=-1 To 1 Step 0.5CurrentY=iPrint iNext iFor i=-twopie To twopie Step 0.1，画 余 弦 曲 线 PSet(i,Cos(i)Next iEnd Sub3.Private Sub Checkl_ClickQIf Checkl.Value=1 ThenLinel.BorderWidth=4ElseLinel.BorderWidth=1End IfEnd SubPrivate Sub Optionl_Click(Index As Integer)Linel.BorderWidth=1Checkl.Value=0Select

27、 Case IndexCase 1Linel.BorderStyle=1Case 2Linel.BorderStyle=2Case 3Linel.BorderStyle=3End SelectEnd SubI.Private Sub Option 1 _Click(Index As Integer)Select Case IndexCase 0Shapel.Shape=0Case 1Shapel.Shape=1Case 2Shapel.Shape=3Case 3Shapel.Shape=4End SelectEnd SubPrivate Sub Option2_Click(Index As I

28、nteger)Select Case IndexCase 0Shapel.FillStyle=1Case 1Shapel.FillStyle=3Case 2Shapel.FillStyle=2Case 3Shapel.FillStyle=6End SelectEnd SubPrivate Sub Option3_Click(lndex As Integer)Shape 1.BorderWidth=1Select Case IndexCase 0Shapel.BorderStyle=0Case 1Shapel.BorderStyle=1Case 2Shapel.BorderStyle=4Case

29、 3Shapel.BorderStyle=2Case 4Shapel.BorderStyle=3End SelectEnd Sub5.（以 SQL Server数 据 库 为 例）声 明 对 象 变 量 A D O cn,用 于 创 建 与 数 据 库 的 连 接 Private ADOcn As ConnectionPrivate Sub RcadFromTableQDim strtmp As StringDim ADOrs As New RecordsetADOrs.ActiveConnection=ADOcnADOrs.Open Hselect*from students order b

30、y 学 号”MSFlexGridl.ClearMSFlexGridl.Rows=0MSFlexGridl.Cols=3strtmp 二“学 号”+vbTab+”姓 名”+vbTab+”专 业”MSFlexGridl.Additem strtmpDo While Not ADOrs.EOFstrtmp=ADOrs（“学 号”）+vbTab+A D O rs,姓 名”）+vbTab+ADOrs（专 业 MSFlexGridl.Additem strtmpADOrs.MoveNextLoopMSFlexGridl.FixedCols=0MSFlexGridl.FixedRows=1End SubPr

31、ivate Sub Command 1 _ClickQUnload MeEnd SubPrivate Sub Form_LoadQ定 义 数 据 库 连 接 字 符 串 Dim strDB As String用 于 连 接 SQL Server数 据 库，其 中：,Server为 服 务 器 名 称 User ID为 登 录 账 号 Password为 登 录 口 令 Database为 具 体 的 数 据 库 名 strDB=Provider=SQLOLEDB;LSF;User ID=sa;Password二;Database=学 生”如 果 还 没 有 建 立 与 数 据 库 的 连 接，

32、则 用 以 下 代 码 创 建。If ADOcn Is Nothing ThenSet ADOcn 二 New ConnectionADOcn.Open s tr D B，连 接 SQL Server 数 据 库 End IfReadFromTable，调 用 过 程 显 示 students表 中 的 记 录 End Sub行 结 果 及 代 码 请 参 考 主 教 材 和 实 验 教 材 相 关 内 容。电 大 天 堂【Visual Basic程 序 设 计】作 业 4一、选 择 题 1.A 2.B 3.A 4.D 5.B 6.C 7.A 8.B二、填 空 题 1.A.Data Arriv

33、al 事 件、SendData 方 法 2.TCP/IP（或 者 回 答 T C P协 议）3.EXE4.用 户 自 定 义 接 口、标 准 接 口 5.Locallp 方 法 6.GetData 方 法 7.使 用 服 务 程 序 处 于 侦 听 状 态；8.Winsock9.实 时 错 误、逻 辑 错 误 10.On Error Goto 0三、问 答 题 1.参 考 答 案 答：Socket是 T C P/IP网 络 中 最 为 通 用 的 API（应 用 程 序 接 口），也 是 在 Internet上 进 行 应 用 程 序 开 发 最 为 通 用 的 API。它 为 网 络 中 的

34、 每 台 计 算 机 中 提 供 了 一 个 通 信 端 口，通 过 这 个 端 口，任 何 两 台 具 有 Socket接 口 应 用 程 序 就 可 进 行 信 息 收 发 通 信 了。程 序 员 只 需 要 对 Socket接 口 进 行 数 据 的 读 写 操 作，根 本 不 必 关 心 两 台 计 算 机 间 的 通 信 细 节 就 能 够 完 成 数 据 的 发 送 和 接 收 工 作。基 于 Socket的 通 信 过 程 如 图 1所 示。2.参 考 答 案 答：V B中 一 般 可 按 下 列 步 骤 设 计 错 误 处 理 程 序:第 1步：捕 获 错 误，并 强 制 程

35、序 跳 转 即 在 错 误 发 生 时，捕 获 并 告 知 应 用 转 向 哪 段 代 码 进 行 错 误 处 理。V B中 通 常 可 采 用 On Error GoTo语 句 启 用 错 误 捕 获 机 制。第 2步：编 写 错 误 处 理 程 序，对 所 有 可 预 见 的 错 误 做 出 反 应 编 写 错 误 处 理 程 序 的 第 一 步 是 添 加 一 个 行 标 识 符，比 如“CheckError:，以 标 志 错 误 处 理 程 序 的 开 始。行 标 识 符 的 名 称 最 好 具 有 良 好 的 可 读 性，并 且 后 面 必 须 跟 一 个 冒 号。常 规 错 误 处

36、 理 程 序 通 常 放 在 过 程 的 结 束 处，紧 跟 Exit Sub或 Exit Function的 行 标 识 符 之 后。这 样 在 没 有 错 误 发 生 时，过 程 就 不 会 执 行 错 误 处 理 程 序 了。第 3步：退 出 错 误 处 理 程 序 通 常 情 况 下，只 有 当 错 误 处 理 程 序 位 于 过 程 中 间 位 置 时，才 需 要 用 到 专 门 的 错 误 处 理 程 序 退 出 语 句。一 般 可 使 用 Resume或 Resume Next语 句 退 出 错 误 处 理 程 序。Resume语 句 会 继 续 执 行 引 发 错 误 的 那

37、句 代 码，而 Resume Next语 句 则 会 跳 过 该 语 句，执 行 引 发 错 误 代 码 的 下 一 句 代 码。如 果 通 过 错 误 处 理 程 序 能 够 修 正 错 误，则 可 以 使 用 Resume语 句，否 则 就 使 用 Resume Next语 句,或 者 直 接 使 用 Exit Sub或 Exit Function语 句 直 接 退 出 过 程。3.参 考 答 案 答：调 试 程 序 是 一 件 复 杂 的 工 程，不 但 要 求 程 序 员 对 系 统 设 计 结 果 非 常 熟 悉，思 路 清 晰，更 需 要 不 断 地 在 实 践 中 积 累 经 验

38、。以 下 技 巧 可 供 参 考：首 先，应 事 先 做 好 备 份：尽 管 V B提 供 了 众 多 的 调 试 工 具，但 要 利 用 这 些 工 具 查 找、定 位 程 序 中 的 错 误 并 非 易 事，对 于 一 些 规 模 较 大 的 程 序，即 使 是 有 经 验 的 程 序 员 也 常 常 要 损 失 好 几 小 时 甚 至 几 天 的 时 间 来 查 找 错 误。在 调 试 过 程 中，很 容 易 意 外 地 修 改、覆 盖 或 删 除 掉 必 要 的 代 码 部 分。因 此 事 先 做 好 备 份 非 常 重 要。其 次，尽 可 能 地 分 离 受 怀 疑 的 程 序：对

39、于 那 些 代 码 规 模 较 大，窗 口 众 多 的 程 序 而 言，如 果 能 将 错 误 的 范 围 定 位 于 某 个 窗 体 或 某 段 代 码，则 可 以 使 用 分 离 程 序 的 调 试 方 法。基 本 思 路 是：试 着 找 到 出 错 的 代 码 行（块）或 窗 体，选 择 并 复 制 这 些 代 码 到 一 个 新 的 工 程 中，然 后 运 行 新 工 程，看 一 看 是 否 还 会 出 现 同 样 的 错 误。这 样 就 可 以 尽 可 能 地 排 除 程 序 其 他 部 分 的 干 扰，提 高 调 试 的 效 率。第 三，缩 小 搜 索 范 围：如 果 有 可 能

40、的 话，可 删 除 工 程 中 任 何 第 三 方 控 件 和 自 定 义 控 件，或 者 任 何 看 来 与 问 题 无 关 的 代 码，逐 步 缩 小 搜 索 范 围。或 者 采 用 相 反 的 策 略，先 调 试 某 一 段 代 码 或 窗 体，再 象 搭 积 木 似 的 逐 步 扩 大 调 试 的 范 围。这 种 方 法 与“分 离 受 怀 疑 的 程 序”方 法 相 结 合，对 复 杂 大 系 统 的 调 试 非 常 有 效。最 后，使 用 MsgBox语 句：如 果 怀 疑 程 序 的 错 误 是 由 于 执 行 路 径 或 者 变 量 的 值 不 正 确 等 原 因 造 成 的，

41、除 了 采 用 设 置 断 点 的 方 式 进 行 调 试 外，还 可 以 借 助 于 MsgBox语 句。即 在 程 序 运 行 路 径 的 关 键 点 上 插 入 一 系 列 的 MsgBox语 句，用 来 展 示 程 序 运 行 的路 径 和 重 要 变 量 的 值。4.参 考 答 案 答：利 用 Winsock控 件 开 发 网 络 通 信 系 统 时，通 常 要 涉 及 服 务 器 和 客 户 机 两 类 应 用 程 序。一 般 过 程 是：(1)服 务 器 程 序 的 开 发 模 式 服 务 器 程 序 必 须 设 置 好 LocalPort属 性，作 为 侦 听 端 口。该 值

42、可 设 置 成 任 意 一 个 整 数，只 要 其 他 应 用 程 序 没 有 使 用 过 的 值 均 可，但 习 惯 上 应 大 于 1000。使 用 Listen方 法 使 服 务 器 进 入 侦 听 状 态，等 待 客 户 机 程 序 的 连 接 请 求。客 户 机 程 序 发 出 连 接 请 求 后，将 触 发 服 务 器 程 序 的 ConnectionRequest事 件，该 事 件 得 到 一 个 参 数 requestIDo 服 务 器 程 序 使 用 Accept方 法 接 受 客 户 机 程 序 的 requestID请 求。至 此，服 务 器 程 序 就 可 以 使 用

43、SendData方 法 向 客 户 机 发 送 数 据 了。此 时 应 特 别 注 意 两 点：一 是 A ccept方 法 必 须 用 到 上 一 步 得 到 的 requestID作 为 其 参 数；二 是 在 执 行 Accept方 法 前，服 务 器 仍 处 于 侦 听 状 态，此 时 应 首 先 使 用 Close方 法 关 闭 服 务 器，然 后 再 调 用 Accept方 法。当 服 务 器 程 序 接 收 到 数 据 时，会 产 生 DataArrival事 件。在 该 事 件 中 可 以 使 用 GetData方 法 接 收 数 据。(2)客 户 机 程 序 的 开 发 模

44、式 客 户 程 序 首 先 应 设 置 好 RcmoteHost属 性，用 来 指 向 运 行 服 务 器 程 序 的 主 机 名 或 IP地 址。设 置 RcmotePort属 性，用 来 指 向 服 务 器 程 序 的 侦 听 端 口 号。使 用 Connect方 法 向 服 务 器 提 出 连 接 请 求。如 果 服 务 器 接 受 了 上 述 连 接 请 求，客 户 机 程 序 会 产 生 Connect事 件。可 以 根 据 需 要，在 此 事 件 中 编 写 程 序，比 如 使 用 MsgBox函 数 向 用 户 提 示“连 接 已 成 功”之 类 的 信 息。连 接 成 功 后，

45、就 可 以 根 据 需 要 使 用 SendData方 法 向 服 务 器 发 送 数 据 了。当 客 户 机 程 序 接 收 到 数 据 时，会 产 生 DataArrival事 件，可 以 用 GetData方 法 接 收 数 据。四、程 序 题 1.共 有 两 处 错 误，改 正 如 下：错 误 1：排 序 For c=l To 20For j=c+l To 20IF A(c)A(j)ThenT 二 A(j)A(j 尸 A(c)A(C)=TEnd IfNextNext错 误 2:在 窗 体 上 输 出 结 果 CisFor c=l To 20Print A(c)Next c2.程 序 运 行 结 果 及 代 码 请 参 考 主 教 材 和 实 验 教 材 相 关 内 容。