搜索
1、求一个三位正数N的十位数的正确方法是___C___。A、lnt（N/10)-lnt(N/100)B、N-lnt(N-1000)*100C、n\10Mod10D、lnt(N/10)-lnt(N/10)*102、表达式(-1)*Sgn(-100+Int(Rnd*100))的值是___A___。A、1B、0C、-1D、随机3、在程序中分别将变量IntA、Bl、st和D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行时会出错的是_A___。A、Bl=#True#B、st=C、D=#10/05/01#D、Inta=4.64、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是__B______。A、AppearanceB、StretchC、AutoredrawD、Autosize5、使用___C____方法可将新的列表项添加到一个列表框中。A、ClearB、AddItemC、PrintD、RemoveItem6、下列____B____不是列表框的方法。A、ClearB、AddItemC、PrintD、RemoveItem7、执行下列程序段，输出结果为____B______。Dima(10)AsIntegerDimiAsIntegerFori=1To10a(i)=2*i-1NextiPrinta(4);EraseaPrinta(4)A、出错B、70C、44D、779、执行下列程序段，输出结果为_____B_____。Dima()AsIntegerDimiAsIntegerReDima(10)Fori=1To10a(i)=2*i-1NextiPrinta(4);EraseaPrinta(4)A、70B、出错C、77D、4410、执行下面的程序，输出结果是_____A______。OptionExplicitPrivateSubForm_Click()DimMAsInteger,NAsIntegerM=1:N=2PrintM+N+F(M,N)M=2:N=1PrintF(M,N)+F(M,N);EndSubPrivateFunctionF(XAsInteger,YAsInteger)X=X+YY=X+3F=X+YEndFunctionA、1830B、918C、718D、4911、窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用PublicKAsInteger,DimKAsInteger声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用________C___。A、Form1.KB、Form.KC、Frm1.kD、K12、一个工程中含有窗体Form1.Form2和标准模块Model1，如果在Form1中有语句PublicXAsInteger在Model1中有语句PublicYAsInteger则以下叙述中正确的是BA、变量X.Y的作用域相同B、在From1中可以直接使用XC、Y的作用域是Model1D、在Form2中可以直接使用X和Y13、VB是一种面向___C_____的程序设计语言。A、过程B、用户C、对象D、方法14、以下叙述中错误的是___D_____。A、事件可以由用户引发，也可以由系统引发B、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件C、保存VisualBasic程序时，应分别保存窗体文件及工程文件D、VisualBasic应用程序只能以解释方式执行15、VB是用于开发____A__环境下的应用程序的工具。A、WindowsB、DOSC、DOS和WindowsD、UNIX16、为了建立一个随机文件，其中每一条记录由多个不同数据类型的数据项组成，应使用____C_______。A、字符串类型B、数组C、记录类型D、变体类型17、下面关于随机文件的描述不正确的是___A________。A、一个文件中记录号不必唯一B、每条记录的长度必须相同C、可通过编程对文件中的某条记录方便地修改D、文件的组织结构比顺序文件复杂18、以下关于文件的叙述中，错误的是_____B______。A、顺序文件中的记录一个接一个地顺序存放B、随机文件中记录的长度是随机的C、LOF函数返回给文件分配的字节数D、执行打开文件的命令后，自动生成一个文件指针20、执行以下语句后，a的值为___C_____。DimaAsIntegera=1Doa=a+2LoopUntila=100A、101B、100C、溢出D、9922、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：PrivateSubCommand1_Click()A=Inputbox(EnterAnInteger)B=Inputbox(EnterAnInteger)Text1.Text=B+AEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是____C___。A、出错B、60C、564D、45623、执行语句：A=Inputbox(Today,Tomorrow,Yesterday)将显示一个输入对话框，在对话框的输入区中显示的信息是____C__。A、TomorrowB、TodayC、Yesterday26、下列程序段的执行结果是___A____。X=2Y=1IfX*Y1ThenY=Y-1ElseY=-1PrintY-X0A、FalseB、TrueC、-1D、127、在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：PrivateSubCommand1_Click()N=Text1.TextSelectCaseNCase1To20X=10Case2,4,6X=20CaseIs10X=30Case10X=40EndSelectText2.Text=XEndSub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是D____。A、20B、30C、40D、1028、设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是___A_____。A、Menu1.Visible=FalseB、Munu1.Enabled=FalseC、Menu1.Visible=TrueD、Menu1.Enabled=True29、以下使用方法的代码中，正确的是__D____。A、Form1.ClearB、Combo1.ClsC、Label1.SetFocusD、Text1.SetFocus30、设有一个命令按钮，若要实现按回车键等同按此键，应设置其__D_______。A、Default属性设为FalseB、Cancel属性设为TrueC、Cancel属性设为FalseD、Default属性设为True32、在用通用对话框控件建立打开或保存文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即.txt文件），则正确的描述格式是__A__。A、文本文件(.txt)|*.txtB、text(.txt)|(*.txt)C、text(.txt)||(*.txt)D、text(.txt)(*.txt)33、在以下4个逻辑表达式中，其逻辑值为真的是__B____。A、not(3+44+6)B、not(12)C、12or23D、21and3234、设A=12345678，则表达式Val(Left(A,4)+Mid(A,4,2))的值为___A___。A、123445B、123456C、8D、635、以下能够触发文本框Change事件的操作是__C______。A、文本框获得焦点B、设置文本框的焦点C、改变文本框的内容D、文本框失去焦点36、VB中可以使用自己定义的Sub过程和Function过程，______D_____过程称为函数，这种过程可以返回值。A、通用B、属性C、事件D、Function37、下面程序段的运行结果为_C_______。DimsAsInteger,iAsIntegeri=1:s=1Doi=i+sLoopUntils10Printi,sA、111B、1110C、溢出D、10138、以下关于窗体的描述中，错误的是____B____。A、窗体的Height、Width属性用于设置窗体的高和宽B、执行UnloadForm1语句后，窗体Form1消失，但仍在内存中C、窗体的Load事件在加载窗体时发生D、当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止39、以下叙述中错误的是____B___。A、下拉式菜单和弹出式菜单都用菜单编辑器建立B、如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见C、除分隔线外，所有菜单项都能接收Click事件D、在多窗体程序中，每个窗体都可以建立自己的菜单系统40、在程序中可以通过复选框和单选按钮的____A___属性值来判断它们的当前状态它。A、ValueB、CaptionC、CheckedD、Selected42、运行如下程序后，输出结果为______。DimiAsInteger,yAsIntegerFori=3To15Step3y=y+ii=i+3NextiPrinti;y答案：212743、如果依次输入75,55,45,70,30,25,40,15,20,5,下列程序段的执行结果为______。DimcAsInteger,kAsInteger,dAsIntegerc=70Fork=11To20x=InputBox(输入X的数值:)IfxcThend=d+x:c=xElsed=d+cEndIfNextkPrintd答案：33046、素互换，第2个元素与第9个元素互换……分别输出数组原来各元素的值和对换后各元素的值。PrivateSubCommand1_Click()Dima(10)AsIntegerDimiAsInteger,jAsIntegerPrint原序列：Fori=1To10a(i)=Int(Rnd*90)+10Printa(i);NextiPrintFori=1To________t=a(i)________________NextiPrint交换后的序列：Fori=1To10Printa(i);NextiPrintEndSub答案：第一空：5第二空：[NY]a(i)=a(11-i)第三空：[NY]a(11-i)=t47、执行以下程序段，则第一行输出结果是_______，第二行输出结果是_______。Dima(-3To5)AsSingleDimb(3,4)AsIntegerPrintUBound(a),UBound(b,1)PrintLBound(a),LBound(b,2)答案：第一空：53第二空：[NY]-3048、设有数组声明语句：DimA(-1To2,-1To1)AsLong，则数组A在内存中所占的字节数为______。答案：4849、顺序文件通过PRINT语句或__________语句把缓冲区中的数据写入磁盘。答案：WRITE52、假设递归函数fact(n)用来求n的阶乘，请补充程序。PrivateFunctionfact(nAsInteger)AsLongIfn=0Orn=1Thenfact=1Elsefact=___________EndIfEndFunction答案：n*fact(n-1)54、执行以下程序，单击命令按钮后，如果在弹出的对话框中单击是按钮，则窗体上的输出内容是_______。PrivateSubCommand1_Click()DimaAsIntegera=MsgBox(非法数据！&Chr(13)&Chr(10)&请重新输入,vbYesNo+vbCritical,提示信息)PrintaEndSub答案：655、运行下列程序，单击命令按钮后，在窗体上输出结果为______。OptionBase1PrivateSubC