《高中小学三年级高职单招计算机月考VB部分》由会员分享，可在线阅读，更多相关《高中小学三年级高职单招计算机月考VB部分（9页珍藏版）》请在金锄头文库上搜索。
1、.高职单招计算机专业卷班级_ 姓名_ 座号_ 成绩_一、单项选择题在每小题的四个备选答案中,选出一个正确答案,并将正确答案的序号填在题干的括号内。每小题3分*10,共30分1. 命令按钮Command1设置为无效,应修改该命令按钮的属性。AVisibleBValueC CaptionD Enabled2. 要把XXX成为列表框List1中的第1项,可以执行语句。A List1.AddItem XXX,1 B List1.AddItem XXX,0C List1.AddItem 1,XXX D List1.AddItem 0,XXX3. 以下对象不能响应Click事件A 窗体B 图片框C列表框D
2、 定时器4. 要声明一个长度为50个字符的定长字符串变量str,语句是正确的。A Dim str as StringB Dim str as String C Dim str as String50D Dim str as String*505. 以下哪种控件不可以包含其他控件。A PictureBoxB FrameC ImageD Form6.设在菜单编辑器里定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是_。 Amenu1.Enabled = True Bmenu1.Enabled = False Cmenu1.Visible = True Dmenu1.Visi
3、ble = False 7_ 对象能使用Print方法A文本框B图片框C列表框D框架8、下列哪一个是合法的VB变量名称？ MyNameCLS5XYFriend.My9、下列数组声明语句,正确的是 Dim a3,4 As Integer Dim a As Integer Dim a As Integer Dim a As Integer10.以下哪个程序段的执行结果为OK.Dim y As IntegerDim y As Integery=10 y=20 Select Case y Select Case yCase 11 To 1 Case Is20,Is20Print OK Print OK
4、End Select End Select Dim y As Integer Dim y As Integery=6 y=10Select Case y Select Case yCase Is6,1,2 to 5 Case 1,3,Is6Print OK Print OKEnd Select End Select 二、判断题每小题2分*5,共10分1. 在一个过程中使用Static语句声明的静态变量,能在该过程结束后仍然保留该变量,所以可以在其他模块中引用该变量。2. 定时器的Interval属性表示定时器调用Timer事件的间隔毫秒数,如果Interval为0,则系统不会调用Timer事件
5、。3. 用 Exit Do语句可以退出 Do - Loop 循环,用 Exit Sub语句可以退出Sub过程,同理用 Exit If 也能退出If条件语句。4. 控件数组的每个元素都有相同的Name属性值和不同的Index属性值,其中最小的Index属性值为1。5. 事件过程通常由事件驱动执行的,而Sub子程序是通过过程调用执行的。三、填空题每小题2分*5,共10分1. 声明一个值为3.14的常量Pi的语句为：_2. 写出判断x是正偶数的逻辑表达式： _3. 在模块的声明段中有Option Base 1语句,那么用 Dim a As Integer语句声明的数组占用的内存空间是个字节。4. 设
6、A=7,B=2,C=3,表达式A A Or C B And Not A B的结果是。5. 写出表达式817Mod22的值_ _。四、程序阅读分析题请分析程序段,写出输出结果。每小题6分,计60分1、执行下列程序后,输出结果为_ Private Sub Form_ClickX=1 : y=3 : z=5X=y : y=z : z=xPrint x,y,z End Sub2、设窗体的Click事件过程代码如下,程序段输出结果_Private Sub Form_ClickDim k As Integer,a As Integerk=1If k=1 Then a =2*kIf k=2 Then a =
7、kIf k=3Then a =2*k十1Print k,aEnd Sub3、写出命令按钮Command1单击后,程序运行结果_Private Sub Command1_ClickDim B As Integer, K As Integer B = 1For K = 1 To 5B = B * K If B = 15 Then Exit For Else K = K + 1 End IfNext K Print K, BEnd Sub4、执行下列程序,会打印出：_。 X = 5 Y = 10 Do Until X = 0Print X * Y ； For I = 1 To 5 Y=20 Next
8、 IX = X - 1Loop5、单击命令按钮后,会打印出：_Private Sub Command1_Clickx$ = abcdefghijkld = Asc - Ascn% = Leny$ = For i = n To 1 Step -2 y = ChrAscLeft - d + yNext iPrint yEnd Sub6、下述单击命令按钮后的输出结果_Private Sub Command1_ClickDim arr1 As Integer, arr2 As Integern = 4For i = 5 To 1 step -2arr1 = iarr2 = 2 * n + iNext
9、iPrint arr2; arr1End Sub7、写出单击窗体三次,第一次输入10,第二次输入11,第三次输入12。窗体上显示的结果。Private Sub Form_Click Dim x As Integer Static s As Integer x = ValInputBox Select Case x Mod 3 Case 0 s = s * x Case 1 s = s x -10 Case Else s = s + x End SelectPrint s=; sEnd Sub8、写出单击Command1按钮后,屏幕上显示的结果_Private Sub Command1_Clic
10、k i = 1 Do While i = 5 Print f=; sq i = i + 3LoopEnd SubFunction sq x = x + 2 sq = x * 4 - 5End Function9、下列Visual Basic程序执行的结果？_Dim M:K = 0:P = 10For J = 1 To 10 If J Mod 3 = 0 Then K = K + 1 M = J Else M = J P = P - 1 End IfNext JPrint M, M10、在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程。程序运行后,单击命令
11、按钮,在窗体上显示的是_Private Function fun If m Mod 2 = 0 Then fun = 2 Else fun = 1 End IfEnd FunctionPrivate Sub Command1_Click Dim i As Integer, s As Integer s = 50 For i = 10 To 15 s = s + fun Next Print sEnd Sub 五、程序填空题请正确填充下面的VB程序,使其完成所要求的功能。每空2分,共40分1. 数据过滤程序：从左边文本框输入任意文本,如果是数字字符,则显示在右边文本框中。运行结果如下图,请将事件过程补充完整。对象对象名属性名属性值窗体Form1Caption数据过滤标签Label1Caption输入数据：标签Label2Caption过滤后的数据：左边文本框Text1Text右边文本框Text2Text事件过程如下：Private Sub Text1_ 1IF2Then Text2.Text=3End IFEnd Sub2、下列程序段是用于计算1!+2!+.+20!,并打印出计算结果,
