可视化程序设计VB模拟题1

1、窗体顶端一、单项选择题：（每小题2分，共24分）1、下列哪个符号能作为VB中的变量名（）。A、AB7B、7ABC、IFD、AB72、“X是小于100的非负数”，用VB表达式表示正确的是（）。A、0x100B、0=X100C、0X OR X100D、0=X AND X1003、数学式子Sin25°写成VB表达式是（）。A、Sin25B、Sin（25°）C、Sin（25）D、Sin（25*3.14/180）4、下列哪组语句可以将变量A、B的值互换（）。A、A=B：B=AB、A=C：C=B：B=AC、A=A+B：B=AB：A=ABD、A=（A+B）/2：B=（A=B）/25、函数

2、Int(Rnd (0)*10)是在哪个范围内的整数（）。A、（0，1）B、（1，0）C、（0，10）D、（1，9）6、一个对象可以执行的动作与可被对象识别的动作分别称为（）。A、事件、方法B、方法、事件C、属性、方法D、过程、事件7、在窗体Form1的Click事件过程中有以下语句：Label1.Caption=“欢迎使用VB”该语句执行后标签控制的名称属性和Caption属性取值分别为（）。A、Label，欢迎使用VBB、Label1，欢迎使用VBC、Label1，Caption D、Label1，Label18、在调用过程时，下述说明正确的是（）。A、只能使用Call语句用Sub过程B、调

3、用Sub过程时，实参必须用括号括起来C、在表达式中调用Function过程时可以不用括号把实参括起来D、Function过程也可使用Call调用9、设S1、S2均为字符串变量，S1=“Visual Basic”S2=“b”，则下面关系表达式中结果为True的是（）。A、len（S2）len（S1）B、Chr（66）&Right（S1，4）=“Basic”C、Left（S1，8）S2D、Mid（S1，8，1）S210、下面哪个关键字是将光标设置到指定的文本框上（）。A、TextB、NameC、selectD、SetFocus11、在用菜单编辑器设计菜单时，必须输入的项有（）。A、快捷键B

4、、标题C、索引D、名称12、定时器的Interval属性以（）为单位指定Timer事件之间的时间间隔。A、分B、秒C、毫秒D、微秒窗体底端二、填空题：（每空1分，共26分）1、VB程序执行的基本方法是由来驱动子程序的运行。2、开发一个VB应用程序的步骤分别是、。3、在VB程序中，工程项目文件的扩展名为，窗体文件的扩展名为，模块文件的扩展名为，用户控件文件的扩展名为，执行文件的扩展名为。4、VB程序中，变量的作用域是指，根据作用域的不同将变量分为和。5、VB中，常用的两种说明变量类型的声明语句是和。6、VB中，用于处理文字信息的输入和显示信息的控件分别是、，用于处理图形信息的控件分别是、。7、V

5、B中，在预定对话框里有两种对话框分别称为和，它们所用函数分别为和。8、一个多文档界面的应用程序可以包含三类窗体分别是、。三、阅读程序，写出结果：（每小题6分，共30分）1、执行下面的程序，单击窗体后在窗体上显示的三行结果。Private Sub Form_Click()Dim Astr, Astr1, Astr2 As StringAstr1="B"For I=1 To 3Astr2=LCase(Astr1)Astr1=Astr1 & Astr2Astr=Astr & Astr1Print AstrAstr1=Chr(Asc(Astr1)+1)Next IE

6、nd Sub2、下面程序的功能是什么?Private Sub Commandl _Click ( )S1=0: S2=0M1=0: M2=0N=1Do while N<=100A=INT(101*RND)If a mod 2=0 THENS1=S1+A : M1=M1+1ElseS2=S2+A : M2=M2+1End if N=N+1LoopPrint S1,S2Print M1,M2END Sub3、下面程序的功能是什么?Private Sub Command1_Click()Dim N As Integer, I As Integer, j As long, S As long N

7、=Val (Text1.Text) J=0：S=0 For I=1 To n J=J+I ：S=S+J Next I Label3.Caption=Str$(S) END Sub4、执行下面的程序，单击命令按钮Command1后在窗体上显示的图形功能是什么?Private Sub Command1_Click()ClsPrintFor n=1 To 8Print Tab(2 * n + 2);For m=1 To 8Print Spc(1); "*"Next mPrintNext nEnd Sub5、下面程序的功能是什么?Private Sub Form_Click()Di

8、m a As IntegerDim b As IntegerDim c As IntegerDim s As LongDim tot As Longa=10b=6c=4Call fact(a,tot)s=totCall fact(b,tot)s=s/totCall fact(c, tot)s=s/totPrint a;"!/"b;"!/"c;"!=" sEnd SubSub fact(m As Integer, total As Long)Dim I As Integertotal=1For I=1 To mtotal=total*I

9、Next IEnd Sub 四、程序设计：（每小题10分，共20分）1、编写程序：利用文本框检查用户口令，而且使用静态变量来限制输入口令的次数。界面如下图所示：2、编写程序：设计一个计时器，能够设置倒计时的时间，并进行倒计时。界面如图所示：一、单项选择题（每小题 2 分,共24分）123456789101112ADDCCBBDBD DC二、填空题（每空1分，共26分）1、事件2、设计用户界面；设置属性；编写事件过程代码；运行3、·VBP；·FRM；·BAS；·CLS；·EXE4、变量的有效范围；全局变量和局部变量5、Dim 变量名(as数据类型

10、)和static变量名(as数据类型)6、文本框；标签框；图片框；图像框7、消息框；输入对话框；Msgbox；Inputbox函数8、MDI父窗体(MDI窗体，即主窗体)；MDI子窗体(简称子窗体)；普通窗体(或称标准窗体)三、阅读程序，写出结果：（每小题6分，共30分）1、程序运行后，窗体上显示的结果为：第一行结果：Bb；第二行：BbCc；第三行结果：BbCcDd。2、程序的功能是：找出101间能被2整除的随机数并且累加出和。3、程序的功能是：分两重循环，内循环求1N的累加，外循环求内循环的每次累加结果的形式：S=1+(1+2)+(1+2+3)+(1+2+3+n)4、显示的图形为：由“*”号

11、组成的平行四边形。5、程序的功能是：利用子程序计算阶乘为：四、程序设计：（每小题10分，共20分）1、编写文本框Text1的KeyPress事件代码：Private Sub Text1_KeyPress(KeyAscii As Integer)Static n As IntegerIf KeyAscii=13 ThenIf LCase(Text1.Text)="longxb" ThenLabel1.Caption="欢迎使用本系统"Elsen=n+1If n=3 ThenLabel1.Caption="对不起，您无权使用"Text1.

12、Enabled=FalseElseLabel1.Caption="对不起，口令错"Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End IfEnd IfEnd IfEnd Sub2、程序代码如下：Private Sub Command1_Click（）Timer1.Enabled=TrueTimer1.Tag=Text1.Text*60Frame1.Caption=“现在开始倒计时”End SubPrivate Sub Timer1_ Timer（）Timer1.Tag=Timer1.Tag-1If m<0 ThenTimer1.Enabler=