VB填空题及答案

(完整word)VB填空题及答案(完整word)VB填空题及答案PAGE60PAGE59(完整word)VB填空题及答案一、填空题1、VisualBasic对象可以分为两类，分别为和。2、为了选择多个控件，可以按住键，然后单击每个控件。4、浮点数由3部分组成，即符号、和尾数。5、下述语句段在运行时的显示结果是。Clsx=10.34+8PrintLen(x）6、将代数式转换成程序设计中的表达式为.7、关系式x≤—5或x≥5所对应的布尔表达式是。9、下列程序的功能是：当x〈50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x〉100时，没有意义。请填空。PrivateSubCommand1_Click（） DimxAsSingle x=InputBox("请输入x的值！"） CaseIs<50y=0。8*xCase50To100y=0。7*xPrint"输入的数据出界！”EndSelectPrintx,yEndSub11、以下程序段的作用是将26个小写字母逆序打印出来，请补充完整。Fori=122ToPrint；Nexti12、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）x=0DoUntilx=—1a=InputBox("请输入第一个数字a的值")a=Val(a)b=InputBox（”请输入第二个数字b的值")b=Val（b）x=InputBox(”请输入第三个数字x的值”）x=Val（x)a=a+b+xLoopPrintaEndSub程序运行后，单击命令按钮，在对话框中分别输入5,4，8，5,8,-1,输出结果为。13、执行下面的程序段，x的值为。Fori=1To9a=a+iNextix=Val(i）MsgBoxx14、以下程序的功能是统计字符串中“i”的个数,请填空。a$=”BeijingDimnAsIntegern=Len(a＄）Fori=1Tonb$=IfThenx=x+1NextiPrint”x=";x15、下列程序的输出结果为。num=2Whilenum〈=3num=num+1PrintnumWend16、下列程序是判断一个整数（〉=3)是否为素数，请补充完整。（在数学上，判断素数的依据是:若n不能被2－Sqr(n）中的任何一个数整除，则n是素数，否则不是。）DimnAsIntegern=InputBox（”请输入一个整数(〉=3)”）k=Int(Sqr(n）)i=2swit=0Whilei<=kAndswit=0IfnModi=0ThenElseEndIfWendIfswit=0ThenPrintn;"是一个素数。”ElsePrintn;”不是一个素数。”EndIf17、每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对象的类型，如Form的前缀为frm，则Image的前缀为，Picture的前缀为。18、要使标签的背景样式为不透明，应将BackStyle属性设置为。19、将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是。20、当对象得到焦点时，会触发事件，当对象失去焦点时将触发事件。21、有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2,则输出,否则，将焦点定位在文本框中，并清除文本框的内容。x=Val（Text1.Text)IfThenPrintxElseText1。Text=”"EndIf22、下面的程序用于根据文本框Text中输入的内容进行以下处理：若Text为1,则打印“您的成绩为优秀!"；若Text为2，则打印“您的成绩为良好!”若Text为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下！”，请填空。PrivateSubCommand1_Click（)SelectCaseVal（Text1.Text）CasePrint”您的成绩为优秀！”CasePrint"您的成绩为良好！"CasePrint"您的成绩为一般"CaseElsePrint”您的成绩一般以下！”EndSelectEndSub24、如果要将形状控件的内部设置为水平线，应将FillStyle属性设置为。25、为了使计时器控件Timer1每隔0。5秒触发一次Timer事件,应将Timer1控件的属性设置为。26、在修改列表框内容时,RemoveItem方法的作用是。28、窗体上有一个名称为List1的列表框,一个名称为Text1的文本框，一个名称为Labell、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮.程序运行后,将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。PrivateSubForm_Load(）Fori=1To100IfiMod7=0ThenEndIfNextEndSubPrivateSubCommand1_Click（)Sum=0Fori=0ToSum=Sum+NextText1。Text=SumEndSub30、下面程序的功能是产生10个小于100（不含100）的随机正整数,并统计其中5的倍数所占比例，但程序不完整，请补充完整。RandomizeDima(10）Forj=1To10a(i）=Int()IfThenk=k+1Printa(j)NextjPrintPrintk/1031、在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp,单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。PrivateSubDisp_Click()Me。HideForm2。EndSub1.5VB程序设计语言填空题答案：题序1—11—22答案预定义对象用户定义对象Ctrl或Shift题序456答案指数5Sqr((x*x+y＊y）/（a+b））题序79—19-2答案X<=5orx〉=5SelectCasexCaseElse题序答案题序11-111—2121314-1答案97step—1Chr$(i)1210Mid$(a＄，I，I）题序14—21516—116—2答案B＄=”i”3、4Swit=1I=I+1题序17—117—21819答案imgpic1Picture1.Picture=LoadPicture(“C:\moon.jpg")题序20—120-221—1答案GotFocusLostFocusXmod4=1