vb2009年模拟题答案[1]

《vb2009年模拟题答案[1]》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB2009年模拟题一.单选题：1.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是____________。DA.ClickB.MouseDownC.MouseUpD.Load2.下列可作为VisualBasic变量名的是____________。BA.4aB.constaC.?xyD.a#a3.能产生10到70（包含10与70）之间随机整数的表达式是____________。BA.Int(Rnd*60+10)B.Int(Rnd*61+10)C.Int(Rnd*71)D.Int(Rnd*70)4.在以下控件中，____________没有SetFocus方法。DA.Command

2、ButtonB.CheckBoxC.TextBoxD.Label5.下列赋值语句____________是有效的。DA.Last=y/0B.x+y=sumC.x+2=x+2D.sum=sum-sum6.在VB代码书写中，如果一行太长，需要续行，可以在末尾增加标记____________。DA.空格&B.空格-C.空格+D.空格_7.若要获得列表框中被选中的列表项的内容，可以直接通过访问____________属性来实现。DA.Name第7页B.ListCountC.ListIndexD.Text8.设在VB菜单编辑器中定义了一个子菜单项，名为Menu11。为了让其降一级菜单，应使用的按钮是

3、____________。DA.↑B.←C.↓D.→9.下面语句正确的是____________。BA.IFx≠yThenPrint“X不等于Y”B.IFx<>yThenPrint“X不等于Y”C.IFx!=yThenPrint“X不等于Y”D.IFx>

4、s事件二.填空题：1．设置时钟触发事件的时间间隔用__________属性。Interval2．将滚动条HScrollBar1的滑块位置所在的值显示在文本框Text1中，可用语句：Text1.Text=HScrollBar1._____________。Value3．设x="ABC"+Space(10)+"123"，语句y=Len(x)执行后y的值为____________。164．在刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对窗体的__________属性进行设置。Font5．在窗体上有一组合框控件MyCombo。在程序运行时，如果要删除该控件中的所有项目内容，可以执行___

5、_________命令。MyCombo.Clear6．写出表示x是5或7的倍数的VB表达式____________。XMod5=0orXMod7=07．当复选框未被选中时,复选框Value属性的值为____________。0-Unchecked第7页三、程序填空1．下述程序的功能是：找出100以内（含100）自然数对，使两个成对的自然数满足其和与差都是平方数，如26和10，其和为36与差为16均为平方数。程序的思想是：函数过程pf判断自然数Ｎ是否是平方数，对于自然数i,j,调用函数过程pf，若i+j和j-i同时是平方数，则在列表框内显示i,j。PrivateSubCommand1_Cli

6、ck()Fori=1To100Forj=_________To100i+1If_________Thenpf(j+i)Andpf(j-i)List1.AddItemi&""&jEndIfNextjNextiEndSubPublicFunctionpf(xAsInteger)AsBooleanDimyAsInteger,pAsBoolean_________y=Int(Sqr(x))Ify*y=xThen_________p=TrueElsep=FalseEndIf_________pf=pEndFunction2．从键盘输入x值，求出级数的前10项之和，并输出结果。PrivateSubCo

7、mmand1_Click()DimxAsSingle第7页x=InputBox("请输入X值：")s=1t1=2t2=xt3=2p=-1Fori=1To_________9s=_________s+p*t1*t2/t3p=-pt1=t1+1t2=t2*x*xt3=_________t3*(2*i+1)*(2*i+2)NextiPrintsEndSub3．程序功能是对给定的一串单词，用逗号分隔输出到文本框中，将这些单词按A