2004年9月二级VB技术笔试试卷及答案(1)_计算机二级考试

标签：计算机二级考试真题,国家计算机二级考试,计算机二级考试试题,http://www.gaofen123.com 2004年9月二级VB技术笔试试卷及答案(1),

　　 (14) 表达式 5 mod 3+3\5*2的值是

　　 a) 0 b) 2 c) 4 d) 6

　　 (15) 设x=4,y=8,z=7，以下表达式的值是

　　 x z) or z

　　 a) 1 b) -1 c) true d) false

　　 (16) 在窗体上画一个名称mand1的命令按钮，然后编写如下事件过程：

　　 private submand1_click()

　　 a$="visualbasic"

　　 print string(3,a$)

　　 end sub

　　程序运行后，单击命令按钮，在窗体上显示的内容是

　　 a) vvv b) vis c) sic d) 11

　　 (17) 设有如下程序段：

　　 x=2

　　 for i=1 to 10 step 2

　　 x=x+i

　　 next

　　运行以上程序后，x的值是

　　 a) 26 b) 27 c) 38 d) 57

　　 (18) 以下叙述中错误的是

　　 a) 在keypress事件过程中不能识别键盘的按下与释放

　　 b) 在keypress事件过程中不能识别回车键

　　 c) 在keydown和keyup事件过程中,将键盘输入的"a"和"a"视作相同的字母

　　 d) 在keydown和keyup事件过程中,从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

　　 (19) 执行如下两条语句，窗体上显示的是

　　 a=9.8596

　　 print format(a,"$00,00.00")

　　 a) 0,009.86 b) $9.86 c) 9.86 d) $0,009.86

　　 (20) 在窗体上画一个名称manddialog1的通用对话框，一个名称mand1的命令按钮。然后编写如下事件过程：

　　 private submand1_click()

　　mondialog1.filename =""

　　mondialog1.filter="all file|*.*|(*.doc)|*.doc|(*.txt)|*.txt"

　　mondialog1.filterindex=2

　　mondialog1.dialogtitle="vbtest"

　　mondialog1.action=1

　　 end sub

　　对于这个程序，以下叙述中错误的是

　　 a) 该对话框被设置为“打开”对话框

　　 b) 在该对话框中指定的默认文件名为空

　　 c) 该对话框的标题为vbtest |]bqao XJ [ it认证全国计算机等级考试 ] |]bqao XJ

　　 d) 在该对话框中指定的默认文件类型为文本文件(*.txt)

www.gaofen123.com

　　 end if

　　 next i

　　 print sum

　　 end sub

　　程序运行后，单击窗体，输出结果为

　　 a) 13 b) 14 c) 27 d) 15

　　 (26) 在窗体上画一个名称为file1的文件列表框，并编写如下程序：

　　 private sub file1_dblclick()

　　 x=shell(file1.filename,1)

　　 end sub

　　以下关于该程序的叙述中，错误的是

　　 a) x没有实际作用，因此可以将该语句写为：call shell(file1,filename,1)

　　 b) 双击文件列表框中的文件，将触发该事件过程

　　 c) 要执行的文件的名字通过file1.filename指定

　　 d) file1中显示的是当前驱动器、当前目录下的文件

　　 (27) 在窗体上画一个名称为label1、标题为“visualbasic考试”的标签，两个名称分别mand1mand2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为timer1的计时器控件，并把其interval属性设置为500，如图所示。

　　编写如下程序：

　　 private sub form_load()

　　 timer1.enabled=false

　　 end sub

　　 private submand1_click()

　　 timer1.enabled=true

　　 end sub

　　 private submand2_click()

　　 timer1.enabled=false

　　 end sub

　　 private sub timer1_timer()

　　 if label1.left

　　 label1.left = label1.left + 20

　　 else

　　 label1.left=0

　　 end if

　　 end sub

　　程序运行后单击“开始”按钮，标签在窗体中移动。

　　对于这个程序，以下叙述中错误的是

　　 a) 标签的移动方向为自右向左

　　 b) 单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

　　 c) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动

　　 d) 标签按指定的时间间隔移动

　　 (28) 执行以下程序段 it认证全国计算机等级考试

　　 a$="abbacddcba"

　　 for i=6 to 2 step -2

　　 x=mid(a,i,i)

　　 y=left(a,i)

　　 z=right(a,i)

　　 z=ucase(x %26 y %26 z)

　　 next i

　　 print z

　　输出结果为

　　 a) aba b) bbabba c) abbaba d) aabaab

　　 (29) 在窗体上画一个名称mand1的命令按钮，然后编写如下程序：

　　 option base 1

　　 private submand1_click()

　　 dim a as variant

　　 a=array(1,2,3,4,5)

　　 sum=0

　　 for i=1 to 5

　　 sum = sum+a(i)

　　 next i

　　 x=sum/5

　　 for i =1 to 5

　　 if a(i)>x then print a(i);

　　 next i

　　 end sub

　　程序运行后，单击命令按钮，在窗体上显示的内容是

　　 a) 1 2 b) 1 2 3 c) 3 4 5 d) 4 5

　　 (30) 假定一个工程由一个窗体文件form1和两个标准模块文件model1及model2组成。

　　 model1代码如下：

　　 public x as integer

　　 public y as integer

　　 sub s1()

　　 x =1

　　 s2

　　 end sub

　　 sub s2()

　　 y=10

　　 form1.show

　　 end show

　　 model2的代码如下：

　　 sub main()

€]7?;e[ it认证全国计算机等级考试 )€]7?;e

　　 s1

　　 end sub

　　其中sub main被设置为启动过程。程序运行后，各模块的执行顺序是

　　 a) form1→model1→model2 b) model1→model2→form1

　　 c) model2→model1→form1 d) model2→form1→model1

www.gaofen123.com

　　 if r = then

　　 n1 = n1 + 1

　　 else

　　 n2 = n2 + 1

　　 end if

　　 next

　　 text2.text = n1

　　 text3.text = n2

　　 end sub

　　 (5) 阅读程序：

　　 option base 1

　　 private sub form_click()

　　 dim a(3) as integer

　　 print "输入的数据是：";

　　 for i = 1 to 3

　　 a(i)=inputbox("输入数据")

　　 print a(i);

　　 next

　　 print

　　 if a(1)

　　 t = a(1)

　　 a(1) = a(2)

　　 a(2) =

　　 end if

　　 if a(2)>a(3) then

　　 m = a(2)

　　 elseif a(1)>a(3) then

　　 m =

　　 else

　　 m =

　　 end if

　　 print "中间数是：";m

　　 end sub

　　程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。

　　 (6) 在窗体上画一个名称为mand1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为label1的控件数组;名称为label2的标签用于显示计算结果，其caption属性的初始值为空；标签label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在label2。请填空。

　　 private submand1_click()

　　 sum = 0

　　 for i = 0 to 4

　　 sum = sum +

　　 next

　　 = sum

　　 end sub

　　 (7) 在窗体上画两个名称分别mand1mand2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。

　　 option base 1

　　 dim a(3,2) as integer

　　 private submand1_click()

　　 for i = 1 to 3

　　 for j = 1 to 2

　　 = i + j

　　 next j

　　 next i

　　 end sub

　　 private submand2_click()

　　 for j = 1 to 3

　　 for i = 1 to 2

　　 s = s +

　　 next i

　　 next j

　　 text1.text =

　　 end sub

本文共4页： www.gaofen123.com

　　 label2.caption

　　 a(i,j)

　　 a(j,i)
s

上一篇：2003|2009年4月全国计算机等级考试二级visualBasic笔试试卷（含答案）(1)

计算机二级考试

2004年9月二级VB技术笔试试卷及答案(1)

+《2004年9月二级VB技术笔试试卷及答案(1)》相关文章

相关分类

计算机二级考试更新

计算机二级考试热门排行