程序设计语言VB ★

《程序设计语言VB ★》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、程序设计语言VB期末考试模拟题（2011秋第一学期）一、单选题(下列各小题备选答案中，只有一个符合题意的答案。多选、错选、不选均不得分)1.下列控件中可用于接受用户输入文本，又可用于显示文本的是（B）。A.Label控件B.TextBox控件C.Timer控件D.CommandButton控件2.选拔身高T超过1.7米且体重W小于60公斤的人，表示该条件的布尔表达式为（C）。A.T>=1.7AndW<=60B.T<=1.7OrW>=60C.T>1.7AndW<60D.T>=1.7OrW<603.Len(“Fri

2、end”)的值是（A）。A.6B.7C.8D.94.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（C）。A.ValueB.CancelC.DefaultD.Enabled5.表达式4+56*7/8Mod9的值是（B）。A.4B.5C.6D.76.在Select判断结构中，下面的表述中不正确的是（B）。A.Case1B.Casea>5C.Case3To6D.Caseis<107.为了把焦点移到某个指定控件，所使用的方法是（D）。A.GetFocusB.VisibleC.RefreshD.Set

3、Focus8.使用Line方法时，参数B和F可以组合使用，下列组合中（D）是不允许的。A.不使用B和FB.BC.B和FD.F9.VB编程中顺序文件的处理将用到关键字是（C）。A.FileB.SaveC.OpenD.Disk10.下列叙述中，错误的是（　A）。A.顺序文件打开后，既可以读又可以写B.随机文件打开后，既可以读又可以写C.顺序文件打开后，只能读或者只能写D.顺序文件和随机文件的打开都使用Open语句11.设在窗体上有一通用对话框控件Commonialog1，通过调用（C）语句可以建立“颜色”对话框。A

4、.Commonialog1.ShowOpenB.Commonialog1.Action=2C.Commonialog1.ShowColorD.Commonialog1.Action=512.在窗体内声明的变量是（B）。A.局部变量B.模块变量C.公共变量D.任意变量二、填空题113.假定有如下的Sub过程：SubS(xAsSingle,yAsSingle)t=xx=t+xy=t-yEndSubPrivateSubCommand2_Click()DimaAsSingle,bAsSinglea=6b=4CallS(

5、a,b)Printa,bEndSub程序运行后，单击命令按钮输出结果为12、2　。14.阅读下列程序段PrivateSubCommand1_Click()DimiAsIntegerDimkAsIntegerk=0Fori=0To10k=k+1i=i+kNextPrintk;iEndSub请问其循环体共执行了4次，i的值是14。三、简答题15.简述下图程序界面的设计步骤，包括添加控件、设置属性和编程。(1)调整窗体到合适的大小，并将Caption属性设为“复选框的应用”。(2)添加框架Frame1,将其Capti

6、on属性设置为“字体格式选择”。（3）在框架中，添加复选框Check1、Check2、Check3,分别将其Caption属性修改为“加粗”、“倾斜”、“下划线”。（4）添加标签Label1,修改其属性为“字体格式效果：”。（5）添加文本框Text1,修改其Text属性为“你好吗？”。（6）添加按钮Command1,修改其Caption属性为“确定”。（7）编制程序：PrivateSubCommand1_Click()Ifcheck1.Value=1ThenText1.FontBold=TrueElseText

7、1.FontBold=FalseIfcheck2Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseIfcheck3Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndSub四、综合设计题16.编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。PrivateSubCommand1_Click()Dimi,sAsIntegerFori=

8、100To200IfiMod3=0Thens=s+iNextiMsgBox("100-200之间所有可以被3整除的数的总和为："&Str(s))EndSub17.编制程序实现：在窗体上，单击按钮1，在文本框中动态显示当前时间；单击按钮2，则停止动态显示；单击按钮3，清除文本框内容。提示：可用定时器控制时间，用系统函数Now显示时间（如Text1.Text=Now）。PrivateSub