北航《VB程序设计》考核要求

《北航《VB程序设计》考核要求》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、北航《VB程序设计》考核要求一、填空题(每空4分，共60分)1、设有如下程序段：a$=,,BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)执彳亍上面的程序段后，变量b$的值为_Beijing—2、以下程序段的输出结果是_3“num=0Whilenum<=2num=num+1WendPrimnum3、窗体上冇一个名称为Lisll的列表框，一个名称为Tcxtl的文本框，一个名称为Label1Caption属性为“Sum”的标签，一个名称为Command1.标题为“

2、计算”的命令按钮。程序运行后，将把1〜100Z间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对Listl中的数进行累加求和，并在文本框中显示计算结果。以下是实现上述功能的程序，请填空。PrivateSubForm_Load()Fori=1To1(X)IfiMod7=0Then_listI.additemiEndIfNextEndSubPrivateSubCommandl_Click()Sum=0Fori=0To_List1.ListCount-1Sum=Sum+_List1.List(

3、i)NextTextl.Text=SumEndSub4、本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币,1代表正面,0代表反面。在窗体上有三个文本框,名称分别是Text］、Text2、Text3,分别用于显示用户输入投币总次数、出现正而的次数和出现反而的次数。程序运行后，在文本框Textl中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反而的次数，并显示结果。以下是实现上述功能的程序，请填空。PrivateSubComma

4、ndl_Click()Randomizen=CInt(Text1.Text)nl=0n2=0Fori=lTo_nr=Int(Rnd*2)Ifr=1Thenn1=n1+1Elsen2=n2+lEndIfNextText2.Text=nlText3.Text=n2EndSub5、阅读程序:OptionBase1PrivateSubForm_Click()Dima(3)AsIntegerPrint”输入的数据是Fori=lTo3a(i)=InputBoxC'输入数据”)Printa(i);NextPr

5、intIfa(l)a(3)Thenm=a(2)Elselfa(l)>a(3)Thenm=a(3)Elsem=_a(l)—EndIfPrint”中间数是:”;mEndSub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数。请填空。(6)在窗体上画一个名称为"Command1",标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2

6、的标签川于显示计算结果，其Caption屈性的初始值为空;标签Label3的标题为“计算结杲”。运行程序吋会自动生成5个随机数，分別显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元索的值累加，然后计算结果显示在Label2o请填空。PrivateSubCommand1_Click()Sum=0Fori=0To4Sum=Sum+_val(labell(i).caption)Next_label2.caption=SumEndSub⑺在窗体上1呵两个名称分别为Command!和Co

7、mmand2、标题分别为“初始化”和"求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值;如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文木框屮显示出來。请填空。OptionBase1Dima(3,2)AsIntegerPrivateSubCommandl_Click()Fori=lTo3Forj=lTo2_=i+jNextjEndSubPrivateSubCommand2_Click()Forj=lTo3Fori=1To2s=s+_a(j,i)—Next

8、iNextjTextl.Text=_sEndSub二、读程序题，写出程序运行结果(每小题5分，共15分)1、写出下而程序的输出结果PrivateSubForm_Click()StaticSUMAsInteger1=IDoWhileI<=10SUM=SUM+I1=1+1LoopPrintSUMEndSub答案：552、写出下面程序的输出结果PrivateSubForm_Click()PrintTab(6);2,Tab(15);5PrintForI=15To16PrintI;Forj=2To6Ste