填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读 出数据的平方值，将该数据及其平方值存入新的顺序文件NM2．txt中。请填空。 Private Sub Form_Click() Dim x As Single，y As Single Open "NMl.txt" For Input As #1 Open "NM2.txt" For Input As #2 Do While Not EOF(1) 【14】 Print x y=x^2 【15】 Print x Loop Close #1，#2 End Sub
填空题以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 【8】 和 【9】 处填入适当的内容，将程序补充完整。 Private Sub Form_Click( ) Dim x As Single，amax As Single，amin As Single x=Input Box("Enter a score") amax=X amin=x Do While 【8】 If x＞ama x Then Ama x=x End lf If 【9】 Then amin=X End lf x=Input Box("Enter a score") Loop Print”Max="；amax，"Min="；amin End Sub
填空题(-1)*Sgn(-100+Int(Rnd*100))的值是______。
填空题Visual Basic对象可以分为两类，分别为上______和用户定义对象。
填空题在Visual Basic的立即窗口内输入以下语句 x=65 ?Chr$(x) 在窗口中显示的结果是______。
填空题在长度为n的线性表中，寻找最大项至少需要比较 (1) 次。
填空题设有程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1，Max as Integer arr1=Array(12，435，76，24，78，54，866，43) 【12】 =arr1(1) For i=1 To 8 If arr1(i)＞MaxThen 【13】 Next i Print"最大值是："；Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
填空题下列程序段的运行结果是______。 Dimnum As Integer，a As Integer,b As Integer a=88：b=24 Do While b＜＞0 num=a Modb a=b b=num Wend Printa Loop
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommandl_Click()DimrAsInteger，nAsIntegern=Text1r=Text2Text3=fun(n)/fun(______)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLong______Fork=1Tont=t*kNextfun=tEndFunction
填空题设循环队列的容量为55，如果头指针front=50(指向队头元素的前一位置)，尾指针rear=45(指向队尾)，则该循环队列中共有______个元素。
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a=lnputBox("请输入第一个数字a的值")
a=Val(a)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a+b+x
Loop
Print a
End Sub
在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为{{U}} 【9】 {{/U}}。
填空题为了把—个Visual BASIC应用程序装入内存，只要装入{{U}} 【6】 {{/U}}文件即可。
填空题下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。
Private SubCommand1_Click()
Dim a(25)As Integer，b(5，5)As Integer
For i=1 To{{U}} 【10】 {{/U}}
a(i)=Int(Rnd*25)
Print a(i)；
Next i
Print
For i=1 To 5
For i=1 To 5
b(i，j)={{U}} 【11】 {{/U}}
Print b(i，j)；
Next j
Print
Next i
End Sub
填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click()
Dim x As Single，y As Single
Open "NM1.txt" For Input As #1
Open "NM2.txt "For Input As #2
Do While Not EOF(1)
{{U}}【10】 {{/U}}
Print x
y=x^2
{{U}} 【11】 {{/U}}
Print y
Loop
Close #1, S2
End Sub
填空题以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)～A(10)依次赋给B(1，1)～B(1，10)，把A(11)～A(20)依次赋给B(2，1)～B(2，10)，……，把A(91)～A(100)依次赋给B(10，1)～B(10，10)。请填空。 Option Base 1 Private Sub Form_Click() Dim i As Integer,j As Integer Dim A(1 To 100) As Integer Dim B(1 To 10, 1 To 10) As Integer For i=1 To 100 A(i)=Int(Rnd*100) Next i For i=1 To (8) For j=1 To (9) B(i,j)= (10) Print B(i,j) Next j Print Next i End Sub
填空题下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。
例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer，n As Integer，Cout As Integer
Dim Sn As Long，Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值：")
{{U}} [10] {{/U}}
Do
Tn=Tn*10+a
Sn=Sn+Tn
Cout=Cout+1
{{U}} [11] {{/U}}
Debug Print a，n，Sn
End Sub
填空题如果一个工人可管理多个设施，而一个设施只被一个工人管理，则实体“工人”与实体“设备”之间存在{{U}} 【5】 {{/U}}关系。
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
a=Val(1nputBox(“请输入一个整数”))
b=Val(1nputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为{{U}} 【10】 {{/U}}
填空题设有整型变量s，取值范围为0～100，表示学生的成绩，有如下程序段： If s＞=90 Then Level="A" Else If s＞=75 Then Level="B" Else If s＞=60 Then Level="C" Else Level="D" End If 下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同，请填空。 Select Case s Case ______＞=95 Level="A" Case 75 To 90 Level="B" Case 60 To 74 Level="C" Case ______ Level="D" ______
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(43,68,-25,65,-78,12,-79, 43,-94, 72) pos=0 neg=0 For k=1 To 10 If Arr(k)>0 Then (8) Else (9) End If Next k Print pos, neg End Sub 以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。