填空题
在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_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={{U}} {{U}} 1 {{/U}} {{/U}}
End If
c=Chr $ (Asc(c) {{U}} {{U}} 2 {{/U}} {{/U}})
Wend
If s＜＞""Then
Text1=s
End If
End Sub
Private Sub Command1_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={{U}} {{U}} 1 {{/U}} {{/U}}
End If
c=Chr $ (Asc(c) {{U}} {{U}} 2 {{/U}} {{/U}})
Wend
If s＜＞""Then
Text1=s
End If
End Sub
填空题
栈中允许进行插入和删除的一端叫做______。
填空题
在窗体上画一个名称为Combol的组合框，画两个名称分别Label1和Label2及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示：如果存在，则在Label2中给出提示“输入项已在组合框中”。请在{{U}} {{U}} {{/U}} {{/U}}、{{U}} {{U}} {{/U}} {{/U}}和{{U}} {{U}} {{/U}} {{/U}}处将程序补充完整。
填空题
在Select case结构中，使用“To表达式”来指定一个范围时，必须把______的值写在前面。
填空题
下面程序代码实现单击命令按钮Command1时输出如下结果：
1 -1 -1
1 1 -1
1 1 1
该程序不完整，请填空。
Private Sub Command1_Click()
DimX(3,3)
For I=1 To 3
ForJ=1 To 3
If______Then
X(I,J)=1
End If
If I＜J Then
X(I,J)=-1
End If
Next J
NextI
ForI=1 To 3
ForJ=1 To 3
PrintX(I.J)；
NextJ
Print
NeXtI
End SUb
填空题
数据库系统其内部分为三级模式，即概念模式、内模式和外模式。其中，______是用户的数据视图，也就是用户所见到的数据模式。
填空题
下面的程序用“冒泡”法将数组a中的10个整数按升序排列，请将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678，45，324，528，439，387，87，875，273，823)
For i={{U}} {{U}} {{/U}}{{/U}}
For j={{U}} {{U}} {{/U}}{{/U}}
If a(i){{U}} {{U}} {{/U}}{{/U}}a(j)Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub
填空题
Visual Basic对象可以分为两类，分别为上______和用户定义对象。
填空题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer，y As Integer) As Integer
M=IIf(x＞y，x，y)
End Function
Private Sub command1 Click()
Dim a As Integer，b AS Integer
a=100
b=200
Print M(a，b)
End Sub
程序运行后，单击命令按钮，输出结果为{{U}} {{U}} {{/U}} {{/U}}。
填空题
VB中的控件分为内部控件、ActiveX控件和{{U}} {{U}} {{/U}} {{/U}}三类。
填空题
有如下函数过程。
Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
S=x/y
x=y
y=S
Loop
UNC=x
End Function
以下事件调用该函数，程序运行结果是{{U}} {{U}} {{/U}} {{/U}}。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC(a，b)
Print x
End Sub
填空题
有如下程序：
Prinvate Sub Form_Click()
a=10
b=0
Do
b=b+a
a=a-2
Loop While a＞2
Print b
End Sub
程序运行后，单击窗体，输出结果为______。
填空题
假定在工程文件中有一个标准模块，其中定义了如下记录类型。
Private Type Books
Name As String*10
TelNum As String#20
End Type
要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。
Private Sub Command1_Click()
DimB As Books
open“C/person.txt”For output As#1
B.Name=InputBox(“请输入姓名”)
B.TeINum=InputBox(“请输入电话号码”)
write#1，{{U}} {{U}} {{/U}} {{/U}}
close#1
End Sub
填空题
在长度为n的有序线性表中进行二分查找，最坏的情况下，需要的比较次数为______。