填空题下列事件过程的功能是：建立一个名为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 (14) Y=3.14159/180 For i=1 TO 90 Ksc.K=i Ksc.Sinx=Sin(i*Y) Ksc.Cosx=Cos(i*Y) (15) Next i Close#2 End Sub
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Prirate Sub Command1_Click()
a＄="Nationalcomputer rank Examination"
n=Len(a＄)
s=0
For i=1 To n
b＄=Mid(a＄，i，1)
If b＄="n" Then
s=s+1
End If
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是【 】。
填空题Visual FoxPro中数据库文件的扩展名(后缀)是【10】。
填空题在窗体上画一个名称为Command1的命令按钮，编写如下事件过程 Private Sub Command1_Click( ) Dim a As String a= 【11】 For i=1 To 5 Print Space(6-i)；Mid $(a，6-i，2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。
填空题全面支持软件开发过程的软件工具集合被称为______。
填空题在代码窗口中输入某行代码并按回车键后，如果代码变成红色，表示______。
填空题设有下列二叉树：对此二叉树前序遍历的结果为【4】
填空题下面程序的功能是统计字符串中“i”的个数，请填空。
Sub COU( )
Dim n As Integer
a$ = "Beijing University of Technology"
n = Len(a$ )
For i = 1 To n
b$ =Mid$(a$,i, 1)
If{{U}} 【11】 {{/U}}Then x=x + 1
Next
Print "x ="; x
End Sub
填空题表达式25.38Mod 6.98的值是______。
填空题在一个窗体上有一个命令按钮，CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。
Private Sub Form_Load()
Form1.Caption=“字体变化示范”
CmdMax.Caption=“字体变大”
End Sub
Private Sub CmdMax_Click()
{{U}}【8】 {{/U}}
Form1.Print“字体由小变大”
End Sub
填空题设a=10，b=9，c=8，则执行以下两条语句，变量b的值为______。 a=CInt(b/(10/(c/2))) b=c Mod a
填空题为了在运行时把“d:/pie”文件夹下的图形文件“a. jpg”装入图片框Picturel，所使用的语句为 【6】 。
填空题以下循环的执行次数是{{U}} 【9】 {{/U}}。
k=0
Do Until k＞=10
k=k+1
Loop
填空题组合框有3种不同的类型，这3种类型是下拉式组合框、简单组合框、下拉式列表框，分别通过将 【11】 属性设置为0、1、2宋实现。
填空题Visual Basic中的对象主要指______和______。Visual Basic中含有三种控件： ______、______和OLE控件。
填空题给定年份，下列程序用来判断该年是否是闰年，请填空。
Sub YN( )
Dim X AS Integer
x＝Input Box("请输入年号")
If( x Mod 4=0 【 】 x Mod l000) 【 】 (x Mod 400=0)Then
Print"是闰年"
Else
Print"不是闰年，是普通年份"
End If
End Sub
填空题下面程序的功能是：将数组a中下标值为偶数的元素从小到大排列，其他元素不变。 Dim a(1 To 10)，i，j，k For i=1 To 10 a(i)：InputBox("input：") Next i For i；1 To 10 Print a(i) Next i Print For i=2 To 10 【14】 For j=i+2 To 10 If 【15】 Then t=a(i) a(i)=a(j) a(j)=t End If Next j Next i For i=1 To 10 Print a(i) Next i
填空题下列程序段的作用是控制窗体的显示与隐藏。请填空。
Private Sub Form_Click()
Dim msg As Integer
Me.
________
MsgBox "单击Ok显示窗体"
Form1.
________
End Sub
填空题设有如下程序： Private Sub Form_Click()
Dim a As Integer,s As Integer n=8
s=0 Do s=s+n n=n-1
Loop While n＞0 Print s End
Sub 以上程序的功能是{{U}} {{U}} 5 {{/U}}
{{/U}}。程序运行后，单击窗体，输出结果是{{U}} {{U}} 6 {{/U}} {{/U}}。
填空题为了把通用对话框控件添加到工具箱中，应在______对话框的“控件”选项卡中选择______。