下载

0下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB 编程语言

VB 编程语言.doc

VB 编程语言

wqertjkl
2017-10-16 0人阅读 举报 0 0 0 暂无简介

简介:本文档为《VB 编程语言doc》,可适用于活动策划领域

VB编程语言一、单选题(分每小题分)(下列软件中是操作系统。AWindowsBInternetExplorerCWPSDVisualBasic(鼠标属于计算机中的。A中央处理器B存储器C输入设备D输出设备(下列表示存储容量的数据中是最大的。(A)KB(B)MB(C)GB(D)Byte(十进制数转换为二进制是。ABCD(WINDOWS中扩展名为的文件不是图形文件。AJPGBEXECBMPDICO(在一个多窗体的工程中如果有一个自定义函数需要被多个窗体调用则此函数的定义可保存在一个类型的文件中。AVBPBBASCFRMDOCX(下列可作为VB的变量名。AAampABprintCABDConst(下列对象中不能作为放置其他控件的容器。A窗体B文本框C图片框D框架(以下语句中能在窗体的标题栏中显示“VisualBasic窗体”。AFormTitlequotVisualBasic窗体quotBFormNamequotVisualBasic窗体quotCFormCaptionquotVisualBasic窗体quotDFormTextquotVisualBasic窗体el。列表框中显示若干城市quot(设窗体中有一个列表框Listt和一个标签Lab名称单击某个城市名时标签中显示选中的城市名称。以下事件过程能实现该功能。APrivateSubListClickBPrivateSubListClickLabelCaptionListListIndexLabelTextListListIndexEndSubEndSubCPrivateSubListClickDPrivateSubListClickLabelTextListTextLabelCaptionListTextEndSubEndSub(窗体中有一个命令按钮Command。运行下列程序。PrivateSubCommandClickDimcityAs时单击命令按钮则窗体中显示StringcityArrayquot北京quotquot上海quotquot南京quotquot广州quotPrintcityEndSubA空白B北京C上海D出现错误提示(窗体中有一个命令按钮Command。运行下列程序单击命令按钮窗体中显示。DimXAsIntegerYAsInteger通用声明PrivateSubProcByValaAsIntegerByValbAsIntegerXaaYbbEndSubPrivateSubCommandClickX:YCallProcXYPrintXYEndSubABCD(在以下过程中Public表示。PublicSubFxAsInteger……EndSubA此过程可以被任何其它过程调用B此过程只可以被本窗体模块中的其它过程调用C此过程不可以被任何其它过程调用D此过程只可以被本工程中的其它过程调用(执行下面这段代码时窗体中将会显示。nForiTonxForjToixxNextjNextiPrintxABCD下面的程序段中(需要将字符串S颠倒过来逆序排列形成字符串T如将“ABCD”变成“DCBA”不能实现该功能。AsquotABCDquot:tquotquotBsquotABCDquot:tquotquotForiToLensForiToLensttMidsLensitMidsitNextiNextiCSquotABCDquot:TquotquotDSquotABCDquot:TquotquotForiLenSToStepForiLenSToStepTTMidSiTMidSiTNextiNexti(下列函数中的值与其它三个不一样。AValquotquotBAbsCIntDSin(设有如下程序运行时单击命令按钮则文本框中显示。SubFaByValxAsIntegerPrivateSubCommandClickForiToDimarrnAsIntegerxxaiForiToNextiarriiEndSubNextinCallFarrnTextTextnEndSubABCD(以下程序段中能正确地计算并显示的阶乘。An:xBn:x:iDoDoxxixxiiiiiLoopWhileiltnLoopWhileiltnPrintxPrintxCn:x:iDn:xDoForinToxxixxiiiNextiLoopWhileiltnPrintxPrintx(执行如下程序单击命令按钮次则标签LabelLabelLabel中分别显示。PrivateSubCommandClickStaticyAsIntegerDimzAsIntegernznz:yyz:xxzLabelCaptionxLabelCaptionyLabelCaptionzEndSubABCD(需要将字符串S数组b中的各个元素逆序排列下面的程序段可实现该功能。AForiToBForiTotmpbitmpbibibibibibitmpbitmpNextiNextiCForiToDForiTotmpbitmpbibibibibibitmpbitmpNextiNexti(设组合框Combo中有个项目则可删除其中最后一项。AComboRemoveItemComboTextBComboRemoveItemComboIndexCComboRemoveItemComboListIndexDComboRemoveItemComboListCount(执行下列程序段文本框Text中显示。nIntRndSelectCasenCaseToxCasexCaseIsltxCasexEndSelectTextTextxABCD(以下关系表达式中的值为False。AquotABCquotgtquotAbcquotBquotthequotltgtquottheyquotCquotVISUALquotUCasequotUisualquotDquotIntegerquotgtquotIntquot(窗体中有命令按钮Command并已编写下列代码。运行程序时单击命令按钮窗体显示。FunctionFmAsIntegerPrivateSubCommandClickIfmModThenDimiAsIntegerFmSElseForiToFSSFiEndIfNextEndFunctionPrintSEndSubABCD(设有如下代码关于它的叙述是正确的。PrivateTypeanimalEndTypeANameAsStringAColorAsStringrecANamequotElephantquotrecAColorquotBlackquotPrivateSubCommandClickPutrecDimrecAsanimalCloseOpenquotc:vbtestdatquotForRandomEndSubAsLenLenrecA记录类型animal不能在窗体中定义只能在标准模块中定义所以运行会发生错误B如果文件c:vbtestdat不存在则运行Open命令时发生错误C由“Put于Put命令没有指定记录号因此每次写文件时都把记录写在文件尾D语句rec”的作用是把animal类型的两个数据元素写入文件(以下关于菜单的叙述中是错误的。A下拉菜单和弹出式菜单都用菜单编辑器建立B在多窗体工程中每个窗体都可是以有自己的菜单C除分隔线外所有的菜单项都能接收Click事件D如果把一个菜单项的Enabled属性设置为False则该菜单项不可见(窗体中有如下事件过程如果希望运行时窗体显示如右图的形式请选择适合的表达式完善程序。ccTrimStrcForiToPrintNextARightciBLeftciCMidciDMidcii(下面这段程序的功能是。nValTextTextForiTonForjToSqriIfiModjThenExitForNextjIfjgtSqriThenPrintiNextiA输出n以内的奇数B输出n以内的偶数C输出n的所有数的阶乘D输出n以内的素数(窗体中有个名为Command的命令按钮如图下标从开始从上到下顺序增大。启动窗体时这个命令按钮从上到下分别显示。PrivateSubFormLoadForiToCommandiCaptionCommandiIndexNextiEndSubABCD出错(窗体中有一个通用对话框CommonDialog和一个命令按钮Command并有以下代码。关于这段程序功能的描述错误的是。PrivateSubCommandClickCommonDialogFilterquotAllFileWordDocumentsdocTextDocumentstxtquotCommonDialogInitDirquotD:quotCommonDialogActionEndSubA产生一个“打开文件”对话框B在这个对话框中只能选择打开Word文档或文本文件C对话框中初始的路径是D盘的根目录D这个对话框不能真正实现保存文件的功能二、填空题(分每空分请在答题纸上标明每个空的编号)(函数Sin的值为。(VB中数据文件根据对文件的访问方式分为类即顺序文件、和二进制文件。(执行下面这段程序后窗体中显示和。sForiToStepssNextiPrintsi(图片框Picture中已显示一张图片d:picjpg单击命令按钮时希望清除该图片使图片框显示为空白完成下面的代码。PrivateSubCommandClickEndSub(下面这段程序要在窗体显示个间的随机整数求这些数的和并显示其中的倍数请完成程序。ForiToxIntIfNextiPrintquot总和:quots(下面的程序可根据用户所输入的数在一个数组中查找相应的下标完成程序。DimarriMAsarrArrayMValInputBoxquot要查找的数quotForiIfarriMThenNextiPrintquot下标是:quotk(窗体中有一个标签Label和一个时钟控件Timer。开始运行程序时窗体显示如图a单击窗体后显示如图b其中的时钟每秒更新一次显示当前时间。请填空完成程序代码。PrivateSubFormLoadTimerEnabledTimerEndSubaPrivateSubFormClickTimerEnabledTrueEndSubPrivateSubTimerTimerbEndSub(窗体中有一个文本框Text其MultiLine属性值为True执行下列程序将文件ttxt的内容显示在文本框中请完善程序。PrivateSubCommandClickDimaspectWholeOpenquotf:ttxtquotForDoWhileNotEOFLineInputWholeWholeaspectChrChrLoopTextTextWholeEndSub(窗体中有文本框Text标签Label和命令按钮Command并有如下两段事件过程:PrivateSubCommandClicksInputBoxquot请输入一串字符quotTextTextsEndSubPrivateSubTextChangeLabelCaptionUCaseMidTextTextEndSub运行时单击命令按钮在输入框中输入字符串“VisualBasic”确定后标签显示。ab(把数学式改写成VB表达式:。lna(一个数组中有个元素对它进行冒泡排序元素进行交换次。(窗体中有文本框Text、列表框List和标签的次数最大可能是Label程序运行时列表框中显示若干人的简单信息。在文本框中输入姓或姓名并回车在列表框中查找相符的人的情况找到时在标签中显示查找结果(如图a)如果列表框中没有相符的项目则显示相应的提示信息(如图b)。填空完成下面的程序。PrivateSubTextKeyAsciiAsIntegerDimkAsIntegernAsIntegerFoundAsBooleanIfKeyAsciiThenFoundLenTrimTextTextForkToListListCountIfTextTextLeftListListinThenLabelCaptionaFoundTrueEndIfNextkIfNotFoundThenEndIfEndSub三、编程题(分每小题分请在答题纸上b标明题号)(随机产生个正整数求其中的最小值并将原始数据和最小值显示在窗体中。(窗体中有一个文本框Text、两个标签Label和Label、一个垂直滚动条Vscroll。点击滚动条可使文本框中显示之间的一个正整数n标签Label中立刻显示~~…n的值。运行界面如图。编写完整的事件过程完成以上功能。一、单选题(每空分共分)ACCABBBBCDDCDADDACBBDAACCDBDAA说明:第()题内容不准确答D也可算对第()题由于打印错误答AC均对第()题题目错误答AB均对。二、填空(每空分共分)答给随机文件分PicturePictureLoadPicturequotquotRnd或其他等价的表ssx达式xModThenPrintx条件可表达为IntxIntx

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

评分:

/10

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利