《北航17年9月补考《VB语言程序设计》考核要求》由会员分享，可在线阅读，更多相关《北航17年9月补考《VB语言程序设计》考核要求（5页珍藏版）》请在金锄头文库上搜索。
1、 北航VB 程序设计考核要求一、填空题(每空 4 分，共 60 分)1、设有如下程序段：a$=BeijingShanghaib$=Mid(a$,InStr(a$,g)+1)执行上面的程序段后，变量 b$的值为_。2、以下程序段的输出结果是_ 。num =0While numa(3) Thenm=a(2)ElseIf a(1)a(3) Thenm=_Elsem=_End IfPrint 中间数是：;mEnd Sub程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数。请填空。(6) 在窗体上画一个名称为“Command1 ”，标题为“计算”的命令按钮，再画 7 个标签
2、，其中 5 个标签组成名称为 Label1 的控件数组; 名称为 Label2 的标签用于显示计算结果，其 Caption 属性的初始值为空; 标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在 Label2。请填空。Private Sub Command1_Click()Sum = 0For i=0 To 4Sum=Sum+_ _Next_ _=SumEnd Sub (7) 在窗体上画两个名称分别为 Command1 和 Command2、标题分别为“初始化”和“求
3、和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组 a 的各元素赋值;如果单击“求和”命令按钮，则求出数组 a 的各元素之和，并在文本框中显示出来。请填空。Option Base 1Dim a(3,2) As IntegerPrivate Sub Command1_Click()For i=1 To 3For j=1 To 2_=i+jNext jEnd SubPrivate Sub Command2_Click()For j=1 To 3For i=1 To 2s=s+_Next iNext jText1.Text= _End Sub二、读程序题，写出程序运行结果（每小题 5
4、分，共 15 分）1、写出下面程序的输出结果 Private Sub Form_Click()Static SUM As IntegerI = 1Do While I=10SUM = SUM + II = I + 1LoopPrint SUM End Sub2、写出下面程序的输出结果Private Sub Form_Click()Print “*”; Tab(6); 2, Tab(15); 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab(3 * j); j * I;Next jPrintNext IEnd Sub3、写出下面程序的输出结果For i=3 To 1Print Spc(10-i);For j=1 To 2*i-1Print “*”;Next jPrintNext i三、编程题（第一小题 10 分，第二小题 15 分，共 25 分）1、编程计算 1100 之间的奇数和，并输出结果。2、编写代码计算 1！.10！，并将其依次添加到 list1 中。list1 中的每一项分别为:1!=1, 2!=2 ,. (请用list1 的 additem 方法添加)
