填空题建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为{{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键)，则在窗体上输出的字符分别为______ 和______ 。
填空题线性表是最简单的一种数据结构，有顺序和链接两种存储方式。线性表按链接方式存储时，每个结点的存储包括______两部分。
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时，在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中。请填空。PrivateSubCommand1_Click()DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n)/fun((9))/fun(r)EndSubFunctiontuntnAsInteger/aslongDimfAsLongX=1Fork=1Tont=t*kNextfun=tEndFunction
填空题在窗体上有一个命令按钮，然后编写如下程序： Function Trans(ByVal num As Long)As Long Dim k As Long k=1 DO While num k=k*(num Mod 10) num=num/10 Loop Trans=k Print trans End Function Private Sub Command1_Click() Dim m As Long Dim s As Long m=InputBox("请输入一个数") s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 [11] ，在输入对话框中输入“987”输出 [12] ，在输入对话框中输入“879”，输出结果为 [13] 。
填空题下列程序的功能是：当x＜50时，y=0.8 x；当50≤x≤100时，y:0.7 x；当x＞100时，没有意义。请填空。 Private Sub Command1_Click() Dim X As Single x:InputBox(“请输入x的值！”) Select Case X Case Is ＜ 50 y=0.8*X Case 50 To 100 y=07 *x (12) Print“输入的数据出界！” End Select Print X，y End Sub