第一部分：客观题一、单项选择题1、在窗体模块的通用段中声明变量时，不能使用的关键字是（）A、 DimB、 PublicC、PrivateD、 Static2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）A、工程资源管理器窗口B、工具箱窗口C、属性窗口D、代码窗口3、若要使某可见控件获得焦点，可使用（）方法来实现。
Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value4、下列不可作为VB变量名的是（）A、ABT1B、AlphaC、ABCD、4*Delta5、表达式 5 Mod 3+3\5*2的值是（）A、 0B、 6C、4D、 26、下列语句中，正确的赋值语句是（）A、 i + j = 10B、 2i = jC、 j = i + jD、 i * j = 07、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1Dox = x * ii = i + 1Loop While i < nA、 2B、 6C、 10D、 148、当用户在窗体上单击鼠标时，不会触发的事件是（）Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick9、下列为整型变量的是（）A、 x!B、 x#C、x$D、 x%10、要从For循环中直接退出循环，可使用的语句( )。
A、Exit DoB、Exit LoopC、Exit ForD、Stop11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（）A、x Mod 2 =1 Or y Mod 2 =1B、x Mod 2 =0 Or y Mod 2=0C、x Mod 2 =0 And y Mod 2=0D、x Mod 2 =1 And y Mod 2 =112、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。
Dim a(3, -2 To 1, 5) As IntegerA、60B、75C、120D、1313、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案（）A、Text1.MaxLength=0B、Text1.Width=0C、Text1.Visible=FalseD、Text1.Enabled=False14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是（）A、Picture属性中的图形B、DownPicture属性中的图形C、DisablePicture 属性中的图形D、不显示图形15、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10：y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是（）A、 10 5B、 12 5C、 10 7D、 12 716、执行以下程序段，输出结果为（）Private Sub Command1_Click()a$="abbacddcba"For i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z= UCase(x & y & z)Next iPrint zEnd SubA、 ABAB、ABBABAC、 BBABBAD、AABAAB17、以下（）语句可表示[50,100]之间的随机数。
A、Int(Rnd * 51) + 49B、Int(Rnd * 51 +50)C、Int(Rnd * 50) + 5D、Int(Rnd * 50 + 50)18、执行x = InputBox("请输入半径",0,"求面积") ，在输入框中输入3后回车,则下列叙述正确的是（）A、x的值是数值3B、 x的值是字符"3"C、0是默认值D、对话框标题是"求面积"19、设置图像框的（）可使框内的图片按图像框大小自动调整。
A、 AutoSize属性为TrueB、 Stretch属性为TrueC、 AutoSize属性为FalseD、 Stretch属性为False20、有如下事件过程Private Sub Command1_Click()x = 1For i = 1 To 3If i <= 1 Then a = x * xIf i <= 2 Then a = x * x + 1If i >= 3 Then a = x * x + 2Print a;Next iEnd Sub运行时，单击命令按钮，则结果是（）：A、 2 5 11B、1 5 1C、 2 2 3D、1 1 121、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As IntegerClsY = 1: Y = Y + 5: X = 5 + XPrint X, YEnd Sub程序运行时，单击命令按钮Command1三次后，窗体上显示的结果为（）A、15 16B、15 6C、15 15D、 5 622、设a=3,b=5，则以下表达式值为TRUE的是（）A、 a>=b And b>10B、 a>b Or b>0C、 a<0 and b >0D、 -3+5>a and b>023、从键盘上输入两个字符串，分别保存在变量str1、str2中。
确定第二个字符串在第一个字符串中起始位置的函数是（）A、 LeftB、MidC、StringD、Instr24、下列哪组语句可以将变量a，b的值互换（）A、 a=b: b=aB、 a=a+b: b=a-b: a=a-bC、 a=c: c=b: b=aD、 a=(a+b)/2: b=(a-b)/225、可以同时删除字符串前导和尾部空格的函数是（）A、 LtrimB、 RtrimC、TrimD、Mid26、表达式29\3的值是（）A、 1B、7C、 8D、 927、下列程序运行后，单击command1时显示的结果是（）Private Sub Command1_Click()x = 1mysub x + 2Print xEnd SubPublic Sub mysub(x As Integer)x = 3 * x - 1If x < 4 Then x = x + 10Print x;End SubA、 8 1B、 8 8C、 19 1D、 19 1928、以下有关Visual Basic语言描述中错误的是（）。
A、不区分大小写B、语句是一行一句，以回车键结束C、用“,”分隔一行中的多个语句D、一条语句放在多行中，则在前一行结束处使用续行符空格+下划线（“ _”）连接下一行29、在窗体上添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x < 50x = (x + 2) * (x + 3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )A、1和0B、2和72C、3和50D、4和16830、设有如下声明：Dim X As Integer如果Sgn(X) 的值为-1，则X的值是（）A、整数B、大于0的整数C、等于0的整数D、小于0的数二、判断题下列各题如果是正确的，请在机读卡对应位置上涂A，如果是错误的涂B。
答在试卷上不得分1、VB程序运行后，在内存中只能驻留一个窗体。
2、在VB中，控件的属性只能在设计时修改，运行时无法改变。
3、执行Unload Form1语句后，窗体Form1消失，但仍在内存中。
4、在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程。
5、Function过程与Sub过程最主要的区别是：SUB过程不能返回值，而FUNCTION过程能返回值。
6、用Print方法可以在图像框中输出数据。
7、Dim a,b,c As Integer能将a,b,c都声明成整型变量。
8、语句print “*”;tab(10);”a”与语句print “*”;spc(10);”a”的显示结果是一样的。
9、控件数组使用Index属性来标识控件元素，其范围必须从0开始。
10、文件号的最大取值为512。
第二部分：主观题三、填空题请在答题卷对应位置填写答案，答在试卷上不得分。
1、数学关系式a2+b2表示成正确的VB表达式为___【1】___ 。
2、计算表达式的值Int(86.567 * 100 + 0.5) / 100＝___【2】___ 。
3、赋值语句g = 123 + Mid("123456", 3, 2)执行后，变量g中的值是___【3】___ 。
4、VB6.0在编写代码时可以添加说明性文字。
注释方法有2种，一种是使用注释标记符撇号（’）；另一种是使用以关键字___【4】___开头的注释语言。
5、设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf((a<b)Or(c>d), "A","B")后，x的值为___【5】___ 。
6、在VB中，描述对象特征的数据称为对象的___【6】___。
7、有下面的表达式x1=val(“1e2abcd”)，运行后，x1的值为：___【7】___ 。
8、产生一个两位数的随机数的表达式为：___【8】___。
9、只有控件对象的Enabled和Visible属性值均为___【9】___ 时，该控件对象才能接受焦点。
10、设a=10，b=5，c=1，执行语句Print a>b>c后，窗体上显示的是___【10】___ 。
四、读程序写结果请将答案填写在答题卷对应位置处，答在试卷上不得分。
1、下面程序执行后a的值是___【1】___。