填空题下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填上合适的代码，将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
______"定义Ang类型的变量Ksc
Private Sub Form_Click()
Dim Y As Single
Open "C:/Data1.txt"For Random As #1 Len=10
Put #l, 1, Ksc
Y=3.14159/180
For i=1 To 90
Ksc.K = i
_______ = Sin(i * Y)"给变量Ksc的正弦函数值赋值
Ksc. Cosx=Cos(i * Y)
Next i
Close #1
End Sub
填空题在面向对象的程序设计中，类描述的是具有相似性质的一组{{U}} 【3】 {{/U}}。
填空题下面运行程序后，单击命令按钮，输出的结果是【 】。
Private Sub Command1_Click( )
Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(B)
Print"s1="；s1；"s2="；s2
End Sub
Function YAS(a( )As Integer)
Dim t#，i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
填空题设有如下程序段： a$="BeijingShanghai" b$=Mid(a$，InStr(a$，"g")+1) 执行上面的程序段后，变量b$的值为______。
填空题已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim pp (65 To 90) For i = 65 To 90 pp(i) =0 Next x$ = InputBox(" Enter a string", x$ ) x$ = UCase$ (x$) For i = 1 To Len (x$) n =Asc(Mid$ (x$, i, 1) ) If n＞= 65 And n＜ = 90 Then 【11】 End If Next For i = 65 To 90 Ifpp(i)＞0Then Print Chr$ (i) ; pp (i) End If Next
填空题在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发______事件，当对象失去焦点时将触发______事件。
填空题在程序运行时，如果将框架的______属性设为False，则框架的标题呈灰色，同时框架内的所有对象均被屏蔽，不允许用户对其进行操作。
填空题在Visual Basic的立即窗口内输入以下语句：
X=97 ＜CR＞
?Chr$(X) ＜CR＞
在窗口中显示的结果是______。
填空题下列事件过程的功能是：建立一个名为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 [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
填空题在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load() Open "d:/temp/dat.txt" For Output As #1 Text1.Text="" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If (8) =13 Then If UCase(Text1.Text)= (9) Then Close #1 End Else Write #1, (10) Text1.Text="" End If End If End Sub 以上程序的功能是：在D盘的temp目录下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入END，则结束程序。请填空。
填空题下面语句Static x(7，8)As Double定义了______个元素。
填空题在树形结构中，没有前件的结点是______。
填空题以下过程用来在w数组中插入x，w数组中的数已按由小到大的／顷序存放，n指存储单元中存放数组中数据的个数，插入后数组中的数仍有序。请填空补充程序。 Sub fun(w，x，n) Dim i，p p=0 w(n)=x Do While x＞w(p) 【11】 Loop For i=n to p+1 Step-1 w(i)= 【12】 Next i w(p)=x n=n+1 Sub End
填空题执行下面程序，第一行输出结果是 [11] ，第二行输出结果是 [12] 。 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
填空题在名称为Form1的窗体上画一个名称为Text1的文本框，画一个名称为Command1的命令按钮。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。 请在空白处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open "c:/test.dat" For Output As#1 For I=1 To Len(Text1.text) (15) Next I Ciose#1 End Sub
填空题在Visual Basic中按文件的访问方式不同，可将文件分为 【9】 。
填空题设C盘根目录下有一文件名为“a1.txt”，若该文件还没有打开，现在要知道它的长度，可使用命令 【6】 。
填空题本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有3个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图16-12所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。PrivateSubCommand1_Click()Randomizen=CInt(Text1.Text)n1=0n2=0Fori=1To【14】r=Int(Rnd*2)Ifr=【15】Thenn1=n1+1Elsen2=n2+1EndIfNextText2.Text=n1Text3.Text=n2EndSub
填空题在Visual Basic 中按文件的访问方式不同，可以将文件分为顺序文件，随机文件和 【15】 。
填空题在窗体上画一个列表框、一个命令按钮和一个标签。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数。 下面是实现上述功能的程序，请填空。 Private Sub Form_Load() List1.AddItem "AAAAA" List1.AddItem "BBBBB" List1.AddItem "CCCCC" List1.AddItem "DDDDD" End Sub Private Sub Command1_Click() Dim L1 As Integer L1= 【12】 If L1 ＞=0 Then List1.RemoveItem 【13】 Labell.Caption= 【14】 Else MsgBox("请选择要删除的项目") End If End Sub