《计算机二级模拟试题(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中不是空格串,并且在