填空题设有如下的记录类型： Dim stul as student Type student number As String name As String age As Integer End Type 则引用该记录成员number的代码是______。
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() t=0:m=1:Sum=0 Do t=t+ (8) Sum=Sum+ (9) m=m+2 Loop While (10) Print Sum End Sub 该程序的功能是，单击命令按钮，则计算并输出以下表达式的值： 1+(1+3)+(1+3+5)+…+(1+3+5+…+39) 请填空。
填空题下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。 Private Sub MoveRight (x() As Integer) Dim i As Integer Dim j As Integer Dim k As Integer i = UBound (x) j = x(i) For k = i To 【7】 Step -1 【8】 Next k x(LBeund(x)) = j End Sub Private Sub Command1_click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i = 0 To 10 a(i) = i Next i j = Val(Text1. Text) k=0 Do k=k+1 Call MoveRight(a) Loop Until k = j For i = 0 To 10 Print a(i); Next i End Sub
填空题简述下列程序的功能：______。
Sub Form_Load()
Dim d As Date
d=Now
Weekx=Weekday(d)
Weeky=WeekdayName(Weekx)
If Weekx=1 Or Weekx=7Then
Debug.Print"今天是："; Weeky
Debug.Print"今天是休息日!"
Else
Debug.Print"今天是："; Weeky
Debug.Print"今天是工作日!"
End If
End Sub
填空题以下程序用来产生20个(0，99)之间的随机整数，并将其中的偶数打印出来。请填空。 Private Sub Command1_Clcik() Randomize For I=1 To 20 X=Int(Rnd* (12) ) If X/2= (13) Then Print x Next I End Sub
填空题在窗体上画一个命令按钮，然后编写如下事件过程： Option Base1 Private Sub Command1_Click() Dim a s=Array(1,2,3,4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print S End Sub 运行上面的程序，单击命令按钮，其输出结果是 【15】 。
填空题下面运行程序后，单击命令按钮，输出的结果是 【11】 。 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
填空题随机生成的10个两位数，求出它们的总和和平均数。产生两位数采用的算法如下：分别产生个位数(0～9)和十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。 说明：在窗体上有一个Command1按钮，单击它将计算10个随机数的和以及平均数，并在窗体上输出平均数。 Private Sub Command1_Click() Dim M As Integer,N As Integer,Sum As Integer Dim I As Integer, K As Integer，Ave As Single Sum=0 Randomize For I=1 To 10 M=Int(9*Rnd)+1 N= 【10】 K=M*10+N Sum= 【11】 Next I Aver= 【12】 Print Aver End Sub
填空题下列程序实现的功能是：当在窗体上单击时，将输出a1．txt 文件中的数字字符的个数。Private Sub form_ Click() Dim Ch As String * 1 Dim n As Integer Open "c:/a1. txt" for Input As #10 do while 【7】 Ch = Input(1, #10) if 【8】 then n=n+1 End if Loop 【9】 Close #10End Sub
填空题下面程序的功能是统计字符串中“广的个数，请填空。
Sub COU( )
a$="Beijing University of Technology"
Dim n AS Integer
n=Len(a$)
For i=1 To n
b$={{U}} 【12】 {{/U}}
If{{U}} 【13】 {{/U}}Then x=x+1
Next i
Print "x="；x
End Sub
填空题在窗体上画一个命令按钮，然后编写如下程序： 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=1 b=2 Print M(a, b) End Sub 程序运行后，单击命令按钮，输出结果为______。
填空题在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值：如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。OptionBase1Dima(3，2)AsInteSerPnvatcSabCommand1_Click()Fori=1To3Forj=1To2{{U}}【13】{{/U}}=i+jNextjNextiEndSubPnvateSubCommand2_Click()Forj=1To3Fori=1To2s=s+{{U}}【14】{{/U}}NextiNextjText1.Text={{U}}【15】{{/U}}EndSub
填空题在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open"c:/test.dat"For ______ As #1 For i=1 to Len(Text1.text) print #1，mid(Text1.Text,i,1) Next Close #i End Sub
填空题下列事件过程的功能是：建立一个名为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 {{U}}[14] {{/U}}
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
{{U}} [15] {{/U}}
Next i
Close #2
End Sub
填空题以下程序段的输出结果是______。 x=8.5 print int(x)+0.6
填空题顺序存储方法是把逻辑上相邻的结点存储在物理位置 【4】 的存储单元中。
填空题一个控件在窗体上的位置由 【6】 属性决定，其大小由Width和Height属性决定。
填空题下列程序运行后，在窗体上打印的结果是______。 Private Sub test(a，b，C) a=a+1 : b=b+2 : c=c+3 End Sub Private Sub Command1_Click( ) x=1 : y=2 : z=3 Call test(x，y+3，(z)) Print "Main:" : x；y；z End Sub
填空题阅读以下程序：
Private Sub Form_click()
Dim k, n, m As integer
n = 20
m = 1
k = 1
Do While k ＜= n
m=m+2
k = k + 1
Loop
Print m
End Sub
单击窗体程序的执行结果是{{U}} 【4】 {{/U}}。
填空题阅读程序： Sub p(b () As Integer) For i=1 To 4 b(i) =2(i Next i End Sub Private Sub Command1_Click() Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。