填空题在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim arr()As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字：")
If Val(x)＞4 Then
ReDim art(4)
air(4)=x
End If
Me.Print(arr(4)-art(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为{{U}} 【10】 {{/U}}。
填空题在关系模型中，把数据看成一个二维表，每一个二维表称为一个 【5】 。
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填人适当的内容，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form_Click() Dim Y As Single Open“c:/Datal.txt”For Random As #2 Len=10 Y=3.14159/180 For i=1 To 90 Ksc.K=i Ksc.Sinx=Sin(i * Y) Ksc.Cosx=Cos(i * Y) ______ Next Close #2 End Sub
填空题下面程序的功能是从键盘上输入一个大于100的整数m，计算并输出满足不等式1+22+32+42+…+n2＜m的最大的n，请填空。 Private Sub Command1_Click() Dim s, m,n As Integer m=Val(InputBox("请输入一个大于100的整数")) n= (6) s=0 Do While s＜m n=n+1 s=s+n*n Loop Print "满足不等式的最大n是" (7) End Sub
填空题下列程序执行后，在窗体上按下Alt+Ctrl+A键的输出结果为______。 Private Sub Form_KeyDown(Keycode As Integer, Shift As Integer) Print shift End Sub
填空题在待排序的元素序列基本有序的前提下，效率最高的排序方法是{{U}} 【1】 {{/U}}。
填空题下面程序运行的结果为
1
11 12
21 22 23
31 32 33 34
请在画线处填上适当的内容使程序完整。
Private Sub Form_Click()
Call______
End Sub
Private Sub Pl6()
End Sub
Private Sub p16()
ForI=1 to 4
Forj=1 to I
a=______
Print Tab(j-1)*5+1)；a；
Nextj
Print
NextI
End Sub
填空题编写程序，当按下某个键时，在窗体上分别以十六进制和八进制形式输出该键的KeyCode码。请完善下列程序。 Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode)&"键的十六进制KeyCode码是"； Print 【10】 Print"八进制KeyCode码是"；Oct(KeyCode) End Sub
填空题窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:/test.txt，并将文件中的内容(多行文本) 显示在文本框中。下面是实现此功能的程序，请填空。
Private Sub Command1_Click()
Text1=""
Number=FreeFile
Open "c:/test.txt" For Input As Number
Do While NotEOF({{U}} [14] {{/U}})
Line Input #Number，s
Text1.Text=Text1.Text+{{U}} [15] {{/U}}+Chr(13)+Chr(10)
Loop
Close Number
End Sub
填空题为了改变计时器控件的时间间隔，应该修改该控件的{{U}} 【13】 {{/U}}属性。
填空题以下过程的作用是将26个小写字母逆序打印出来，请补充完整。
Sub Inverse()
For i=122 To{{U}} 【10】 {{/U}}
Print{{U}} 【11】 {{/U}}；
Next i
End Sub
填空题在Visual Basic的立即窗口内输入以下语句： X＝65＜CR＞ ? Chr$(X)＜CR＞ 在窗口中显示的结果是______。
填空题一棵二叉树的结点数为33，其最大的深度为
________
，最小的深度为
________
。
填空题窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Data1.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。PrivateTypePicgNameAsString*10物品名称picFileAsString*20物品图片的图片文件名EndTypeDimp(4)AsPic,pRecAsPicPrivateSubForm_Load()Open"Data1.txt"ForRandomAs#1________=Len(pReC)Fori=0To4Get#1,i+1,p(i)List1.AddItemp(i).gNameNextiClose#1EndSubPrivateSubList1_DblClick()Fori=0To4IfRTrim(List1.List(i))=RTrim(________)ThenPicture1.Picture=LoadPicture(p(i).________)ExitForEndIfNextEndSub
填空题以下程序找出50以内所有能构成直角三角形的整数组。请在程序 【15】 处填上正确内容。Private Sub Command1_ Click() for a = 1 To 50 for b = a To 50 c = Sqr(a ^2 + b ^2) if 【15】 then Print a; b; c Next b Next aEnd Sub
填空题下列表式有错误，正确的写法应该是{{U}} 【6】 {{/U}}。
[(a+B) +c]/80-5÷(d+e)
填空题设有程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1，Max as Integer arr1=Array(12，435，76，24，78，54，866，43) ______=arr1(1) For i=1 To 8 If arr1(i)＞MaxThen______ Next i Print"最大值是："；Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
填空题在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，如图所示，请填空。 PrivateSubOption1_Click(IndexAsInteger) SelectCase 【8】 Case0 a="宋体" Case1 a="黑体" Case2 a="楷体＿GB2312" EndSelect text1. 【9】 =a EndSub
填空题下列程序段用于计算1到20之间奇数之和与偶数之和。请填空。
x = 0:z = 0
For i = 0 To 20 Step 2
x = x + i
y = i + 1
z = y + z
Next i
{{U}}【5】 {{/U}}
Print "偶数和="; x
Print "奇数和="; z
填空题窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有一个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。 Private Sub Form_Load() File1.Pattern= (13) End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub File1_DblClick() Dim S As String*1 If Right(File1.Path,1)="/"Then f_name=File1.Path+Filel.FileName Else f_name=Filel.Path+"/"+Filel.FileName End If Open f_name (14) As#1 Text1.Text=" " Do While (15) s=Input(1，#1) Text1, Text=Text1.Text+S Loop Close#1 End Sub