《北航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 方法添加)