填空题要想在文本框中显示垂直滚动条，必须将ScrollBars属性设置为2，同时还应将{{U}} 【12】 {{/U}}属性设置为True。
填空题有下列程序，运行后变量x1、y1和z1的结果分别是{{U}} 【13】 {{/U}}、{{U}} 【14】 {{/U}}和{{U}} 【15】 {{/U}}。
Private Sub fun1(s，m，n)
s = m + 1
m = n + 2
n = s + 3
End Sub
Private Sub form Click()
Dim x1， y1
x1 = 1 ：y1 = 1 ：z1 = 1
Call fun1(x1，y1 + 1，(z1))
Debug．Print x1； y1； z1
End Sub
填空题阅读程序： Option Base 1 Dim arr2() As Integer Prtvate Function FindMax(a()As Integer)As Integer Dim Start As Integer Dim FlnlSh As Integer, i As Integer Start=LBound 【10】 Finish：UBound 【11】 Max＝ 【12】 For i=Start To Pinlsh If a (i)＞Max Then Max= 【13】 Next i FindMax=Max End Function Private Sub Commandl_Click() Dim arr1 arrl=Atray(12，435，76，24，78，54，866，43) b=UBound(arrl) Renm arr2( 【14】 )As Integer For i=1 TO b arr2(i)＝CInt( 【15】 ) Next i M=FindMax(arr2()) Print"最大值是："：M End Sub 以上程序的功能是x在命令按钮事件过程中定义一个数组，把这个数组作为参数传送到通用过程PindMax，并返回该数组的最大值。请填空。
填空题如果要在文本框中显示垂直滚动条，则必须把{{U}} 【8】 {{/U}}属性设置为2，同时还应把Multiline属性设置为True。
填空题在窗体上画一个列表，然后编写如下两个事件过程。 Private Sub Form_Click() List1.Removeltem 1 List1.Removeltem 2 End Sub Private Sub Form_Load() List1.Addltem"ItemA" List1.Addltem"ItemB" List1.Addltem"ItemC" List1.Addltem"ItemD" List1.Addltem"ItemE" End Sub 运行上面的程序，然后单击窗体，列表框中显示的项目是______。
填空题软件测试用例包括______值集和输出值集。
填空题常量.n.表示的是【3】型的数据。
填空题以下程序的功能是：从键盘上输入若干个学生的成绩，计算出乎均成绩，并输出低于平均分的学生成绩，用输入负数结束输入。
Dim x(10)，sum，ave，a，n，i
n=0
sum=0#
a=InputBox("Enter mark:")
Do While a＞=0 And n＜10
sum={{U}} 【12】 {{/U}}
x(n)={{U}} 【13】 {{/U}}
n=n+1
a=InputBox("Enter mark：")
Loop
ave={{U}} 【14】 {{/U}}
Print "Output:"
Print "ave="；ave
For i=0 To n-1
If{{U}} 【15】 {{/U}}Then
Print x(i)
End If
填空题以下程序的功能是：将一维组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(1)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给B(2,1)到B(2,10),……,把A(91)到A (100)依次赋给B(10,1)到B(10,10)。请填空。
Option Base 1
Private Sub Form_Click()
Dim i As Integer,J As Integer
Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To 【 】
For J=1 To【 】
B(i,j)= 【 】
Print B(i,j)；
Next j
Print
Next i
End Sub
填空题语句PopupMenu PMENU，4 Or 2，，，PMENU3K中： 其中PMeNU表示 【14】
填空题在程序设计阶段应该采取______和逐步求精的方法，把一个模块的功能逐步分解，细化为一系列具体的步骤，继而用某种程序设计语言写成程序。
填空题6、在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。
PrivateSubForm______(Button As Integer,Shift As Integer,X As Single,YAs Single)
If Button=2Then
PopupMenu mnuEdit
End If
End Sub
填空题结构化程序设计的三种基本逻辑结构为顺序、选择和{{U}} {{U}} {{/U}} {{/U}}。
填空题某二叉树中度为2的结点有18个，则该二叉树中有 【1】 个叶子结点。
填空题下面程序段的输出结果是{{U}} 【7】 {{/U}}。
For X=1.5 To 5 Step 1.5
Print X；
Next X
填空题以下程序的功能是，从键盘上输入若干学生的成绩，统计并输出最高分数和最低分数，当输入负数时结束输入，请填空。
Private Sub Command1_C1iek()
Dim x As Single
Dim amax As Single,amln As Single
x=InputBox("请输入分数")
amax=x
amin＝x
Do While{{U}} 【8】 {{/U}}
If x＞amax Then
amax=x
End If
If{{U}} 【9】 {{/U}}Then
amin=x
End If
x＝InputBox("请输入分数")
Loop
Print amax,amin
End Sub
填空题当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是______。 Private Sub Form_Click( ) Dim x As Integer， y As Integer x = Val(InputBox("输入整数72")) y = Val(InputBox("输入整数24")) z = fun1(x， y) MsgBox Str(z) End Sub Private Function fun1(ByVal a As Integer， ByVal b As Integer)As Integer Do r = a Mod b a = b b = r Loop Until r = 0 fun1 = a End Function
填空题以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(10)依次赋给B(1,1)到B(1,10)，把A(11)到A(20)依次赋给B(2,1)到B(2,10)，……，把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。 Option Base 1 Private Sub Form_Click() Dim i As Integer,j As Integer Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer For i=1 To 100 A(i)=Int(Rnd*100) Next i For i=1 To (9) For j=1 To 10 B(i,j)= (10) Print B(i,j)； Next j Print Next i End Sub
填空题为了在运行时将窗体Form1的标题(Caption属性)设置为“Test Program”，应使用的语句为{{U}} 【8】 {{/U}}。
填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填上合适的代码，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type ______'定义Ang类型的变量KscPrivate Sub Form_Click()Dim Y As Single Open "C:/Data1.txt"For Random As #1 Len=10 Put #l, 1, Ksc Y=3.14159/180 For i=1 To 90 Ksc.K = i _______ = Sin(i * Y)'给变量Ksc的正弦函数值赋值 Ksc. Cosx=Cos(i * Y) Next i Close #1End Sub