填空题设有整型变量s，取值范围为0～100，表示学生的成绩。有如下程序段： If s＞=90
Then Level="A" Else If S＞=75
Then Level="B" Elself S＞=60
Then Level="C" Else
Level="D" End If
下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同。请填空。 Select Case
s Case {{U}} {{U}} 15 {{/U}}
{{/U}}＞=90 Level="A" Case 75 To 89
Level="B" Case 60 To 74
Level="C" Case {{U}} {{U}} 16 {{/U}}
{{/U}} Level="D" End Select
填空题在菜单中，唯一能够识别的事件是 (15) 。
填空题下面程序是用来打印九九乘法表的，请填空。
Private Sub Form_Click()
Dim flag As Integer,i As Integer,j As Integer,Str1$
Str1＝“”
For i＝1 To 9
{{U}} 【11】 {{/U}}
For j＝1 To 9
If {{U}}【12】 {{/U}} Then
str1=str1+Str$(j)+“*”+Str$(i)+“=”+Str$(Val(i*j))
Else
str1＝str1 & Chf(13)
Exit For
End If
Next j
Next i
Print str1
End Sub
填空题下列程序是用来计算1+2+3+…+10，将程序补充完整。 Dim i,s,k As Integer s=0:k=0 For (6) To-1 k=k+1 s=s+k Next i Print s
填空题函数Mal("123.45")+Val("233.6")的值是 【7】 。
填空题在数据库设计中，“设计E-R图”是______阶段的任务。
填空题在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。
Sub SORT( )
Dim a(1 To 10)
For i=1 To 10
a(i)=Val(InputBox(" " ，" "，0))
Next i
For i=【 】
k=i
For j=【 】
If a(k)＞a(j)Then 【 】
If k＜ ＞i Then
b＝a(k)
a(k)＝a(i)
a(i) =b
End If
Next j
Next i
For k=1 To 10
Print a(k)
Next k
End Sub
填空题由关系数据库系统支持的完整性约束是指 【5】 和参照完整性。
填空题在菜单编辑器中建立一个菜单，名称为mymenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。 Form1. 【10】 mymenu
填空题在Visual FoxPro中表单的Load事件发生在Init事件之【14】。
填空题在程序执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句，这样用户可以在获得系统的控制权后进行其他操作，这个语句是
________
。
填空题在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程：PrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=【6】EndSubPrivateSubForm_Click()Timer1.Enabled=【7】EndSubPrivateSubTimer1_Timer()Label1.Caption=【8】EndSub程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。
填空题首先执行循环体，然后再进行条件判断，决定是否结束循环的循环语句是：______。
填空题用户可以用 【8】 语句定义自己的数据类型。
填空题把窗体的KeyPreView属性设置为True，并编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print KeyCode End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 程序运行后，如果按下B键，则在窗体上输出的数值是 【12】 和 【13】 。
填空题在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
PriVate Sub Commandl_CUck()
Dimalt(1 To 100)As Integer
Fori=1 To 100
arr(i)=Int(Rnd*1000)
Nexti
Max=arr(1)
Min=arr(1)
Fori=1 To 100
If
9
Then
Max=arr(i)
End If
If
10
Then
Min=arr(i)
End If
Nexti
Print"Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组alt中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
填空题下述程序段在运行时的显示结果是{{U}} 【6】 {{/U}}。
Cls
x=1．34 + 8
Print Len(x)
填空题在VB中向组合框中增加数据项所采用的方法为 【8】 。
填空题属性窗口分为4个部分，这4个部分分别是______。
填空题表达式Fix(-32.68)+Int(-23.02)的值 【10】 。