填空题以下程序的功能是将字符串“12345”逆序打印出来。请在画线处填上适当的内容使程序完整。 Function rev(newl)As String b=Mid( (12) ,1,1) if b=" "then rev=" " else rev=rev(Mid(new 1,2))+ (13) end if End Function Private Sub Form_Click() old="12345" Print old Print rev(old) End Sub
填空题以下程序的功能是将多维数组a(1 To m，1 To n)中的元素转移到一个名为b(1 To n)的一维数组中，请填写空白处，完成该程序。 Option Base 1 Private Sub Command1_Click() Dim a(1 To 4,1 To 5) Dim b() ReDim______ For i=1 To 4 For j=1 To 5 a(i,j)=i*j Next i Next i Call Transf(a,4,5,B) End Sub Sub Trasf(a(),m,n,b()) Dim x As Integer x=1 For i=1 To m For i=1 To n b(x)=______ x=x+1 Next i Next i End Sub
填空题如果不指明函数过程参数的类型，则该参数的数据类型为{{U}} 【8】 {{/U}}。
填空题在窗体上有一个命令按钮，然后编写如下程序： Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num/10 Loop Trans=k Print Trans End Function Private Sub Commandl_Click( ) Dim m As Long Dim s As Long m=InputBox("请输入一个数") s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 【11】 ，在输入对话框中输入“987”输出 【12】 ，在输入对话框中输入“879”，输出结果为 【13】 。
填空题下面程序的功能是从键盘上输入一个大于100的整数m，计算并输出满足不等式1+22+32+42+…+n2＜m的最大的n，请填空。
Private Sub Command1_Click() Dim s, m,n As
Integer m=Val(InputBox("请输入一个大于100的整数"))
n={{U}} {{U}} {{/U}} {{/U}} s=0
Do While s＜m n=n+1 s=s+n*n
Loop Print "满足不等式的最大n是"{{U}} {{U}}
{{/U}} {{/U}} End Sub
填空题在Visual Basic中，用于管理文件系统的3个控件是文件列表框、目录列表框和{{U}} 【10】 {{/U}}。
填空题假定有一个文本框，其名称为Text1，为了使该文本框具有焦点，应执行的语句是 【11】 。
填空题设有如下程序： Private Sub Form_Click( ) a = 32548.56 Print Format(Int((a * 10 + 0.5))/10，"000，000.00") End Sub 程序运行后，单击窗体，输出结果是______。
填空题若界面上没有调试工具栏，可通过选中“视图”菜单中{{U}} 【1】 {{/U}}中的“调试”子菜单把它显示出来。
填空题冒泡排序算法在最好的情况下的元素交换次数为______次。
填空题如下图所示的二叉树，若按后序遍历，则其输出序列为{{U}}【1】{{/U}}。
填空题设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter="文本文件1*.txt(Word文档)*.doc" CD1.Filterinder=1 CD1.ShowOpen If CD1.FileName＜＞" "Then Open______For Input As # 1 Line Input #1,ch$ Close #1 Text1.Text=______ End If End Sub
填空题在窗体上画一个文本框和—个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Text1.Text="VB程序设计"
End Sub
Private Sub Text1_Change()
Picture1.Print"VB programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是{{U}} 【7】 {{/U}}，而在图片框中显示的内容是{{U}} 【8】 {{/U}}。
填空题下面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。 请填空。 Private Sub Form_Click() Dim i As Integer,j As Integer j=0 j=43+3 Do j=j+1 if (12) then print j i=i+1 end if Loop (13) End Sub
填空题在Visual FoxPro中，BUILD 【5】 命令连编生成的程序可以脱离开Visual FoxPro在Windows环境下运行。
填空题在数据结构的图形结构中，每个结点的前驱结点数和后续结点数可以有______个。
填空题一般地，二叉树可以有______种基本形态，
填空题以下程序的作用是生成一个如下图的矩阵，该程序不完整，请补充完改程序。PrivateSubCommand1_Click()DimA(3，3)ForM=1To3ForN=1To3IfN=MOr{{U}}【7】{{/U}}ThenA(M，N)=1Else{{U}}【8】{{/U}}=0EndIfNextNNextMForM=1To3ForN=1To3PrintA(M，N)；NextNPrintNextMEndSub
填空题在窗体上设计两个复选框，一个显示粗体，另一个显示斜体，通过对复选框的选择，在一个文本框中显示相应效果的文本，请完成下列程序。 Private Sub Form_Load0 Check1.Caption="显示粗体" Cheek2.Capfion="显示斜体" Text1.Text="May you a happy day!"End SubPrivate Sub Check1_Click0 If______= 1 Then Text1.FontBold=True Else Text1.FontBold=False End ifEnd SubPrivate Sub Check2_Click() If Check2.Value=1 Then Text1.______ Else Text1.______ End IfEnd Sub
填空题以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输 入负数时结束输入，输出结果。请补充完整下列程序段。 Dim x，amax,amin As Single x=InputBox("Enter a score") amax=x amin=x Do While 【8】 If x>amax Then amax=x End If If 【9】 Then amin=x End If x=InputBox("enter a score") Loop Print"max="；amax，"min="；amin