计算机专业第二次月考试题VIP

计算机专业第二次月考试卷一、选择题（本大题共10小题，每小题2分，共20分）1在Visual Basic中，Print Int(35*Rnd)+n产生的随机数的范围是10至44（含10及44），则n是.（ ）A10 B. 20 C. 30 D. 352. 在Visual Basic中，下列可作为Visual Basic变量名的是.（ ）A. Filename B. Val C. X%D D. Print3. 在Visual Basic中，下列语句用来设置窗体中文本框（名称Text1）的属性，其中在运行时不能正确操作的语句是.（ ）A. Text1.Text=Text TestB. Text1.Name=Text TestC. Text1.Enabled = FalseD. Text1.Visible = False4. 在Visual Basic中,下列运算符优先级最高的是.（ ）A. + B. * C. DAnd5. 执行下面Visual Basic程序后，结果是哪个选项.（ ）For i = 1 To 6 If i Mod 2 = 0 Then Print #; Else Print *; End IfNext iA# B* C*#*#*# D#*#*#*6. 下面的Visual Basic程序是对数组a中的元素按升序排列，程序中空白位置应该填下列选项中的哪一个.（ ）Option Base 1Dim i As IntegerDim j As Integera = Array(2, 4, 7, 9, 3, 6, 20, 11)For i = 1 To 7 For j = i + 1 To 8 If a(i) a(j) Then a(i) = a(i) + a(j) a(j) = a(i) - a(j) _ End If Next jNext iFor i = 1 To 8Print a(i);Next iA. a(i)=a(j) B. a(i) = a(i) - a(j) C. a(j)=a(i)-a(j) D. Exit For7. 执行下面Visual Basic程序后，s=s+1语句被执行了多少次.（ ）Dim s As Integers = 0For i = 1 To 10 For j = 0 To i - 1 s = s + 1 Next jNext iA. 0 B. 10 C55 D. 668. 执行下面Visual Basic程序，数组a中的数字50所在位置的下标是.（ ）Option Base 1Private Sub Command1_Click()Dim i As IntegerDim k As IntegerDim t As IntegerDim w As IntegerDim m As Integera = Array(3, 56, 8, 10, 89, 94, 78, 82, 20, 50, 100)m = UBound(a)k = m / 2For i = 1 To kw = a(i): a(i) = a(m - i + 1): a(m - i + 1) = wNext iEnd SubA. 1 B. 2 C. 3 D. 59. 在Visual Basic中，关于控件及窗体说法不正确的是.（ ）A. 任何一个控件都有名称B. 任何一个控件都有属性C. 任何一个控件都有单击事件D. 控件是对象，窗体也是对象10. 执行下面Visual Basic程序，输入a的值为10，最后输出s的值是.（ ）Dim a As IntegerDim s As Integera = InputBox(a=)Select Case a Mod 2 Case 1: s = 1 Case 2: s = 10 Case 3: s = 11Case Else: s = 100End SelectPrint sA. 1 B. 2 C. 3 D. 100二、判断题（本大题5小题，每小题2分，共10分。）1在Visual Basic中，对顺序文件既有读的操作语句，也有写的操作语句。（ ）2. 在Visual Basic中，窗体appearance属性的功能是返回或设置对象的边框样式。（ ）3. 在Visual Basic中，定时器控件在运行时是可见的。（ ）4. 在Visual Basic中，窗体的move方法中，参数left、width、height都不可以省略。（ ）5. 在Visual Basic中，form1.visible=true，这时窗体不可见。（ ）三、填空题（本大题共5小题，每小题2分，共10分。）1. Visual Basic的算术表达式4 / 3 Mod 3 * 2 + 2的结果是 。2.在Visual Basic中，将文本框的scrollbar的属性设置为2，但没有垂直滚动条显示，原因是没有将 属性设置为True。3.在Visual Basic中，有以下的循环：X=1Do while x p Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容为： 。六、Visual Basic程序改错(本大题共2小题，每个错误5分，共20分，每个程序有两个错误行，请在答题纸上写出错误行代码和对应的正确代码，改对一处得一处分，改错不减分。注：要把整行写完整) 1有数组:s = Array(a42, b3c56, de7fg, hi, jk35kmn)统计数组s的各个元素中含有数字字符个数，把结果放到数组b相应元素中，如上述数组s，当程序运行后b中各元素的值分别为：2,3,1,0,2。程序中有两处错误，请按要求改正。程序如下：（两个数组的下标都是从1开始，程序中定义的每个变量都用到,程序中只能用变量total统计数组中每个元素含数字字符个数）s = Array(a42, b3c56, de7fg, hi, jk35kmn)Dim b(5) As IntegerDim total As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 5 b(i) = 0 For j = 1 To Len(s(i) If Mid(s(i), j, 1) = 0 And Mid(s(i), j, 1) = 9 Then total = total + b(i) Next jb(i) = totalNext iFor i = 1 To 5Print b(i);Next i2 如图所示，窗体有两个框架，左边框架中有三个单选按钮（名称分别为Option1，Option2和Option3），单选按钮分别设置了标题为小学、初中、高中；右边的框架中是一个列表框（名称为List1）；两个框架中间是命令按钮（标题为存放结果，名称为Command1），命令按钮功能：单击命令按钮，清除列表框中的内容，然后将选中单选按钮的标题放入列表框中。程序中有两处错误，分布在两行，请将完整的错误行和相应的正确行写在答题纸横线上。（不能改变程序行数，不能增加函数）Private Sub Command1_Click()Dim s As StringList1.Clears = Select Case 1 Case Option1.Value s = s + Option1.Caption Case Option2.Value s = s + Option2.Caption Case Option3.Value s = s + Option3.CaptionEnd SelectList1.Text = sEnd Sub七、程序填空（本大题共4个空，每空5分，共20分，按程序要求在答题纸上填入相应的内容，使程序完整正确）1(Visual Basic试题)下面程序是从键盘输入少于20个字符的字符串，然后对字符串从左端进行处理。处理方法：把字符串中后跟“#”的数字放入数组a中，如果是数字但后面没有“#”则不存放。如输入的字符串为“12#a2bc3#d45#6e7”,则12、3、45分别存放到数组a的前三个元素中。请填空。Option Base 0Private Sub Command1_Click()Dim s As StringDim c As StringDim i As IntegerDim j As IntegerDim a(10) As IntegerDim num As IntegerDim w As IntegerDim flag As Integer 标志：为0表示前一个字符非数字，为1表示前一字符为数字num = 0: i = 1: flag = 0: j = 0s = InputBox(s=)w = Len(s)Do While i = 0 And c = 9 Then num = num * 10 + Val(c): (1) End If If flag = 1 And c = # Then (2) : j = j + 1: flag = 0: num = 0 End If If (c 9) And flag = 1 Then flag = 0: num = 0 End If i = i + 1LoopFor i = 0 To j - 1 Print a(i);Next iEnd Sub2、(Visual Basic试题)窗体中有一文本框(名称Text1)，一组合框(名称Combo1，已添加5个条目)，一滚动条（名称Hs1，min和max分别为1和5），一定时器控件（名称Timer1），定时器的Enabled属性初始为False，Interval属性值1000（1秒），一命令按钮(标题为开始，名称Command1)。程序功能：（1）开始命令按钮功能：启动定时器工作；（2）定时器Timer1事件功能：一是清空文本框，二是在文本框中显示组合框中选中的数字，选中数字几，就在文本框中显示几个该数字，如选中3，则在文本框中显示3个3，三是把滚动条的Value值改为组合框中选定的值，四是把定时器的Timer1事件触发时间改为与所选中的组合框的值一致的秒数。不完整的空白位置请写出正确的内容。Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Dim i As IntegerDim k As IntegerText1.Text = k = Val( (3) )For i = 1 To kText1.Text =