填空题在程序的空白行处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除。 Do While List2 ListCount ______ List2. Removeltem 0 Loop
填空题程序执行结果s的值是 【7】 。 Private Sub subl(Byval p As Integer) p=p*2 End Sub Private Sub Commandl_Click() Dim i As Integer i=3 Call subl(i) ifi＞4 then i=i mod 2 Print cstr(i) End Sub
填空题在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
Dim Art
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
【 】
Else
【 】
End If
Next k
Print pos，neg
End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。
填空题下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10) As Integer Dim max As Integer Randomize For i%=1 To 10 an(i%)=______ Next max=an(1) For i%=2 to 10 if an(i%) ＞max then max=an(i%) End IF Next Print max End Sub
填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click0 Dim X As Single,y As Single Open"NM1.txt"For Input As #1 Open"NM2.txt"For OutputAs#2 Do While Not EOF(1) ______ Print X y=x^2 Print#2,x,f Printy Loop Close#1,#2 End Sub
填空题下面程序的运行结果是在窗体中显示的：运行后窗体上显示的是______。
填空题设A=2，B=-4，则表达式3*A＞5 0r B+8＞0的值是上______。
填空题以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输出7个分数，单击“计算得分”命令按钮， 则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)请将程序补充完整。 Private Sub Command1_click() Dim k As Integer Dim sum As Single,max As Single,min As Single Sum=Text1(0) max=Text1(0) min= (7) For k=1 To 6 If max c Text1(k)Then max= Text1(k) End If If min＞Text1(k) Then min=Text1(k) End If sum=sum+Text1(k) Next k Text2=(sum-max-min)/5 End Sub
填空题下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dim a(10) For j=1 To 10 a(i)=Int( [14] ) If [15] Then k=k+1 Print a(j) Next J Print Print k/10 End Suh
填空题数据库语言由 【4】 和数据操纵语言(DML)组成，它为用户提供了交互使用数据库的方法。
填空题以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text="" Open"./smtext1. (12) AS#1 Do While (13) Input#1,inData Text1.Text=Text1.Text&inData Loop Close#1 End Sub
填空题按照排序过程涉及的存储设备的不同，排序可分为______和______。
填空题窗体上有两个控件：一个是驱动器列表框Drive1，另一个是目录列表框Dir1，现在要使目录列表框跟随驱动器列表框的变化而变化，则需在Drive1_Change事件过程中填入语句
________
。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()n=1f=1s=0Fori=1Tonf=f{{U}}【8】{{/U}}s=s+fNextPrintsEndSub该事件过程的功能是计算的值。请填空。
填空题有一个事件过程，其功能是：从已存在于磁盘上的顺序文件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}} [14] {{/U}}
Print x
y=x^2
{{U}} [15] {{/U}}
Print y
Loop
Close #1，#2
End Sub
填空题窗体如下图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下列的属性设置和程序，以便实现上述功能。(1)Timer1的Interval属性的值应事先设置为________(2)PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfImage1.Left＞＝________ThenImage1.Left=________-100EndIfEndSub
填空题数据模型按不同的应用层次分为三种类型，它们是
________
数据模型、逻辑数据模型和物理数据模型。
填空题下面程序运行后，输出的结果为______。
填空题在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是{{U}} 【13】 {{/U}}。
填空题执行inputbox函数后，会产生一个对话框，对话框上通常有两个按钮，它们是______按钮和取消按钮。