可视化程序设计(vb)模拟题.docx

《可视化程序设计(vb)模拟题.docx》由会员分享，可在线阅读，更多相关《可视化程序设计(vb)模拟题.docx（13页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、一、单项选择题：（每小题2 分，共24 分）1、下列哪个符号能作为VB 中的变量名（ ）。A、 AB7B、 7ABC、 IFD、 AB72、 “X 是小于100 的非负数”，用VB 表达式表示正确的是（ ）。A、 0x 100B、 0 =X 100C、 0X OR X 100D、 0 =X AND X 1003、数学式子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=A B： A

2、=A BD、 A=（ A+B） /2： B=（ A=B） /25、函数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、

3、 Label1， Label18、在调用过程时，下述说明正确的是（ ）。A、只能使用Call 语句用Sub 过程B、调用Sub 过程时，实参必须用括号括 起来C、在表达式中调用Function 过程时可以不用括号把实参括 起来D、 Function 过程也可使用Call 调用9、设S1、 S2 均为字符串变量，S1=“Visual Basic”S2=“b”，则下面关系表达式中结果为True 的是（ ）。A、 len（ S2） len（ S1）B、 Chr（ 66） For m=1 To 8Print Spc(1); “*“;Next mPrintNext nEnd Sub5、下面程序的功能是什

4、么?Private Sub Form_Click()Dim 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*

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

6、量名 (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

7、、 显示的图形为：由“*”号组成的平行四边形。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.Enabled=F

8、alseElseLabel1.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 m0 ThenTimer1.Enabler=FalseMsgBox“预定的时间到了！”， 0， “倒计时 ”Frame1.Caption=“请输入计时的分钟数：”Text1.Text=0Exit SubEnd Ifn1=Format（ m Mod 60,“00”）n2=Format（ m60） Mod 60,“00： ”）n3=Format（ m3600） ,“00： ”）Text1.Text=n3&n2&n1End Sub