若要取消窗体的最大化功能，则可设置 D 属性为False来实现。
A、MinButton B、Enabled C、ControlBox D、MaxButton
如果要强制显示声明变量，可在窗体模块或标准模块的声名段中加入Option Explicit语句，若让系统自动插入Option Explicit语句，则应采用的操作步骤是__________。
A、在\工程\菜单中执行\引用\命令
B、在\工具\菜单中选择\选项\命令，打开\选项\对话框，单击\编辑器\选项卡，选中\要求变量声名\选项
C、在\工程\菜单中执行\添加文件\命令 D、在\编辑\菜单中执行\插入文件\命令
函数instr(Lcase(mid(\程序设计\的值是__________。
A、Ual BASIC B、ual basic C、7 D、6
语句If x=1 Then y=1，下列说法正确的是 。
A、x=1和y=1均为赋值语句
B、x=1为赋值语句，y=1为关系表达式 C、x=1和y=1均为关系表达式
D、x=1为关系表达式，y=1为赋值语句
假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是______。
A、选择图片框，然后按Del键
B、执行语句Picture1.Picture = LoadPicture (\C、执行语句Picture1.Picture =\
D、选择图片框，在属性窗口中选择Picture属性条，然后按回车键
通过改变单选按钮（OptionButton）控件的______属性值，可以改变单选按钮的选取状态。
A、Value B、Caption C、Appearance D、Style
设在窗体上有一个名称为Combo1的组合框，含有5个项目，要删除最后一项，正确的语句是______。
A、Combo1.RemoveItem 4
B、Combo1.RemoveItem Combo1.ListCount C、Combo1.RemoveItem Combo1.Text D、Combo1.RemoveItem 5
在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ ______() TxtTime.text=Time End Sub
在下划线上应填入的内容是______。
A、Timer B、Visible C、Enabled D、Interval
将焦点主动设置到指定的控件或窗体上，应采用 方法。
A、GetGata B、SetText C、SetFocus D、SetDate
1个二维数组可以存放1个矩阵。在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放1个4×3矩阵（即只有12个元素）的是______。
A、Dim a(-1 To -4,-1 To -3)As Integer B、Dim a(-2 To 0,2)As Integer C、Dim a(4,3)As Integer D、Dim a(3,2)As Integer
在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim a(8) Const p = 3 For i = 0 To 8 a(i) = 8 - I Next I
Print a(p + a(p))
End Sub程序运行后,单击命令按钮,则输出的结果是 .
A、0 B、3 C、8 D、5
在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是______
A、Tag B、Index C、Name
D、ListIndex
在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1
Private Sub Command1_Click() d = 0 c = 10
x = Array(10,12,21,32,24) For i = 1 To 5 If x(i) >c Then d = d + x(i) c = x(i) Else
d = d - c End If Next I Print d End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容
A、77
B、99 C、23 D、89
以下关于过程的叙述中，错误的是______。
A、可以在事件过程中调用通用过程 B、函数过程的返回值可以有多个 C、不能在事件过程中定义函数过程
D、事件过程是由某个事件触发而执行的过程
有一如下过程：
Sub fact(n As Integer, result As Long) result = 1 For i = 1 To n
result = result * I Next I End Sub
在窗体上画一个名称为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim res As Long fact 5, res Print res End Sub
程序运行后，单击命令按钮，则输出的结果是：
A、120 B、15 C、100 D、121
可以在窗体模块的通用声明段中声明______。
A、全局变量
B、全局用户自定义类型 C、全局常量 D、全局数组
假定有以下程序段： For i = 1 To 3
For j = 5 To 1 Step -1 Print j Next j, I
\的执行次数是______。
A、16 B、15 C、17 D、18
设在菜单编辑器中定义了一个菜单项名为menul，为了在运行时隐藏该菜单项，应使用的语句是( )
A、menul.Enabled=False B、menul.Visible= True C、menui.Enabled=True D、menul.Visible=False
改变了容器的坐标系后，该容器的（ ）属性值不会改变。
A、ScaleWidth B、Name
C、ScaleTop D、ScaleLeft
在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。
设置两个控件同步的命令放在一个事件过程中，这个事件过程是（ ）。
A、Drive1_Change B、Drive1_Click C、Dir1_Change D、Dir1_Click
填空
在VB中，默认窗体名为_____，默认工程名为_____ 。
____属性决定文本框是否可以接受多行文本。
假设a=\，表达式：a>=\的值：_____。
要让图片框作为其他控件的容器，需先建立_____，然后再建立 _____。 组合框具有_____和_____两种控件的基本功能。
在窗体画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click() Dim s As Integer
Dim arr(3, 1 To 7) As Integer For Each test In arr s = s + 1 Next test Print s End Sub
程序运行后,单击Command1命令按钮,则程序输出的结果是_____.
下面程序的运行结果为_____。 Private Sub Command1_Click() Dim x%, y% x = 18 y = 25
Call swap(x, y) Print x End Sub
Private Sub swap(a%, b%) Dim t% t = a a = b b = t End Sub
Windows环境下的菜单一般有_____、_____和_____3种基本类型。 在执行KeyPress 事件过程时，KeyAscii是所按键的_____
读文件的_____语句从文件的当前位置起至换行符前的所有字符读入到字符串变量。 '-------------------------------------------------
'【程序设计】
'-------------------------------------------------
'题目：有一根长度为321米的钢材，要将它截取为两种规格的 '短料，两种规格的长度分别为a米、b米。每种至少一段。 '编写函数fun，函数的功能是:
'求出分割成两种规格后剩余残料r最少的值，并显示。如： 'a为51、b为61时，则显示\'要求使用For语句来实现。
程序填空'
'下面的程序实现：从键盘输入一个数字，将其插入一个有序数组中，插入后的数组仍保持有序。
Private Sub Form_Click()
Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print
x = InputBox(\请输入要插入的整数\'**********FILL********** _____ i = 8
Do While a(i) > x
'**********FILL********** _____
i = i - 1 Loop
'**********FILL********** If i > 0 Then _____ For i = 1 To 9 Print a(i); Next i End Sub
'题目：在窗体上设计两个文本框和两个标签，标签上显示\摄氏 ' 温度\和\华氏温度\，文本框一个用于输入摄氏温度数， ' 一个用于输出对应的华氏温度?摄氏温度与华氏温度的 ' 转换公式为: c = (5 / 9) * (f - 32) ' 要求：对输入的摄氏温度数有检查功能，以拒绝接收非 ' 数字字符?运行界面如图所示:
'请去掉_____，并填入正确的内容。
'------------------------------------------------------- '