高中小学三年级高职单招计算机月考vb部分

(10页)

本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！

14.9 积分

WORD文档下载可编辑高职单招计算机专业卷(VB部分)(总计150分) 班级____________ 姓名________________ 座号_____ 成绩______一、单项选择题(在每小题的四个备选答案中，选出一个正确答案，并将正确答案的序号填在题干的括号内。每小题3分*10，共30分)1. 命令按钮Command1设置为无效，应修改该命令按钮的 属性。[A] Visible [B]Value [C] Caption [D] Enabled2. 要把“XXX”成为列表框List1中的第1项，可以执行 语句。[A] List1.AddItem “XXX”,1 [B] List1.AddItem “XXX”,0 [C] List1.AddItem 1,“XXX” [D] List1.AddItem 0,“XXX”3. 以下 对象不能响应Click事件[A] 窗体 [B] 图片框 [C]列表框 [D] 定时器4. 要声明一个长度为50个字符的定长字符串变量str， 语句是正确的。 [A] Dim str as String [B] Dim str as String(50) [C] Dim str as String[50] [D] Dim str as String*505. 以下哪种控件不可以包含其他控件 。 [A] PictureBox [B] Frame [C] Image [D] Form6. 设在菜单编辑器里定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是____。 [A] menu1.Enabled = True [B] menu1.Enabled = False [C] menu1.Visible = True [D] menu1.Visible = False 7．____ 对象能使用Print方法 [A]文本框 [B]图片框 [C]列表框 [D]框架8、下列哪一个是合法的VB变量名称？( )　(A) MyName　 (B) CLS　 (C) 5XY　 (D) Friend.My 9、下列数组声明语句，正确的是(　　)(A) Dim a[3,4] As Integer (B) Dim a(3,4) As Integer (C) Dim a(n,n) As Integer (D) Dim a(3 4) As Integer10.以下哪个程序段的执行结果为"OK”. (A) (B)Dim y As Integer Dim y As Integer y=10 y=20 Select Case y Select Case yCase 11 To 1 Case Is>20,Is<20Print "OK “ Print "OK”End Select End Select (C) (D)Dim y As Integer Dim y As Integer y=6 y=10Select Case y Select Case yCase Is>6,1,2 to 5 Case 1,3,Is>6Print "OK” Print "OK”End Select End Select 二、判断题(每小题2分*5，共10分)1. 在一个过程中使用Static语句声明的静态变量，能在该过程结束后仍然保留该变量，所以可以在其他模块中引用该变量。( )2. 定时器的Interval属性表示定时器调用Timer事件的间隔毫秒数，如果Interval为0，则系统不会调用Timer事件。( )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 (2,3 To 5) As Integer语句声明的数组占用的内存空间是 个字节。4. 设A=7，B=2，C=3，表达式A < B And Not C > A Or C > B And Not A < B的结果是 。5. 写出表达式81\7 Mod 2^2的值____ ____。四、程序阅读分析题(请分析程序段，写出输出结果。每小题6分，计60分)1、执行下列程序后，输出结果为___________ Private Sub Form_Click( ) X=1 : y=3 : z=5 X=y : y=z : z=x Print x,y,z End Sub2、设窗体的Click事件过程代码如下，程序段输出结果______________Private Sub Form_Click()Dim k As Integer,a As Integerk=1If k<=1 Then a =2*kIf k<=2 Then a = kIf k<=3 Then a =2*k十1Print k, aEnd Sub3、写出命令按钮Command1单击后，程序运行结果__________Private Sub Command1_Click()Dim 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 = 0 Print X * Y ； For I = 1 To 5 Y=20 Next I X = X - 1Loop5、单击命令按钮后，会打印出：_________Private Sub Command1_Click()x$ = "abcdefghijkl"d = Asc("a") - Asc("A")n% = Len(x)y$ = ""For i = n To 1 Step -2 y = Chr(Asc(Left(x, i)) - d) + yNext iPrint yEnd Sub6、下述单击命令按钮后的输出结果_______________Private Sub Command1_Click()Dim arr1(10) As Integer, arr2(10) As Integern = 4For i = 5 To 1 step -2arr1(i) = i arr2(n) = 2 * n + iNext iPrint arr2(n); arr1(n)End Sub7、写出单击窗体三次，第一次输入10，第二次输入11，第三次输入12。窗体上显示的结果。Private Sub Form_Click() Dim x As Integer Static s As Integer x = Val(InputBox("x=")) Select Case x Mod 3 Case 0 s = s * x Case 1 s = s – x -10 Case Else s = s + x End SelectPrint "s="; s End Sub8、写出单击Command1按钮后，屏幕上显示的结果________________Private Sub Command1_Click() i = 1 Do While i <= 5 Print "f("; i; ")="; sq(i) i = i + 3 LoopEnd SubFunction sq(x) x = x + 2 sq = x * 4 - 5End Function9、下列Visual Basic程序执行的结果？______________Dim M(10) : K = 0 : P = 10For J = 1 To 10 If J Mod 3 = 0 Then K = K + 1 M(K) = J Else M(P) = J P = P - 1 End IfNext JPrint M(3), M(6)10、 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程。程序运行后，单击命令按钮，在窗体上显示的是___________________Private Function fun(ByVal m As Integer) 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(i) Next Print sEnd Sub 五、程序填空题(请正确填充下面的VB程序，使其完成所要求的功能。每空2分，共40分)1. 数据过滤程序：从左边文本框输入任意文本，如果是数字字符，则显示在右边文本框中。运行结果如下图，请将事件过程补充完整。对象对象名属性名属性值窗体Form1Caption数据过滤标签Label1Caption输入数据：标签Label2Caption过滤后的数据：左边文本框Text1Text右边文本框Text2Text事件过程如下：Private Sub Text1_ 【1】 (KeyAscii As Integer) IF 【2】 Then Text2.Text=【3】 End IFEnd Sub2、下列程序段是用于计算1!+2!+...+20!，并打印出计算结果，其中F函数过程用于计算n!。Private Sub Form_Click() Dim sum As Double Dim n As Integer 【4】 For i = 1 To n sum = 【5】 Next i Form1.Print "sum=" & 【6】 End SubPublic Function F(ByVal n As Integer) As Double Dim i As Integer, temp As Double 【7】 For i = 1 To n temp = temp * i Next i 【8】 End Function2．命令按钮Command1单击后，先将键盘上输入一个任意字符串按颠倒顺序显示，再统计该字符串是由那些不重复的字符组成的，共有几个字符。例如：输入“pragra”，程序运行结果为： 原始字符串x是：pragra 颠倒过来显示x字符串是：argarp x由prag这4个不重复字符组成以下是未完成的程序代码，请将空白部分填上合适的内容。Private Sub Command1_Click() Dim x As String '原始字符串 Dim y As String Dim n As Integer '统计不重复的字符个数 x = 【9】 inputbox(“请输入一个任意字符串”) Print "原始字符串x是："; x y = "" For i = 【10】 Len(x) to 1 step -1 y = y + Mid(x, i, 1) Next i Print "颠倒过来显示x字符串是："; y n = 0 y = "" For i = 1 To Len(x) s = Mid(x, i, 1) j=1 Do While j

 天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。