填空题在窗体上画一个命令按钮，然后编写如下程序： (假定变量x是一个窗体级变量)
Dim x As Integer
Sub inc(a As Integer)
X=x+a
End Sub
Private Sub Camunand1_Click()
inc 2
inc 3
inc 4
Print x;
End Sub
程序执行后，单击Command1命令，按钮，输出的结果是{{U}} 【11】 {{/U}}。
填空题程序如下： Private Sub Form_Click( ) Const PI=3.14159 Dim r As Single, S As Single R=InputBox("请输入圆的半径"，"输入数据"，"50") S=PI*r*r Print "S="；Format(S，"|###.###.##") End Sub 程序运行后，单击窗体，将显示一个输入对话框，输入35，则单击“确定”按钮后，输出结果为______。
填空题在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后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 Instr(str,C)=O Then s= (8) End If C=Chr $(Asdc(-1) Wend If S＜＞“”Then Text1=s End If End Sub
填空题在窗体上画—个命令按钮，然后编写如程序： (假定变量x是一个窗体级变量)
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
Print x；
End Sub
程序执行后，单击Command1命令按钮，输出的结果是{{U}} 【11】 {{/U}}。
填空题子程序通常分为两类： 【2】 和函数，前者是命令的抽象，后者是为了求值。
填空题以下程序的功能是：从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 Private Sub Form_click() Dim x，y As Single Dim z As Integer x=InputBox("Enter a score") Do while 【8】 y=y+x z=z+1 x=InputBox("Enter a score") Loop If z=0 Then z=1 End If y= 【9】 Print y End Sub
填空题在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机整数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后将计算结果显示在Label2中。请填空。PrivateSubCommand1_Click()Sum=0Fori=0TO4Sum=Sum+【11】Next【12】=SumEndSub
填空题设C盘根目录下有一文件名为“a1.txt”，若该文件还没有打开，现在要知道它的长度，可使用命令{{U}} 【6】 {{/U}}。
填空题在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图2.2所示。请在空白处填入适当的内容，将程序补充完整。PrivateSubForm_Load()List1.AddItem"北京"List1.AddItem"上海"List1.AddItem"河北"EndSubPrivateSubList1_Dblclick()Labe1.Caption=______EndSub
填空题新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下，请填空。 Private Sub Command1_Click() Form1.Hide Form2. ______ End Sub
填空题下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click() Dim i As Integer Open ______ As #1 For i=1 To 10 Prin t#1,i Next Close #1 End Sub
填空题在单链表中，要删除一个指定的结点，必须要找到该结点的______。
填空题表达式3^2 Mod 36/ 2^5的值是【 】
填空题算法的工作量大小和实现算法所需要的存储单元分别称为算法的{{U}} 【1】 {{/U}}。
填空题执行以下语句后，输出结果为______。
s$="ABCDEFG"
Print InStr(s$，"efg")
Print LCase$(s$)
填空题下列事件过程的功能是：通过Form _ Load事件给数组赋初值为35、48、15、22、67，Form_
Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程
序补充完整。
Dim Arr ( )
Private Sub Form _ Load( )
{{U}} 【8】 {{/U}}
End Sub
Private Sub Form _ Click( )
{{U}} 【9】 {{/U}}
If Int(x/3)=x/3 Then
Print x
End If
Next x
End Sub
填空题DefSng a定义的变量a是______类型的变量。
填空题因为顺序栈的空间有限，因此在插入运算时，可能会发生 【1】 。
填空题设有如下的Visual Basic表达式：5*x^2-3*x-2*Sin(A) /3，它相当于代数式{{U}} 【12】 {{/U}}。