169. Pset 方法绘制的点的大小受其容器对象的__B____属性的影响。 A、AutoRedraw B、DrawWidth C、Stretch D、Picture
170. 下面哪一条语句正确画出了一组半径由5到10每次递增1，圆心坐标为（15，15），红色
的同心圆__B____。
A、For i= 1 to 10
Circle i,(15,15),RGB(0,255,0) Next i
B、For i= 5 to 10
Circle(15,15),i,RGB(255,0,0) Next i
C、For i= 5 to 10
Circle i,(15,15),RGB(255,0,0) Next i
D、For i=5 to 10
Circle(15,15),i,RGB(0,255,0) Next i
171. 假定在窗体Form1的代码窗口中定义如下记录类型：
Private Type animal
animalName As String * 20 acolor As String * 10 End Type
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim rec As animal
Open \ rec.animalName = \ rec.acolor = \ Put #1, , rec Close #1 End Sub
以下叙述正确的是__D____。
A、如果文件c:\\vbTest.dat不存在，则Open命令执行失败
B、由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 C、记录类型animal不能在Form1中定义，必须在标准模块中定义 D、语句“Put #1, , rec”将animal类型的两个数据元素写到文件中 172. 程序题（47）
执行后，s的值为24，请填空 Private Sub form_Click() s = 1
For i = 1 To 4 s = __D___
Next i Print s End Sub
A、s+i B、s/i C、s-i D、s*i
173. 循环语句For i=20 To 10 Step -2的循环次数为____A______。 A、6 B、4 C、不循环 D、5
174. 声明一个长度为10个字节的字符串变量 mstr ，应使用__C______。 A、Dim mstr As String(10) B、Dim mstr(10) As String C、Dim mstr As 10
D、Dim mstr As String * 10
175. 设有数组说明语句：Dim c(1 To 10)，则下面表示数组 c 的元素选项中错误的是
___B_____。
A、c(i) B、c(0) C、c(10) D、c(3+4)
176. 为了装入一个 Visual Basic 应用程序，下列说法中，正确的是__C______。 A、分别装入工程文件和标准模块文件(.bas) B、只装入窗体文件(.frm) C、只装入工程文件(.vbp)
D、分别装入工程文件、窗体文件和标准模块文件
177. 将一个窗体设置为 MDI 子窗体的方法是____A____。 A、将窗体的MDIChild属性设为True B、将窗体的MDIChild属性设为False C、将窗体的Enabled属性设为False D、将窗体的名称改为MDI
178. 在窗体上画一个水平滚动条，名称为 HScroll1，再画一个文本框，名称为 Text1。要
想使用滚动条滑块的变化量来调用文本框中文字的大小，则可满足的语句是__A____。
A、Text1.FontSize= HScroll1.value B、Text1.FontBold= HScroll1.value C、Text1.FontSize= HScroll1.Min D、Text1.FontName= HScroll1.Max
179. 若想使时钟控制每隔0.25秒触发一次 Timer() 事件，则可将 InterVal 属性值设为
___B___。
A、Interval=0.25 B、Interval=250 C、Interval=25
D、Interval=2500
180. 程序题（69）
在窗体上画一个名称为Command1的命令按钮，编写下列程序： Private Sub Command1_Click() Dim a As Integer Static b As Integer a=a+b b=b+4 Print a,b End Sub
程序运行后，单击该命令按钮三次后，屏幕上显示的值是_____A___。
A、8 12 B、4 8 C、0 4 D、4 12
181. 程序题（06）
下面事件过程的功能是：输入三个整数x、y和z，按从大到小顺序输出这三个数，在横线上填上适当内容。
Private Sub Command1_Click() Dim x!, y!, z! x = InputBox(\y = InputBox(\z = InputBox(\
If _____B______Then t = x: x = y: y = t If x A、y 182. VB6.0 是一种面向___D_______的编程环境。 A、过程 B、机器 C、应用 D、对象 183. VB 窗体设计器的主要功能是____B___。 A、显示文字 B、建立用户界面 C、画图 D、编写源程序代码 184. 要在窗体 Form1 内显示字符串 \，可以使用的语句是____B____。 A、Form1. Caption=\ B、Form1.Print \C、Form.Caption=\D、Form.Print \ 185. 数组声明语句 Dim a(-4 To 3, -1 To 3) 中的数组 a 包含了___C______个数组元素。 A、 120 B、 60 C、 40 D、 11 186. 单选按钮通常以组的形式出现，只允许用户在其中选择__D____项。 A、多 B、三 C、二 D、一 187. 在 VB 中用来画弧、圆和椭圆的属性或者方法是__C____。 A、Pset B、Line C、Circle D、三者都不是 188. 在下面向文件中写入数据的命令语句中，不正确的是__B____。 A、Print # 文件号，输出项列表 B、Write # 文件号，Using: 输出项列表 C、Write # 文件号，输出项列表 D、Print # 文件号，Using: 输出项列表 189. 程序题（51） 执行下面程序段后，X的值为21,请填空 X=5 For i =1 To 20 Step 2 x=x+__A__ Next I A、i\\5 B、i+5 C、i*5 D、i-5 190. 程序题（49） 执行下列程序段后，输出结果7,请填空 x = 1 For i = 0 To 20 Step 5 x = x + i ___B_ 4 Next i Print x A、8 B、mod C、\\ D、/ 191. 程序题（13） 下面事件过程的功能是打印图案 @ @@@ @@@@@ 根据所给选择答案，把程序补充完整 Private Sub form_click() a= 1 Do while___D___ For i = 1 To a Print \ Next i a= a + 2 Print Loop Print End Sub A、a>7 B、a=7 C、a≤7 D、a<7 填空题 1. 确定单选框是否选中，应访问的属性是__value___。 2. VB6.0识别对象靠的是对象的__Name___属性。 3. 为了使列表框中的项目分为多列显示，需要设置的属性是__columns___。 4. 在程序运行中，要想使某个按钮变成看不见，则应设置Visible的属性是__False___。 5.关闭所有已经打开的文件，应使用语句___close__。 6. 当用___append__方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。 7. 组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和__下拉式组合框___。 8. 如果建立菜单时在标题文本框中输入一个__-___，那么显示时将形成一行分隔符。 9. MsgBox函数的返回值的类型为__数值型___。 10. 如果要将变量a在过程中定义为静态的整型变量，应使用的语句是__static a%,static a as integer___。 11. 标签控件的默认属性是__Caption___。 12. print format(32548.5,\的输出结果是_32,548.5____。 13. InputBox函数返回值的类型为_字符型____。 14. 设a=\北京\，b=\，则表达式LEFT(a，2)+STRING(3，\，8)构成的字符串是__北京---Shanghai___。 15. 如果菜单标题的某个字母前输入一个__&___符号，那么该字母就成了热键字母。 16. 在程序运行中，要想使用按钮变成看得见但不可操作，则应设置___Enabled___的属性是False。 17. 关闭所有已经打开的文件，应使用语句_close____。
