2016年计算机二级visual basic在线学习

《2016年计算机二级visual basic在线学习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、手机、ipad、电脑三位一体学习模式www.zhikaobaodian.com2016年计算机二级VisualBasic在线学习《职考宝典》2016年计算机等级考试软件题库包含：计算机一级、二级、三级、四级，wpsb/ms/ps/c语言access/office等所有科目，真题最多，可模拟考试，请到《职考宝典》官网免费下载试用：www.cctianyu.com(复制网址到浏览器打开)。1.设有如下程序段：　　x=2　　Forc=1To4Step2　　x=x+c　　Nextc　　运行以上程序后，x的值是(A)(单)　　A.6　　B.

2、7　　C.8　　D.9　　2.以下叙述中错误的是(A)(单)　　A.在KeyPress事件过程中不能识别键盘键的按下与释放　　B.在KeyPress事件过程中不能识别回车键　　C.在KeyDown和KeyUp事件过程中，从键盘输入的字母"A"和字母"a"对应的KeyCode视作相同的字母手机、ipad、电脑三位一体学习模式www.zhikaobaodian.com　　D.在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符　　3.执行如下两条语句，窗体上显示的是(C)(单)　　

3、A=9.8596　　PrintFormat(a,"000.00")　　A.0,009.86　　B.9.86　　C.009.86　　D.0,009.86　　4.在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：　　PrivateSubCommand1_Click()　　CommonDialog1.FileName=""CommonDialog1.Filter="Allfile

4、*.*

5、(*.Doc)

6、*.Doc

7、(*.Txt)

8、*.Txt"　　CommonDia

9、log1.FilterIndex=1　　CommonDialog1.DialogTitle="VBTest"　　CommonDialog1.Action=1　　EndSub　　对于这个程序，以下叙述中错误的是(D)(单)　　A.该对话框被设置为"打开"对话框　　B.在该对话框中指定的文件名为空手机、ipad、电脑三位一体学习模式www.zhikaobaodian.com　　C.该对话框的标题为VBTest　　D.在该对话框中指定的默认文件类型为文本文件(*.Txt)　　5.设一个工程由两个窗体组成，其名称分别为Form1和Form

10、2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：　　PrivateSubCommand1_Click()　　DimaAsInteger　　a=10　　Callg(Form2,a)　　EndSub　　PrivateSubg(fAsForm,xAsInteger)　　y=Iif(x>10,100,-100)　　f.Show　　f.Caption=y　　EndSub　　运行以上程序，正确的结果是(B)(单)　　A.Form1的Caption属性值为100　　B.Form2的Caption属性值为-

11、100　　C.Form1的Caption属性值为-100　　D.Form2的Caption属性值为100　　6.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：手机、ipad、电脑三位一体学习模式www.zhikaobaodian.com　　PrivateSubCommand1_Click()　　DimxAsInteger　　StaticyAsInteger　　x=10　　y=5　　Callf1(x,y)　　Printx,y　　EndSub　　PrivateSubf1(ByRefx1AsInteger,y1AsIn

12、teger)　　x1=x1+2　　y1=y1+2　　EndSub　　程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)　　A.105　　B.125　　C.107　　D.127　　7.OptionBase1　　PrivateSubCommand1_Click()　　Dima(10)AsInteger　　DimnAsInteger　　n=3手机、ipad、电脑三位一体学习模式www.zhikaobaodian.com　　Ifn<10Then　　CallGetArray(a,n)　　EndIf　　EndSub　　PrivateS

13、ubGetArray(b()AsInteger,nAsInteger)　　Dimc(10)AsInteger　　j=0　　Fort=1Ton　　b(t)=Rnd*100　　Ifb(t)/2=b(t)2Then　　j=j+1　　c(j)=b(t)