欢迎来到天天文库
浏览记录
ID:38668799
大小:95.00 KB
页数:11页
时间:2019-06-17
《广东药学院-VB练习五》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、练习五一、单选题1、(C)字节称为一个MB。(A)1024(B)1000K(C)1024*1024(D)10000K2、计算机硬件系统的五大部件是(B)。 (A)CPU、内存储器、输入设备、输出设备、外存储器 (B)运算器、控制器、存储器、输出设备、输入设备 (C)CPU、总线、存储器、外设、主板 (D)主机箱、显示器、音箱、鼠标、键盘3、常用的输入设备有(A)。 (A)键盘、鼠标、扫描仪(B)显示器、键盘、鼠标 (C)打印机、扫描仪、键盘(D)触摸屏、打印机、鼠标4、计算机网络的主要作用是(D)。(A)数据处理(B)信息传输与数据处理(C)文献查询(D)资源共享与信息
2、传输5、二进制数1010等于十六进制数(C)。(A)10(B)11(C)A(D)B6、在VB中要强制显式声明变量,可在窗体模块或标准模块的声明段中加入语句(B)。(A)OptionBase0(B)OptionExplicit(C)OptionBase1(D)OptionCompare7、下列程序段的执行结果为(D)。J1=10J2=30IfJ13、False#9、在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是(B)。(A)PrivateSubText1_LostFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)EndSub(B)PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)EndSub(C)PrivateSubText1_SetFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub(4、D)PrivateSubText1_Change()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub10、设用复制、粘贴的方法建立了一个单选按钮数组Option1,以下对该数组的说法错误的是(C)。(A)所有单选按钮的Caption属性都是Option1(B)单选按钮的大小都相同(C)在代码中访问任意一个单选按钮只需使用名称Option1(D)单选按钮共享相同的事件过程11、下面过程说明语句中合法的是(B)。(A)Subf1(ByValn()AsInteger)(B)Functionf1(ByValnAsInteger)(C)Funct5、ionf1(f1AsInteger)AsInteger(D)Subf1(n()AsInteger)AsInteger12、Cls方法可清除窗体或图片框中的(C)信息。(A)Picture属性设置的背景图案(B)在设计时放置的控件(C)程序运行时产生的图形和文字(D)以上都对13、在窗体中右击鼠标能弹出菜单test的是(A)。(A)SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenutestEndSub(B)SubForm_MouseDown(ButtonAsInt6、eger,ShiftAsInteger,XAsSingle,YAsSingle)PopupMenutestEndSub(C)SubForm_Click()PopupMenutestEndSub(D)SubForm_DblClick()PopupMenutestEndSub14、下列符号常量的声明中,(C)是不合法的。(A)ConstaAsSingle=1.1(B)ConstaAsInteger="12"(C)ConstaAsDouble=Sin(1)(D)Consta="OK"15、下列程序段的执行结果为(B)。DimS(9)Fori=0To9S(i)=3*INextiPrintS(S(3))7、(A)12(B)27(C)0(D)出错16、下列数组声明正确的是(D)。(A)n=5Dima(1ton)AsInteger(B)Dima(10)AsIntegerReDima(1to12)(C)Dima()AsSingleReDima(3,4)AsInteger(D)Dima()AsIntegern=5ReDima(1ton)AsInteger17、下列控件中,没有Caption属性的是(B)。(
3、False#9、在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是(B)。(A)PrivateSubText1_LostFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)EndSub(B)PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.text)EndSub(C)PrivateSubText1_SetFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub(
4、D)PrivateSubText1_Change()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub10、设用复制、粘贴的方法建立了一个单选按钮数组Option1,以下对该数组的说法错误的是(C)。(A)所有单选按钮的Caption属性都是Option1(B)单选按钮的大小都相同(C)在代码中访问任意一个单选按钮只需使用名称Option1(D)单选按钮共享相同的事件过程11、下面过程说明语句中合法的是(B)。(A)Subf1(ByValn()AsInteger)(B)Functionf1(ByValnAsInteger)(C)Funct
5、ionf1(f1AsInteger)AsInteger(D)Subf1(n()AsInteger)AsInteger12、Cls方法可清除窗体或图片框中的(C)信息。(A)Picture属性设置的背景图案(B)在设计时放置的控件(C)程序运行时产生的图形和文字(D)以上都对13、在窗体中右击鼠标能弹出菜单test的是(A)。(A)SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenutestEndSub(B)SubForm_MouseDown(ButtonAsInt
6、eger,ShiftAsInteger,XAsSingle,YAsSingle)PopupMenutestEndSub(C)SubForm_Click()PopupMenutestEndSub(D)SubForm_DblClick()PopupMenutestEndSub14、下列符号常量的声明中,(C)是不合法的。(A)ConstaAsSingle=1.1(B)ConstaAsInteger="12"(C)ConstaAsDouble=Sin(1)(D)Consta="OK"15、下列程序段的执行结果为(B)。DimS(9)Fori=0To9S(i)=3*INextiPrintS(S(3))
7、(A)12(B)27(C)0(D)出错16、下列数组声明正确的是(D)。(A)n=5Dima(1ton)AsInteger(B)Dima(10)AsIntegerReDima(1to12)(C)Dima()AsSingleReDima(3,4)AsInteger(D)Dima()AsIntegern=5ReDima(1ton)AsInteger17、下列控件中,没有Caption属性的是(B)。(
此文档下载收益归作者所有