填空题设有如下表达式：10*x^2+5*x-2*Sin(B)/2，它相当于代数式 【9】 。
填空题下列程序段的执行结果为______。 Dim A(10,10) For i=2 To 4 For j=4 To 5 A(i,j)=i*j Next Next Prim A(2,5)+A(3,4)+A(4,5)
填空题栈的基本运算有三种：入栈、退栈和
________
。
填空题Visual Basic 6.0的三个版本中，最完整的是______。
填空题在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Labell和 Commandl，然后编写如下两个事件过程；
Private Sub Command1_Click()
S＄= InputBox ("请输入1个字符串")
Text1.Text= S＄
End Sub
Private Sub Text1_Change()
Labell.Caption = UCase(Mid(Text1, Text2, 8))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"Visual Basic"，则在标签中显示的内容是______。
填空题描述"X是小于500的非负整数"的Visual Basic表达式是______。
填空题在用Visual Basic开发应用程序时，一般需要建立可视用户界面、设置对象属性和______三步。
填空题一个类可以直接或间接的祖先中继承所有的属性和方法．采用这个方法可以提高了软件的 【1】 。
填空题为了使标签能自动调整大小以显示全部文本内容，应把标签的
________
属性设置为True。
填空题窗体布局窗口的主要用途是上______。
填空题用户可以用 (13) 语句定义自己的数据类型。
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程：
Private Sub Form_ KeyDown(KeyCode As Integer，Shift As Integer)
Print KeyCode；
End Sub
Private Sub Form_ KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
程序运行后，如果按下A键，则在窗体上输出的数值为{{U}} 【11】 {{/U}}和{{U}} 【12】 {{/U}}。
填空题下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件myfile1．Dat中。
Private Sub Form_Click()
Dim k As Integer
Open{{U}} 【13】 {{/U}}
Randomize
For i=1 To 10
k=100+Int(899*Rnd)
{{U}} 【14】 {{/U}}
Next i
{{U}}【15】 {{/U}}
End Sub
填空题在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下程序： Function Fun(x As Integer, ByValy As Integer)As Integer x=x+y If x＜0 Then Fun=X Else Fun=y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=-10:b=5 Text1. Text=Fun(a, b) Text2. Text=Fun(a, b) End Sub 程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和______。
填空题要使一个命令按钮成为图形命令按钮，则应设置______属性值。
填空题本程序将顺序文件A:、MYFILE.TXT的内容一个字符一个字符地读入文本框txtTest中。请将程序补充完整。 Private Sub Form_Click() Dim InputData As String txtText.Text="" ______ Do While______ ______ txtTest.Text = txtTest.Text +InputData Loop ______ End Sub
填空题在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块(桩模块)。其中{{U}} 【5】 {{/U}}的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。
填空题窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1，在它们下面有一个图片框pic1。要求选择一个bmp文件，即单击文件列表框中的某个文件时，将该文件显示在图片框中。请在空白处填入适当的内容，将程序补充完整。 Option Explicit Private Sub File1_Click() Dim fn As String If Len(Dir1.Path)=3 Then Fn=Dir1.Pach+File1.FileName Else Fn=Dir1.Path & "/"&______ End if Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels Pic1.Picture=______ End Sub Private Sub Form Load() File1.FileName="*.bmp" End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub
填空题在C盘当前文件夹下建立一个名为StuData. txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。 Private Sub Form Click() Open"C: StuData. txt"For OutPut As#1 Fori=1 To 5 StuNo=InpuzztBox(“请输入学号”) StuName=InputBox(“请输入姓名”) StuEng=Val(InputBox(“请输入英语成绩”)) 【15】 Next i Close#1End Sub
填空题在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图2.2所示。请在空白处填入适当的内容，将程序补充完整。PrivateSubForm_Load()List1.AddItem"北京"List1.AddItem"上海"List1.AddItem"河北"EndSubPrivateSubList1_Dblclick()Labe1.Caption=______EndSub