Y49VB程序考试复习卷.doc

VB一次性考试复习卷一、单选题1在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ ）。A立即窗口 B属性窗口 C代码窗口 D工程资源管理器窗口2后缀为.vbp的文件表示VB 的（）A窗体文件 B类模块文件 C工程文件 D标准类模块文件 3表达式8+13 Mod 2*4+3（ ）。A8 B16 C15 D124文本框没有（ ）属性A、Text B、Name C、Caption D、BorderStyle5.下列赋值语句正确的是（ ）AB+C =A B A=B+CC-B=A D5=A+B6在Visual Basic中，默认的数据类型是（ ）AInteger BDouble CCurrency DVariant7如果将文本框的（ ）属性设置为True，则运行时不能对文本框中的内容进行编辑。 ALocked BMultiLine CTabStop DVisible8执行语句a=52,b=5/2,则a,b的值分别为（ ）。A2 , 2 B2.5 , 2.5 C2.5 , 2 D2 , 2.59数学式子Sin25写成VB表达式是（ ）。 ASin25 BSin（25） CSIN（25） DSin（25*3.14/180）10下列变量名中合法的是（ ）AIF B7AB CAB7 DAB_711. 要退出ForNext循环，应使用的语句是（ ）。AExit BExit For CContinue DStop Loop12下面哪个方法是控件获得焦点的方法（）。AGotFocus BLostFocus CSetFocus DClick 13定义符号常量所使用的命令为（）。ADim BPublic CStatic DConst14用于获得字符串S最右边4个字符函数是（）。ARight(S,4) BLeft(S,4)CRightStr(S) DRightStr()15以下哪一种结构不是Visual Basic语言的循环控制结构是（）。AFor结构 BSelect Case结构CWhile结构 DDo结构16Form1.Cls中的Cls是（ ）。 A.事件 B.对象 C.方法 D.属性17一个VB应用程序可以包含几个工程文件（ ）。 A1个 B2个 C可以没有 D无限制18Dim A(1 To 6,1 To 5)定义的数组包含的元素个数（ ）。 A25 B30 C35 D4219已知循环次数时，应使用哪一中流程控制命令较佳（ ）。 AGOTO BDO LOOP CFORNEXT DSELECT CASE20.在VB中,程序执行的顺序是怎样的( ). A.由VB开发系统决定 B.由事件驱动 C.由代码行的顺序决定 D.随意执行21.当运行程序时,系统自动执行启动窗体的什么事件过程( ) A.Load B.Click C.Unload D.GotFocus22.计时器控件响应的事件是( ). A.Click B.Enable C.Timer D.Interval23.下列控件中,不能改变大小的( ) A.Textbox B.Label C.Timer D.PictureBox24.在VB中,按文件的访问方式不同,可以将文件分为( ) A.顺序文件、随时文件和二进制文件B.文本文件和数据文件 C.数据文件和可执行文件D.ASC文件和二进制文件25.若要求从文本框中输入密码时在文本框中只显示 * 号，则应用在此文本框的属性窗口中设置（ ）。 AText属性值为 * BCaption属性值为 * CPassword属性值为空 DPasswordChar属性值为 * 26. 执行以下程序段后，变量c$的值为（ ） a$=”Visual Basic Programming” b$=”Quick” c$=b$ & Ucase(Mid$(a$,7,6) & Right$(a$,11) A. Visual BASIC Programming B. Quick Basic Programming C. Visual Basic Programming D. Quick BASIC Programming二、填空题1Visual Basic程序开发有三种模式，即_模式、_模式和_模式。2在Visual Basic中设置或修改一个对象的属性的方法有两种，它们分别是 _ 和 _ 。3已知a=3,b=4,c=5,表达式a.b and Not ca Or cb And c= 60 Then Print 及格Else Print 不及格End IfEnd Sub该程序的功能是：_3Private Sub Command1_Click() Dim i For i = 1 To 10 Step 2 i = i + 1 Print i; Next iEnd Sub单击命令按钮，程序的执行结果为_4. Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox(请输入一个正整数=) If x 5 Then s = s * x Else s = s + x End If Text1.Text = s= & Str(s)End Sub程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。5Private Sub Form_Click() Dim A(1 To 3) As String Dim c As Integer,j As Integer A(1) = “3” A(2) = “6” A(3) = “9” c=0 For j=1 to 3 c = c + Val(A(j)Next jPrint cEnd Sub 写出程序运行时单击窗体后，窗体Form1上的结果： 6 Private Sub Command1_Click() Dim A(2 To 7) As Integer Dim b As Integer For b = 2 To 7 A(b) = b Next b Text1.Text = A(b - 2)End Sub程序运行后，单