填空题在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，即命令按钮，程序可找出在文本框中输入的其他所有英文字母，并以大小写方式降序显示到Text1中，显示的字符串是ZYXWUTSRQPONMLKJIHGEC。请填空。 Private Sub Oommandl_Click() Dim str As String, s As String, c As String str=UCase(Text1) s="" c="Z" While c＞="A" If InStr(str, c)=0 Then s=【8】 End If c=Chr $(Asc(C)【9】) Wend If s＜＞"" Then Text1=s End If End Sub
填空题下列程序段用于计算1到20之间奇数之和与偶数之和。请填空。 x = 0:z = 0 For i = 0 To 20 Step 2 x = x + i y = i + 1 z = y + z Next i 【5】 Print "偶数和="; x Print "奇数和="; z
填空题关系数据库中能实现的专门关系运算包括【 4 】、连接和投影
填空题刚建立工程时，使窗体上的所有控件具有区别于默认值的相同的字体格式，应对Form窗体的______属性进行设置。
填空题在窗体上画一个命令按钮，然后编写如下程序： (假定变量x是一个窗体级变量)
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
Print x；
End Sub
程序执行后，单击Command1命令按钮，输出的结果是{{U}} 【11】 {{/U}}。
填空题在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程：
Private Sub Form_Load()
Show
Text1.Text=" "，
Text2.Text=" "
Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)
Text 1.Text=Text1.Text+Chr(KeyCode-4)
End Sub
程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为{{U}} 【11】 {{/U}}。
填空题在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和Word文档，然后在文本框控件中显示保存的文件名，请填空。
Private Sub Command1_Click( )
CommonDialog1．Filter=【 】
CommonDialog1．Filter=【 】
CommonDialog1．ShowSave
TextBox．Text=【 】
End Sub
填空题数据库模型提供了两层映像功能，内模式到模式间的映像使得数据存储结构改变时，逻辑结构不变，因而相应的应用程序也不必改变，这是数据库的{{U}} 【5】 {{/U}}独立性。
填空题一个变量未被显式定义，末尾没有类型说明符，则该变量的隐含类型是______类型。
填空题以下是一个比赛评分程序。在窗体上建立一个名称为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1命令按钮。运行时在文本框数组中输入6个分数，单击"计算得分"命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如下图所示。请填空。PrivateSubCommand1_Click()DimkAsIntegerDimSumAsSingle,maxAsSingle,minAsSingleSum=Text1(0)max=Text1(0)min=(7)Fork=0To5Ifmax＜Text1(k)Thenmax=Text1(k)EndIfIfmin＞Text1(k)Thenmin=Text1(k)EndIfSum=Sum+Text1(k)NextkText2=(8)/4EndSub
填空题窗体上有一个命令按钮，执行程序后，在按钮上单击鼠标左键的输出结果为______，在按钮上单击鼠标右键的输出结果为______。 Private Sub Command1_Click() Print"B"： End Sub Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print"A"： End Sub
填空题在窗体上画一个名称为"Command1"的命令按钮,然后编写如下事件过程：
Private Sub Commandl_Click()
Dim a As String
a="123456789"
For i=1 To 5
Print Space(6-i)；Mid$(a,【 】,2*i-1)
Next i
End Sub
程序运行后,单击命令按钮,窗体上的输出结果是
5
456
34567
2345678
123456789
请填空。
填空题执行下面的程序，当输入3时，输出的结果是 【11】 Private sub Command1_Click() i=2 j= InputBox(" j = ") On j GoTo 20,30,40,50 i=i+2 20:i=i+2 30:i=i+2 40:i=i+2 50:i=i+2 Print i End Sub
填空题程序执行结果S的值是{{U}} 【11】 {{/U}}。
Private Sub Command1_click()
i=0
Do
i=i+1
s=i+s
Loop Until i＞=4
Print s
End Sub
填空题下列程序为求Sn=a+aa+aaa+……+aa…a(n个a)，其中a为一个随机数产生的1～9(包括1、
9)中的一个正整数，n是一个随机数产生的5～10(包括5、10)中的一个正整数，请在空格处填入适当的内容，将程序补充完整。
Private Sub Form_CUCk() Dima As Integer,n As Intege,S As
Double，Sn As Double a=Fix(9*Rnd)+1
n=Pix(6*Rnd)+5 Sn=0 S=0
Fori=1 To{{U}} [5] {{/U}} S=S+a*10^(i-1)
{{U}} [6] {{/U}} PrintSn
Nexti End Sub
填空题Jackson结构化程序设计方法是英国的M.Jackson提出的，它是一种面向{{U}} 【3】 {{/U}}的设计方祛。
填空题以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在图片框Picture1中显示出来。请填空。
Private Sub Command1_Click
____
Dim inData As String
Open "./mText1.txt"
________
As 1
Do While Not EOF(1)
Input #i，inData
Picture1.Print inData
Loop
Close#1
End Sub
填空题在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算，下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时，在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommand1_Click()DimrAsInteger，nAsInteger n=Text1 r=Text2 Text3=fun(n)/fun(______)/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLong x=1 Fork=1Ton t=t*k Next fun=tEndFunction
填空题菜单项的唯一事件是{{U}} {{U}} {{/U}} {{/U}}。