1、若要取消窗体的最大化功能，则可设置 D 属性为False来实现。A、MinButtonB、EnabledC、ControlBoxD、MaxButton如果要强制显示声明变量，可在窗体模块或标准模块的声名段中加入Option Explicit语句，若让系统自动插入Option Explicit语句，则应采用的操作步骤是_。A、在“工程“菜单中执行“引用“命令B、在“工具“菜单中选择“选项“命令，打开“选项“对话框，单击“编辑器“选项卡，选中“要求变量声名“选项C、在“工程“菜单中执行“添加文件“命令D、在“编辑“菜单中执行“插入文件“命令函数instr(Lcase(mid(“VISUAL Bas
2、ic程序设计“,4,8),“s“ )的值是_。A、Ual BASICB、ual basicC、7D、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、选择图片框，在属性窗口中选择Pic
3、ture属性条，然后按回车键通过改变单选按钮（OptionButton）控件的_属性值，可以改变单选按钮的选取状态。A、ValueB、CaptionC、AppearanceD、Style设在窗体上有一个名称为Combo1的组合框，含有5个项目，要删除最后一项，正确的语句是_。A、Combo1.RemoveItem 4B、Combo1.RemoveItem Combo1.ListCountC、Combo1.RemoveItem Combo1.TextD、Combo1.RemoveItem 5在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显
4、示一次当前的时间。程序为：Private Sub Timer1_ _()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是_。A、TimerB、VisibleC、EnabledD、Interval将焦点主动设置到指定的控件或窗体上，应采用 方法。A、GetGataB、SetTextC、SetFocusD、SetDate1个二维数组可以存放1个矩阵。在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放1个43矩阵（即只有12个元素）的是_。A、Dim a(-1 To -4,-1 To -3)As IntegerB、Dim a(-2 To 0,2)As
5、IntegerC、Dim a(4,3)As IntegerD、Dim a(3,2)As Integer在窗体上画一个名称为command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a(8)Const p = 3For i = 0 To 8a(i) = 8 - INext IPrint a(p + a(p)End Sub程序运行后,单击命令按钮,则输出的结果是 .A、0B、3C、8D、5在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是_A、TagB、IndexC、NameD、ListInde
6、x在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：Option Base 1Private Sub Command1_Click()d = 0c = 10x = Array(10,12,21,32,24)For i = 1 To 5If x(i) c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext IPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容 A、77B、99C、23D、89以下关于过程的叙述中，错误的是_。A、可以在事件过程中调用通用过程B、函数过程的返回值可以有多个C、不能在事件过程中定义
7、函数过程D、事件过程是由某个事件触发而执行的过程有一如下过程：Sub fact(n As Integer, result As Long)result = 1For i = 1 To nresult = result * INext IEnd Sub在窗体上画一个名称为Command1的命令按钮，并编写如下事件过程：Private Sub Command1_Click()Dim res As Longfact 5, resPrint resEnd Sub程序运行后，单击命令按钮，则输出的结果是： A、120B、15C、100D、121可以在窗体模块的通用声明段中声明_。A、全局变量B、全局用户
8、自定义类型C、全局常量D、全局数组假定有以下程序段：For i = 1 To 3For j = 5 To 1 Step -1Print jNext j, I“Print j“的执行次数是_。A、16B、15C、17D、18设在菜单编辑器中定义了一个菜单项名为menul，为了在运行时隐藏该菜单项，应使用的语句是( )A、menul.Enabled=FalseB、menul.Visible= TrueC、menui.Enabled=TrueD、menul.Visible=False改变了容器的坐标系后，该容器的（ ）属性值不会改变。A、ScaleWidthB、NameC、ScaleTopD、Sca
9、leLeft在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是（ ）。A、Drive1_ChangeB、Drive1_ClickC、Dir1_ChangeD、Dir1_Click填空在VB中，默认窗体名为_，默认工程名为_ 。_属性决定文本框是否可以接受多行文本。假设a=“A“，表达式：a=“0“ or a=“A“ or a x*FILL*_i = i - 1Loop*FILL*If i 0 Then _For i = 1 To 9Print a(i);Next
10、 iEnd Sub题目：在窗体上设计两个文本框和两个标签，标签上显示“摄氏 温度“和“华氏温度“，文本框一个用于输入摄氏温度数， 一个用于输出对应的华氏温度?摄氏温度与华氏温度的 转换公式为: c = (5 / 9) * (f - 32) 要求：对输入的摄氏温度数有检查功能，以拒绝接收非 数字字符?运行界面如图所示:请去掉_，并填入正确的内容。-Private Sub Command1_Click()Text1 = “Text2 = “Text1.Enabled = TrueText2.Enabled = TrueText1.SetFocusEnd SubPrivate Sub Command
11、2_Click()EndEnd SubPrivate Sub Form_Load()Text1 = “Text2 = “Text1.Enabled = FalseText2.Enabled = FalseEnd SubPrivate Sub Text1_Change()*FILL*_ = 5 * (Val(Text1.Text) - 32) / 9End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii “cmdRight.Enabled = TruecmdLeft.Caption = “= a(i) Thena1 =
12、a(i)a(i) = a(j)*ERROR*a(j) = a(i)End IfNext jNext iFor i = 0 To 9Print a(i)Next iEnd SubDim s As String * 1*FILL*s = _(KeyAscii)Select Case s*FILL*Case “A“ _ “Z“s = LCase(s)Case “a“ To “z“*FILL*s = _Case Elses = “*“End SelectText2.Text = Text2.Text + sEnd Sub-【程序改错】注意：错误出现在错误标记*ERROR*的后面语句中，请不要删除错误标
13、记。-题目：下面程序将10个整数从大到小排序-Option ExplicitPrivate Sub Form_Click()Dim t%, m%, n%, w%Dim a(10) As IntegerFor m = 1 To 10a(m) = Int(10 + Rnd() * 90)Print a(m); “ “;Next mPrintFor m = 1 To 9t = m*ERROR*For n = 2 To 10*ERROR*If a(t) a(n) Then n = tNext n*ERROR*If t = m Thenw = a(m)a(m) = a(t)a(t) = wEnd IfN
14、ext mFor m = 1 To 10Print a(m)Next mEnd Sub-【程序改错】注意：错误出现在错误标记*ERROR*的后面语句中，请不要删除错误标记。-题目:移动数组元素,将数组中某个位置的元素移动到指定位置.-Function fMove(a%(), L1%, L2%)Dim N As Integer, i As Integer, T As Integer*ERROR*N = LBound(a)If L2 = N + 1 Then*ERROR*a(N) = a(L1)For i = L1 To Na(i) = a(i + 1)Next iElseT = a(L1)a(L
15、1) = a(L2)*ERROR*a(L1) = TEnd IfEnd FunctionPrivate Sub Form_Click()Dim a%(1 To 5)Dim i As IntegerFor i = 1 To 5a(i) = iNextfMove a, 1, 5For i = 1 To 5Print a(i)NextEnd Sub【程序改错】注意：错误出现在错误标记*ERROR*的后面语句中，请不要删除错误标记。-题目:编程实现从左到右的滚动字幕，滚动的速度由滚动条 控件来控制。-Private Sub HScroll1_Scroll()*ERROR*Timer1.Interval = HScroll1.Min - HScroll1.ValueEnd SubPrivate Sub Timer1_Timer()*ERROR*If Label1.Left = Form1.Width Then*ERROR*Label1.Left = Label1.WidthElseLabel1.Left = Label1.Left + 100End IfEnd Sub利用Do While 或For循环计算当第i项的值小于10 -4时结束，运行界面下图 提示：去掉代码中的【?】 ，添写正确代码。
