填空题下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。
Private Sub Command1_Click()
Dim x AS Integer
x=Val(Right (Text1．Text，2))
If x Mod 2=0 Then
Labe11．Caption=“偶数”
Else
Labe11．Caption=“奇数”
End If
Text1．SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If{{U}} 【10】 {{/U}}ThenKeyAscii=0
End Sub
填空题下面程序运行后，单击命令按钮，输出的结果是【 】。
Private Sub Commandl_Click( )
Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl#，str2#
For i=1 To 4
a(i) =i
Next i
For i=2 To 6
b(i) =i
Next i
str1 =YAG(a)
str2 =YAG(b)
Print"strl"；str1;"str2="；str2
End Sub
Function YAG (a()As Integer)
Dim T#，i％
t=1
For i=LBound(a) To UBound(a)
t=t * a(i)
Next i
YAG =t
End Function
填空题为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的 【6】 属性设置为 【7】 。
填空题执行下面的程序段后；变量S的值为{{U}} 【12】 {{/U}}。
S＝5
For i=2.6 To 4.9 Step 0.6
S＝S+1
Next i
填空题在Visual FoxPro中，可以在表设计器中为字段设置默认值的表是【9】表。
填空题在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 art(i)=i Next i x=InputBox("请输入一个数字：") If Val(x)＞4 Then ReDim arr(4) arr(4)=x End If Me.Print(arr(4)-arr(3)) End Sub 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
填空题Visual BASIC应用程序通常由3类模块组成，即窗体模块、 【6】 和类模块。
填空题有如下Sub过程：
Sub ind(a As Integer)
Static x As Integer
x= x + a
Print x：
End Sub
以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为
________
。
Private Sub Command1_Click()
Ind 2
End Sub
填空题下面程序运行后，单击命令按钮，输出的结果是 【8】 Private Sub Commandl_Click( ) Dim a％(1 To 4) ，b％(2 To 6) ，i％，strl#，str2# For i=1 To 4 a(i) =i Next i For i=2 To 6 b(i) =i Next i str1 =YAG(a) str2 =YAG(b) Print"strl"；str1;"str2="；str2End SubFunction YAG (a()As Integer) Dim T#，i％ t=1 For i=LBound(a) To UBound(a) t=t * a(i) Next i YAG =tEnd Function
填空题本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有3个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。PrivateSubCommand1_Click()Randomizen=CInt(Text1.Text)n1=0n2=0Fori=1To______r=Int(Rnd*2)Ifr=______Thenn1=n1+1Elsen2=n2+1EndIfNextText2.Text=n1Text3.Text=n2EndSub
填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为景后得分)，如图所示。请填空。PrivateSubCommand1_Click()DimkAsIntegerDimsumAsSingle，maxAsSingle，minAsSinglesum=Text1(0)max=Text1(0)min={{U}}【11】{{/U}}Fork={{U}}【12】{{/U}}To6Ifmax＜Text1(k)Thenmax=Text1(k)EndIfIfmin＞Textloc)Thenmin=Text1(k)EndIfsum=sum+Textl(k)NextkText2={{U}}【13】{{/U}}/5EndSub
填空题要使文本框获得输入焦点，则应采用文本框控件的______方法。
填空题软件的 【3】 设计又称为总体结构设计，其主要任务是建立软件系统的总体结构。
填空题移动窗体时，为了初始化该窗体中的各控件，可选用窗体的______事件；关闭窗体用——事件。
填空题软件危机出现于60年代末，为了解决软件危机，人们提出了 【3】 的原理来设计软件，这就是后期软件设计的基础。
填空题下面程序运行后，单击命令按钮，输出的结果是{{U}} {{U}} {{/U}} {{/U}}
Private Sub Command1_Click()
Dim a%(1 To 4)，b%(2 To 6)，i%，str1#，str2#
For i=1 To 4
a(i)=i
Next
For i=2 To 6
b(i) =i
Next
str1 = YAG(a)
str2 = YAG(b)
Print "str1 ="; str1; "str2 ="; str2
End Sub
Function YAG (a ( ) As Integer)
Dim t#, i%
t=1
For i = LBound(a) To UBound(a)
t=t * a(i)
Next
YAG = t
End Function
填空题下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素。完成下列程序。 Private Sub Backward(a()) Dim i As Integer, Tmp As Integer For i=1 To 5 Tmp=a(i) ______ ______ Next i End Sub
填空题软件测试是保证软件质时的重要手段，而软件测试的主要的测试数据和{{U}} 【3】 {{/U}}的设计来实现。
填空题数据库模型提供了两个映像功能，第一种映像使得数据存储结构改变时，逻辑结构不变，因而相应的应用程序也不变，这就是它们的
________
独立性。
填空题下面程序的功能是：将数组a中下标值为偶数的元素从小到大排列，其他元素不变。
Dim a(1 To 10)，i，j，k
For i=1 To 10
a(i)：InputBox("input：")
Next i
For i；1 To 10
Print a(i)
Next i
Print
For i=2 To 10{{U}} 【14】 {{/U}}
For j=i+2 To 10
If{{U}} 【15】 {{/U}}Then
t=a(i)
a(i)=a(j)
a(j)=t
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i