VB模拟试题4及答案
- 格式:doc
- 大小:73.00 KB
- 文档页数:9
VB机试模拟试卷4(题后含答案及解析)题型有:1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题(30分)1.注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Text1的文本框,一个名称为Cmd1,标题为“输出”的命令按钮,如图4-1所示。
要求程序运行后,在文本框输入几个字符,单击“输出”按钮,则在窗体上显示文本框中的文字。
注意:在程序中不能使用任何变量。
保存时必须存放在考生文件夹下,窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
(2)在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2,标题为“按钮一”和“按钮二”的命令按钮,如图4-2所示。
要求程序运行后,如果单击“按钮一”,则把“按钮二”移到“按钮一”上,使两个按钮重合,如图4-3所示。
注意:在程序中不得使用任何变量(必须通过属性设置来移动控件)。
保存时必须存放在考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp正确答案:(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。
通过命令按钮的Caption属性来设置其标题,单击命令按钮触发Click事件;文本框显示内容是用Text属性。
文本框中的内容通过其Text属性得到,在命令按钮的Click事件中利用Print方法将文本框中的内容输出,完成题目要求。
解题步骤:第一步:建立界面并设置控件属性。
程序中用到的控件及其属性见表4-1。
第二步:编写程序代码。
参考代码:Private Sub Cmd1_Click( ) Cls Print Text1.Text End Sub 第三步:调试并运行程序。
第四步:按题目要求存盘。
(2)在窗体上建立好控件后,先设置控件的属性,再编写事件过程。
命令按钮的Caption属性用来设置其标题,单击命令按钮触发Click 事件,本题考查的是按钮的摆放位置的设置,涉及到对象的Left和Top属性。
vb程序设计试题及答案一、选择题(每题2分,共20分)1. 在VB中,下列哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. VB中用于声明变量的关键字是?A. DimB. DeclareC. SetD. All of the above答案:A3. 在VB中,下列哪个选项是正确的循环语句?A. ForB. DoC. WhileD. All of the above答案:D4. VB中用于打开文件的函数是?A. OpenB. CloseC. WriteD. Read答案:A5. 在VB中,下列哪个选项是正确的条件语句?A. If...ThenB. Select CaseC. Do WhileD. All of the above答案:A6. VB中用于创建新窗体的语句是?A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案:A7. VB中用于声明常量的关键字是?A. ConstB. DimC. StaticD. Option答案:A8. 在VB中,下列哪个选项是正确的数组声明?A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案:A9. VB中用于结束程序的语句是?A. EndB. ExitC. CloseD. All of the above答案:B10. VB中用于捕获异常的语句是?A. Try...CatchB. On ErrorC. CatchD. All of the above答案:B二、填空题(每题2分,共20分)1. 在VB中,声明一个名为myVar的变量,其类型为字符串,应该使用语句________。
答案:Dim myVar As String2. VB中,用于定义一个名为myFunction的函数,返回值为整数,应该使用语句________。
一、单项选择题(每小题1分,共10分)(1)在Visual Basic中,工程文件的扩展名为()A)exe B)bas C)frm D)vbp(2)以下能在窗体Form1的标题栏中显示“VisualBasic窗体”的语句是()A)= “VisualBasic窗体”B)Form1.Title= “VisualBasic窗体”C)Form1.Caption= “VisualBasic窗体”D)Form1.Text= “VisualBasic窗体”(3)设a=5,b=4,c=3,d=2,下列表达式的值是()3>2*b Or a=c And b<>c Or c>dA)1 B)True C)False D)2(4)要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句()A)Option Base 0 B)Option ExplicitC)Option Base 1 D)Option Compare(5)设a=” Visual Basic”,下面使b=”Basic”的语句是()A)b=Left(a,8,12) B)b=Mid(a,8,5)C)b=Right(a,5,5) D)b=Left(a,8,5)(6)如果X是一个正实数,对X的小数点后二位数进行四舍五入的表达式是()A)0.01*Int(x+0.05) B)0.01*Int(100*(x+0.05))C)0.01*Int(100*(x+0.005)) D)0.01*Int(x+0.5)(7)设有语句Open “Test.Dat” For input As #1以下叙述中,正确的是()A)以读方式打开顺序文件Test.DatB)以写方式打开顺序文件Test.DatC)以读方式打开随机文件Test.DatD)以写方式打开随机文件Test.Dat(8)然后编写如下事件过程:Private Sub Command1_Click()a$ = "等级考试"b$ = "+-*/"For j = 1 To 4c$ = c$ + Mid$(a$, j, 1) + Right$(b$, 1)Next jPrint c$End Sub程序运行后,单击命令按钮,则显示的内容是()A)等-级-考-试B)等*级*考*试C)等/级/考/试D)出错(9)要使一个文本框具有垂直滚动条,则应()A)将其MultiLine设置为True,同时将ScrollBars属性设置为1B)将其MultiLine设置为True,同时将ScrollBars属性设置为2C)将其MultiLine设置为True,同时将ScrollBars属性设置为3D)将其MultiLine设置为True,同时将ScrollBars属性设置为0(10)以下关于变量作用域的叙述中,正确的是()A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用B) 全局变量必须在标准模块中声明C) 模块级变量只能用Private关键字声明D) Static类型变量的作用域是它所在的窗体或模块文件二、阅读分析程序(每个选择3分,共45分)1.阅读下面程序,如有以下程序代码:Private Sub Command1_Click()Dim n As Integer, s As Longn = Val(Text1.Text)s = 0For i = 1 To ns = s + fac(n)NextLabel1.Caption = Str(s)End SubFunction fac(ByVal n As Integer) As LongDim f As Long, i As Integerf = 1For i = 1 To nf = f * iNextfac = fEnd Function(11)运行程序后,在Text1里输入5,并单击“Command1”按扭,则输出的内容为()A)1 B)4 C)18 D)96(12)在窗体上定义了()控件A)2 B)3 C)4 D)5(13)上述程序的功能是()A)计算S=1+2+3+……+10B)计算S=1!+2!+3!+ (10)C)计算S=1!+(2!+2!)+(3!+3!+3!)+……+(10!+…+10!)D)计算S=10!+10!+ (10)2.阅读下面程序,如有以下程序代码:Private Sub Command1_Click()Dim x As Integer, y As Integer, z As Integerx = 1: y = 2: z = 3L1:Call god(x, x, z)Print x; x; zL2:Call god(x, y, y)Print x; y; yEnd SubL3:Private Sub god(x As Integer, y As Integer, z As Integer)y = 2 * zz = x + yEnd Sub(14)运行程序时,第一次单击命令按扭产生的结果是()A)6 6 12 B)6 6 37 11 11 7 7 4C)9 6 12 D)8 10 109 10 15 5 9 10(15)如果将L2语句改为Call god(x, (y), y),则程序运行程序时第一次单击窗体产生的结果是()A)6 6 12 B)6 6 37 11 11 7 7 4C)9 6 12 D)8 10 109 10 15 5 9 10(16)如果在原程序基础上只将L3语句z As Integer改为ByVal z As Integer,则程序运行程序时第一次单击窗体产生的结果是()A)6 6 12 B)6 6 37 11 11 7 7 4C)9 6 12 D)8 10 109 10 15 5 9 103.阅读下面程序,如有以下程序代码:Option Base 1Dim a()Private Sub c1_Click()ReDim Preserve a(UBound(a) + 1)n = Val(InputBox("请输入一个数"))For j = UBound(a) - 1 To 1 Step -1If n > a(j) Then Exit Fora(j + 1) = a(j)Next jLLL:a(j + 1) = np1.Printp1.Print "输入的数为:"; np1.Print "修改后的数组数据排列是:"For i = 1 To UBound(a)p1.Print a(i);Next iEnd SubPrivate Sub Form_Load()a = Array(8, 9, 12, 13, 56, 67, 69, 78, 123, 178)p1.Print "原数组数据排列是:"For i = 1 To UBound(a)Next iEnd Sub(17)该程序的功能是()A)向指定位置插入数组元素B)删除指定位置数组元素C)插入一个数组元素并按顺序排列D)删除一个数组元素并按顺序排列(18)如果去掉LLL处的语句,再从键盘输入一个数字6,则程序运行结果为()A)6,8, 9, 12, 13, 56, 67, 69, 78, 123, 178B)8,8, 9, 12, 13, 56, 67, 69, 78, 123, 178C)8, 9, 12, 13, 56, 67, 69, 78, 123, 178,6D)8, 9, 12, 13, 56, 67, 69, 78, 123, 178,178(19)该程序在窗体上至少设置了几个控件?()A)一个B)二个C)三个D)四个4.阅读下面程序,如有以下程序代码Private Sub Text1_KeyPress(KeyAscii As Integer)Static s As IntegerDim c As StringSelect Case KeyAsciiCase Asc("0") To Asc("9")s = s + (KeyAscii - Asc("0"))Case 13Print sText1.Locked = TrueEnd SelectEnd Sub(20)若焦点位于文本框Text1中,则能够触发KeyPress事件的操作是()A)单击鼠标B)双击文本框C)鼠标滑过文本框D)按下键盘上的某个键(21)若焦点位于文本框Text1中,输入“3st4d28f”并按下回车键,则窗体上输出结果为()A)0 B)4 C)8 D)17(22)若焦点位于文本框Text1中,输入“3st4d28f”并按下回车键,则以下说法正确的是()A)文本框Text1消失B)文本框Text1变灰C)文本框Text1内容改变D)文本框Text1不能被编辑5.阅读下面程序,如有以下程序代码Dim s As StringPrivate Sub Command1_Click()Open "word.txt " For Input As #1Line Input #1, sText1.Text = sClose #1Text2.Text = wordcount(s)End SubFunction wordcount(s As String) As IntegerDim cnt As IntegerDim c As StringDim inword As Booleancnt = 0LL1:inword = FalseFor n = 1 To Len(s)LL2:c = Mid(s, n, 1)If Not inword And c <> " " Thencnt = cnt + 1inword = TrueElseIf inword And c = " " Theninword = FalseEnd Ifwordcount = cntNextEnd Function(23)程序中的“word.txt”文件打开是按()方式打开的A)顺序文件读B)顺序文件写C)随机文件D)二进制文件(24)Text2中显示的结果是()A) 6 B)34 C) 39 D)40(25)如果将语句LL1的位置移动到LL2处,Text2中显示的结果是()A) 6 B)34 C) 39 D)40二、填空题(每空2分,共30分)请将每空的正确答案写在答题卡【1】~【10】序号的横线上,答在试卷上不得分。
vb试题及答案基础一、选择题(每题2分,共20分)1. VB中,用于声明变量的关键字是:A. DimB. DeclareC. SetD. Const答案:A2. 在VB中,下列哪个选项是正确的数据类型?A. IntegerB. RealC. StringD. All of the above答案:D3. VB中,用于实现条件判断的语句是:A. If...Then...ElseB. For...NextC. Do...LoopD. While...Wend答案:A4. 下列哪个选项是VB中的过程?A. FunctionB. SubC. Both A and BD. None of the above答案:C5. VB中,用于实现循环的语句是:A. For...NextB. Do...LoopC. While...WendD. All of the above答案:D6. 在VB中,下列哪个选项是正确的数组声明?A. Dim arr(10)B. Dim arr(10) As IntegerC. Both A and BD. None of the above答案:C7. VB中,用于创建用户界面的控件是:A. LabelB. TextBoxC. ButtonD. All of the above答案:D8. 在VB中,下列哪个选项是正确的文件访问模式?A. Open For InputB. Open For OutputC. Open For AppendD. All of the above答案:D9. VB中,用于实现错误处理的语句是:A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. All of the above答案:D10. 在VB中,下列哪个选项是正确的事件处理?A. ClickB. DoubleClickC. MouseDownD. All of the above答案:D二、填空题(每题2分,共20分)1. VB中,声明全局变量的关键字是________。
第4章选择结构程序设计4.1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24.2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4.3 已知 W=10 X=9 Y=8 Z=7 ,求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4.4 写出下列十进制整数逻辑运算的结果:(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04.5 已知变量X和Y的值分别为5、6,编写程序,交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示:4.6 从键盘输入一个学生的三科成绩,计算总分,并找出最高分。
【参考答案】(1)用户界面设计(2)控件属性设置(略)(3)程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
vb测试题及答案一、单项选择题(每题2分,共10分)1. 在VB中,以下哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. 下列哪个函数用于计算两个数的和?A. SumB. AvgC. CountD. Max答案:A3. 在VB中,以下哪个关键字用于声明一个变量?A. DimB. ConstC. FunctionD. Sub答案:A4. 在VB中,以下哪个选项是正确的循环结构?A. ForB. WhileC. DoD. All of the above答案:D5. 在VB中,以下哪个选项是正确的条件语句?A. IfB. SelectC. CaseD. All of the above答案:D二、填空题(每题2分,共10分)1. 在VB中,声明一个整型变量并赋值为10,可以使用语句:Dim myVar As Integer; myVar = _______。
答案:102. VB中,用于输出信息到立即窗口的函数是 _______。
答案:Debug.Print3. 在VB中,要创建一个名为“myForm”的新窗体,可以使用语句:Form1. _______ "myForm"。
答案:Load4. VB中,要结束当前程序的执行,可以使用语句:_______。
答案:End5. 在VB中,要声明一个数组,可以使用语句:Dim myArray(10) As _______。
答案:Integer三、简答题(每题5分,共20分)1. 请简述VB中的事件驱动编程是什么?答案:事件驱动编程是一种编程范式,程序的执行流程由事件(如用户操作、系统消息等)触发,而不是由程序代码顺序执行。
2. 描述VB中如何使用If...Then...Else语句进行条件判断。
答案:在VB中,可以使用If...Then...Else语句进行条件判断,如果条件为真,则执行Then后面的代码块,如果条件为假,则执行Else 后面的代码块。
vb考试试题题库及答案VB(Visual Basic)是一种由微软公司开发的编程语言,广泛用于开发Windows应用程序。
以下是一些VB考试的试题题库及答案,供参考:一、单选题1. 在VB中,以下哪个是正确的数据类型?- A. Integer- B. Real- C. String- D. All of the above答案:D2. VB中的“Sub”过程与“Function”过程的区别是什么?- A. Sub过程可以返回值,Function过程不能- B. Function过程可以返回值,Sub过程不能- C. 两者都可以返回值- D. 两者都不能返回值答案:B3. 在VB中,以下哪个是正确的变量声明方式?- A. Dim x- B. Declare x As Integer- C. Both A and B- D. None of the above答案:C二、多选题1. VB中的控件可以具有哪些属性?- A. Name- B. Caption- C. Font- D. All of the above答案:D2. VB中,以下哪些是事件驱动的编程语言的特点?- A. 事件驱动的程序在事件发生时执行代码- B. 程序的执行顺序由事件的触发顺序决定- C. 程序可以同时响应多个事件- D. 程序必须等待事件的发生才能执行答案:A, B, C三、判断题1. VB是一种编译型语言。
- 正确- 错误答案:错误2. 在VB中,可以使用“Print”方法在文本框中显示文本。
- 正确- 错误答案:正确3. VB中的“Option Explicit”语句可以强制声明所有变量。
- 正确- 错误答案:正确四、简答题1. 简述VB中的事件和方法的区别。
答案:事件是用户或系统触发的动作,如点击按钮、键盘输入等。
方法是一种过程,可以包含代码来执行特定的任务或计算。
事件通常与控件相关联,并可以触发方法的执行。
2. 解释VB中“类”的概念。
全国计算机等级考试二级VB笔试模拟试题(4)总分:100分及格:60分考试时间:90分每小题2分,共70分(1)执行下列程序后,鼠标单击窗体,输出结果为。
Private Sub Form_Click()Print "Click"; End Sub Private Sub Form_MouseDown(Button As Integer, Shift _ As Integer, X As Single, Y As Single)Print "Donw" End Sub Private Sub Form_MouseUp(Button As Integer, Shift _ As Integer, X As Single, Y As Single)Print " Up" End Sub()。
A. DownUpClickB. ClickDownUpC. DownClickUpD. UpDownClick(2)在属性窗口中设置何属性,可以把指定的图形放入当前对象中?()。
A. CurrentYB. PictureC. CurrentXD. Stretch(3)Visual Basic 6.0分为3种版本,不属于这3种版本的是()。
A. 学习版B. 专业版C. 企业版D. 业余版(4)当组合框的Style属性设置为何值时,组合框称为下拉式列表框()。
A. 0B. 1C. 2D. 3(5)在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。
当改变当前驱动器时,目录列表框应该与之同步改变。
设置两个控件同步的命令放在一个事件过程中,这个事件过程是()。
A. Drive1_ChangeB. Drive1_ClickC. Dir1_ClickD. Dir1_Change(6)有如下事件过程,单击命令按钮扣,输出结果为Private Sub Command1_Click()Dim b%(1 To 4), j%, t# For j=1 To 4 b(j)=j Next j t=Tax(b())Print "t="; t, End Sub Function Tax (a()As Integer)Dim t#, i% t=1 For i=2 To UBound(A.t=t * a(i)Next i Tax=t End Function()。
本卷共有4道大题:一、单项选择题(20道小题,共20分)1、假定焦点已经位于TextBox1中,则能够触发KeyPress事件的操作是()。
(1分)A、单击鼠标B、双击文本框C、鼠标滑过文本框D、按下键盘上的某个键2、在中每个对象都有三个基本要素,它们是 ( )。
(1分)A、对象的名称,值和所属类。
B、对象的属性,事件和方法。
C、对象的大小,存储方式和内容。
D、对象的访问方法、存储方式和名称。
3、表达式 Int(Rnd*55)+15 产生的随机数范围是( )。
(1分)A、[15,55]B、[15,69]C、(15,55)D、(15,69)4、以下表达式的结果( )不是字符串类型。
(1分)A、"45" + "123"B、"45" & "123"C、45 + "123"D、全部5、在窗体上有一文本框,名称为Textbox1,程序运行后,要求该文本框不能接收键盘输入,但能输出信息,以下设置正确的是( )。
(1分)A、TextBox1.MaxLength=0B、TextBox1.Enabled=FalseC、TextBox1.Visible=FalseD、TextBox1.Size.Width=06、设有 x,y 两个数值型变量,今欲将其以坐标的样式“(x,y)”显示在标签(Label1)上(注:x,y显示具体的数值),下面语句中正确的是( )。
(1分)A、Label1.text="(" & x & "," & y & ")"B、Label1.text="(x,y)"C、Label1.text=("x","y")D、Label1.text=(x,y)7、关于For...Next 循环,以下说法错误的是( )。
一、单选题(30分,每题1分)1.计算机中采用二进制,是因为__(1)____。
(A)可降低硬件成本 (B)两个状态的系统具有稳定性(C)二进制的运算法则简单(D)上述三个原因2.我们通常说的U盘属于计算机部件中的___(2)___。
(A) 输出设备 (B) 输入设备(C) 存储设备 (D) 打印设备3.下列表示存储容量的数据中,____(3)____是最小的。
(A)20480 KB (B) 1.44 MB (C) 1 GB (D)4865723 Byte4. 一个完整计算机系统应包括___(4)____。
(A) 主机和显示器 (B)硬件系统和软件系统(C)系统软件和应用软件 (D) 内存和外存5.下列执行速度最快的程序语言是___(5)____。
(A)数据库语言 (B)高级语言 (C)机器语言 (D)汇编语言6.一只白色的足球被踢进球门,则白色、足球、踢、进球门是___(6) ___。
(A)属性、对象、方法、事件 (B) 属性、对象、事件、方法(C) 对象、属性、方法、事件 (D) 对象、属性、事件、方法7. 以下叙述中正确的是____(7)____。
(A)窗体的Name属性指定窗体的名称,用来标识一个窗体(B)窗体的Name属性的值是显示在窗体标题栏中的文本(C)可以在运行期间改变对象的Name属性的值(D)对象的Name属性值可以为空8. 在VB中,保存一个工程至少应保存两个文件,这两个文件分别是___(8)____。
(A)文本文件和工程文件 (B)窗体文件和工程文件(C)窗体文件和标准模块文件 (D)类模块文件和工程文件9. 在下列说法中,正确的是___(9)___(A)通过适当的设置,可以在程序运行期间,让时钟控件显示在窗体上(B)在列表框中不能进行多项选择(C) VB系统不能在列表框中自动实现将项目按字母顺序从大到小排列(D)复选框的Value属性值为布尔型10.当一个复选框被选中时,它的Value属性的值是___(10)___(A) 3 ( B) 2 (C) 1 (D) 011.计算结果为0的表达式是___(11)____(A)Int(2.4)+Int(-2.8) (B)Cint(2.4)+Cint(-2.8)(C)Fix(2.4)+Int(-2.8) (D)Fix(2.4)+Fix(-2.8)12.可以惟一标识控件数组中的每一个控件属性的是___(12)____(A)Name (B)Caption (C)Index (D)Enabled13. 下列变量名中,合法的变量名是___(13)____。
(A)m24 (B)mn-k (C)24m (D)m+n14. 若有语句”Dim Flag As Boolean”,则下面赋值语句正确的是___(14)_____。
(A) Flag ="True" (B) Flag='True' (C)Flag=Ture (D)Flag=True15. 下列叙述不正确的是___(15)_____。
(A)InputBox函数返回值为字符型 (B)MsgBox函数返回值为所单击按钮的键值(C) MsgBox语句没有返回值 (D) MsgBox语句返回值为所单击按钮的键值16. 若要在Text1的光标(焦点)移动到其它控件时进行合法性判断,则可使用__(16) __事件来实现。
(A) Refresh (B) SetFocus (C) LostFocus (D) GotFocus17.一般情况下,控件的大小是由___(17)___属性确定的(A) Width和Height (B) Top和Left (C) Width和Left (D) Top和Width 18.以下能判断是否到达文件尾的函数是__(18)____(A)BOF (B) LOC (C)LOF (D)EOF19.下列过程语句说明合法的是____(19)____。
(A)Sub f1(ByVal n() As Integer) (B)Sub f1(n() As Integer)As Integer(C)Function f1(f1 As Integer) As Integer (D)Finction f1(ByVal n As Integer)20.要在文本框Text1中显示列表框List1中最后一个项目的正确语句是__(20)____。
(A)Text1.Text=List1.List(ListCount-1) (B)Text1.Text=List1.List(0)(C)Text1.Text=List1.List(List1.ListCount-1) (D)Text1.Text=List1.ListIndex 21.设组合框Combo1中有5个项目,则以下能删除最后一项的语句是__(21)______。
(A)Combo1.RemoveItem Text (B)Combo1.RemoveItem 5(C)Combo1.RemoveItem 4 (D)Combo1.RemoveItem Combo1.Listcount 22.在通用声明代码中有以下语句:Option Base 1Dim a (4,-3 to 3) As String则该数组有_(22)___个元素。
(A) 28 (B) 24 (C) 35(D) 3023.要使菜单项能通过按键盘上的Alt键及K键打开,应在菜单编辑器中设置__(23)__。
(A) 在“名称”栏中“K”字符前加上“&”(B) 在“标题”栏中“K”字符前加上“&”(C) 在“名称”栏中“K”字符后加上“&”(D) 在“标题”栏中“K”字符后加上“&”24. 以下Case语句中错误的是__(24)__。
(A) Case 0 To 10 (B) Case Is>10(C) Case Is>10 And Is<50 (D) Case 3,5,Is>1025.假定有以下两个过程,则以下说法中不正确的是__(25)______。
Private Sub PPP (a As Single, b As Single)a = a + bb = a + bPrint a, bEnd SubPrivate Sub Form_Activate( )x=18Call PPP (x,(x))Print xEnd Sub(A)形参是 a 和b ,两个实参x和(x)允许重名(B)形参是 a 和b ,实参(x)表示是传值调用(C)形参是 a 和b ,实参x表示是传址调用(D)Print a, b 输出的值分别为36,3626.若需要在同一窗口内安排两组相互独立的单选按钮(OptionButton),可使用__(26)_____ 控件将它们分隔开。
① TextBox ② PictureBox ③ Image ④ Frame(A) ①或②(B) ②或③(C) ②或④(D) ③或④27.在窗体上画一个名称为CommandDialog1 的通用对话框,一个名称为Command1的命令按钮。
然后编写如下事件过程:Private Sub Command1_Click()CommonDialog1.FileName =""CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex=2CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1End Sub对于这个程序,以下叙述中错误的是___(27)___(A)该对话框被设置为“打开”对话框 (B) 在该对话框中指定的默认文件名为空(C)该对话框的标题为VBTest (D)在该对话框中指定的默认文件类型为文本文件(*.Txt)28.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Option Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后,单击命令按钮,则在窗体上显示的内容是___(28)___。
(A) 4 (B) 5 (C) 6 (D) 729.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程,该事件过程的功能是__(29)__Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub(A)输出n以内的奇数 (B) 输出n以内的偶数(C) 输出n以内的素数 (D) 输出n以内能被j整除的数30.设有如下程序:Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0: n = 0For i = 1 To 5x = n / i: n = n + 1: sum = sum + xNextEnd Sub该程序通过For循环计算一个表达式的值,这个表达式是___(30)____(A)1+1/2+ 2/3+3/4+4/5 (B)1+1/2+2/3+3/4(C)1/2+2/3+3/4+4/5 (D)1+1/2+1/3+1/4+1/5二、填空题(50分,每空2分)1、设a=6,则执行x=Iif(a>5,-1,0)后,x的值为-1。
2、Visual Basic提供了三种对数据文件的访问方式,它们是顺序访问方式、随机访问方式和二进制访问方式。
3、赋值语句:a=123 & MID("123456",3,2)执行后,a变量中的值12334。
4、如果有以下程序代码,则输出结果是_FALSE。
x = 10y = 5Print x ^ 2 >= y ^ 35、运行下面的程序,单击窗体后在窗体上显示的内容是10 220;若将程序中的A语句与B语句的位置互换,再次执行程序,单击窗体后在窗体上显示的内容是10 120。
Private Sub Form_Click()Dim a As Integer,b As Integera=0: b=0Do While a<=8a=a+2 ' A语句b=b+a*a ' B语句LoopPrint a,bEnd Sub6、运行下面这段程序,在文本框Text1和Text2中分别输入一串字符,单击命令按钮时,在Text1中删除掉Text2中的内容。