填空题在VB中，语句定义符Const定义的是 【12】 。
填空题在窗体画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_CIick()
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
程序运行后，单击命令按钮，输出结果是
________
。
填空题在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发【 】事件，当对象失 去焦点时将触发【 】事件。
填空题下列程序的功能是求336的个位和十位数的值，填空补充程序。 Private Sub
Command1 Click() n=1 For i=1 To 6
n=n*33 n=n Mod 100 Next
i m={{U}} {{U}} {{/U}} {{/U}}
n={{U}} {{U}} {{/U}} {{/U}}
Print"十位数是”；n；”个位数是”；m End Sub
填空题建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为{{U}} {{/U}}、{{U}} {{/U}}、ShowColor、ShowFont 和 ShowPrinter。
填空题把窗体的KeyPreview属性设置为True，并编写如下两个事件过程： Private Sub Form_KeyDown( KeyCode As Integer, Shift As Integer) Print KeyCode; End Sub Private Sub Form_KeyPress( KeyAscii As Integer) Print Key Ascii End Sub 程序运行后，如果按下a键，则在窗上输出的数值为 【14】 。
填空题在扩展的E-R模型中，子类 【5】 超类所有的联系和属性。
填空题已知数组A(4，4)，各个元素在运行程序时被赋值并打印，形成四阶方阵。请在
________
和
________
处填所需的内容，使其产生一个转置矩阵(即行列互换)，仍放在数组A中，并打印出来。例如：
1 2 3 4
1 2 3 4
1 2 3 4
1 2 3 4
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4
Private Sub Command1_Click()
Dim a(4,4)
For k=1 To 4
Fori=1 To 4
a(k,j):j
Print a(k,j);
Next
Print
Next
For k=2 To 4
Forj=1 To
________
t=a(j,k)
a(j,k)=
________
a(k,j)=t
Next
Next
For k=1 To 4
Print a( k,1);a( k,2);a(k,3);a(k,4)
Next
End Sub
填空题程序测试分为静态测试和动态测试。其中______是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。
填空题已知B的ASCⅡ码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数。 Dim [10] Fori=65 To 90 pp(i)=0 Next x$=InputBox("Enter a string",K$) x$=U Case$(x$) Fori=1 To Len(x$) n=Asc(Mid$(x$,i,1)) If n＞=65Andn＜=90Then [11] End If Nexti Fori=65 To 90 If pp(i)＞Then Print Chr$(i);pp(i) End If Next
填空题以下程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。 Option Base 1 Private Sub Commandl_Click() Dimarrl DimMin As Integer,i As Integer arrl=Array(12，435，76，-24，78，54，866，43) Min= [11] Fori=2 To 8 If arrl(i)＜Min Then [12] Nexti Print"最小值是:";Min End Sub
填空题窗体中有图片框(Picturel)和计时器(Timerl)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动300twip。请填空。PrivateSubForm_Load()Picturel.Picture=LoadPicture("c：/MyDocuments/图片/Qianl_Icon02.ico")______EndSubPrivateSubTimer1_Timer()Staticx，yAsIntegerx=x+300y=y+300Picturel.Movex，yEndSub
填空题在KeyDown和KeyUp事件过程中，当参数Shift的值为十进制数1，2，4时，分别代表Shift、{{U}} 【8】 {{/U}}、{{U}} 【9】 {{/U}}。
填空题在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a(10)As Integer
For i=1 To 10
a(i)=(i)
Next
Call swap({{U}} 【13】 {{/U}})
For i=1 T0 10
Print a(i)
Next
End Sub
Sub swap(b( )As Integer)
n={{U}} 【14】 {{/U}}
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
{{U}} 【15】 {{/U}}
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换；a(2)与 a(9)的值互换;……a(5)与a(6)的值互换。请填空。
填空题下列程序的功能是计算两个自然数的最大公约数，如下图所示。给定的程序不完整，将程序补充完整。PrivateSubCommand1_Click()DimxAsLong，yAsLong，iAsLongx=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=Stir((13))EndSubFunctionfun1(aAsLong，b/isLong)AsLongDimrAsLongDimtAsLongIf(14)Thent=aa=bb=tEndIfr=aModbDoWhiler＜＞0a=bb=rr=aModbLoop(15)EndFunction
填空题有如下事件过程： Private Sub Form_Active() Dim Score(1 to 3) As Integer Dim i As Integer Dim t As Variant For i=3 To 1 step-1 Score (i)=2*i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为______。
填空题与数学表达式cos (a+B) /3x+5对应的Visual Basic表达式是 【9】 。
填空题定义动态数组需要分两步进行，首先在模块级或程序级定义一个没有下标的数组，然后在______使用______语句定义数组的实际元素个数。
填空题 (3) (黑箱或白箱)测试方法完全不考虑程序的内部结构和内部特征。
填空题对窗体编写如下两个事件过程：
Private Sub Form_ KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr (KeyCode)
End Sub
Private Sub Form_ KeyPress (KeyAscii As Integer)
Print Chr (KeyAscii)
End Sub
程序运行后，如果直接按键盘上的a键(即不按住shift键)，则在窗体上输出的字符分别为______ 和______ 。