填空题数据流图的类型有______和事务型。
填空题在窗体上画一个名称为Labell的标签和一个名称为Listl的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label中显示所选中的项目，如下图所示。请在______和______处填入适当的内容，将程序补充完整。PrivateSubForm_Load()List1.AddItem"北京"List1.AddItem"上海"List1.AddItem"河北"EndSubPrivateSubList______()Labe1.Caption=______EndSub
填空题下列程序的作用是：打开顺序文件C:/stuData.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。 Private Sub Form_Click() 【15】 Do While Not EOF(1) Input # 1，StrNo，StuName，StuEng Print StuNo；Tab(10)；StuName；Tab(20)；StuEng Loop Close #1End Sub
填空题在Visual Basic的中断模式下，要想“逐语句”调试程序，可按______键；要想“逐过程”调试程序，可按______键。
填空题在3种不同类型的组合框中，只能选择而不能输入数据的组合框是______。
填空题下列程序用来计算1+2+…+n，当和大于100时停止计算，请填空。 Private Sub Form_Click() Dim n as integer,s as integer,I as integer,k as integer s=0 k=0 n=inputbox(“请输入n的值“) For i=1 to 100 k=k+1 s=s+1 (13) Next i Print s End Sub
填空题下面的程序实现矩阵的转置(即行列互换)。阅读程序并填空。 Option Base 1
Private Sub Form_Click() m=Input
Box(“输入行数”):n=InputBox(“输入列数”) {{U}} [11]
{{/U}}a(m,n)AS Integer,b(n,m)AS Integer ForI=1 to
m Forj=1 to n
a(I,j)=Int(Rnd*90)+10 Next:Next
ForI=1 to m Forj=1 to n
b(j,1)={{U}} [12] {{/U}}
Next:Next End Sub
填空题在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Comrnand1按钮后Text1中显示的字符串是
ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click()
Dim str As String，s As String，c As String
str=UCase(Text1)
S=""
C="Z"
While c＞="A"
If lnStr(str,C)=0 Then
s={{U}} 【7】 {{/U}}
End If
c=Chr$(Asc(C){{U}} 【8】 {{/U}})
Wend
If s＜＞""Then
Text1=S
End If
End Sub
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为nmuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序，请填空。 Private Sub Form 【2】 (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 【3】 mnuEdit End If End Sub
填空题为了在运行时把"d:\pic"文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为______。
填空题设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arrl, Max As Integer
arrl=Array(12, 435, 76, 24, 78, 54, 866, 43)
{{U}} 【8】 {{/U}}=arrl(1)
For i=1 To 8
If arrl(i)＞Max Then{{U}} 【9】 {{/U}}
Next i
Print "最大值是:" ; Max
End Sub
以上程序的功能是，用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
填空题下面程序运行后，输出的结果为______。
填空题软件生命周期分为软件定义期、软件开发期和软件维护期，详细设计属于______中的一个阶段。
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：Dim PaintStart As Boolean编写如下事件过程：Private Sub Form_Load() DrawWidth=2 ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 【13】 End SubPrivate Sub Form_MouseMove(Button As Integer，Shift As Integer，_ X As Single，Y As Single) If PaintStart Then PSet(X，Y) End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，_ X As Single，Y As Single) 【14】 End SubPrivate Sub Form_Db1Click() 【15】 End Sub
填空题假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段： Dim Rv As Rt r1=Len(Rv) Open"Sp.txt" For Random As # 1 x=LOF(1) n=x/r1 执行上面的程序段后，变量n中存放的是文件 【6】 中所存放的是 【7】 记录类型的记录数。
填空题为了建立窗体的Click事件过程，即Form_Click，应先在代码窗口的 【7】 栏中选择Form，然后在 【8】 栏中选择Click。
填空题为了显示一个窗体，所使用的方法为______；而为了隐藏一个窗体，所使用的方法为______。
填空题下面的程序用于根据文本框Text中输入的内容进行以下处理：
若Text为4，6，则打印“Text的值为4，6”；若Text为1，3，5，7，则打印“Text的值为1，3，5，7”；若Text为8，9，则打印“Text的值为8，9”；否则打印“Text的值不在范围内”。请填空。
Private Sub Command1_Click()
Select Case Val(Text.Text)
Case______
Print "Text的值为4，6"
Case______
Print "Text的值为1，3，5，7"，
Case______
Print "Text的值为8，9"
Case______
Print "Text的值不在范围内"
End Select
End Sub
填空题在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form【 】(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【 】mnuEdit
End If
End Sub
填空题在实际数据库系统中，其所支持的数据模型主要有层次模型、网状模型和 【5】 。