程序设计语言vb

《程序设计语言vb》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、程序设计语言VB一、选择题1、VisualBasic是一种面向（）的程序设计语言。（A）用户（B）事件（C）程序（D）对象2、VB规定窗体文件的扩展名是（）。（A）.for　（B） .frm　（C）.vbp　（D）.bas3、将命令按钮Command1设置为不可见，应修改该命令按钮的（）属性。（A）Visible（B）Value（C）Caption（D）Enabled4、表达式Abs（-3）+int(3.14)的值为（）。（A）5（B）6（C）0.14（D）6.145、执行w=InputBox("显示1","显示2","显示3")语句将在输入对话框的输

2、入区显示（）。（A）显示1（B）显示2（C）显示3（D）（空白）6、下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。（A）Label控件（B)TextBox控件（C）Timer控件（D）CommandButton控件7、下列可作为VisualBasic变量名的是（）。（A）A%A（B）4A（C）?xy（D）constA8、表达式2*3^2+2*8/2+3^2的值为（）。（A）27（B）31（C）35 （D）429、下面不属于键盘事件的是（）。（A）KeyUp（B）KeyDown（C）KeyPress（D）Click10、下列关于dowhil

3、e…loop和do…loopwhile循环执行循环体次数的描述正确的是（）。（A）dowhile…loop循环和do…loopwhile循环至少都执行一次（B）dowhile…loop循环可能不执行，do…loopwhile循环至少执行一次（C）dowhile…loop循环至少执行一次，do…loopwhile循环可能不执行（D）dowhile…loop循环和do…loopwhile循环可能都不执行11、若要设置定时器控件的定时时间，需设置的属性是（）（A）Interval　　（B)  Value　　（C）Enabled　　（D）Text12、要从fo

4、r-next中退出循环使用的语句是（）。（A）exit（B）exitfor（C）continue（D）stoploop13、设在窗体上有一通用对话框控件Commonialog1，通过调用（）语句可以建立“颜色”对话框。（A）Commonialog1.ShowOpen（B）Commonialog1.Action=2（C）Commonialog1.ShowColor（D）Commonialog1.Action=514、在VB中，若要改变一个标签（Label）上显示的内容，应当在属性窗口中改变这个标签的（）属性的值。（A）Text（B）List（C）Name

5、（D）Caption第4页共4页15、为了将一个语句写在多行上所使用的行续接符是：（）（A）&（B）_（C）'（D）：二、简述下图程序界面的设计步骤（包括添加控件、设置属性和编程，20分）三、程序阅读题（每小题10分，共计20分）1、阅读下列程序段PrivateSubCommand3_Click()Printpl(3,6)EndSubPublicFunctionpl(xAsSingle,nAsInteger)AsSingleIfn=0Thenpl=1ElseIfnMod2=1Thenpl=x*x+nElsepl=x*x-nEndIfEndIfEndFu

6、nction程序运行后，单击该命令按钮，屏幕上显示的结果是______。四、编写程序1、设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在Text1中显示"Hello"字符。参考答案：第4页共4页一、选择题1-5DBABC6-10BDCDB11-15ABCDB二、简述下图程序界面的设计步骤（包括添加控件、设置属性和编程）1.调整窗体到合适的大小，并将Caption属性设为“单选框的应用”。2.添加框架Frame1，将其Caption属性设置为“文本框的前景色”。3.在框架中，添加单选框Option1、Option2、Option3，分别

7、将其Caption属性修改为“红色”、“黄色”、“蓝色”。4.添加文本框Text1，修改其text属性为“Wellcome!”。5.添加按钮Command1，修改其Caption属性为“确定”。6.编制程序：PrivateSubCommand1_Click()IfOption1.Value=TrueThenText1.ForeColor=vbRedIfOption2.Value=TrueThenText1.ForeColor=vbYellowIfOption3.Value=TrueThenText1.ForeColor=vbBlueEndSub三、程序

8、阅读题1、3　　四、编写程序1.PrivateSubCommand1_Click()IfChe