填空题设C盘根目录下有一文件名为“a1.txt”，若该文件还没有打开，现在要知道它的长度，可使用命令 【6】 。
填空题本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有3个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图16-12所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。PrivateSubCommand1_Click()Randomizen=CInt(Text1.Text)n1=0n2=0Fori=1To【14】r=Int(Rnd*2)Ifr=【15】Thenn1=n1+1Elsen2=n2+1EndIfNextText2.Text=n1Text3.Text=n2EndSub
填空题在Visual Basic 中按文件的访问方式不同，可以将文件分为顺序文件，随机文件和 【15】 。
填空题在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。 下面是实现上述功能的程序，请填空。 Private Sub Form_Load() List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click() Dim L1 As Integer L1= 【12】 If L1 ＞=0 Then List1.RemoveItem 【13】 Labell.Caption= 【14】 Else MsgBox("请选择要删除的项目") End If End Sub
填空题在Visual Basic中，将一个窗体加载到内存进行预处理但不显示所使用的语句是{{U}} 【7】 {{/U}}。
填空题如果类C继承类B，类B继承类A，则类C继承类A，这说明继承具{{U}} 【3】 {{/U}}。
填空题下列程序运行后，输出结果为______。 Sub abcd(ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click() n%=3 Call abcd(n%) Print n% End Sub
填空题下列程序的功能是，当一个TextBox控件被拖过一个PictureBox控件时，指针从默认的箭头变为特定的图标，当Text-Box控件被拖到其他地方时，指针恢复到默认的状态。请完成下列程序。 Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer) Select Case State Case vbEnter Source.Draglcon=LoadPicture("JCONS/ARROWS/POINT03.ICO") Case______ Source.Draglcon=LoadPicture() End Select End Sub Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) Source.Draglcon=______ End Sub
填空题设有如下的Visual Basic表达式：5 * x ^ 2-3 * x-2 * Sin(A) /3，它相当于代数式 【12】 。
填空题对于软件测试，从是否需要执行被测软件的角度，可以分为静态测试和动态测试。代码检查属于 【3】 测试。
填空题执行下面程序，第一行输出结果是{{U}} {{U}} 7 {{/U}}
{{/U}}，第二行输出结果是{{U}} {{U}} 8 {{/U}} {{/U}}。
Option Explicit Private Sub Form_Click() Dim A
As Integer A=2 Call Subl(A)
End Sub Private Subl(x As Integer)
x=x*2+1 If x＜10 Then Call
Subl(x) End If x=x*2+1
Print x End Sub
填空题在数据库理论中，数据库总体逻辑结构的改变，如修改数据模式、增加新的数据类型、改变数据间联系等，不需要修改相应的应用程序，称为 【5】 。
填空题为了便于对照检查，测试用例应由输人数据和预期的 【4】 两部分组成。
填空题在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer,y As Integer)
M=IIf(x＞y,x，y)
End FUNction
Private Sub Command1 Click()
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,B)
End Sub
程序运行后，单击命令按钮，输出结果为{{U}} 【15】 {{/U}}。
填空题有如下程序：
Private Sub Command1_Click()
j =10
For i= -1 To 1 Step 0.3
j =j + 1
Next i
Print j
End Sub
该程序共循环______次，程序执行完毕后j的值是______。
填空题算法的基本特征是可行性、确定性、
________
和拥有足够的情报。
填空题下列表达式有错误，正确的写法应该是{{U}} 【6】 {{/U}}。
[(a+b) +c]/80-5÷(d+e)
填空题设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。 Dim______As Integer Private Sub Form_Load() pos=HScroIII.Value End Sub Private Sub HScroIII_Change() Print______-pos pos=HScroIII.Value End Sub
填空题阅读以下程序：
Private Sub Form_click()
Dim k,n,m As integer
n=10
m=1
k=1
Do While k＜=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是{{U}} {{U}} {{/U}}{{/U}}。
填空题以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。
Private Sub Form_click()
Dim x，y As Single
Dim z As Integer
x=InputBox("Enter a score")
Do while{{U}} 【8】 {{/U}}
y=y+x
z=z+1
x=InputBox("Enter a score")
Loop
If z=0 Then
z=1
End If
y={{U}} 【9】 {{/U}}
Print y
End Sub