填空题一个控件在窗体上的位置由{{U}} 【6】 {{/U}}属性决定,其大小由Width和Height属性决定。
填空题在窗体上加上一个文本控件PCSTextBox,画一个命令按钮,当单击命令按钮的时候将显示“打开文件”对话框,设置该对话框只用于打开文本文件,然后在文本控件中显示打开的文件名。请填空。 Private Sub Command1_Click() CommonDialog1. Filter=______ CommonDialog1. ShowOpen PCSTextBox. Text=______ 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%)=______
Next i%
max=an(1)
For i%=2 To 10
if______then
max=an(i%)
End If
Next i%
print max
End Sub
End Sub
填空题程序运行后,利用冒泡法对数组a中的数据按从小到大排序。请在空白处填入适当的内容将程序补充完整。 Private Sub Form_load() Dim at(To 5)As Integer n=5 a(1)=20:a(2)=25=a(3)=10:a(4)=40:a(5)=15 (8) For Z=1 To n-m If a(z)>a(z+1) Then t=a(z) a(z)=a(z+1) a(Z+1)=t End If Next Z Next m End Sub
填空题执行下面程序,第一行输出结果是{{U}} {{U}} {{/U}} {{/U}},第二行输出结果是47。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A)
End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x<10 Then
Call Sub1 (x)
End If
x=x*2+1
Print x
End Sub
填空题随机文件以 [9] 为单位读写,随机文件的记录是 [10] 记录。
填空题当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行人队运算。这种情况称为 【1】 。
填空题为了把寻个Visual BASIC应用程序装入内存,只要装入 【6】 文件即可。
填空题新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮, Form1窗体消失,显示Form2窗体,程序如下: Private Sub Command1_Click() 【6】 Form2 【7】 End Sub 试补充完整。
填空题在3种不同类型的组合框中,只能选择而不能输入数据的组合框是 【8】 。
填空题组合框有3种不同的类型,这3种类型是下拉式组合框、简单组合框、下拉式列表框,分别通过将{{U}} 【11】 {{/U}}属性设置为0、1、2宋实现。
填空题设有如下程序:
Private Sub Form_Click()
Dim n As Integer,s As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n>0
Print s
End Sub
以上程序的功能是{{U}} 【10】 {{/U}}。程序运行后,单击窗体,输出结果为{{U}} 【11】 {{/U}}。
填空题如果存在如下过程: 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) For i = First To Last If a (i)>Max Then Max=a (i) Next FMax = Max End Function Private Sub Commandl Click( ) ReDim m (1 To 4) As Integer re(1) =20: m(2) =30: m(3) =50: m(4) =100 c = FMax(m) Print c End Sub 单击命令按钮,其输出结果为 【13】 。
填空题在窗体上面画一个命令按钮,然后编写如下程序:
Function M(x As Integer,y As Integer)As Integer
M=IIf(x>y,x,y)
End Function
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=1
b=2
Print M(a,B)
End Sub
程序运行后,单击命令按钮,输出结果为{{U}} 【11】 {{/U}}。
填空题为了便于对照检查,测试用例应由输人数据和预期的{{U}} 【4】 {{/U}}两部分组成。
填空题设根结点的层次为0,则高度为k的二叉树的最大结点数为
________
。
填空题下列语句的输出结果是{{U}} 【6】 {{/U}}。
Print Format$(1258.6,"000,000.00")
填空题在深度为7的满二叉树中,度为2的结点个数为{{U}} 【1】 {{/U}}。
填空题软件动态测试大致可以分为{{U}} 【4】 {{/U}}测试法和黑盒测试法
