填空题在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_click() Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub 运行一面的程序，单击命令按钮，其输出结果是 【15】 。
填空题软件开发过程主要分为需求分析、没计、编码与测试四个阶段，其中______阶段产生“软件需求规格说明书”。
填空题将通用对话框CommonDialog1的类型设置为“另存为”对话框，可调用该控件的______方法。
填空题下列软件系统结构图的宽度为________
填空题为了便于对照检查，测试用例应由输入数据和预期的 【4】 两部分组成。
填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Cliclk() DimY As Single Open (13) Y=3.14159/180 For i=1 To 90 Ksc.K=i KscSinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) Put #2,i．Ksc Next i Close#2 End Sub
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填人适当的内容，将程序充完整。Private Sub Command1_Click() Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("请输入a的值：") 【11】 Do Tn=Tn * 10 + a Sn二Sn + Tn Cout=Cout+1 【12】 Debug．Print a，n，SnEnd Sub
填空题标准模块和窗体模块的功能是计算和打印两个复数之和，在横线上填上适当内容。标准模块______。 Type comp re As Single im As Single End Type Public C As comp 窗体模块 Private Sub Commandl_Click() Dim a As comp，b As comp a.re=InputBox(“输入a的实部”) a.im=InputBox(“输入a的虚部”) b.re=InputBox(“输入b的实部”) b.im=InputBox(“输入b的虚部”) ______ Print "c"="； c.re； "+"； c.im； "i" End Sub Private Sub s(______) c.re = r1.re + r2.re c.im = r1.im + r2.im End Sub
填空题在长度为n的有序线性表中进行二分查找。最坏的情况下，需要的比较次数为{{U}} 【2】 {{/U}}。
填空题若s、i均为整型变量，执行下列程序段后s的值为 ______。
s=0
i=1
Do
s=s+i
i=i+1
Loop Until i＞5
填空题在窗体上有一个命令按钮，然后编写如下程序：
Function Trans(ByVal num As Long)As Long
Dim k As Long
k=1
DO While num
k=k*(num Mod 10)
num=num/10
Loop
Trans=k
Print trans
End Function
Private Sub Command1_Click()
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为
10
，在输入对话框中输入“987”输出
11
，在输入对话框中输入“879”，输出结果为
12
。
填空题关系模型的完整性规则是对关系的某种约束条件，包括实体完整性、{{U}} 【5】 {{/U}}和自定义完整性。
填空题要把一个命令按钮设置成无效，应设置______属性值。
填空题若长度为n的线性表采用顺序存储结构，在等概率假设的情况下，删除一个数据元素，需要先依次移动 【1】 个数据元素。
填空题在窗体上画—个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum={{U}} 【12】 {{/U}}
Next i
Print Sum
End Sub
Function fun(t As Integer)As Long
p=1
For i=1 To t
p=p*i
Next i
{{U}} 【13】 {{/U}}
End Function
以上程序的功能是，计算1!+2!+3!+...+n!，其中n从键盘输入，请填空。
填空题对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为 (2) 。
填空题在窗体上画一个名为Text1的文本框，然后建立一个弹出式菜单，菜单名称为Textformat，包含“宋体”、“黑体”、“隶书”等3个菜单项，其名称分别为font1、font2和font3，分别用来使Text1中的文字用相应的字体显示。程序运行后，如果用鼠标右键单击文本框，则弹出此菜单。要求：在弹出的菜单中只显示与Text1中字体不同的其他两种字体的菜单项。例如，假定文本框种显示的字体是“宋体”，则弹出的菜单中只有“黑体”和“隶书”两个菜单项(如下图所示)。请填空。PrivateSubfont1_Click()Text1.FontName=“宋体”EndSubPrivateSubfont2Click()Text1.FontName=“黑体”EndSubPrivateSubfont3Click()Text1.FontName=“隶书”EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)If______ThenIfText1.FontName=“宋体”ThenFont1.Visible=Font2.Visible=TrueFont3.Visible=TrueElseIfText1.FontName="______"ThenFont1.Visible=TrueFont2.Visible=FalseFont3.visible=TrueElseIfText1.FontName="______"ThenFont1.Visible=TrueFont2.Visible=TrueFont3.Visible=FalseEndIf______TextformatEndIfEndSub
填空题如果存在如下过程：
Private Function Fun(a() As Integer)
Dim First As Integer, Last As Integer,i As Integer
First=LBound(a)
Last=UBound(a)
Max=a(First)
For i=First To Last
If a(i)＞ Max Then Max=a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
ReDim m(1 To 4)As Integer
m(1)=20: m(2)=30: m(3)=50: m(4)=100
c=Fun(m)
Print C
End Sub
单击命令按钮，其输出结果为
________
。
填空题下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an (10) As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)= (14) Next i% max=an(1) For i%=2 To 10 if (15) then max=an(i%) End If Next i% print max End Sub End Sub
填空题为了使一个标签透明且没有边框，必须将它的 【11】 属性设置为0，并将BackStyle属性设置为0。