填空题下面程序运行的结果如下： 1 11 12 21 22 23 31 32 33 34 请在画线处填上适当的内容，将程序补充完整。 Private Sub Form_Click() Call (10) End Sub Private Sub p16() For I=1 to 4 For i=1 to I a= (11) Print Tab((j-1)*5+1);a; Next i Print Next I End Sub
填空题程序执行结果s的值是{{U}} 【7】 {{/U}}。
Private Sub sub1(Byval p As Integer)
p=p*2
End Sub
Private Sub Command1_click()
Dim i As Integer
i=3
Call sub1(i)
if i＞4 then i=i mod 2
Print cstr(i)
End Sub
填空题使数据库表变为自由表的命令是【3】TABLE。
填空题设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。 Private Sub Command1_Click() CommonDialogl.Flags=cdlCCRGBInit CommonDialogl.Color=Text1.ForeColor 【9】 Text1.ForeColor=CommonDialog1.Color End Sub
填空题下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open"Num．txt”For Output As#1
For i=1 To 8
______
Next
Close#1
End Sub
填空题随机生成的10个两位数，求出它们的总和与平均数。产生两位数采用的算法如下：分别产生个位数(0～9)和十位数(1～9)，然后十位数乘10再加上个位数即得到一个两位数。
说明：在窗体上有一个Commandl按钮，单击它将计算10个随机数的和与平均数，
并在窗体上输出平均数。
Private Sub Commandl Click()
Dim m As Integer, n As Integer, sum As Integer
Dim i As Integer, k As Integer, aver As Single
sum=0
Randomize
For i＝1 To 10
m＝Int(9*RnD) +1
n={{U}} 【9】 {{/U}}
k=m*10+n
sum={{U}} 【10】 {{/U}}
Next i
aver={{U}} 【11】 {{/U}}
Print aver
End Sub
填空题具有88个结点的二叉树，其深度至少为 【2】 。
填空题下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为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 【15】 Y=3. 14159 / 180 For i=1 To 90 Ksc. K=i Ksc. Sinx = Sin ( i * Y) Ksc. Cosx = Cos ( i * Y) Put #2, i, Ksc Next i Close #2 End Sub
填空题在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计一个子菜单项“增加菜单”(Name 属性值为mnuAdd) 另外设置一个标题为空的菜单项(控件数组)，其Name属性值为mnuDyn,Index值为0，Visible属性值为False；然后编写以下程序来实现增加菜单项的功能。 Dim IndexId As Integer Private Sub mnuAdd_Click( ) Dim mnuCaption As String mnuCaption = InputBox("请输入菜单项的标题") IndexId = 【13】 【14】 mnuDyn(IndexId) mnuDyn(IndexId) . Caption = mnucaption mnuDyn(IndexId) . 【15】 = True End Sub
填空题在算法的4个特征中，算法必须能在执行有限个步骤之后终止，指的是算法的 (1) 性。
填空题在程序的每个空白处填写一条适当的语句，使程序完成相应的操作。程序实现的功能是：窗体上有文本框Text1和若干复选框，其中复选框Check1设置文本框Text1显示的文本是否加下划线。Check1的单击事件过程如下： Private Sub Check1_Click() If ______ Then Text1.FontUnderline=True ElseIf ______ Then Text1.FontUnderline=False End If End Sub
填空题执行以下语句后，输出的结果是
________
、
________
。
A$="Good"
B$="Morning"
Print A$＋B$
Print A$&B$
填空题对于顺序存储的队列，存储空间大小为n，头指针为F，尾指针为R。若在逻辑上看成一个环，则队列中元素的个数为 【2】 。
填空题{{U}} 【5】 {{/U}}是从二维表列的方向进行的运算。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1_Click() Dim m As Integer,x As Integer Dim flag As Boolean flag=False n=Val(InputBox("请输入任意1个正整数")) Do While Not flag a=2 flag= (7) Do While flag And a＜=Int(Sqr(n)) If n/a=n/a Then flag=False Else (8) End If Loop If Not flag Then n=n+1 Loop Print (9) End Sub 上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。请填空完善程序。
填空题在E-R图中，______表示实体间的联系。
填空题有如下程序：
Private Sub Command1_Click()
j =10
For i= -1 To 1 Step 0.3
j =j + 1
Next i
Print j
End Sub
该程序共循环{{U}} 【7】 {{/U}}次，程序执行完毕后j的值是{{U}} 【8】 {{/U}}。
填空题有时候需要暂时关闭计时器，这可以通过 【11】 属性来实现。
填空题Visual Basic中允许出现的数为______。 ±25.74 3．47E-10 .368 1.87E+50 10^(1.256) D32 2.5E 12E3 34.75D+6 0.258