vb复习题库Visual Basic复习题库.doc

单选题1、在设计应用程序时，通过_D_可以查看到应用程序工程中的所有组成文件。 A：代码窗口 B：窗体设计窗口 C：属性窗口 D：工程资源管理器窗口工程管理器窗口用来列出当前工程中的窗体和模块以及类模块等工程的组成部分。2、通过以下_B_可以在设计时直观的调整窗体在屏幕上的位置。 A：代码窗口 B：窗体布局窗口 C：窗体设计窗口 D：属性窗口3、如果要向工具箱中加入控件和部件，可以利用工程菜单中的_B_命令。 A：引用 B：部件 C：工程属性 D：添加窗体4、如果要改变窗体的标题，需要设置窗体对象的_B_属性。 A：Name B：Caption C：BackColor D：BorderStyle窗体的Caption属性决定了窗体对象在显示时的标题。5、在Visual Basic中，所有的窗体和控件都必定具有的一个属性是_A_。A：Name B：Font C：Caption D：FillColor在Visual Basic中，所有的窗体和控件都是对象，它们在工程中都必定有一个名称。而它们的名称都是由Name属性决定的。6、下列不能打开属性窗口的操作是_C_。A：执行视图菜单中的属性窗口命令B：按F4键C：按Ctrl+TD：单击工具栏上的属性窗口按钮Ctrl+T是用来打开工程-部件对话框的快捷键组合。7、通过改变单选按钮（OptionButton）控件的_A_属性值，可以改变单选按钮的选取状态。A：Value B：Style C：Appearance D：CaptionOptionButton控件的Value属性是用来返回或设置控件状态的属性。8、InputBox函数返回值的类型为_B_。A：数值B：字符串C：变体D：数值或字符串（视输入的数据而定）9、表达式4+56*7/8 Mod 9的值是_B_。A：4 B：5 C：6 D：7按照算术运算符的优先级的关系，该表达式应先计算6*7，结果为42。然后计算42/8，结果为5.25。然后计算55.25，结果为1。最后计算1 Mod 9。结果为1。所以表达式的最终值为4+1，即5。10、以下语句的输出结果是_C_。 Print Format$(32548.5,000,000.00) A：32548.5 B：32,548.5 C：032,548.50 D：32,548.50因为输出格式已经规定为整数部分三位分割，小数部分共两位。所以32548.5的输出样式应该是032,548.50。11、执行以下程序段后，变量c$的值为_D_。 a$=Visual Basic Programming b$=Quick c$=b$ & UCase(Mid$(a$,7,6) & Right$(a$,12) A：Visual Basic Programming B：Quick Basic Programming C：QUICK Basic Programming D：Quick BASIC Programming首先使用Mid$函数取出带前导空白的Basic，并使用UCase将其转化为大写。然后使用Right$函数取出带前导空白的Programming。最后将三个字符串连接起来。12、为了把焦点移到某个指定的控件，所使用的方法是_A_。 A：SetFocus B：Visible C：Refresh D：GetFocus13、设a=6，则执行 x=IIF(a5,-1,0)后，x的值为_D_。 A：5 B：6 C：0 D：-114、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x = 0 Do Until x = -1 a = InputBox(请输入A的值) a = Val(a) b = InputBox(请输入B的值) b = Val(b) x = InputBox(请输入x的值) x = Val(x) a = a + b + x Loop Print aEnd Sub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为_A_。 A：2 B：3 C：14 D：15本题需要注意的是每次循环开始的时候a都被重新赋了一次值，所以最后的结果仅仅是2+1+(-1)。15、阅读下面的程序段： For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next j Next i执行上面的三重循环后，a的值为_C_。 A：3 B：9 C：14 D：2116、在窗体上画一个文本框（其Name属性为Text1），然后编写如下事件过程：Private Sub Form_Load() Text1.Text = Text1.SetFocus For i = 1 To 10 Sum = Sum + i Next i Text1.Text = SumEnd Sub上述程序的运行结果是_C_。 A：在文本框Text1中输出55 B：在文本框Text1中输出0 C：出错 D：在文本框Text1中输出不定值焦点只能移到可视的窗体或控件。因为在窗体的Load事件完成前窗体或窗体上的控件是不可视的，所以如果不是在Form_Load事件过程完成之前首先使用Show方法显示窗体的话，是不能使用SetFocus方法将焦点移至正在自己的Load事件中加载的窗体的。17、在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base 1Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next iEnd Sub程序运行后，单击命令按钮，其输出结果为_D_。A：6 97 10B：7 108 11C：8 119 12D：9 1210 1318、要利用通用对话框控件来显示保存文件对话框，需要调用控件的_C_方法。 A：ShowPrinter B：ShowOpen C：ShowSave D：ShowColor19、假定有如下的Sub过程：Sub S(x As Single, y As Single) t = x x = t / y y = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5 b = 4 S a, b Print a, bEnd Sub程序运行后，单击命令按钮，输出结果为_D_。 A：5 4 B：1 1 C：1.25 4 D：1.25 1Visual Basic的函数参数默认的方式是传地址的，所以函数S对参数做的改变会反映到原来的变量里。20、阅读程序：Sub subP(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next iEnd SubPrivate Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 subP a() For i = 1 To 4 Print a(i); Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为_A_。 A：2 4 6 8 B：5 6 7 8 C：10 12 14 16 D：出错21、下列不能打开菜单编辑器的操作是_D_。 A：按Ctrl+E B：单击工具栏中的菜单编辑器按钮 C：执行工具菜单中的菜单编辑器命令 D：按Shift+Alt+M按Shift+Alt+M不会有任何作用，因为它不是任何功能的组合键。22、在程序运行期间，如果拖动滚动条上的滚动框，则触发的滚动条事件是_C_。 A：Move B：Change C：Scroll D：GetFocus23、为了暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是_C_。 A：Visble B：Timer C：Enabled D：Interval控件的Enabled属性表示其是否有效，如果想使某个控件失效，可以将它的Enabled属性设为False。24、为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为_D_。 A：Get文件号，记录号，变量名 B：Get文件号，变量名，记录号 C：Put文件号，变量名，记录号 D：Put文件号，记录号，变量名Put语句的格式为：Put #filenumber, recnumber, varname其中filenumber表示有效的文件号。recnumber表示记录号或字节数，即开始写入的地方。varname表示变量名。25、为了在运行时能显示窗体左上角的控制框（系统菜单），必须_B_。 A：把窗体的ControlBox属性设置为False，其它属性任意 B：把窗体的ControlBox属性设置为True，并且把BorderStyle属性设置为13 C：把窗体的ControlBox属性设置为False，同时把BorderStyle属性设置为非0值 D：把窗体的ControlBox属性设置为True，同时把BorderStyle属性设置为0值26、用下面语句定义的数组的元素个数是_D_。dim A(-3 to 5) as integer A：6 B：7 C：8 D：927、假定有以下程序段： For i = 1 To 3 For j = 5 To 1 Step -1 Print j Next j, iPrint j的执行次数是_A_。 A：15 B：16 C：17 D：1828、以下程序段的输出结果为_B_。 X = 1 Y = 4 Do Until Y 4 X = X * Y Y = Y + 1 Loop Print X A：1 B：4 C：8 D：2029、当我们输入代码时，Visual Basic可以自动检测_A_错误。 A：语法 B：编译 C：运行 D：逻辑30、用下面的语句所定义的数组的元素个数是：_C_。Dim arr(3 To 5,-2 to 2) A：20 B：12 C：15 D：2431、假定有下面的过程：Function Func(a As Integer, b As Integer) As Integer Static m As Integer, i As Integer m = 0 i = 2 i = i + m + 1 m = i + a + b Func = mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程:Private Sub Command1_Click() Dim k As Integer, m As Integer Dim p As Integer k = 4 m = 1 p = Func(k, m) Print p; p = Func(k, m) Print pEnd Sub程序运行后，单击命令按钮，输出结果为_D_。 A：8 17 B：8 16 C：8 20 D：8 832、把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii)End Sub在一般情况下（即不按住Shift键和锁定大写），运行程序，如果按A键，则程序的输出是_A_。A：AaB：aAC：AAD：aa33、在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为False，然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click() Text1.Text = UCase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii)End Sub程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为_B_。 A：abcdefg B：不显示任何信息 C：ABCDEFG D：出错34、在窗体上画一个文本框,然后编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char = Chr(KeyAscii) KeyAscii = Asc(UCase(char) Text1.Text = String(6, KeyAscii)End Sub程序运行后，如果在键盘上输入字母a，则文本框中显示的内容为_D_。 A：a B：A C：aaaaaaa D：AAAAAAA35、把窗体的KeyPreview属性设置为True，然后编写如下过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode)End SubPrivate Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode + 2)End Sub程序运行后，如果按A键，则输出结果为_C_。 A：A A B：A B C：A C D：A D36、在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() CommonDialog1.Flags = cdlOFNHideReadOnly CommonDialog1.Filter = All Files(*.*)|*.*|Text Files & _ (*.txt)|*.txt|Batch Files(*.bat)|*.bat CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filenameEnd Sub程序运行后，单击命令按钮，将显示一个打开对话框，此时在文件类型框中显示的是_B_。 A：All Files(*.*) B：Text Files(*.txt) C：Batch Files(*.bat) D：不确定37、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为_B_。 A：Show B：Hide C：Load D：Unload38、用Write和Print语句向文件中写入多个数据的差别在于_C_。 A：Write语句不会自动在数据项之间插入逗号 B：Print语句自动在数据项之间插入逗号 C：Write语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格 D：Print语句写入字符串会自动给字符串加上双引号；写入的正数前面没有空格Write语句和Print语句的基本功能相同，其主要区别有以下两点：1、用Write语句向文件写数据时，数据在磁盘上以紧凑格式存放，能自动在数据项之间插入逗号，并给字符串加上双引号。一旦最后一项被写入，就插入新的一行。2、用Write语句写入的正数的前面没有表示符号位的空格。39、下列操作中不能向工程中添加窗体的是_C_。 A：执行工程菜单中的添加窗体命令 B：单击工具栏上的添加窗体按钮 C：右击窗体，在弹出的菜单中选择添加窗体命令 D：右击工程资源管理器，在弹出的菜单中选择添加命令，然后在下一级菜单中选择添加窗体命令40、当一个工程含有多个窗体时，其中的启动窗体是_D_。 A：启动Visual Basic时建立的窗体 B：第一个添加的窗体 C：最后一个添加的窗体 D：在工程属性对话框中指定的窗体在工程-属性对话框中可以指定工程的启动对象，包括启动窗体或Sub main。41、在用Open语句打开文件时，如果省略For方式，则打开的文件的存在方式是_A_。 A：随机存取方式 B：顺序输入方式 C：顺序输出方式 D：二进制方式如果使用Open语句打开文件而又未使用For指定打开方式，则默认的方式为Random，即随机模式。42、以下语句用于打开一个顺序文件Open C:MyFile.txt For OutPut，但该语句的一个重要错误是没有_B_。 A：指定打开方式 B：指定文件号 C：指定打开文件名 D：指定文件类型43、Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括_B_。 A：顺序文件 B：Unix文件 C：二进制文件 D：随机文件Visual Basic访问文件的方式分为三类：有Input/Output/Append（访问顺序文件）、Binary（访问二进制文件）、Random（访问随机文件）。如果未指定方式，则以Random访问方式打开文件。44、文件列表框控件的_B_属性用来确定在列表框中显示的文件类型。 A：Path B：Pattern C：FileName D：ListPattern属性返回或设置一个值，该值指示在运行时显示在FileListBox控件中的文件类型。45、以下变量名中，_B_是不符合Visual Basic命名规范的。 A：Abc901 B：_mnu_Open_234 C：price_ D：K46、符号%是声明_A_类型变量的类型定义符。 A：Integer B：Variant C：Single D：String47、执行下列语句后整型变量a的值是_C_。 If (3 - 2) 2 Then a = 10 ElseIf (10 / 2) = 6 Then a = 20 Else a = 30 End IfA：10B：20C：30D：不确定前两个判断条件都不满足，所以真正执行的赋值语句只有最后一句，所以a为30。48、用Dim(1,3 to 7,10)声明的是一个_C_维数组。 A：1 B：2 C：3 D：449、以下说法错误的是_A_。 A：函数过程没有返回值 B：子过程没有返回值 C：函数过程可以带参数 D：子过程可以带参数函数和过程相比主要的特点在于必须返回一个函数值。过程侧重的是执行一系列的操作。50、在Visual Basic代码中，将多个语句合并写在一行上的并行符是_B_。 A：撇号（） B：冒号（:） C：感叹号（!） D：星号（*） 是注释符号；! 表示的是否定；* 表示的是乘；: 表示的是并行符号。51、在代码中定义了一个子过程： Sub P(a,b) . End Sub下面_C_调用该过程的格式是正确的。 A：Call P B：Call P 10,20 C：Call P(10,20) D：P(10,20)如果使用Call关键字来调用一个需要参数的过程，参数列argumentlist就必须要加上括号。如果省略了Call关键字，那么也必须要省略argumentlis外面的括号。52、下列_D_可以为动态数组分配实际元素个数。 A：Dim语句 B：static语句 C：public语句 D：ReDim语句ReDim语句在过程级别中使用，用于为动态数组变量重新分配存储空间。53、用于去掉一个字符串的右边的空白部分的函数是_A_。 A：RTrim$() B：Right$() C：Asc() D：Time$()LTrim、RTrim与Trim函数返回 Variant(String)，其中包含指定字符串的拷贝，没有前导空白（LTrim）、尾随空白（RTrim）或前导和尾随空白（Trim）。54、VB没有提供下列_D_事件。 A：MouseDown B：MouseUp C：MouseMove D：MouseExitMouseDown代表鼠标键在对象上按下，MouseUp代表鼠标键在对象上弹起，MouseMove代表鼠标键在屏幕上移动，而MouseExit不是VB中的事件。55、文本框能输入_D_。 A：控制字符 B：ASCII字符 C：回车 D：文本和数字56、在VB6中下列_D_是不对的。 A：可以编写ActiveX控件 B：可以编写网络程序 C：可以通过直接访问或建立连接的方式访问大型网络数据库 D：可以写出16位应用程序VB6是按照32位存储模式开发的程序设计语言，因此无法写出16位应用程序。VB6可以编写自己的ActiveX控件；可以编写网络程序，可以通过ODBC直接或建立连接的方式使用并操作后台大型网络数据库，如SQL Server、Oracle等。57、Microsoft Visual Basic 6.0包括三种版本，其中不包括_A_。 A：通用版 B：企业版 C：学习版 D：专业版58、Visual Basic窗体设计器的主要功能是：_A_。 A：建立用户界面 B：编写源程序代码 C：画图 D：显示文字59、下列哪项是窗体对象的方法而不是属性_B_。 A：Name B：Print C：Caption D：Enabled对象的方法和属性是对象的重要组成部分，方法是对象的某种操作或行为，属性是对象的某种特征。60、不在VB6启动时的基本控件集中的是_D_。 A：Timer B：OLE C：Shape D：CommonDialogCommonDialog控件在使用的时候必须从工程-部件中引用Microsoft Common Dialog Control 6.0。61、VB中项目文件的扩展名是_A_。 A：VBP B：FRM C：VBW D：FRX62、VB中窗体文件的扩展名是_B_。 A：VBP B：FRM C：VBW D：PDMVB中窗体文件的扩展名为FRM，即Form。63、下面_D_不是VB的数据类型。 A：Single B：Object C：Currency D：Bool在VB中的布尔型数值的名称为Boolean。64、在VB的集成开发环境中不能执行程序的方法是_C_。 A：按F8键 B：按F5键 C：按F9键 D：按Shift+F865、大部分控件都没有的属性是_D_。 A：Top B：Name C：Visible D：IntervalInterval属性仅应用于Timer控件。返回或设置对Timer控件的计时事件各调用间的毫秒数。66、唯一能区别一个控件的属性是_C_。 A：Caption B：Text C：Name D：Index67、VB提供的缺省窗体包含_A_。 A：标题栏 B：菜单栏 C：工具条 D：状态栏68、对用MsgBox显示的消息框，下面_D_是错误的。 A：可以有一个按钮 B：可以有两个按钮 C：可以有三个按钮 D：可以有四个按钮69、CommonDialog控件可以显示_C_种对话框。 A：4 B：5 C：6 D：770、对变量名说法不正确的是_C_。 A：必须是字母开头，不能是数字或其他字符 B：不能是VB的保留字 C：可以包含字母、数字、下划线和标点符号 D：不能超过255个字符变量名不能包含标点符号。71、用_B_属性可唯一标志控件数组中的某一个控件。 A：Name B：Index C：Caption D：TabIndex控件数组中各元素互相区别的唯一标志就是它们在数组中的序号，即索引Index。72、在VB中传递参数的方法有_B_方式。 A：一种 B：两种 C：三种 D：四种在VB中传递参数的方式有按值传递ByVal和按地址传递ByRef两种。73、下列哪条语句是错的_C_。 A：exit sub B：exit function C：exit while D：exit doexit sub用来跳出本过程；exit function用来跳出本函数并返回到调用处继续执行；exit do用来退出do while循环；没有exit while这个用法。74、在Visual Basic中，下列运算符中优先级最高的是：_A_。 A：* B： C：关系运算逻辑运算算术运算符运算优先级：（指数）（取负）-（乘法）*（浮点除法）/（整数除法）（取模）MOD（加法）+。75、以下关系表达式中，其值为假的是：_B_。 A：XYZXYz B：VisualBasic=visualbasic C：thethere D：IntegerInt字符串比较大小规则：从左到右逐个比较其字符的ASCII值。有以下几种情况：（1）字符串相等；（2）当两个字符串不是所有对应位置上的字符都相等，以第一次出现不同字符时的比较结果为准；（3）前面完全相等，以长者为大；（4）对于纯英文且大小写相同，可按英文字典顺序比较。在字典顺序后出现的比在前面出现的大。当出现不对应的大小写字母时，小写字母总是大于相同的大写字母；（5）字符串由汉字组成时，实际上按拼音的ASCII值比较；（6）数字字符比较遵循上面的规则。76、在窗体上画一个命令按钮（名称为Command1），编写如下事件过程：Private Sub Command1_Click() b = 5 c = 6 Print a = b + cEnd Sub程序运行后，单击命令按钮，输出的结果是：_D_。 A：a=11 B：a=b+c C：a= D：False在本题中，变量a未定义，因此初始值为0，在表达式a=b+c中，a=0，b+c=5+6=11，所以表达式的值为False，程序的输出结果为False。77、以下程序段运行的结果是：_C_。 Dim a(-1 To 5) As Boolean Dim flag As Boolean flag = False Dim i As Integer Dim j As Integer Do Until flag = True For i = -1 To 5 j = j + 1 If a(i) = False Then a(i) = True Exit For End If If i = 5 Then flag = True End If Next Loop Print j A：20 B：7 C：35 D：8该程序段的作用是给数组a的每个数组元素赋值True,具体实现的方式为：每次从数组a的第一个元素开始判断，该元素是否为False，如果是，则令此元素为True，然后跳出循环，重新从数组a的第一个元素开始判断；如果当前元素不为False，则判断下一个元素。因此语句j=j+1将执行1+2+3+4+5+6+7=28次，即j=28。然后再遍历一遍数组a的所有元素，最后结束程序段。所以j最终的值是：j=28+7=35。78、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click() Dim b As Integer b = b + 1End Sub运行程序，三次单击命令按钮后，变量b的值是：_B_。 A：0 B：1 C：2 D：3变量定义后，若没有人工定义初值，程序启动后，系统将自动把变量初值设为0。79、执行下列语句后，显示输入对话框，此时如果单击确定按钮，则变量strInput的内容是：_C_。strInput=InputBox(请输入字符串,字符串对话框,字符串) A：请输入字符串 B：字符串对话框 C：字符串 D：空字符串InputBox(请输入字符串,字符串对话框,字符串)，其中请输入字符串为在文本框显示给用户的信息，字符串对话框为显示在输入框标题栏中的标题，字符串为在没有用户输入时返回的值。80、为了清除列表框中的所有内容，应使用的方法是：_B_。 A：Cls B：Clear C：Remove D：RemoveItem使用Clear方法清除列表框中所有内容。81、在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1）。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是：_A_。 A：Private Sub Text1_Change() Label1.Caption = Text1.Text End Sub B：Private Sub Text1_Click() Label1.Caption = Text1.Text End Sub C：Private Sub Label1_Change() Label1.Caption = Text1.Text End Sub D：Private Sub Label1_Click() Label1.Caption = Text1.Text End Sub82、下面不能正确求该函数数值的程序段是：_D_。 A：Select Case x Case Is 0 y = x * x End Select B：If x 0 Then y = y * x End If If x = 0 Then y = 0 End If If x 0 Then y = x End If C：If x 0 Then y = y * x Else y = 0 End If D：If x = 0 Then y = x End If If x 0 Then y = y * x Else y = 0 End If选项D中，If x0 Then y=x*x包括x0和x0两种情况，不符合题目要求，所以错。83、在窗体上画一个通用对话框，程序运行后，通过ShowOpen方法显示打开对话框，要求在该对话框的文件类型栏中只显示扩展名为DOC的文件，则对通用对话框的Filter属性的正确设置是：_D_。 A：(*.DOC)*.DOC B：(*.DOC)|(.DOC) C：(*.DOC)|*.DOC D：(*.DOC)|*.DOCCommonDialog1.Filter=(*.DOC)|*.DOC，通过ShowOpen方法显示打开对话框时对话框的文件类型栏中只显示扩展名为DOC的文件。84、以下正确的叙述是：_B_。 A：Select Case语句中的测试表达式可以是任何形式的表达式 B：Select Case语句中的测试表达式只能是数值表达式或字符串表达式 C：在执行Select Case语句时，所有的Case子句均按出现的次序被顺序执行 D：如下Select Case语句中的Case表达式是错误的： Select Case x Case 1 to 10 . End SelectSelect Case语句中的测试表达式只能是数值表达式或字符串表达式。85、在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click() x = Int(Val(Text1.Text) + 0.5) Label1.Caption = Str(x)End Sub程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是：_C_。 A：27 B：28 C：29 D：30程序中各部分值的运算过程为：Text1.Text=28.653Val(Text1.Text)=28.653Val(Text1.Text)+0.5=29.153Int(Val(Text1.Text)+0.5)=29x=29str(x)=29。86、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() For i = 1 To 4 If i = 1 Then x = i If i = 4 Then x = x + 1 Print x; Next iEnd Sub程序运行后，单击命令按钮，其输出结果为：_B_。 A：1 2 3 4 B：2 3 4 5 C：23 4 4 D：3 4 5 6第一次循环时x的值为2，每次加1，所以答案为2 3 4 5。87、在窗体上画一个命令按钮（其名称为Command1），然后编写如下事件过程：Private Sub Command1_Click() Dim a(5, 5) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = (i - 1) * 3 + j Print a(i, j); Next j Print Next iEnd Sub程序运行后，单击命令按钮，在窗体上的输出结果是_B_。 A：1 4 72 5 83 6 9 B：1 2 34 5 67 8 9 C：1 2 3 4 5 6 7 8 9 D：没有输出88、在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L As Label, ByVal a As Integer) L.Caption = 1234 a = a * aEnd SubPrivate Sub Form_Load() Label1.Caption = ABCD Label2.Caption = 10End Sub Private Sub Command1_Click() a = Val(Label2.Caption) Call func(Label1, a) Label2.Caption = aEnd Sub程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是：_D_。 A：ABCD和10 B：1234和100 C：ABCD和100 D：1234和1089、假定程序中有以下语句： answer = MsgBox(String1,String2,String3,2)执行该语句后，将显示一个信息框，此时如果单击确定按钮，则answer的值为：_D_。 A：String1 B：String2 C：String3 D：1单击确定按钮后MsgBox返回1。90、以下叙述中不正确的是：_A_。 A：Open