Vb模拟试卷

Vb模拟试卷选择题（50分）1.Dimb1,b2asboolean语句显式声明变量（C）。a)b1和b2都是布尔型变量b)b1是整形变量，b2是布尔型变量b1是变体型变量，b2是布尔型变量b1和b2都是变体型变量2.将定时器的时间间隔设置为1秒，则定时器的interval属性值应为（A）。a)1000b)1c)100d)103窗体form，框架frame，图片框picture，图象框image中（D）是容器控件。a)imageformframeb)framepictureimagec)pictureimageformd)formframepicture4下列关于变量的说法不正确的是（D）。局部变量是指那些在过程中用DIM或STATIC语句声明的变量。局部变量的作用域仅限于声明它的过程。静态局部变量是在过程中用STATIC语句生明的。局部变量在声明它的过程执行完毕后就被释放了。5．下列可以将变量A和B的值互换的语句是（B）。a)A=B：B=Ab)A=A+B：B=A-B：A=A-Bc)A=C：C=B：B=Ad)A=（A+B）/2：B=（A-B）/26.以下程序代码能执行的是（D）。A)ifa=1thenb=0elsec=0endififa=1then：b=0：elseifc=0then：d=0ifa=1thenD)ifa=1thenb=0b=0elseifc=0elseifc=0thend=0d=0endifendif7.定义数组YARRAY（5,1to5）后，下列哪一个数组元素不存在。（B）a)YArray(1,1)b)YArray(1,0)c)YArray(0,1)d)YArray(5,5)8.在代码：txtStudent.Text=“用户名”中，txtStudent是，Text是，“用户名”是。在代码：txtStudent.SetFocus中，txtStudent是，SetFocus是。(A)对象，属性，值，对象，方法对象，方法，值，对象，属性C．方法，事件，属性，对象，值D．对象，方法，值，对象，事件9表达式“12345”“12345”&“ABC”的值为C。A．“12345ABC”B．“12345”C．TrueD．False10当控件的Enabled属性被设为False时，该控件C。A．不可见，不能响应事件B．变为灰色，但能响应事件C．变为灰色，不能响应事件D.可见并且能响应事件11若应用程序向用户输出信息，在代码中可采用D方式实现。Label1.Caption=“用户信息”Text1.Text=“用户信息”MsgBox“用户信息”以上都对12下面程序，sum是运算（C）表达式的值。PrivateSubCommandl_Click()DimsumAsDouble，s1AsDoubleDimIasinteger,kasdoublesum=0：s1=0：k=1forI=1to3k=k*I‘126s1=s1+k‘1+2+6sum=sum+s1‘1+(1+2)+(1+2+6)nextIprintsumEndSubA）1+(1+2)+(1+2+3)B）1!+2!+3!C）1!+(1!+2!)+(1!+2!+3!)D）(1!+2!)+(1!+2!+3!)13下面程序运行时单击窗体4次，每次输入分别为1，2，3，4时窗体上显示的最后结果是（D）。privatesubForm_click()staticsasintegerdimxasintegerclsx=val(inputbox(“请输入一个正整数”))ifxmod2=0thens=s*xelses=s+xendifprint“s=”+str(s)‘12520endsubA）10B)5C)1D)2014要引用列表框List1最后一项数据应使用（D）。A)List1.List（ListCount）B)List1.List（List1.ListCount）C)List1.List（ListCount-1）D)List1.List（List1.ListCount-1）15在窗体画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))ForI=1To4PrintBNextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在下划线处应填入的内容为A）Right(c1,i)B)Left(c1,i)C)Mid(c1i,1)D)Mid(c1,i,i,)16设在菜单编辑器中建立一个名称为editmenu的主菜单项，Visible属性为False，以下程序实现用鼠标右击窗体，则弹出editmenu菜单。应在处填入（）。PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenAeditmenuEndIfEndSubA)PopupMenuB)ShiftMenuC)PopdownMenuD)ButtonMenu17下面程序运行时单击窗体，则窗体上显示的结果是（D）privatesubForm_click()dimnasinreger，xasstringx=”abcdefghijkl”d=Asc(“r”)-Asc(“R”)n=len(x)：y=””fori=1tonstep2y=Chr(Asc(Mid(x,i,1))-d)+ynextIprintyendsubA)ACEGIKB)acegikC)kigecaD)KIGECA18在窗体画一个名称为Command1的命令按钮，然后编写如下事件过程：Dimxmasstring，zfasintegerprivatesubcommand1_click()open“stu.dat”foras#1dowhileTRUExm=inputbox(“请输入姓名”)ifxm=”end”thenexitdozf=val(inputbox(“请输入总分”))write#1,xm,zfloopclose#1endsub程序运行后，单击命令按钮，向顺序文件stu.dat中添加记录，每条记录包含姓名（字符型）和总分（数值型）两个数据。则在下划线处应填入的内容为（B）A)outputB)appendC)forinputD)forget19在窗体上画四个标签，并用这四个标签建立一个控件数组，名称为Label1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：PrivateSubCommand1_Click()ForEachXlInLabel1Label1(i).caption=Label1(i).Indexi=i+1NextEndSub程序运行后，单击命令按钮，四个标签中显示的内容分别为(A)A）0123B）1234C）0132D）出错信息20在窗体上画一个名称为Text1的的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程PublicFunctionf1(ByRefx)x=x*xf1=x+x‘2*X^2EndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+x‘3*X^2EndFunctionPrivateSubCommand1_Click()n=Val(Text1.Text)Ifn\2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSub程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是(A)A）7236B）10836C）726D）1086二、简单设计题1．设计如图所示窗体Form1，窗体的标题为“字体设置”，在窗体内画一个名称为Label1、的标签，标签透明、文本内容居中显示，其标题为“字体设置示例”。在标签的下方画一个名称为Cb1的组合框，设置适当属性使其成为下拉式列表框，并通过属性窗口向下拉式列表框添加“宋体”、“黑体”、“隶书”三个项目。右边画二个复选框，其中Check1的标题为“粗体”，Check2的标题为“下划线”。编写适当的事件过程，使程序运行后，当单击下拉式列表框中某项时，Label1标题上就显示该项的字体；选中复选框Check1时标签文字效果为粗体，选中复选框Check2时标签文字加下划线。注：程序中不得使用任何变量。在考生文件夹下保存窗体文件名为ziti.frm，工程文件名为zitivbp。…………………………………………………………………………………………………….2．设计如图所示窗体Form1；在窗体Form1左下方置一计时器控件，使每隔1秒钟触发一次计时器事件；按图示添加一个文本框text1；在窗体下方画一个标题为“显示日期”、名称为C1的命令按钮。程序运行时要求：初始显示当前的系统日期，单击“显示日期”按钮在text1上显示的是系统时间，且C1标题改为“显示时间”；单击“显示时间”按钮时在txet1上显示当前日期，且C1标题改为“显示日期”。注：程序中不得使用任何变量。在考生文件夹下保存窗体文件名为jishiqi.frm，工程文件名为jishiqi.vbp。PrivateSubC1_Click()IfC1.Caption=dateThenC1.Caption=timeTimer1.Enabled=TrueElseC1.Caption=dateTimer1.Enabled=FalseText1.Text=DateEndIfEndSubPrivateSubForm_Load()Text1.Text=DateEndSubPrivateSubTimer1_Timer()Text1.Text=TimeEndSub………………………………………………………………………………………………….3.设计如图所示窗体，在窗体Form1上方置一名称为BP的下拉式菜单“基本图形”（含下一级名称为C1的“圆”菜单项；名称为R1的“矩形”菜单项；名称为L1的“直线”菜单项）、及名称为BT的下拉式菜单“图象”（含下一级名称为xs的“显示图片”菜单项和名称为tc的“退出”菜单项）。在窗体内画一个名称为Pic的图形框。程序运行时要求：选择“圆”菜单，在图形框内清屏并画中心为(1000,1000)半径为500的圆，选择“矩形”菜单、在图形框内清屏并画左上角为(100,100)、右下角为(1000,1000)的矩形，选择“直线”菜单项，当在图形框内清屏并画一条对角线；选择“显示图片”菜单，图形框内显示考生文件夹下的earth.ico；选择“退出”菜单，结束程序运行。注：程序中不得使用任何变量。在考生文件夹下保存窗体文件名为caidan.frm，工程文件名为caidan.vbp。三、编程题1、打开考生文件夹下的工程文件CalS.vbp，添加适当的事件代码，实现以下功能：单击按钮，根据公式nnxxxxs1)1(111132计算s的值，直到nnx1)1(≤0.000001为止（X为大于1的整数）。注：若违反下列任何一项，则以0分计⑴不得增、删窗体上的控件；⑵不得删改两行“#################################”之间的代码；⑶编程后，需运行程序，并在运行后关闭程序窗口----------------------------------------------------------------------------------------------------------------------2．打开考生文件夹下的工程Y2.vbp，窗体界面如图所示，编写适当的事件代码，以达到程序运行时的如下功能要求：⑴单击“读入数据”按钮，则读入考生文件夹的yy.txt文件中的6个整数，放入Arr数组中，并显示在文本框控件数组Text1(0)—Text1(5)中。⑵单击“升序排列”按钮，则将Text1(0)—Text1(5)中6个随机整数按自左向右从大到小的顺序重新排列（调用题