填空题当数据库的存储结构改变时，可相应修改 【5】 ，从而保持模式不变。
填空题表达式Len(Str(1.3))Mod 2的值为______。
填空题设有如下程序： Private Sub Form_Click() Dim a As Integer,s As Integer n=8 s=0 Do s=s+n n=n-1 Loop While n＞0 Print s End Sub 以上程序的功能是 (10) 。程序运行后，单击窗体，输出结果是 (11) 。
填空题将金牌榜.DBF中的新增加的字段奖牌总数设置为金牌数、银牌数、铜牌数三项的和，应使用SQL语句【14】金牌榜【15】奖牌总数=金牌数+银牌数+铜牌数。
填空题下列过程的功能是：在对多个文本框进行输入时，对第1个文本框(text1)输入完毕后用回车键使焦点跳到第2个文本框(text2)，而不是Tab键来切换。请完成该程序。 Private Sub Textl_(eyDown(Keycode As Integer，Shift As Integer) If [14] Then Text2. [15] End If End Sub
填空题下列程序的输出结果为 【10】 。 num=2 While num num=num+1 Print num Wend
填空题下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。 首先在窗体层定义如下变量： Dim PaintStart As Boolean 编写如下事件过程： Private Sub Form_Load ( ) DrawWidth = 2 ForeColor = vbGreen End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PaintStart = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If PaintStart Then PSet (X, Y) End If End Sub Private Sub Form_MouseUp (Button As Integer, Shift As Integer, _ X As Single, Y As Single) ______ End Sub Private Sub Form_DblClick( ) Cls End Sub
填空题在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35，48，15，22，67。Form_Click事件过程对数组元素进行处理。
DimA rr(1 To 5)
Private Sub Form_Load()
7
End Sub
Private Form_Click()
8
If Int(x/3)=x/3 Then
PrintX
End If
Next X
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}} 【12】 {{/U}} n={{U}} 【13】 {{/U}} Print"十位数是”；n；”个位数是”；m End Sub
填空题为了便于使用，Visual Basic为每个控件规定了一个默认属性，在设置该属性时，不需要给出属性名，通常把该属性称为______。
填空题{{U}}【4】 {{/U}}的功能是查看指定表达式的值。
填空题在Visual Basic中，实参传递给形参有两种方式，
________
方式可以通过改变过程中的相应的参数来改变实参变量的值；而
________
被调用过程中改变了这个形参的值，但对应的实参的值并不改变。
填空题实现算法所需的存储单元多少和算法的工作量大小分别称为算法的 【2】 。
填空题以下程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。 Private Sub Command1_Click() Text1.Text="" For n=3 To 100 k=Int(Sqr(n)) i=2:Flag=0 Do While i＜=______And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop If______Then Text1.Text=Text1.Text & Str(n) & Chr(13) & chr(10) End If Next n End Sub
填空题在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 Forml． 【7】 pmenu
填空题以下程序的功能是，产生10个0～1000的随机整数，放入数组Arr中，然后输出其中的最大值。请完善下列程序。
Option Base 1
Private Sub Form_Click()
Dim Arr(10)As Integer
Dim Max As Integer
Randomize
For i = 1 To 10
Arr(i)= Int(Rnd * 1000)
Next i
Max ={{U}} 【14】 {{/U}}
For i = 2 To 10
If{{U}} 【15】 {{/U}}Then
Max = Arr(i)
End If
Next i
Print Max
End Sub
填空题语句Print"Int(-13.2)="；Int(-13.2)的输出结果为______。
填空题在窗体上画一个名称为Timer1的计时器控件，其Enabled属性值为False，Interval属性值设为100。要求程序运行后，当鼠标在窗体上移动时，沿鼠标经过的轨迹画出一系列半径为100的小圆。其效果如图所示。以下是实现上述功能的程序，请填空。
Dim a As Integer, b As Integer
Private Sub Form_【 14 】(Button As Integer,Shift As Integer,X As Single,Y As Single)
a=X
b=Y
Timer1.Enabled=【 15 】
End Sub
Private Sub Timer1_timer( )
Form1.Cirle(a,b),100 ‘以(a,b)为圆心画一个半径为100的圆
End Sub
填空题数据库的逻辑结构设计阶段的主要内容是将E-R模型中的实体和{{U}} 【5】 {{/U}}转换为关系模式。
填空题在最坏情况下，冒泡排序的时间复杂度为 (1) 。