《计算机二级模拟试题(visual》由会员分享，可在线阅读，更多相关《计算机二级模拟试题(visual（8页珍藏版）》请在金锄头文库上搜索。
1、 第 1 页 共 8 页计算机二级模拟试题（visual basic 语言）八一、填空题填空题(10 分) 1、把下列写成等价的 VB 表达式。（1） 。222 21sinyxxx（2） 。3010yx2、若 X=-3.7864，则表达式 int(x)-fix(x)的值 。 3、若 X$=“abc3456“，则表达式“a“+str$(val(right$(X,4)的值为 。 4、在过程中定义 Dim x(10) As single，则数组占用 字节的内存空间。 5、要将程序处理结果写入到顺序文件 Abc.txt 中的末尾，则可用 方 式打开文件。 6、VB 中的变量按其作用域可为： ， ， 。
2、 7、语句 Exit Sub 的作用是： 。 8、窗体的默认坐标原点在： ，X、Y 轴的方向分别是： 。 二、单选题（二、单选题（15 分） 1、以下控件中没有 Caption 属性的是A 标签框 B 文本框 C 框架 D 命令按钮 2、19.5 Mod 2*2 的运算结果是A 3.5 B 1 C 3 D 0 3、除框架外，能给单选钮分组的控件是A 窗体 B 标签框 C 图形框 D 图像框 4、下程序段循环结构执行后，输出 i 的值是：A 25 B 10 C 11 D 因为 y 的初值不知道，所以不确定.For i=1 to 10 step 2 y=y+i Next i Print i;5、有
3、子程序定义 Public Sub aaa(a as Integer, b as Single),正确的调用形 式是A Call aaa(,) B Call sub(1,1.2) C aaa 1,1.2 D sub 1,1.2第 2 页 共 8 页6、在 VB 设计界面中不能隐藏的窗口是A 工程窗口 B 属性窗口 C 立即窗口 D 窗体窗口 7、用于声明全局变量的关键字是A Dim B Global C Public D Static 8、逻辑表达式的 Not “a“b“ and 93 值为A True B False C 表达式有错 D 条件不足 9 为使文本框显示滚动条，必须首先设置的属性是
4、A AutoSize B Alignment C Multiline D Scrollbars 10 以下关于顺序文件的叙述正确的一项是A 文件中各记录的写入顺序和读出顺序是一致的B 使用不同的文件号可以以不同的读写方式打开同一文件C 向文件中写记录的语句是 Input,Line Input 等D 用 Append 方式打开文件时，既可以在文件末尾添加记录，也可以读取原有 记录 11 以下不允许用户在程序运行时输入文字的控件是A 文本框 B 下拉式组合框 C 简单组合框 D 下拉式列表框 12、将 CommonDialog1 通用对话框以颜色对话框打开，可选以下（ ）方法。A showopen
5、 B showcolor C showsave D showfont 13、下列哪组语句可以将变量 A、B 值互换。 （ ）A A=B : B=A B A=A+B : B=A B: A=A BC A=C : C=B : B=A D A=(A+B)/2 : B=(A - B)/2 14、Line(100,100) step(300,300)将在窗体（ ）画一直线。A （100，100）到（300，300） B （100，100）到（400，400）C （100，100）到（200，200） D （200，200）到（300，300） 15、在文件列表框中设定“文件列表”中显示文件类型应修改该控件
6、的（ ）属 性。A Pattern B Path C Filename D Name三、判断题三、判断题(15 分) （判断下列叙述正确与否，正确的用“”表示，否则用“”表示。 ）1、 属性是 VB 对象性质的描述，对象的数据就保存在属性中。2、 方法是 VB 对象可以响应的用户操作。3、 窗体上显示的单选按钮，只有一个可以被选中。4、 函数 Str(23)与 Str(-23)的值的长度相同。5、 要实现同样的循环控制，在 Do While.Loop 和 DO.Loop While 循环结构中给定的循环条件是一样的。6、 计时器控件在 VB 应用程序启动后自动计时，无法暂停或关闭。第 3 页
7、共 8 页7、 在过程中用 Dim 和 Static 定义的变量都是局部变量。8、 MsgBox( )函数建立的消息框能显示信息也能输入用户的信息。9、一个窗体文件只能用于一个工程中。10、在打开一个 VB 工程进行修改后，当要另存为一个版本，单击“工程另存为” 就行，因为其同时会保存窗体文件。11、对窗体 Form 内各控件不能用鼠标任意精确定位，这是由于窗体中的定位网格起作用，但可以通过对控件的 Left 与 top 属性进行设置而达到精确定位。12、移动框架时框架内的控件也跟随移动，所以框架内各控件的 left 与 top 属性值也随之改变。13、设计菜单中的每一个菜单项分别是一个对象，
8、都有自己的名字和事件。14、当文本框的 multiline 属性为 true 时，scrollbars 属性才有效。15、在 VB 中通用对话框的 FileName 属性返回的是一个输入或选取的文件名字符串。四、程序阅读（四、程序阅读（ 20 分）阅读下列各题的程序，写出运行结果。 1、程序、程序 1下程序运行时单击了窗体后，窗体上的输出的结果。 （注字符“A“的 ASCII 码是 65） Private Sub Form_Click() Dim i% ,j% For i = 1 To 6 Print spc( 6-i )；For j=1 to 2*i-1Print chr$(65-i+1);
9、Next jPrint Next i End Sub2、程序、程序 2 下程序运行时连续单击三次窗体后，窗体上的输出结果为： Private Sub Form_Click()Dim a As Integer第 4 页 共 8 页Static b As Integerb = b+2 a = a+bForm1.Print “a=“; a, “b=“; bEnd Sub 3、程序、程序 3 下面程序运行时单击窗体，输入的数据为 30、15 时，窗体的输出结果为： Sub Swap1( x As Integer, y As Integer)Dim t As Integert = x: x = y: y
10、 = t End Sub Sub Swap2(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = x: x = y: y = t End Sub Private Sub Form_Click()Dim a As Integer, b As Integera = Val(InputBox(“请输入一个整数“)b = Val(InputBox(“请输入一个整数“)Print “1: a=, b=“; a, bSwap1 a, bPrint “2: a=, b=“; a, bSwap2 a, bPrint “3: a=, b=“; a
11、, b End Sub4、程序、程序 4 下面程序运行时单击窗体，输入的数据为 65、8 时，窗体的输出结果为： Private Function TranDec(ByVal idec As Integer, ByVal ibase As Integer) As String Dim strBase As String * 16 Dim iDecR(16) As Integer Dim inB As Integer, i As Integer Dim strDecR As String * 20 strBase = “0123456789ABCDEF“ i = 0Do While idec =
12、 0inB = iDecR(i)strDecR = RTrim$(strDecR) + Mid$(strBase, inB + 1, 1)i = i - 1LoopTranDec = strDecREnd FunctionPrivate Sub Form_click()Dim idec0 As Integer, ibase0 As Integer, Istr As Stringidec0 = Val(InpuBox(“输入数据 idec0=?“)ibase0 = Val(InpuBox(“输入数据 ibase0=?“)Istr= TranDec(idec0, ibase0)Print Istr
13、 End Sub五、程序填空（五、程序填空（18 分）阅读下列程序说明和程序，根据题意将程序补充完整。 1程序说明程序说明在窗体上有一个文本框(Text1)、图形框和命令按钮及两个标签如下 图所示：在 Text1 文本框中输入若干个字符，按回车键后，则在图形框中输出该字 符串，如果输入的字符串是回文的字符串(注：顺读倒读都一样的字符串)后加“ “，并清除文本框中的内容，输入焦点仍在文本框中，等待输入新的字符串。程序程序 Private Sub Command1_Click()End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)D
14、im str As StringIf KeyAscii=13 thenstr = Text1.TextIf (1) Then第 6 页 共 8 页Picture1.Print str For j=1 to mPrint “ “;x(i,j);Next jPrint “一等奖学金“Next iPrintFor i=1 to nIf (6) ThenPrint i ;For j=1 to mPrint “ “;x(i,j);Next jPrint “二等奖学金“Next i End Sub 六、综合编程（六、综合编程（22 分） 1、编程序求解一元二次方程 AX2 +BX+C=0 ，并在窗体上输出。要求：要求： (1) 求根用使用过程Sub Rootx2(a!,b!,c!)完成，并考虑实根、虚根等情况。(2) 在窗体的单击事件通过InputBox()函数输入方程的系数，并调用 Rootx2()过程实现题的要求。 第 8 页 共 8 页2、用户界面下图所示，用于将学生学习的课程在列表框中显示出来。要求程序有 以下 功能：功能： （1）单击“添加” ，若文本框Text1.text中不是空格串，并且在
