VB程序设计题型示例答案

Visual Basic 6.0 程序设计题型示例参考答案

一、选择题（每小题中只有一个选项是正确的）

1．A

2．C

9．A

10．A

17．B

18．A

25．A

26．C

33．B

34．C

41．C

42．D

49．D

50．D

57．A

58．D

65．A

66．D

73．C

74．A

81．C

82．A

89．B

90．C

97．D

98．C

105．C

106．C

113．B

114．B

121．C

122．B

129．D

130．C

137．A

138．A

145．A

146．A

153．D

154．A

161．B

162．A

169．D

170．A

177．B

178．B

185．B

186．A

193．B

194．A

3．C

4．C

11．C

12．B

19．A

20．D

27．D

28．D

35．B

36．C

43．B

44．A

51．B

52．C

59．A

60．A

67．D

68．A

75．D

76．B

83．B

84．D

91．C

92．A

99．D

100．D

107．A

108．A

115．C

116．B

123．D

124．C

131．D

132．B

139．C

140．A

147．B

148．D

155．B

156．D

163．A

164．C

171．B

172．D

179．C

180．A

187．A

188．A

195．B

196．D

5．D

6．B

13．D

14．D

21．A

22．A

29．C

30．C

37．D

38．D

45．C

46．C

53．B

54．D

61．D

62．C

69．C

70．A

77．D

78．B

85．B

86．B

93．A

94．D

101．A

102．D

109．D

110．A

117．B

118．B

125．C

126．D

133．C

134．A

141．B

142．B

149．D

150．B

157．B

158．D

165．A

166．D

173．A

174．C

181．B

182．B

189．D

190．D

197．C

198．B

7．D

8．B

15．A

16．C

23．C

24．C

31．C

32．B

39．C

40．C

47．B

48．D

55．D

56．C

63．A

64．C

71．A

72．D

79．A

80．B

87．B

88．B

95．C

96．C

103．D

104．C

111．A

112．D

119．B

120．D

127．D

128．D

135．D

136．C

143．C

144．B

151．D

152．C

159．C

160．A

167．D

168．A

175．D

176．B

183．D

184．D

191．B

192．B

199．C

200．D

201．B

209．B

217．B

225．C

233．A

241．C

249．C

257．B

265．B

273．D

281．B

289．A

297．B

305．D

313．D

321．B

329．C

337．A

345．D

353．B

二、判断题

1．√

9．√

17．√

25．√

33．√

41．√

49．×

57．√

65．√

73．×

81．×

89．×

97．√

202．D

210．B

218．A

226．D

234．B

242．B

250．C

258．A

266．C

274．B

282．A

290．B

298．D

306．B

314．C

322．D

330．B

338．B

346．C

354．C

203．D

211．B

219．D

227．C

235．D

243．C

251．D

259．B

267．D

275．A

283． C

291．D

299．D

307．C

315．D

323．D

331．A

339．C

347．D

355．A

204．A

212．C

220．D

228．B

236．C

244．B

252．D

260．B

268．B

276．A

284．A

292．A

300．D

308．B

316．D

324．A

332．C

340．A

348．B

356．D

205．B

213．D

221．B

229．C

237．A

245．D

253．D

261．C

269．A

277．C

285．D

293．C

301．B

309．A

317．B

325．B

333．B

341．C

349．C

357．A

第四部分

206．C

214．D

222．C

230．B

238．B

246．B

254．C

262．A

270．A

278．C

286．B

294．B

302．C

310．A

318．C

326．A

334．D

342．A

350．C

358．D

参考答案

207．A

215．B

223．D

231．A

239．C

247．C

255．D

263．B

271．A

279．D

287．C

295．D

303．B

311．B

319．B

327．A

335．B

343．B

351．D

359．D

208．C

216．D

224．D

232．C

240．B

248．B

256．B

264．B

272．B

280．D

288．A

296．D

304．B

312．D

320．A

328．C

336．D

344．A

352．D

360．C

2．×

10．√

18．×

26．√

34．√

42．×

50．√

58．×

66．×

74．×

82．√

90．√

98．×

3．√

11．√

19．×

27．√

35．√

43．√

51．√

59．×

67．√

75．×

83．×

91．√

99．×

4．√

12．√

20．√

28．×

36．×

44．√

52．√

60．×

68．×

76．×

84．√

92．√

100．√

5．√

13．√

21．×

29．√

37．×

45．×

53．√

61．√

69．√

77．×

85．√

93．×

6．√

14．×

22．√

30．√

38．×

46．√

54．×

62．√

70．√

78．×

86．×

94．√

7．×

15．√

23．×

31．√

39．×

47．×

55．√

63．×

71．√

79．√

87．√

95．×

8．×

16．√

24．√

32．√

40．√

48．×

56．√

64．×

72．×

80．×

88．√

96．×

三、名词解释题

1．对象是系统中的基本运行实体。用户用来构筑用户图形界面的每一个可视的控件均为对象。创建

用户界面时用到的对象可分为窗体对象和控件对象。整个应用程序也是一个对象，还有一些对象不可视。

2．属性是对对象特征的描述，不同的对象有不同的属性，属性可以属性窗口中设置也可以用代码

设置。

3．事件是由 Visual Basic 6.0 预先设置好的，能够被对象识别的动作。不同的对象能够识别的事件也

315

计算机类专业（上册）Visual Basic 6.0 程序设计 计算机组装与维修

不同。当事件由用户触发或系统触发时，对象就会做出响应。

4．方法是指控制对象动作行为的方式，是对象包含的函数或过程。方法的调用语法格式为：对象名.

方法名。

5．工程是 Visual Basic 应用程序开发过程中使用的文件集。Visual Basic 工程主要由窗体模块、标准

模块和类模块三部分组成。

6．Visual Basic 6.0 采用事件驱动编程机制。当发生某个事件时，就会“驱动”预先设置的一系列动

作，称为“事件驱动”。

7．针对窗体或控件的事件编写的代码。

8．在程序执行期间数值始终不变的量，称为常量。在 Visual Basic 中，常量分为两种：一般常量和

符号常量。

9．符号常量是在程序中用标识符表示的一些永远不变的常数或字符串。

10．程序执行过程中其值可以变化的量，称为变量。在程序运行中，系统为程序中的每一个变量分配

一个存储单元，变量名实质上就是计算机内存单元的命名。变量名用于识别变量在内存中的位置，变量的

类型指定其占用内存空间的大小。

11．在 Visual Basic 中，把一组具有同一名字、不同下标的变量，称为数组。

12．定长数组是指元素个数保持不变的数组。

13．动态数组是指计算机在执行过程中才给数组开辟存储空间的数组。可以用 ReDim 语句再次分配

动态数组占据的存储空间，也可以用 Erase 语句删除它，收回分配给所占存储空间，也可以改变数组元素

的个数。

14．系统功能设计是程序设计的起始部分，也是最为重要的部分，它是程序设计的骨架，直接决定后

期程序的好坏。

15．编译错误也称为语法错误，这种错误是由于程序中的语句违反了 Visual Basic 的语法规则而引

起的。

16．实时错误是指程序输入或编译时并未出现任何语法错误，但在程序运行过程中发生错误，导致应

用程序中断。该类错误在设计阶段较难发现，通常在程序运行时发现。

17．逻辑错误是最难以处理的一种错误。程序可以正常执行，但得不到所希望的结果。这不是程序语

句的错误，而是由于程序设计时本身存在的逻辑缺陷导致的。

18．为了简化程序设计，通常将程序分割成较小的逻辑部件，这些部件称为过程。过程分为：Sub 过

程（没有返回值）和 Function 过程（具有返回值）。

19．为了完成某个特定任务，通常会编写一段相对独立的程序。

20．Visual Basic 中允许变量不经过声明就直接使用的，默认为变体型局部变量，称为隐式声明。

21．一个表达式可能含有多种运算，系统会按预先确定的顺序进行计算，此顺序称为运算符的优先

顺序。

22．所谓窗体就是窗口，在 Visual Basic 中，窗体是用户界面最基本的模块，也是创建应用程序所使

用的主要对象之一。

23．就是给数组的各个元素赋初值。

24．包含在程序代码中的常量，可分为字符串常量、数值常量、布尔型常量、日期型常量。

25．文件扩展名为.cls，这类模块是面向对象编程的基础。在类模块中可以通过编写代码来建立新对

象，这些新对象可以包含自定义的属性和方法。

26．窗体模块的文件扩展名为.frm。这类模块是 Visual Basic 应用程序的基础。窗体模块可以包含事

件过程、通用过程，以及变量、常数、类型和外部过程的窗体级声明。

316

第四部分 参考答案

27．标准模块的扩展名为.bas。这类模块是应用程序内其他模块访问的过程和声明的容器。

28．注释语句是为了方便程序阅读对程序进行的说明，对程序运行没有影响。

29．赋值语句的功能是把右边的表达式的值赋给左边的变量或某个带有属性的对象。

30．快速显示窗体一般作为程序的封面使用，这种窗口一般没有命令按钮、没有标题栏。

31．图像框控件，可以显示位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF 文件的

图形。

32．通用对话框控件提供一组标准的操作对话框，包括打开和保存文件，设置打印选项，选择颜色和

字体，帮助等对话框。

33．图像列表控件，包含 ListImage 对象的集合，该集合中的每个对象都可以通过其索引或关键字被

引用。为其它控件提供图像资料的中心，不能独立使用。

34．目录列表框控件，在运行时显示目录和路径，这个控件可以用于显示分层的目录列表。

35．文件列表框控件，在运行时把 Path 属性指定的目录中的文件显示出来，该控件用来显示所选择

文件类型的文件列表。

36．ODBC 即开放数据库互连，是 Microsoft 公司开放服务结构中有关数据库的一个组成部分。

37．在继续使用应用程序的其他部分之前，必须关闭、隐藏或卸载的对话框。

38．API：应用程序编程接口。

39．SQL：结构化查询语言。

40．图形控件：可以用于显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形。

41．FSO 对象模型：提供了一个基于对象的用来管理驱动器、文件夹和文件，以及文本文件的工具。

42．对话框是一种用来实现用户与应用程序之间提供数据、获取信息的特殊类型的窗体对象。

43．MDI：多文档界面应用程序。

44．框架控件：框架控件为其他控件提供可标识的分组，可以在功能上进一步分割一个窗体。

45．驱动器列表框控件：用来显示用户系统中所有有效驱动器的列表。

46．列表框控件：用于显示项目列表，从中可以选择一项或多项。

47．单选框控件：显示一个可以打开或关闭的选项。

48．MsgBox 函数：在对话框中显示消息。等待用户单击按钮并返回一个数，表明用户单击了那一

个键。

49．数据控件：数据控件是数据库与 VB 窗体之间的桥梁。

50．菜单控件：用于显示应用程序的自定义菜单。

51．InputBox 函数：在对话框中显示提示，等待用户输入文本或按下按钮并返回文本框内的字符串。

52．工具栏控件：用来创建与应用程序相关联的工具栏。

53．Circle 方法：用于在图像框上画圆、椭圆和扇形。

54．line 方法：用于在窗体或图像框上画直线和矩形。

55．PSet 方法：将图像上的点设置为指定颜色。

56．SDI：单文档界面。

57．Erase 语句：用来重新初始化定长数组的元素，或者释放动态数据的存储空间。

58．命令按钮控件：可以开始、中断或者结束一个进程。

59．步长：步长是循环变量的增量，其值可以是正数或负数，如果没有设置 Step，则步长默认值为 1。

60．计时器控件：计时器控件用于背景进程中，它是不可见的。通过引发 Timer 事件，计时器控件可

以有规律地隔一段时间执行一次代码。

计算机类专业（上册）Visual Basic 6.0 程序设计 计算机组装与维修

四、简答题

1．答：（1）按 F7 键

（2）双击窗体或者控件

（3）单击“工程资源管理器”窗口的“查看代码”按钮

（4）“视图”菜单中的“代码窗口”选项

2．答：（1）按 F4 键

（2）单击“视图”菜单中的“属性窗口”选项

（3）单击工具栏上的“属性窗口”按钮

（4）Ctrl+W

3．答：（1）按 F5 键

（2）单击“运行”菜单中的“启动”选项

（3）单击工具栏上的“启动”按钮

4．答：工具箱中会出现的有 Label 标签控件、PictureBox 图片框控件、TextBox 文本框控件、Frame

框架控件、CommandButton 按钮控件、CheckBox 复选框控件、OptionButton 单选框控件、ListBox 列表框

控件、ComboBox 组合框控件、HScrollBar 水平滚动条控件、VScrollBar 垂直滚动条控件、Timer 计时器控

件、DriveListBox 驱动器列表控件、DirListBox 目录列表控件、FileListBox 文件列表控件、Shape 形状控

件、Line 直线控件、Image 图像控件、Data 数据控件、OLE 控件。

5．答：整型、长整型、单精度型、双精度型、货币型、字节型、字符型、日期型、布尔型、变体型、

对象型。

6．答：分为算术表达式、字符串表达式、关系表达式、布尔表达式、日期表达式。

7．答：动态数组可以用 REDIM 多次声明，而静态数组只能用 DIM 声明一次；

动态数组的元素个数可以改变，而静态数组的元素个数保持不变；

动态数组的在声明时下标可以变量，而静态数组的下标只能是常量；

动态数组可以用 ERASE 收回内存空间，而只能用 ERASE 删除静态数组的内容。

8．答：按地址方式传递和按值方式传递。按地址方式传递的是变量的在内存中的地址，实参传递给

形参后，经过改变，形参又返回给了实参；而按值方式传递的是变量的副本，实参传递给形参后，经过改

变后，不再返回给实参。

9．答：Visual Basic 程序中的错误分为三类，分别是编译错误（语法错误）、实时错误和逻辑错误。

10．答：（1）单击“工程”菜单，选择“添加 MDI 窗体”，添加 MDI 窗体

（2）将已存在的窗体或添加一个窗体，将其 MDIChild 属性设置为 true，即将窗体设置为 MDI 窗体的

子窗体。

（3）在子窗体上添加控件，设置属性，编写代码

11．答：（1）所有子窗体均在 MDI 窗体的工作空间内活动，不能移出 MDI 窗体。

（2）子窗体最小化时，图标显示在 MDI 窗体的底部，而不是任务栏上。

（3）子窗体最大化时，子窗体的标题与 MDI 窗体的标题合并，显示在 MDI 窗体的标题栏上。

12．答：（1）添加一个窗体

（2）将窗体的标题 caption 属性设置为空字符串，borderstyle 设置为 3，controlbox 设置为 False，让窗

体没有标题栏，没有边框，没有控制菜单

（3）在窗体上添加一些需要的文字和图片

（4）选择“工程”菜单“属性”选项，在启动对象下拉列表框中将该窗体设置为启动对象。

13．答：控件操作包括：添加控件、选取控件、移动控件、调整控件大小、复制控件、删除控件、设

318

第四部分 参考答案

置控件格式、设置控件间距。

14．答：（1）在工具箱中单击表示控件的图标，然后在窗体上拖动鼠标以绘制一个控件；（2）在工具

箱中双击表示某个控件的图标。

15．答：有两种方法：

（1）在窗体上选择要复制的一个或多个控件，选择“编辑”菜单中的“复制”选项，从“编辑”菜单

中选择“粘贴”选项出现提示已经有某控件，是否要创建控件数组时，单击“是”按钮；

（2）在窗体上添加多个相同的控件，把它们的 Index 属性设置为连续的值。

16．向框架中添加控件：如果希望将已经存在的若干控件放在某个框架中，可以先选择所有控件，将

它们剪贴到剪贴板上，然后选定框架控件并把它们粘贴到框架上（不能直接拖动到框架中）；也可以先添

加框架，然后选中框架，再在框架中添加其它控件，这样在框架中建立的控件和框架形成一个整体，可以

同时被移动、删除。

17．答：选取要设置对齐方式的一组控件，单击窗体编辑器左边的向下箭头，并从弹出的菜单中选择

所需要的对齐方式。

18．答：选取一组控件，单击窗体编辑器中间的向下箭头，并从弹出的菜单中选择“水平对齐”或“垂

直对齐”选项。

19．答：选取一组控件，单击窗体编辑器左边的向下箭头，并从弹出的菜单中选择“宽度相同”、“高

度相同”或“两者都相同”选项。

20．答：利用 AddItem 方法，其格式为：List. AddItem

item, index。

21．答：利用 Pset 方法，格式为 Object. Pset (x,y), color，将 Backcolor 属性设置为 Color 参数。

22．答：Shape 控件用于显示矩形、正方形、椭圆、圆形、圆角矩形、圆角正方形 6 种图形。

23．答：Clipboard 对象提供对系统剪贴板的访问，用于操作剪贴板上的文本和图形；要想返回或设

置 Clipboard 对象中的文本字符串需要用 t()。

24．答： 1）在工具栏控件“属

（

）在窗体上单击控件 Toolbar1，在属性窗口中单击自定义旁边的按钮； 2（

性页”对话框中切换到“通用”选项卡；（3）在“图像列表“列表框中选择 ImageList1，并单击“应用”

按钮。

25．答：当从驱动器列表框中选择一个新的驱动器时将发生 Change 事件

26．答：利用文件列表框的 Listcount 属性

27．答：顺序文件有 Output、Input、Append 三种访问方式。

28．答：（1）定义记录类型和记录变量；

（2）使用 Open 以随机方式打开文件；

（3）对记录进行读/写操作；

（4）关闭随机文件。

29．答：（1）当数组较小或者只需对数组中的指定元素操作时，可以通过直接引用数组来实现对数组

指定元素的遍历。

（2）对于元素较多的一维数组，通常采用一重循环来实现对数组各个元素的遍历。

（3）对于元素较多的二维数组，通常采用二重循环来实现对数组各个元素的遍历。

（4）对于多维数组，通常采用多重循环来实现对数组各个元素的遍历

30．答：（1）打开文本文件

（2）向打开的文本文件中写入数据

（3）关闭文本文件

31．答：建立应用程序界面、设置界面对象属性、编写事件驱动代码

319

计算机类专业（上册）Visual Basic 6.0 程序设计 计算机组装与维修

32．答：if 条件 Then [语句 1] [Else 语句 2]

33．答：循环语句有 3 种语句：For、While 和 Do，For 用于执行指定次数，While 为先测试型循环语

句，Do 为后测试型循环语句。

34．答：算术运算符、字符串连接运算符、关系运算符、布尔运算符

35．答：For 循环变量 = 初值 To 终值 [Step 步长]

[循环体]

[Exit For]

[循环体]

Next [循环变量]

36．答：算术运算符、字符串连接运算符、关系运算符、布尔运算符

37．答：创建动态数组通常可分为两步。首先在窗体级别、标准模块或过程中，用 Dim 语句（模块

级数组）、Public 语句（公用数组）、Private 或 Static（局部数组）声明一个没有下标的数组（括号不能省

略），然后再过程中用 ReDim 语句定义带下标的数组。

38．答：While <条件>

[ 循环体 ]

Wend

39．答：If <条件 1> Then

[语句块 1]

[ElseIf <条件 2> Then

[语句块 2]

[ElseIf <条件 3> Then

[语句块 3]

……

[Else

[语句块 n]]

End If

40．答：设置对象的属性、调用对象的方法、为对象事件编写事件过程。

41．答：（1）标识符必须以字母开头。最大长度为 255。

（2）标识符不能使用 Visual Basic 的保留字（关键字）。在 Visual Basic 中不能包含有特殊含义的字符。

（3）Visual Basic 的标识符不区分大小写。

（4）标识符在标识符的同一范围内必须是唯一的。

42．答：（1）不区分大小写。

（2）标点符号，如逗号、分号需要在英文状态下输入。

（3）语句以回车键结束。一般要求“一句一行”，也可以使用复合语句，即把多句写在一行上，必须

用冒号（：）连接。当一行代码很长时可以用“空格+_”来续行。。

43．答：End

Unload <对象名称>

End 语句的功能是结束正在运行的程序；Unload 语句的功能是从内存中卸载窗体或控件。

44．答：引用数组元素时的注意事项。

（1）引用数组元素是在数组名后的括号内指定下标。

（2）在引用数组元素时，数组名、类型和维数必须与声明数组时一致。

320

第四部分 参考答案

（3）如果建立的是二维或多维数组，则在引用时必须给出两个或多个下标。

（4）引用数组元素时，要注意下标值要在声明的范围之内。

（5）一般可以出现常数或变量的地方都可以引用数组元素。

45．简述将 MSFlexGrid 控件添加到工具箱中的操作步骤。

答：要将 MSFlexGrid 控件添加到工具箱中，选择“工程”菜单下的“部件”命令，在“部件”对

话框选择“控件”选项卡，从控件列表中选择“Microsoft FlexGrid Control 6.0(SP6)”选项，然后单击“确

定”按钮。

46．创建对话框有哪几种方法。

答：（1）使用 MsbBox 或 InputBox 函数的代码创建预定义对话框。

（2）使用标准窗体或自定义已存在的对话框创建自定义对话框。

（3）使用 CommonDialog 控件创建标准对话框。

47．简述 Select……Case 语句执行的流程。

答：Select……Case 语句执行的流程是：对测试表达式进行测试并检查表达式列表 1，若为真，则执

行语句块 1 并结束选择；若为假，继续检查下一个条件，如果都不为真，则执行语句块 n，如果没有语句

块 n，则什么也不做就结束选择。

48．建立事件过程有哪几种方法。

答：（1）双击窗体或控件，即可打开代码编辑器窗口，并且会出现该窗体或控件的默认过程代码。

（2）单击工程资源管理器窗口的“查看代码”按钮，然后从“对象”列表框中选择一个对象，从“过

程”列表框中选择一个过程。

（3）自己编写事件过程，在代码编辑器窗口中直接编写事件过程。

49．简述窗体的 Load 事件和 Activate 事件的区别。

答：当程序载入（Load）一个窗体的 Visible 属性为 False 的窗体时不发生 Activate 事件，只有当使用

Show 方法将该窗体的 Visible 属性设置为 True 时才产生 Activate 事件。Load 事件在 Activate 事件之前发

生，Load 事件在看不到窗体的时候就已经发生了，一般是对窗体进行初始化，而 Activate 事件是看到窗

体的时候才发生。

50．简述调用 Sub 过程有哪几种方式。

答：（1）用 Call 语句调用过程：Call 过程名[(实际参数)]

（2）把过程名作为一个语句使用：过程名[实际参数]

51．建立通用过程的操作步骤。

答：打开代码编辑器窗口，从“对象”列表框中选择“通用”选项，然后在代码编辑区的空白处输入

“Sub <过程名>”，按“Enter”键后即会出现 End Sub 语句。

52．图像框控件的功能：

答：（1）接受和输出一般图形；

（2）还可用于创建动态画图；

（3）支持 Print 方法，在对象中输出文本；

（4）图像框是容器对象，可以在此控件中放置其他控件。

53．答：启动 Visual Basic 6.0。

（1）执行“开始”→“程序”→“Microsoft Visual Basic 6.0 中文版”命令，出现 Visual Basic 版权画

面，然后弹出“新建工程”对话框；

（2）在“新建”选项卡中选择“标准 EXE”选项，然后单击“打开”按钮，进入 Visual Basic 6.0 集

成开发环境。

321

计算机类专业（上册）Visual Basic 6.0 程序设计 计算机组装与维修

54．Visual Basic 6.0 集成开发环境的组成。

答：Visual Basic 窗口由标题栏、菜单栏、工具栏、工具箱、窗体设计窗口、工程窗口、属性窗口、

窗体布局窗口组成。

55．简述 Visual Basic 的三种工作模式是如何切换的。

答：启动 Visual Basic 自动进入设计模式；从“运行”菜单中选择“启动”命令将进入运行模式；从

“运行”菜单中选择“结束”命令将返回设计模式；从“运行”菜单中选择“中断”命令将进入中断模式。

56．答：清除随机访问文件中记录的步骤。

（1）创建一个新文件。

（2）把有用的所有记录从原文件复制到新文件。

（3）关闭原文件并用 Kill 语句删除它。

（4）使用 Name 语句把新文件以原文件的名字重新命名。

57．文件访问的类型？

答：顺序型、随机型、二进制型。

58．为文本框设置访问键的方法？

答：首先添加一个标签并在其 Caption 属性中通过&字符制定一个访问键，然后添加一个文本框，

这样标签的 TabIndex 属性比文本框的该属性小 1，而标签不能接受焦点，使用访问键即可把焦点置于文

本框中。

59．FSO 对象模型包括哪些对象？

答：Driver 对象、Folder 对象、Files 对象、FileSystemObject 对象、TextStream 对象。

60．Do/loop 语句

答：

（1）前测试型 do/loop

Do

while/ until

<条件 >

语句块

loopg

（2）后测试型 do/loop

Do

语句块

Loop while/ until

<条件>

五、综合题

1．Dim

x as

single,y as single

x=inputbox("请输入一个数","输入")

If

x<0 then

Y=x

Elseif x<10 then

Y=x+1

Elseif x<20 then

Y=x^2

Elseif x<50 then

Y=2*x+3

Else

Y=x-1

End if

322

第四部分 参考答案

Print

Y

2．Dim I as Integer,s

As

single

S=0

For i= 3 to 100

step

2

Print I;

S=s+ i

Next i

Print "3～100 之间的奇数之和是"& s

3．Dim I as Integer,s as integer

S=0

For i= 1 to 10

S=s+i^2

Next i

Print “1+4+9+……+100=”;s

4．Dim

i as integer , j as integer,c as integer

For i= 200 to 300

For j=1 to i-1

If I mod j=0 then

Exit

for

End if

Next j

If i=j then

print I;

c=c+1

if c mod 5=0 then print

end if

next i

5．Dim i as Integer ,

j as Integer , s as integer,m as integer

S=0

For

I =1 to 99

step 2

M=1

For j=1 to i

M=M*j

Next

S=s+m

Next

Print “1!+3!+5!+……＋99！＝“；s

6．Dim x(1 to 10) as Integer ,

i as integer,min as integer,k as integer

Print "产生的 10 个数是"

For

i =1 to 10

X(i)= int (rnd*101+100)

Print x(i);

Next

K=1

Min=x(1)

For i=2to 10

323

计算机类专业（上册）Visual Basic 6.0 程序设计 计算机组装与维修

If min>x (i) then

Min=x(i)

K=i

End if

Next i

Print "最小值是"；min, "位置是"；K

7．Dim x(1 to 10) as Integer ,

I as integer, j as integer,c as integer

Print

Print "产生的 10 个数是"

For

I =1 to 10

X(i)= int (rnd*101+100)

Print x(i);

Next

For i=1 to 9

For j= i+1 to 10

If x(i)

C=x(I)

X(i)=x(j)

X(j)=c

End if

Next j

Next i

Print

Print "由大到小排序后的数据序列是"

For i= 1 to 10

Print x(i);

Next

8．编写一个 SUB 过程，求 N！

Private Sub Jc(n, m)

m = 1

For I = 1 To n

m = m * I

next

End Sub

Private

sub command_click()

For i=1 to 10

Call jc(I,m)

S=s+m

Next

Print s

End sub

9．Private

Function

ymj(r) as single

Ymj=3.1415926* r^2

End function

Private sub

command_click()

Print ymj(10)

End sub

10．Private sub form_load()

Dim a(1 to 10)as

integer

324

第四部分 参考答案

Dim I,j,s as integer

For i=1 to 10

A(i)=int(rnd*271+230)

Next i

For i= 1 to 9

For j= I to 10

If a(i)

S=a(i)

A(i)=a(j)

A(j)=s

End if

Next j

Next i

For i=1 to 10

Print a(i)

Next i

End sub

11．

Private

sub

command1_click()

dim a

as integer,b as integer,c as integer,r as integera=inputbox("请输入一个整数"，"输入")

b= inputbox("请输入一个整数"，"输入")

if a

c=a

a=b

b=c

end if

r=a mod b

do while r<>0

a=b

b=r

r=a mod b

loop

print "公约数是";b

End sub

12．Dim i As Integer, n As Integer, sum As Double

n = Val(InputBox("请输入一个数"))

sum = 0

For i = 1 To n

sum = sum + i * (i + 1)

Next i

Print sum

13．Dim i%, a%, s%, n%

n = Val(InputBox("请输入项数"))

a = 1

s = 0

For i = 1 To n

s = s + i * a

a = -a

Next i

325

计算机类专业（上册）Visual Basic 6.0 程序设计 计算机组装与维修

Print S

14．Dim i As Integer, j As Integer, s As Long, n As Integer, a As Integer

n = Val(InputBox("请输入一个数"))

s = 0

For i = 1 To n

a = 0

For j = 1 To i

a = a + j

Next j

s = s + a

Next i

Print s

15．Dim n As Integer, s As Single, i As Integer

n = Val(InputBox("请输入一个数"))

s = 0

For i = 1 To n

s = s + 1 / (i * (i + 1))

Next i

Print s

16．Dim a As Integer, b As Integer, c As Integer, d As Integer, s As Double

a = 0: b = 1

For d = 1 To 18

c = a + b

a = b

b = c

s = s + c

Next d

Print s

17．Dim a(1 To 11) As Integer ,I as integer,j as integer, x as integer

For i=1 to 10

A(i)=int(rnd *101+100)

Next

For i=1 to 9

For j=i+1 to 10

If a(i)>a(j) then

N=A(i)

A(i)=a(j)

A(j)=n

End if

Next

Next

X=inputbox("请输入一个整数"，"输入")

K=1

For i=1 to 10

If

x

Next

For i=10 to k step -1

A(i+1)=a(i)

Next

326

第四部分 参考答案

A(i)=x

For i=1 to 11

Print a(i):

Next

18．

Dim a(1 to 10)

As Integer, i As Integer, j As Integer, s As Integer

Dim p as integer,max as integer, min as integer

S=0

For i=1 to 10

A(i) =int (rnd*10)

Print a(i);

S=s+a(i)

Next

Max=a(1)

Min=a(1)

For i=2 to 10

If max< a(i) then max=a(i)

If min>a(i) then min=a(i)

Next

S=s-max-min

P =s/8

Print

"最后得分"&p

19．Dim x As Integer, i As Integer

x = Int(Rnd * 91 + 10)

For i = 2 To x - 1

If x Mod i = 0 Then

Print "No"

Exit For

End If

Next i

If i = x Then Print "Yes"

20．Dim a(1 To 20) As Integer

Dim max As Integer, min As Integer, s As Single, pjz As Single

s = 0

For i = 1 To 20

a(i) = Int(Rnd * 49 + 51)

Print a(i);

s = s + a(i)

Next i

max = a(1): min = a(1)

For i = 2 To 20

If a(i) > max Then max = a(i)

If a(i) < min Then min = a(i)

Next i

pjz = s / 20

Print "最大值是："; max; "最小值是："; min; "平均值是："; pjz

21．Dim y As Integer, r As Integer,c as integer

Y= Val(InputBox("请输入出生月"))

R= Val(InputBox("请输入出生日"))

327

计算机类专业（上册）Visual Basic 6.0 程序设计 计算机组装与维修

Select case y*100+r

Case

120 to 218

Print " 水瓶座"

Case

219 to 320

Print "双鱼座"

Case

321 to 419

Print "白羊座"

Case

420 to 520

Print " 金牛座"

Case

521 to 621

Print "双子座"

Case

622 to 722

Print "巨蟹座"

Case

723 to 822

Print "狮子座"

Case

823 to 922

Print "处女座"

Case

923 to 1023

Print "天秤座"

Case

1024 to 1122

Print "天蝎座"

Case

1123 to 1221

Print "射手座"

Case

is>1221,is<120

Print "摩羯座"

End select

22．Dim x As Integer, y As Integer

For x = 0 To 20

For y = 0 To 33

If 5 * x + 3 * y + (100 - x - y) / 3 = 100 Then

Print "公鸡"; x; "只"

Print "母鸡"; y; "只"

Print "小鸡"; (100 - x - y); "只"

End If

Next y

Next x

23．Dim x As Integer

x = 7

Do Until (x Mod 2 = 1 And x Mod 3 = 2 And x Mod 5 = 4 And x Mod 6 = 5 And

x Mod 7 = 0)

x = x + 7

Loop

Print x

24．Dim a() As Integer

Dim n As Integer, p As Integer

x = Int(InputBox("请输入一个正整数"))

Print x;

n = Len(x)

ReDim a(1 To n) As Integer

For i = 1 To n

328

第四部分 参考答案

a(i) = x Mod 10

x = x 10

Next i

p = 0

For i = 1 To n / 2

If a(i) <> a(n + 1 - i) Then

p = 1

End If

Next i

If p = 0 Then

Print "是回文数"

Else

Print "不是回文数"

End If

25．Dim a, b As Integer, c As Integer

a = InputBox("请输入一个数")

b = Len(a)

c = a ^ 2

If a = Right(c, b) Then

Print a; "是同构数"

Else

Print a; "不是同构数"

End If

26．Dim i As Integer, s As Integer, x As Integer

x = Val(InputBox("请输入一个数"))

s = 0

For i = 1 To x - 1

If x Mod i = 0 Then s = s + i

Next i

If s = x Then

Print x; "是完全数"

Else

Print x; "不是完全数"

End If

27．Dim i As Double, a As Double, b As Double, x As Double, s As Double

a = Val(InputBox("请输 a 的值"))

b = Val(InputBox("请输 b 的值"))

x = 0

For i = 1 To a - 1

If a Mod i = 0 Then x = x + i

Next i

s = 0

For i = 1 To b - 1

If b Mod i = 0 Then s = s + i

Next i

If s = a And x = b Then

Print a; "和"; b; "是亲和数"

Else

Print a; "和"; b; "不是亲和数"

329

计算机类专业（上册）Visual Basic 6.0 程序设计 计算机组装与维修

End If

28．Private Function jdz(n As Double) As Double

If n > 0 Then

jdz = n

Else

jdz = -n

End If

End Function

Private Sub Form_click()

Dim a As Double

a = Val(InputBox("输入一个数"))

Print a; "的绝对值为："; jdz(a)

End Sub

29．Dim i As Integer, n As Integer ,j as integer

n = 4

For i = 1 To n

Print Tab(5-i);

For j=1 to 2*i-1

Print "* ";

Next j

Print

Next i

30．

Dim i As Integer, j As Integer, s As String

For i = 1 To 9

s = ""

For j = 1 To i

s = s & i & "×" & j & "="

s = s & i * j

s = s & space(3)

Next j

Print s

Next i