填空题在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序：
Function a(x As Integer, y As Integer) As Integer
a = IIf(x ＞ y, x, y)
End Function
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n = 10
m = 20
Print a(n, m)
End Sub
程序运行后，单击命令按钮，输出结果是______。
填空题在窗体上画一个文本框和一个命令按钮，如图2所示。编写如下程序：PrivateSubForm_Load() Show Text1.Text="" Form1.KeyPreview=False Text1.SetFocusEndSubPrivateSubCommand1_Click() KeyPreview=NotKeyPreview PrintEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger) PrintUCase(Chr(KeyAscii+1));EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger) PrintChr(KeyAscii+2); KeyAscii=0EndSub阅读以上程序，理解每个事件过程的操作，然后填空。程序运行后，直接从键盘上输入abc，程序的输出是(9)。程序运行后，单击一次命令按钮1，然后从键盘上输入abc，程序的输出是(10)。
填空题在窗体form1上有一个驱动器列表控件Drivel，一个目录列表控件Dirl，一个文件列表控件File1，一个富文本控件Richtexbox1。要求程序运行以后，用户可以利用。Drivel选择不同驱动器，同时Dirl中显示当前选中的驱动器的目录，用户利用Dirl选择文件所在的文件夹，在Filel控件中将显示当前选中的文件夹下的文件，用户选中其中某个文件(假设为文本文件)，则该文件的内容显示在控件Richtexboxl中。补充相应的语句，使之完成所述的功能。
Private Sub Dirl_Change()
{{U}} 【8】 {{/U}}
End Sub
Private Sub Drive1_Change()
{{U}} 【9】 {{/U}}
End Sub
Private Sub Filel _Click()
Dim fname AS String
If{{U}} 【10】 {{/U}}Then
fname=Filel．Path & Filel．FileName
Else
fname=Filel．Path& "/" & Filel．FileName
End If
RichTextBox1．LoadFile(fname)
End Sub
填空题软件生命周期一般可以分为以下阶段：问题定义、可行性研究、{{U}} 【3】 {{/U}}、设计、编码、测试、运行和维护。
填空题在窗体上画一个命令按钮和一个文本框。然后编写命令按钮的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