填空题在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(43,68,-25,65,-78,12,-79,43,-94,72)
pos=0
neg=0
For k=1 To 10
If Art(k)＞0 Then
________
Else
________
End If
Next k
Print pos,neg
End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。
填空题千个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管”与实体“项目”的联系属于 【4】 的联系。
填空题全局变量必须在 【14】 模央中定义。
填空题设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1=Array(12, 435, 76, -24, 78, 54, 866, 43) Min = arr1(l)' For i=2 To 8 If arr1(i) ＜ Min Then Next i Print "最小值是:"; Min End Sub
填空题符合结构化原则的三种基本控制结构是：选择结构、循环结构和{{U}} 【3】 {{/U}}。
填空题菜单项的唯一事件是 【8】 。
填空题在窗体上画—个文本框，名称为Text1，然后编写如下程序：
Private Sub Form_Load()
Open"d:/temp/dat.txt"For Output As #1
Text1.Text=""
End Sub
Private Sub Text1_KeyPress(Key Ascii As Integer)
IfKeyAscii=13 Then
If UCase(Text1.Text)={{U}} 【14】 {{/U}}Then
Close #1
End
Else
Write #1,{{U}} 【15】 {{/U}}
Text1.Text=""
End If
End If
End Sub
以上程序的功能是：在D盘temp文件夹下建立—个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则不写入文件，直接结束程序。请填空。
填空题下列程序弹出对话框中按钮的个数为______。
MsgBox"确认!"，vbAbortRetryignore+vbMsgBoxHelpButton+vbinformation,"提示："
填空题在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程：PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval={{U}}【6】{{/U}}EndSubPrivateSubForm_Click()Timer1.Enabled={{U}}【7】{{/U}}EndSubPrivateSubTimer1_Timer()Label1.Caption={{U}}【8】{{/U}}EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。
填空题快捷键Ctrl+0的功能相当于执行文件菜单中的 (13) 命令。
填空题下列程序弹出对话框中按钮的个数为______。 MsgBox“确认!”，vbAbortRetryignore+vbMsgBoxHelpButton+vbInformation，“提示；”
填空题为了执行自动拖放，必须把_____属性设置为1。
填空题下列软件系统结构图的宽度为________
填空题在窗体上画一个文本框(其Name属性为Text1)，编写如下事件过程，运行结果是______。 Private Sub Form_Load( ) Text1.Text=" " Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub
填空题在窗体上建立如下图所示的界面。在列表框List1中已有若干人的简单信息，运行时Text1文本框输入一个姓或姓名，单击"查找"按钮，则在列表框中进行查找。若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表框，则只显示第一个匹配项；若未找到，则在Text2文本框中显示"查无此人"。请完成下列的程序代码。PrivateSubCommand1_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len((10))k=0Whilek＜(11)AndNotfoundIfText1=Left$(List1.List(k),n)ThenText2=(12)found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub
填空题在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text:" VB Programming” Text2.Text:Text1.Text Text1.Text:”ABCD” End Sub 程序运行后，单击命令按钮，Text1文本框中显示的内容为 (6)
填空题算法的工作量大小和实现算法所需的存储单元多少分别称为算法的{{U}} 【1】 {{/U}} 。
填空题以下程序段的输出结果是______。 num=0 While hum＜=2 num=num+1 Print num Wend
填空题有如下程序： Private Sub Form_Click() n=10:i=0 Do i=i+n:n=n-2 Loop While n＞2 Print i End Sub 程序运行后，单击窗体，输出结果为______。
填空题在窗体上有一个命令按钮，然后编写如下程序：
Function Trans(ByVal num As Long) As Long
Dim k As Long
k=l
Do While num
k=k * (num Mod 10)
num=num/10
Loop
Trans=k
Print Trans
End Function
Private Sub Commandl_Click( )
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为{{U}} 【11】 {{/U}}，在输入对
话框中输入“987”输出{{U}} 【12】 {{/U}}，在输入对话框中输入“879”，输出结果为{{U}} 【13】 {{/U}}。