填空题在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】 。
填空题如果存在如下过程： Private Function FMax(a()As Integer) Dim First As Integer，Last As Integer，i As Integer First=LBound(a) Last=UBound(a) Max=a(First) Fori=FirSt To Last Ifa(i)＞Max ThenMax=a(i) Nexti FMax=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Ptirate Sub Commandl_click() ReDimm(1 To4)As Integer m(1)=20:m(2)=30:m(3)=50:m(4)=100 C=FMax(m) Print C End Sub 单击命令按钮，其输出结果为______。
填空题已知变量boolVar是一个布尔型的变量，如果要给其赋值为True，则正确的赋值语句就是______。
填空题设有命令按钮Command1的单击事件过程，代码如下，请填空。 Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i) =i Next For Each arrItem______a If arrItem Mod 7=0 Then Print arrItem； If arrItem＞90 Then Exit For Next End Sub
填空题下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时, Private Sub Command1_Click() Dim x As Single x = InputBox("请输入x的值" ) Select Case x Case Is＜50 y=0.8 * x Case 50 To 100 y=0.7 * x 【12】 Print "输入数据出界!" End Select Print x, y End Sub