填空题函数Str$(256．36)的值是【 】。
填空题数据的基本单位是{{U}} 【5】 {{/U}}。
填空题{{U}}【4】 {{/U}}是数据库设计的核心。
填空题下列程序的作用是求所有小于或等于30的自然数对。该程序不完整，请补充完该程序(程序执行结果见下图)。注：自然数对是指两个自然数的和与差都是平方数(如8与17)。PrivateSubCommand1_Click()DimnAsLongDimmAsLongDimsAsSingleDimdAsStringForn=1To30Form=1To{{U}}【9】{{/U}}s=n+m{{U}}【10】{{/U}}IfSqr(s)=Int(Sqr(s)){{U}}【11】{{/U}}Sqr(D)=Int(Sqr(D))ThenPrintn：mEndlfNextmNextnEndSub
填空题菜单编辑器可分为3个部分，即数据区、{{U}} 【11】 {{/U}}和菜单项显示区。
填空题栈的基本运算有三种：入栈、退栈和 【3】 。
填空题一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管”与实体“项目”的联系属于{{U}} 【5】 {{/U}}。
填空题在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。
Sub SORT( )
Dim a(1 To 10)
For i=1 To 10
a(i)=Val(InputBox(" " ，" "，0))
Next i
For i={{U}} 【10】 {{/U}}
k=i
For j={{U}} 【11】 {{/U}}
If a(k)＞a(j)Then{{U}} 【12】 {{/U}}
If k＜ ＞i Then
b＝a(k)
a(k)＝a(i)
a(i) =b
End If
Next j
Next i
For k=1 To 10
Print a(k)
Next k
End Sub
填空题在窗体form1上有一个驱动器列表控件Drivel，一个目录列表控件Dirl，一个文件列表控件File1，一个富文本控件Richtexbox1。要求程序运行以后，用户可以利用。Drivel选择不同驱动器，同时Dirl中显示当前选中的驱动器的目录，用户利用Dirl选择文件所在的文件夹，在Filel控件中将显示当前选中的文件夹下的文件，用户选中其中某个文件(假设为文本文件)，则该文件的内容显示在控件Richtexboxl中。补充相应的语句，使之完成所述的功能。 Private Sub Dirl_Change() 【8】 End Sub Private Sub Drive1_Change() 【9】 End Sub Private Sub Filel _Click() Dim fname AS String If 【10】 Then fname=Filel．Path & Filel．FileName Else fname=Filel．Path& "/" & Filel．FileName End If RichTextBox1．LoadFile(fname) End Sub
填空题为了在运行时把d:/pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为
________
。
填空题下面程序运行的结果为 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
填空题源程序文档化要求程序应加注释。注释一般分为序言性注释和
________
。
填空题下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,
Private Sub Command1_Click()
Dim x As Single
x = InputBox("请输入x的值" )
Select Case x
Case Is＜50
y=0.8 * x
Case 50 To 100
y=0.7 * x
{{U}} 【12】 {{/U}}
Print "输入数据出界!"
End Select
Print x, y
End Sub
填空题在显示字体对话框之前必须设置{{U}} 【6】 {{/U}}属性，否则，将发生字体不存在的错误。
填空题表达式x1-|a|+ln10+sin(x2+2π)/cos(57°)对应的Visual Basic表达式是______。
填空题______ 属性用于设置文件列表框中显示的文件类型，它可以在设计阶段用属性窗口设置，也可以通过程序代码设置。
填空题为了使标签能自动调整大小以显示标题（ Caption 属性）的全部文本内容，应把该标签的________ 属性设置为 True
填空题完成下面的程序，使显示结果如下图所示。PrivateSubForm_Click()FontSize=18Samples="15"x=(ScaleWidth_TextWidth(Samples))/2y=(ScaleHeight_TextHeight(Samples))/2CurrentX=xCurrentY=y16Sample$EndSub
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
Dim PaintStart As Boolean
编写如下事件过程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
{{U}} 【13】 {{/U}}
End Sub
Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
If PaintStart Then
PSet(X，Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_
X As Single，Y As Single)
{{U}} 【14】 {{/U}}
End Sub
Private Sub Form_Db1Click()
{{U}} 【15】 {{/U}}
End Sub
填空题已知数组A(4,4)，各个元素在运行程序时被赋值并打印，形成四除非方阵。请在______和______处填写所需的内容，使其产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如： 1 1 1 1 2 2 2 2 3 3 3 3 4 4 4 4 Private Sub Command1_Click() Dim s(4,4) For k=1 To 4 For j=1 To 4 a(k,j) =j Print a(k,j)； Next Print Next For k=2 To 4 For j=1 To [10] t=a(j,k) a(j,k)= [11] a(k,j)=t Next Next For k=1 To 4 Print a(k,1);a(k,2);a(k,3);a(k,4) Next End Sub