《VB程序设计》计算机水平等级考试样题及参考答案

《《VB程序设计》计算机水平等级考试样题及参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、全国高等学校计算机水平考试《VisualBasic程序设计》考试样题（一）、理论题（20分，每小题1分）1.在正常安装VisualBasic6.0后，可以通过多种方式启动VisualBasic。以下方式中不能启动VisualBasic的是：____D____A)通过“开始”菜单中的“程序”命令B)通过“我的电脑”找到vb6.exe，双击该文件名C)通过“开始”菜单中的“运行”命令D)进入DOS方式，执行vb6.exe文件2.每当窗体失去焦点时会触发的事件是___C____A)ActiveB)DeactiveC)LostFocusD

2、)Initialize3.为了同时改变一个活动控件的高度和宽度，正确的操作是：___B_____A)拖拉控件4个角上的某个小方块B)只能拖拉位于控件右下角的小方块C)只能拖拉位于控件左下角的小方块D)不能同时改变控件的高度和宽度4.假定窗体的名称为Form1，对该窗体编写如下代码：PrivateSubForm_Load()Form1.Caption=”AAAAA”Me.Caption=”BBBBB”Caption=”CCCCC”EndSub程序运行后，窗体的标题是__C___A）AAAAAB）BBBBBC）CCCCCD）显示出错信

3、息5.__A___属性设置窗体中文本和图形的背景颜色A）BackColorB）ColorC）TextD）ForeColor6.为了防止用户随意将光标置于控件上，应该__D__A)将控件的TabIndex属性设置0B)将控件的TabStop属性设置为0C)将控件的TabStop属性设置为FalseD)将控件的Enabled属性设置为False7.语句Z=y+1代表___A______A）变量Z取得y+1的值B）变量Z取得变量y的值，然后再加上1的一个表达式C）将变量Z存入变量y中，再加上1的表达式D）将变量Z存入变量y+1中8.下列

4、程序的运行结果是_____A____A=5B=-5C=NOTA=BPRINTCA）TrueB）-5C）0D）无法输出9.在窗体上画一个命令按钮（名称为Command1）编写如下事件过程：PrivateSubCommmand1_Click()b=1c=3printa=b+cEndSub程序运行后，单击命令按钮，输出的结果是_D___A）a=3B）a=b+cC）3D）False10.设有如下的程序段：a$=”BeijingShanghai”b$=Mid(a$,instr(a$,”g”)+1)执行上面的程序段后，变量b$的值为__B__

5、__A）BeijingB）ShanghaiC）BeijingShanghaiD）显示出错信息11.下列语句的输出结果是_C___a=sqr(3.61)PrintFormat(a,”000.000”)A）1.900B）1.9C）001.900D）001.912.执行下面的代码，在图片框中显示的是___B___PrivateSubCommand_Click()Picture1.print“Bbb”EndSubA)名为”Bbb”的图形文件B)文本”Bbb”C)不显示任何信息D)出错13.在VB中，下列_C__控件属于容器控件A）Grid

6、B）TextBoxC）FrameD）CheckBox14.下列程序的输出结果是__C___PrivateSubCommand1_Click()ForI=1to3Printchr(Asc(“a”)+I-1)NextEndsubA)ABCB)979899C)abcD)bcd15.设a=10，则执行x=iif(a>7,-1,0)后，x的值是_D_A）7B）10C）0D）-116.阅读程序：Functionfunc(nAsInteger)AsIntegerSum=0ForI=1tonSum=Sum+(I+1)*INextIFunc=Sum

7、EndFunctionPrivateSubCommand1_Click()DimaAsIntegera=3s=func(a)printsEndSub程序运行后，单击命令按纽，输出结果为：_B___A）15B）20C）8D）3017.假设在窗体上已经添加了通用对话框CommonDialog控件并设置好属性，其名称是CommonDialog1，在程序中要显示“打开”对话框，使用语句是：_A___A）CommonDialog1.Action=1B）CommonDialog1.Action=2C）CommonDialog1.Action=

8、3D）CommonDialog1.Action=418.在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：PrivateSubfunc(Laslabel,ByValaAsinteger)L