填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦 函数值和余弦函数值，角度为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 【 】
Y=3．14159/180
For I=1 To 90
Ksc．K=I
Ksc．Sinx=Sin(I*Y)
Ksc．Cosx=Cos(I*Y)
【 】
Next I
Clise #2
End Sub
填空题建立一个通信录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编，用文本框输入数据。单击“添加主记录”按钮Command1时，将文本框数据写入文件，单击“显示”按钮Command2时，将文件中所有记录的内容显示在立即窗口。 Private Type PerData Name1 As String Phon As String * 11 Address As String * 10 PostCd As String * 6 End Type ______'定义PerData类型的变量xData' Privat Sub Form_Load() Open"C:/phonBook.txt"For Random Asl End Sub Private Sub Command1_Click() xData.Name1=Text1.Text xData.Phon=Text2.Text ______=Text3.Text xData.PostCd=Text4.Text Putg#1,1,xData Text1.Text=" ":Text2.Text=" " Text1.3Text=" ":Text4.Text=" " End Sub Private Sub Command2_Click() reno=LOF(1)/Len(xData) i=1 D0 While i＜＝reno Get#1,i,xData Debug.Print xData,Name1,______,xData.Address,xData.PostCd i=i+1 LooP End Sub
填空题Visual BASIC应用程序通常由3类模块组成，即窗体模块、{{U}} 【6】 {{/U}}和类模块。
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Function M(x As Integer，y As Integer) As Integer M=IIf(x＞y，x，y) End Function Private Sub Command1 Click() Dim a As Integer， b As Integer a=100 b=200 Print M(a，b) End Sub 程序运行后，单击命令按钮，输出结果为 ______。
填空题下面程序的作用是利用随机函数产生10个100～300(不包含300)之间的随机整数，打印其中是7的倍数的数，并求它们的总和。请填空。 Sub TOF() Randomize Dim s AS Double Dim a(10)As Integer For i=0 To 9 ______ Next For i=0 To 9 If______Then Print a(i) s=s+a(i) ______ Next i Print Print "S=";s End Sub
填空题下面运行程序后，单击命令按钮，输出的结果是______。 Private Sub Commandl_clck() Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# Fori=1 To 4 a(i)=i Nexti For i=3 To 6 b(i)=i Nexti s1=YAS(a) S2=YAS(b) Printt"s1="；S1"S2="；s2 End Sub FunctionYAS(a()AsInteger) Dimt#，i% t=1 For i=LBound(a)ToUBound(a) t=t*a(i) Nexti YAS=t End Funtoon
填空题如果不指明函数过程参数的类型，则该参数的数据类型为 【8】 。
填空题假设有下列程序段： For i=1 To 3 For j=5 To 1 Step-1 Print i*j Next j Next i 则语句Print i*j的执行次数是______，i的值为______，J的值为______。
填空题面向对象的程序设计方法是把{{U}} 【10】 {{/U}}封装起来作为一个对象，并为每一个对象设置所需要的 {{U}}【11】 {{/U}}。
填空题新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下： Private Sub Command1_Click() [6] Form2. [7] End Sub 试补充完整。
填空题在关系A(S, SN, D) 和关系B(D, CN, NM)中，A的主关键字是S，B的主关键字是D，则称______是关系A的外码。
填空题设有如下程序
Private Sub Search(a()As Variant,By Val key As Variant,index%)
Dim I%
For I=LBound(a) To UBound(a)
If key=a(I) Then
Index=I
Exit Sub
End If
Next I
Index=-1
End Sub
Private Sub Form_Load()
Show
Dim b() As Variant
Dim n As Integer
b=Array(1,3,5,7,9,11,13,15)
Call Search(b,11,n)
print n
End Sub
程序运行后，输出结果是______。
填空题软件按功能通常可以分为应用软件、系统软件和支撑软件（或工具软件）。UNIX操作系统属于【 5 】软件
填空题在窗体上有一个名称为Text1的文本框，有3个单选按钮，这3个单选按钮构成一个控件数组，名称为Option1。要求程序执行时，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮执行更改，如图所示。请填空。PrivateSubOption1__Click(IndexAsInteger)SelectCage________Case0a="宋体"Case1a="黑体"Case2a="楷体GB2312"EndSelectText1.________=aEndSub
填空题软件生命周期可分为多个阶段，—般分为定义阶段、开发阶段和维护阶段。编码和测试属于{{U}} 【4】 {{/U}}阶段。
填空题表达式3^2 Mod 36\ 2^5的值是 【6】
填空题执行下面的程序段后，S的值为{{U}} 【7】 {{/U}}。
s=5
For i=2.6 To 4.9Step0.6
S=s+1
Next i
填空题执行下面程序，第一行输出结果是{{U}} 【14】 {{/U}}，第二行输出结果是47。
Option Explicit
Private Sub Form_Click( )
Dim A As Integer
A=2
Call Sub1 (A)
End Sub
Private Sub1 (x As Integer)
x=x*2+1
If x＜10 Then
Call Sub1 (x)
End If
x=x*2+1
Print x
End Sub
填空题与数学表达式COS2(a+b)/5x+8对应的Visual Basic表达式是{{U}} 【1】 {{/U}}。
填空题当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行入队运算。这种情况称为【 】。