计算机等级考试题库答案免费在线查找

1 [问答题] 注意：下面出现的“考生文件夹”均为C：wexam25160002。在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm，此外还有一个名为datain.txt的文本文件，其内容如下： 86 97 13 24 35 46 57 68 79 80 59 37 32 43 76 58 28 12 98 57 31 42 53 64 75 程序运行后，单击窗体，将把文件datain.txt中的数据输入到二维数组Mat中，在窗体上按5行5列的矩阵形式显示出来，然后计算矩阵第三行各项的和，并在窗体上显示出来，如图25-5所示。在窗体的代码窗口中，已给出了部分程序，这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
2 [填空题] 软件定义时期主要包括【4】和需求分析两个阶段。
3 [填空题] 下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 SubPR() 　Randomize 　Dim a(10) 　For j=1 To 10 　a(i)=Int( (14) ) 　If (15) Then k=k+1 　Print a(j) 　Next j 　Print 　Print k/10 Fnd Sub
4 [单项选择题] 在学生管理的关系数据库中，存取一个学生信息的数据单位是 A．文件 B．数据库 C．字段 D．记录
5 [填空题] 下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出：否则结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox("输出结果",vblnformation+vbYesNo，"提示：") If a=______Then Print "Myresult" End If End Sub
6 [填空题] 程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。 Option Explicit Private ______ Dim k As Integer For k=1 To 100 If k Mod 20 Then _______ Else Text1.Text=" " End If Print“程序运行完毕，可再双击窗体” End Sub
7 [填空题] 【7】布局管理器将组件一排一排地依次放置，它是Panel和Applet容器地默认布局管理器。
8 [填空题] 在窗体上设计如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在程序运行后，按“a”键(不按住Shift键)，则窗体上输出的结果是______。
9 [单项选择题] 算法的主要运算如下，其中i的初值为0，s初值为0，“=”为赋值号。 While i＜n do { s=0； While s＜n do {s=s+1； } i=i+1； } 该算法的时间复杂度为() A．O(2 B．O(n+log 2 n) C．O(nlog 2 n) D．O(n 2)
10 [问答题] 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm。窗体中已经给出了所有控件(框架中的3个单选按钮构成了一个控件数组)，如图3—1所示，请编写适当的事件过程。程序运行后，如果选中某个单选按钮，然后单击“计算”命令按钮，则计算出数列1，1，2，3，5，8，13，21，…的第n项的值，并在文本框中显示出来，其中n是选中的单选按钮标题所指定的数值。要计算的数列的变化规律是：从第3个数开始，每个数是它前面两个数之和 (提示：由于计算结果较大，存放结果的变量应使用长整型)。注意：①不得修改已经给出的程序和已有的控件的属性；②在结束程序运行之前，必须选中一个单选按钮，并单击“计算”命令按钮获得一个结果；③必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。试题所提供的事件过程如下： Private Sub Form_Unload(Cancel As Integer) Open"out5.dat"For Output As #1 Print #1,Op1(0).Value,Op1(1).Value,Op1(2).Value,Va1(Text1.Text) Close #1 End Sub