下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填         

 Sub EnSure()

         Dim year As Integer

       Year=Val(InputBox("请输入年份："))

       If(year Mod 4=0_____yaer Mod 100<>0)______(yaer Mod 400=0)Then

      Print"您输入的是闰年"

             Else

      Print"不是闰年，是普通年份"  

       End If

         End Sub

（10）在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。

          Private Sub Form_Load()

           Check1.Caption="显示粗体"

           Check2.Caption="显示斜体"

           Text1Text="May you a happy day!"

       End Sub

       Private Sub Check1_Load()

      If=1 Then

          Text1.FontBold=True

      Else

          Text1.FontBold=False

      Else If

        End Sub

        Private Sub Check2_Load()

       If Check2.Vaiue=1 Then

          Text1._____

       Else

          Text1._____

       End If

          End Sub

（11）建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示按钮”Command2时，将文本中所有内容显示在立即窗口。

Private Type PerDate

     Name1 As String

     Phon As String*11

     Address As String*10

     PostCd As String*6

 End Type

定义PerData类型的变量xData

Private Sub Form_Click()

     Open"C:\PhonBook.txt"For Random As 1

End Sub

Private Sub Command1_Click()

     xData.Name1=Text1.Text

     xData.Phon=Text2.Text

     __________=Text3.Text

     xData.PostCd=Text4.Text

     Put#1,1，xData

     Text1.Text="":Text2.Text=""

     Text3.Text="":Text4.Text=""

End Sub

   Private Sub Command2_Click()

     Reno=Lof(1)/Len(xData)

     i=1

     Do While i=reno

          Get#1,i,xData

          Debug.Print xData.Name1,______,xData.Address,xData.PostCd

          i=i+1

     Loop

End Sub

（8）设A="345678"，则表达式Val(Mid(A,4,2))+Right(A,4)的值为。

（9）下列程序段运行后，a的值为。

           a=600

           b=50

           a=a+b

           b=a-b

           a=a-b

（6）当用户按下键盘上的某个键时，将会触发拥有输入焦点的控件的事件。

（7）一个变量被显式定义，末尾没有类型说明符，则该变量的隐含类型是类型。

（4）一个模块直接调用的其他模块个数称为。

（5）数据库系统中实现各种数据管理功能的核心软件是。

（3）二分法查找仅限这样的表；表中的数据元素必须有序，其存储结构必须是。

（1）在结构化设计方法中，数据流图表达了问题中的数据流与加工间的关系，且每一个实际上对应一个处理模块。