填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a=lnputBox("请输入第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为【 】。
填空题以下程序段执行后y的值是{{U}} {{U}} {{/U}} {{/U}}。
x=8.6
y=int(x+0.5)
print y
填空题已知B的ASCⅡ码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数。 Dim{{U}} [10]
{{/U}} Fori=65 To 90
pp(i)=0 Next x$=InputBox("Enter a
string",K$) x$=U Case$(x$) Fori=1 To
Len(x$) n=Asc(Mid$(x$,i,1)) If
n＞=65Andn＜=90Then {{U}} [11]
{{/U}} End If Nexti
Fori=65 To 90 If pp(i)＞Then
Print Chr$(i);pp(i) End If
Next
填空题创建一个窗体，在该窗体中建立两个按钮，分别命名为Command1和Command2。下列程序代码用于实现以下功能：单击命令按钮Command1后，按钮Command1变为不可用，而Cmmnand2设置为可用。请填空。
Private Sub Command1_ Click()
Command1.______ = False
Command1.______ = True
End Sub
填空题为了选择多个控件，可以按住{{U}} 【6】 {{/U}}键，然后逐个单击每个控件。
填空题用户可以用 【6】 语句定义自己的数据类型。
填空题为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须将该图像框的Stretch属性设置为 【11】 。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1 Click()
Dim a(10)As Integer
For i = 1 To 10
a(i)= i
Next
Call swap(______)
For i=1 To 10
Print a(i)；
Next
End Sub
Sub swap(b()As Integer)
n = ______
For i=1 To n/2
t = b(i)
b(i)= b(n)
b(n)= t
______
Next
End Sub
上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(”与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
填空题在窗体上先画一个名为Text1的文本框和一个名为Table1的标签，再画一个名为OP1的四个单选按钮的单选按钮数组，其Index属性按季度顺序为1-3（见图1），文件sales.txt中按月份顺序存有某企业某年12月份的销售额。要求在执行程序时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击第三季度显示的结果请填空。Dimsales(12)AsLongPrivateSubForm_Load________Open¨sales.txt¨ForInputAs#Fork=1To12Input#1，sales(k)NextkClose#1EndSubPrivateSub________(IndexAsInteger)DimsumAsLong，kAsInteger,monthAsIntegersum=0month=Index*________Fork=1To3month=month4-1sum=sum+sales(month)NextkLabel1.Caption=Op1(Index).________&"销售总额："Text1=sumEndSub
填空题下面的程序用于根据文本框Text中输入的内容进行以下处理： 若Text为4，6，则打印“Text的值为4，6”；若Text为1，3，5，7，则打印“Text的值为1，3，5，7”；若Text为8， 9，则打印“Text的值为8，9”；否则打印“Text的值不在范围内”。请填空。 Private Sub Command1_Click( ) Select Case Val(Text.Text) Case 【6】 Print“Text的值为4，6” Case 【7】 Print“Text的值为1，3，5，7” Case 【8】 Print“Text的值为8，9” Case 【9】 Print“Text的值不在范围内” End Select End Sub
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a (i)*j
j=j * 10
Next i
Print s
End Sub
运行一面的程序，单击命令按钮，其输出结果是{{U}} 【15】 {{/U}}。
填空题在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程： Private Sub Command1_Click() Dim inData As String Text1.Text=" " Open "d:/Myfile.txt" For (14) As#1 Do While (15) Input#1，inData Text1.Text=Text1.Text+inData Loop Close#1 End Sub 程序的功能是，打开D盘跟目录下的文本文件Myfile.txt，读取它的全部内容并显示在文本框中，请填空。
填空题有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余
2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub
Commandl_Click() x=Val(Text1.Text)
If{{U}} [9] {{/U}}Then
PrintX Else
Text1.Text="" {{U}} [10] {{/U}}
End If End Sub
填空题控件数组的名字由 【9】 属性指定，而数组中的每个元素由 【10】 属性指定。
填空题工程中有Form1、Form2两个窗体。Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮"计算并显示"(其名称为Command1)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示"请输入数值数据!"。请填空。PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入半径!"ElselfNotIsNumeric((9))ThenMsgBox"请输入数值数据!"Elser=Val((10))Form2.Show(11).Print"圆的面积是"＆3.14"r*rEndIfEndSub
填空题一颗二叉树的中序遍历结果为DBEAFC，前序遍历结果为ABDECF，则后序遍历结果为______。
填空题下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。PrivateSubCommand1_Click()DimxAsLong，yAsLong，iAsLongx=Val(Text1．Text)y=Val(Text2．Text)Text3．Text=Str({{U}}{{U}}{{/U}}{{/U}})EndSubFunctionfun1(aAsLong，bAsLong)AsLongDimrAsLongDimtAsLongIf{{U}}{{U}}{{/U}}{{/U}}Thent=aa=bb=tEndIfr=aModbDoWhiler＜＞0a=bb=rr=aModbLoop{{U}}{{U}}{{/U}}{{/U}}EndFunction
填空题改变驱动器列表框的Drive属性值将引发 [12] 事件。
填空题窗体上有两个图片框为Picture1和Picture2，当把Picture1拖到Picture2上时将Picture2中的图片改为Picture1中的图片，完成下列程序。 Private Sub Picture2______(Source As Control, X As Single, Y As Single, State As Integer) Picture2.Picture=______ End Sub
填空题Visual Basic应用程序中标准模块文件的扩展名是{{U}} 【1】 {{/U}} 。