09上半年计算机等考二级VB每日一练

　　1.设有如下程序段：

　　x=2

　　For i=1 To 10 Step 2

　　x=x+i

　　Next

　　运行以上程序后，x的值是

　　A) 26 B) 27 C) 38 D) 57

　　2.以下程序段的输出结果是______。

　　num =0

　　While num<=2

　　num = num+1

　　Wend

　　Print num

　　3.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim a As Variant

　　a=Array(1,2,3,4,5)

　　Sum=0

　　For i=1 To 5

　　Sum = sum+a(i)

　　Next i

　　x=Sum/5

　　For i =1 To 5

　　If a(i)>x Then Print a(i);

　　Next i

　　End Sub

　　4.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

　　Model1代码如下：

　　Public x As Integer

　　Public y As Integer

　　Sub S1()

　　x =1

　　S2

　　End Sub

　　Sub S2()

　　y=10

　　Form1.Show

　　End Show

　　Model2的代码如下：

　　Sub Main()

　　S1

　　End Sub

　　其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是

　　A) Form1->Model1->Model2

　　B) Model1->Model2->Form1

　　C) Model2->Model1->Form1

　　D) Model2->Form1->Model1

　　5.以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是

　　A) Form1.Name="VisualBasic窗体"

　　B) Form1.Title="VisualBasic窗体"

　　C) Form1.Caption="VisualBasic窗体"

　　D) Form1.Text="VisualBasic窗体”